das ist ziemlich komisch:
wenn ich deine methode zum empfangen vom daten vom client nehme ohne was anderes in OnAccept etwa so
Delphi-Quellcode:
procedure TForm1.MyReceive(Sender: TObject; Buf: PChar; var DataLen: Integer);
begin
Memo1.Lines.Add(Buf);
end;
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var s:string;
i:integer;
aa:boolean;
begin
Memo2.Lines.Add(ClientSocket.LocalHostAddr);
ClientSocket.OnReceive:=MyReceive;
end;
ausführe wird MyReceive garnicht ausgeführt :/
so klappt es:
Delphi-Quellcode:
procedure TForm1.MyReceive(Sender: TObject; Buf: PChar; var DataLen: Integer);
begin
Memo1.Lines.Add(Buf);
end;
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var s:string;
i:integer;
aa:boolean;
begin
Memo2.Lines.Add(ClientSocket.LocalHostAddr);
ClientSocket.OnReceive:=MyReceive;
ClientSocket.ReceiveLn; ///////die wichtige zeile
end;
ich versteh' das nicht ganz ^^
am besten wäre wirklich ein beispiel
