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