putLong Äquivalent in Delphi ?

[Nic2012]

Möchte den folgenden Java-Code in Delphi 7 migrieren :

Code:

      ByteBuffer bb = ByteBuffer.allocate(12);
      bb.order(ByteOrder.LITTLE_ENDIAN);
      bb.put(0);
      bb.put(255);
      bb.putShort(12);
      bb.putLong(4049070540721238834);

Dieser wird anschl. an einen Outputstream geschrieben:

Code:

OutputStream.write(bb.array());

Wie würde sowas ByteBuffer, putLong in Delphi aussehen ?

Gruß,
Nic

[sirius]

Java ist - meiner Meinung nach - noch total besch**** was Streams etc angeht. In Delphi machst du einfach gleich den Stream und vergisst diess ständige umwandeln zwischen inputund output streams und buffers.

Delphi-Quellcode:

var Stream:TMemoryStream; // (oder TFileStream,TstringStream,Tmein_eigener_Stream....)
    a:Int64;
    b:Integer;
//...
  Stream:=TMemoryStream.create;
  Stream.write(a,sizeof(int64));
  Stream.write(b,sizeof(integer));
  //weiteres zu Streams in der Hilfe...

Achja, und jetzt halt dich fest! Bei jedem Stream in Delphi kann man gleichzeitig lesen UND schreiben. Und das an beliebiger Stelle im Stream (-> TStream.seek).

[Nic2012]

Ok, aber wie übergebe ich den MemoryStream an ein TTcpClient ?

[Klaus01]

Hallo,

ein Beispiel ist hier zu finden.

Grüße
Klaus

[sirius]

Per SendStream? (wie auch schon Klaus verlinkt hat)
Aber dafür hast du doch den Stream jetzt gebaut, oder?

[Nic2012]

Korrekt,
danke und Gruß, Nic