TCP Indy 10 SendReceiveRecords

[zohan1]

kann mir einer erklären wie das auf indy 10 geht hab schon die demos funktionieren aber leider nur auf indy 9 und da 10 kein so ein demo hat würd ich mich freuen wenns mir einer erklärt (Delphi 2006)

mfg
zohan1

EDIT// Mien record einthält strings sowie integer und CRC zur kontrolle hätte mir gedacht ich schrieb alles in ein Stream aber wie mach ich das btw wie transformier ich dann den stream in ein record zurück :S

[chaosben]

Zum serialisieren sind die Klassen TStreamReader und TStreamWriter ganz praktisch

[zohan1]

hat da einer ein bespiel? wäre ganz nützlich denn ich konnte mich mit theorie alleine nicht einen richtigen lösungsweg machen :S

[chaosben]

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.

[zohan1]

also irgenwas mach ich falsch beim lesen

Code:

  Size := StrToInt(ReceiveCommand(AContext));
        AContext.Connection.IOHandler.ReadStream(ms, Size, False);
        ms := TMemoryStream.Create;
        w := TReader.Create(ms, 1000);
        Rec.Acknowledge:= w.readInteger;
        Rec.FilePath:=w.readString;
        Rec.Command:=w.readString;
        w.Free;
        ms.Free;

Fehler:= Zugriffsverletzung der Server.exe

kann mir einer helfen?

[DeddyH]

Zitat:

Delphi-Quellcode:

AContext.Connection.IOHandler.ReadStream(ms, Size, False);
ms := TMemoryStream.Create;

Du willst etwas befüllen, was Du anschließend überhaupt erst erzeugst?