Indy - Readbuffer/Writebuffer ?

[cwb38]

Hi bbBowser,

einige Jahre später hatte ich nun auch dein Problem, konnte es aber erfolgreich lösen:
Wie in der Indy Dokumentation ersichtlich, wird die die Methode ReadBytes wie folgt definiert:

Delphi-Quellcode:

procedure ReadBytes(
var VBuffer: TIdBytes;
AByteCount: Integer;
AAppend: boolean = true
); virtual;

wobei gilt:

Zitat:

AAppend indicates that values extracted from the input buffer should be appended to existing data in VBuffer. When AAppend is False, any values in VBuffer are discarded during extraction of data from InputBuffer.

Das heißt für dich, dass du

AContext.Connection.IOHandler.ReadBytes(Buf, Sizeof(TClientFiles), false); aufrufen musst, damit das Record aktualisiert wird.

MfG
cwb38

[bebo91]

Hallo zusammen,

ich versuche mich auch gerade an einer ähnlichen Aufgabenstellung, allerdings funktioniert das bei mir noch nicht.
Der Record sieht wie folgt aus:

Code:

TTEst= record
  name: String;
  alter: Integer;
end;

Das Senden:

Code:

var
  lTest: TTEst;
begin
  lTest.name := 'bla bla';
  lTest.alter := 101;
  buf := RawToBytes(lTest, SizeOf(TTest));
  AContext.Connection.IOHandler.Write(buf);
end

Das Empfangen:

Code:

var
  lTest1: TTest;
begin
  IdTCPClient1.IOHandler.ReadBytes(buf, SizeOf(TTest), false);
  BytesToRaw(buf, lTest1, SizeOf(TTest));
end

Statt meinen überagenen Daten erhalte ich allerdings folgendes:

Code:

name:   #0#4#$09C5#0#0#0'ù'#0#$14''' '#0#4#$09C6#0#0#૨... (Ist ca. 1 Seite lang)
alter:   101 (das stimmt)

Hat jemand eine Idee, was ich hier falsch mache?

Viele Grüße

bebo91

[Klaus01]

.. funktioniert es, wenn Du aus dem String ein shortString machst?

Delphi-Quellcode:

TTEst= record
  name: String[25];
  alter: Integer;
end;

Grüße
Klaus

[Mavarik]

Name : String in einem Record speichert nur die Referenz und nicht den Inhalt...
Der eigentliche Stringinhalt ist also nicht im Record enthalten...

[bebo91]

Zitat von Klaus01:

.. funktioniert es, wenn Du aus dem String ein shortString machst?

Delphi-Quellcode:

TTEst= record
  name: String[25];
  alter: Integer;
end;

Grüße
Klaus

Danke für den Tipp, das funktioniert.

@Mavarik: klar, Anfängerfehler^^

Gibt es eine andere Möglichkeit, das beschriebene Verfahren zu verwenden, ohne alle Strings auf eine feste Länge setzen zu müssen?

[Mavarik]

Zitat von bebo91:

Gibt es eine andere Möglichkeit, das beschriebene Verfahren zu verwenden, ohne alle Strings auf eine feste Länge setzen zu müssen?

Klar...

Bau die eine Funktion die Dir aus Deinem record ein ByteArray macht...

Delphi-Quellcode:

   TTest= record
            name : String;
            Alter: Integer;
            Class operator implicit(Const AMyTest : TTest): TBytes;
          end;

[bernhard_LA]

helfen dir diese demos weiter ? alles in IN DY 10

http://sourceforge.net/projects/indy10clieservr/