Zitat von
jokerfacehro:
du meintest ja noch lieber auf Clientsocket.OnReceive reagieren als of OnAccept des Servers wie krieg ich das hin ? ^^
schreib dir zuerst eine funktion, die als eventhandler dient:
Delphi-Quellcode:
procedure TForm1.MyReceive(Sender: TObject; Buf: PChar;
var DataLen: Integer);
begin
//hier die nachricht ausesen (steck im parameter "Buf"; die länge steht in "DataLen")
end;
dann, beim OnAccept des TcpServer folgendes:
Delphi-Quellcode:
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
//...
ClientSocket.OnReceive := MyReceive;
//...
end;
damit wird MyReceive aufgerufen, wenn bei dem server eine nachricht des clients ankommt
aeno