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;

:gruebel: :gruebel: :gruebel:
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:

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.