Zitat von
PatrickB:
Aber warum verstehe ich immer noch nciht so genau?
Der ServerSocket kann x-viele Clients gleichzeitig verbunden haben. Somit gibt es nicht nur ein Socket beim Server, sondern für jeden Client einen. Der Client, von dem Daten empfangen wurden, wird dir übergeben - besser: dessen Socket - als zweiten Parameter in dem Ereignis OnClientRead. Schau dir mal den zweiten Parameter an.
Delphi-Quellcode:
procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
Rec: CustomRec;
begin
//wir holen unseren Record ab...
Socket.ReceiveBuf(Rec,SizeOf(Rec));
//...und übertragen den Inhalt in das MemoFeld
with Rec do begin
Memo1.Lines.Add(Text);
Memo1.Lines.Add(IntToStr(Zahl));
end;
end;