TcpServer ----> TcpClient senden und empfangen

[Aenogym]

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