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?

[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".

Delphi-Quellcode:

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.

[zohan1]

danke hat funktioniert :)