tfilestream.read(dynamischer array,x)=> fehler ???

[dadu]

Hi Leute!

Ich möchte eine Datei in einen array of byte laden:

Wenn der Array statisch ist funktioniert das auch,

Delphi-Quellcode:

var 
    bytes: array[1..1000] of byte;
    Datei: TFileStream;
begin
  datei := TFileStream.Create('c:\clip.wav', fmopenread);
  caption := inttostr(Datei.Read(bytes, 1000)); // gibt 1000 zurück
end;

sobald er aber dynamisch definiert ist (und das brauche ich ) bleiben alle Bytes im array 0

Delphi-Quellcode:

var 
    bytes: array of byte;
    Datei: TFileStream;
begin
  setlength(bytes, 1000);
  datei := TFileStream.Create('c:\clip.wav', fmopenread);
  caption := inttostr(Datei.Read(bytes, 1000)); // gibt 1000 zurück
end;

Irgendwelche Lösungsvorschläge???

DaDu

[Dax]

So funktionierts:

Delphi-Quellcode:

var
    bytes: array[1..1000] of byte;
    Datei: TFileStream;
begin
  datei := TFileStream.Create('c:\clip.wav', fmopenread);
  caption := inttostr(Datei.Read(bytes[1], 1000)); // gibt 1000 zurück
end;

[dadu]

Hi Dax,
ich weis das es so funktioniert, wenn der array statisch ist: Es funktioniert aber nicht mit einem dynamischen array und da ich nicht wie im Beispiel immer 1000 bytes, sondern eine variable Anzahl auslesen möchte, brauche ich unbedingt dynamische arrays.

[Dax]

Wenn du Daten in ein Array einlesen willst, musst du immer das erste Element des Arrays bei der Read-Methode angeben. Bei dyn. Arrays wäre das dann MyArray[0].

[dadu]

Achso!

Thx,
DaDu

[Christian Seehase]

Moin Dadu,

Zitat von dadu:

ich weis das es so funktioniert,...

Du hast schon Glück gehabt, dass Dir das Programm nicht abgeschmiert ist (unabhängig davon, ob es sich um ein statisches oder dynamisches Array handelt )

Was allerdings bei Dir in jedem Falle fehlt, sind die Freigabe des TFileStream, und der Resourcenschutzblock dafür.

Delphi-Quellcode:

Foo := TFileStream.Create(...);
try
  // Mach was mit dem FileStream
finally
  FreeAndNil(Foo);
end;

[dadu]

Hi Christian,

hab das bei dem Beispiel in der Tat vergessen, im richtigen Programm gebe ich den Speicher natürlich wieder frei.