Buffer erst ab bestimmter stelle beschreiben

[gekmihesg]

hallo

ich möchte etwas aus einem stream in einen buffer lesen und zwar so das die ersten bytes (in dem fall 8 ) nicht überschrieben werden.
also ungefähr so:

Delphi-Quellcode:

var
  Buff: Pointer;
  Stream: TMemoryStream;
begin
  GetMem(Buff, 1024 + 8);
  Stream := TMemoryStream.Create;
  try
    FuelleBytes(Buff, 8);
    Stream.ReadBuffer(Buff^, 1024); // und hier soll eben erst ab dem 8. byte gefüllt werden
//...

wie stell ich sowas an?

[Luckie]

Dann überspring doch die ersten 8 Bytes, in dem du den Dateizeiger mit Position setzt.

[gekmihesg]

hmmm ich vermute mal du verstehst da was falsch...
das ganze hat nichts mit der datei zu tun sondern nur mit dem buffer. im buffer sollen die ersten 8 bytes so bleiben wie sie sind und der rest soll aus dem filestream gelesen werden.

[alcaeus]

Hallo gekmihesg,

d.h. du willst du den gesamten Inhalt des Streams in den Buffer kopieren, dabei aber 8 Bytes freilassen? Wie waers wenn du zuerst den Streaminhalt rauskopierst und anschliessend um 8 Bytes nach hinten schiebst?

Greetz
alcaeus

[gekmihesg]

klingt ein bischen umständlich. ich hatte gehofft das irgendwie so machen zu können:

Delphi-Quellcode:

var
  Buff: Pointer;
  Stream: TMemoryStream;
begin
  GetMem(Buff, 1024 + 8);
  Stream := TMemoryStream.Create;
  try
    FuelleBytes(Buff, 8);
    Stream.ReadBuffer(Buff[8]^, 1024);

[Oxmyx]

Delphi-Quellcode:

var
  Buff: Pointer;
  tempBuf: Pointre;
  Stream: TMemoryStream;
begin
  GetMem(Buff, 1024 + 8);
  tempBuf := Buff;
  ZeroMemory(Buff, 1024 + 8);
  Stream := TMemoryStream.Create;
  Inc(PByte(tempBuf), 8);
  Stream.ReadBuffer(tempBuf^, 1024);

[gekmihesg]

danke das scheint zu funktionieren.