Dynamische Arrays vom Type Byte in Verbindung mit TFileStream

[ObeY]

Hallo zusammen,
ich habe ein Problem mit Dynamische Arrays vom Type Byte in Verbindung mit dem Lesen eines TFileStreams.
Ich benutze Delphi 5 und habe die Testdatei hier mit hochgeladen.

Nach dem öffnen einer Binärdatei mittels TFileStream versuche ich diese in seine Bestandteile zu zerlegen.
Dazu lese ich die ersten 9 Bytes ein und speichere Sie in ein Statisches Array des Types Byte.
Das funktioniert auch.

Das 6 und 7 Byte multipliziert mit dem 8 und 9 Byte ergibt dann die Anzahl an Bytes die danach eingelesen werden sollen.
Dazu verwende ich dann mein dynamisches Arrays und setze die Länge.
Am Ende lese ich dann exakt soviele Bytes wie in das dynamische Array reinpassen würden was zur Folge hat, dass eine Exception ausgelöst wird und ich weiß nicht weshalb.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var
   floFStream : TFileStream;
   a : Array [ 1 .. 9 ] of byte;
   b : Array of byte;
   breite,hoehe : Integer;
   l : Integer;

begin
   mpoOut.Clear;
   OpenDialog1.InitialDir := zgvExec;
   if Not OpenDialog1.Execute Then
      Exit;
   floFStream := TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite);
   Try
      floFStream.ReadBuffer(a,9);
      breite := a[6] + a[7]*256;  // = 112
      hoehe := a[8] + a[9]*256; // = 112

      l := breite * hoehe; // = 12544
      SetLength(b,l);   
      ShowMessage( IntToStr(High(b) )); // = 12543 da dynamische Arrays mit dem Index 0 beginnen
      floFStream.ReadBuffer(b,l);         // Exception: Stream-Read-Fehler.
   Finally
      floFStream.Free;   
   End;
end;

Wenn ich ein statisches Array benutze wird keine Exepction auslöst und die Daten im Array wurden korrekt eingelesen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var
   floFStream : TFileStream;
   a : Array [ 1 .. 9 ] of byte;
   c : Array [ 0 .. 12543 ] of byte;
   breite,hoehe : Integer;
   l : Integer;

begin
   mpoOut.Clear;
   OpenDialog1.InitialDir := zgvExec;
   if Not OpenDialog1.Execute Then
      Exit;
   floFStream := TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite);
   Try
      floFStream.ReadBuffer(a,9);
      breite := a[6] + a[7]*256;  // = 112
      hoehe := a[8] + a[9]*256; // = 112
      l := breite * hoehe; // = 12544

      floFStream.ReadBuffer(c,12544);         // keine Exception
   Finally
      floFStream.Free;   
   End;
end;

Ich habe mich jetzt mittels Google auf diversen Seiten, Tutorials und Foren getummelt und auch meine Delphi Bücher zu rate gezogen aber ich finde einfach nicht den Grund.

Nun hoffe ich darauf, dass jemand von euch eine Erklärung oder zumindest einen weiteren Denkanstoß parat hat.

Ich würde alternativ ein statisches Array der Größe 1 des Types Bytes benutzen, und dann mittels schleifen den Filestream Byte für Bytes auslesen und dann in ein dynamische Array vom Type ShortInt o.ä. rüberschaufeln was aber eher eine unglückliche Lösung wäre (getestet habe ich es auch noch nicht, da es für mich der Worst Case wäre).

Schönes Wochenende noch
Thomas