Einzelnen Beitrag anzeigen

Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#4

AW: TCP Indy 10 SendReceiveRecords

  Alt 22. Aug 2011, 07:18
Auf der schreibenden Seite erzeugst du einen TWriter und schreibst seriell die Felder deines Records rein.
Delphi-Quellcode:
var
  w : TWriter;
  ms : TMemoryStream;
begin
  ms := TMemoryStream.Create;
  w := TWriter.Create(ms, 1000);
  w.WriteInteger(MeinRecord.IntField);
  w.WriteString(MeinRecord.StringField);
  w.Free;
  Indy.WriteStream(ms);
  ms.Free;
end
Und auf der anderen Seite das gleiche Spiel mit TReader.
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat