Sockets -> SendBuf

[Stevie]

So funktioniert das bei mir...

Delphi-Quellcode:

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket); <-- Hier wird der Socket übergeben!!!
var
  Rec: CustomRec;
begin
     //record abholen
     Socket.ReceiveBuf(Rec,SizeOf(Rec)); <-- Aus dem übergebenen Socket lesen!!!
     //...und im Memofeld ausgeben
     Memo1.Lines.Add(rec.Text);
     Memo1.Lines.Add(IntToStr(rec.Zahl));
     // AUSGABE: erste zeile nichts und zweite zeile Null :-(
end;