programación de la red delphi
Escriba el evento de tecla de edición
código de comunicación del socket
BrodcastMessage(Data, AThread);
Puede consultar
procedimiento TForm_Server_Main.BrodcastMessage(Msg: string; AThread: TIdPeerThread);
var
Lista: TList;
I: Entero;
p>comenzar
Lista ：= ChatServerSocket.Threads.LockList
prueba
para I ：= 0 a List.Count; - 1 hago
comenzar
intentar
si AThread lt; gt; TIdPeerThread(List.Items[I]) entonces
comenzar
TIdPeerThread(List.Items[I]).Connection.WriteLn(Msg);
fin
excepto
en E; : Excepción do
comenzar
memLog.Lines.Add('Exception (' FormatDateTime(StatusDateTimeFormat, Now) ') [' E.ClassName ']: ' E.Message);
memLog.Lines.Add('El hilo ha sido detenido');
TIdPeerThread(List.Items[I]).Stop; //en
end; //prueba
end; //para
finalmente
ChatServerSocket.Threads.UnlockList;
end;
end
***************
Además, en términos de comunicación de tres capas, se recomienda utilizar RemObjects,
muy conveniente. Además, todos los protocolos están en XML, las interfaces son muy buenas y el marco está maduro.