Datei in Stream einlesen - Liest nur 0 Bytes

[little_budda]

Hallo,

ich möchte eine Datei in einen Stream einlesen um danach Bytweise die Inhalte zu ändern.
Ich verwende folgenden Code:

Delphi-Quellcode:

...
procedure Tfrm_chainAutoProg.LB_ElementClick(Sender: TObject);
var sFileName : string;
    MyFilestream : tfilestream;
    iRealReadBlocks : longint;
    iFileSize : integer;
begin
  // Datei laden
  sFileName := sSourceFileName;

  MyFilestream := tfilestream.create(sFileName , fmOpenRead or fmShareDenyNone);
  iFileSize := MyFilestream.Size;
  setlength(aFileBlockBuffer, iFileSize);

  iRealReadBlocks := MyFilestream.read(aFileBlockBuffer, iFileSize);
  MyFilestream.free;

  if (iRealReadBlocks <> iFileSize) then
...

Leider gibt mir das "MyFilestream.read" immer 0 zurück.
Ich stehe auf dem Schlauch ...

:gruebel:

[Corpsman]

Probier mal

MyFilestream.Position := 0;

vor dem Read

bzw las die MyFilestream.size anzeigen.

[little_budda]

Also der Tipp mit MyFilestream.Position := 0;
hat nicht geholfen.
Liest immer noch nur 0 Bytes ein.

Die Size des Streams ist richtig.
Daran mache ich ja die Array-Größe fest.

[Apollonius]

Dynamische Arrays sind nur Zeiger, für das Auslesen aus dem Stream musst du daher aFileBlockBuffer[0] angeben.

[little_budda]

Super. Klappt.
Danke.

[Muetze1]

1. Nach dem anlegen eines TFileStreams (oder auch Memorystreams) ist die Position immer 0

2. Nach der nun ausgehandelten Fehlerquelle, sollte aber iRealReadBlocks trotzdem einen Wert von mehr als 0 enthalten haben. Er hat es zwar sonstwo hingelesen, aber er hat gelesen.