Hab das Problem jetzt gefunden, ist allerdings nicht unbedingt nachvollziehbar für mich.
Einfach anstatt
Delphi-Quellcode:
procedure Tfrmmain.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memmain.Lines.Insert(0,server.socket.ReceiveText);
end;
ohne "server"
Delphi-Quellcode:
procedure Tfrmmain.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memmain.Lines.Insert(0,socket.ReceiveText); //nur socket.receivetext
end;
das verstehe wer will.