Problem mit dynamischen Array

[bono_82]

Hallo,

ich will eine Datei per FileStream byteweise auslesen, habe allerdings
folgendes Problem beim Arbeiten mit einem dynamischen Array.

Deklaration:

Delphi-Quellcode:

Data_Buffer: array of byte;

Verwendung (z.B. die ersten 512 Byte auslesen):

Delphi-Quellcode:

str := VisuFilePath+VisuFileName+'.dat';
VisuFile :=   TFileStream.Create(str,fmShareDenyWrite);
SetLength(Data_Buffer,512);
VisuFile.Position := 0;
VisuFile.Read(Data_Buffer,512);

Ich bekomme so einfach nichts aus dem Stream gelesen. Das ganze funktioniert mit einem statischen Array
allerdings wunderbar. Ich finde einfach keinen Fehler.
Wäre schön wenn mir jemand helfen könnte

Gruß!

[TonyR]

Wozu brauchst du überhaupt ein dyn. Array? In dem Code-Schnipsel weist du ihm eine feste Länge zu (also immer 512) ... da kann man das doch auch mit einem statischen Array mach, oder???

Und hast du bedacht, dass, wenn das Array 512 groß ist, das der Index von 0-511 geht? (Kann ja sein, dass beim Auslesen von dem Array dann irgendein Fehler passiert) :gruebel:

[Flocke]

Dynamische Arrays sind da wie dynamische Strings: wenn du sie für einen untypisierten Parameter übergibst, solltest du das erste Element benutzen. In deinem Fall also:

Delphi-Quellcode:

VisuFile.Read(Data_Buffer[0], 512);

[Tyrael Y.]

Versuch es mal so

Delphi-Quellcode:

VisuFile.Read(Pointer(Data_Buffer)^,512);

[bono_82]

Danke!

Beide Varianten...

Delphi-Quellcode:

VisuFile.Read(Pointer(Data_Buffer)^,512);

VisuFile.Read(Data_Buffer[0],512);

funktionieren.

Ist im Nachhinein auch logisch. Also, besten Dank!