Client/Server- Socket Sendeprobleme

[buyden]

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.

[Muetze1]

So, erklären wir mal.

Der Server kann mehrere Clients verwalten, daher fragt sich der Server dann bei einem Zugriff auf Server.Socket.Receivetext, welcher von den vielen Clients gemeint ist. Daher musst du angeben welchen Socket du abfragen willst. (z.B. Server.Socket.Connections[0].ReceiveText).

Mit deiner Änderung nutzt du den übergebenen Socket. Bei jeder Socket-Basierenden Event-Methoden der Socket Komponenten wird dir immer der Socket mit übergeben, auf den sich das Event bezieht. Sonst hättest du beim Server z.B. gar keine Anhaltspunkte wer dir nun was geschickt hat....