TCP Indy 10 SendReceiveRecords

[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?

[zohan1]

ups xD blöder fehler aber jez hab ich ein Stream-Lesefehler (sry aber mit Streams arbeite ich jez das erste mal )

[chaosben]

Wahrscheinlich hast du den Stream noch nicht "zurückgespult". Stream.Seek(0, soFromBeginning) So einen Stream musst du dir wie eine Videokassette vorstellen. Wenn er beschrieben/gelesen wird, ändert sich die Position des Bandes/die Postition-Property.
So auch in deinem Fall. Du liest die Daten aus der Verbindung in den Stream. Dadurch steht die Position am Ende.

Code:

[01010101010101]
              ^

Wenn du dann dem Stream sagst: Lies mal bitte (z.B.) 4 Byte, gibts nen Fehler, weil ab der aktuellen Position keine 4 Byte verfügbar sind.