TByteArray und SetLength() Problem

[justnew]

Hi
Ich habe bereits gegoogelt und keine passende Lösung gefunden, daher wende ich mich an euch.
Also ich habe eine FUnktion, welche eine Datei in ein TByteArray liest. Dieses wird aber mit SetLength() auf die Größe der Datei gebracht und genau hier kriege ich einen Fehler, dass ein Pointer erwartet wird.
Hier mal der Code:

Code:

function ReadBytes(sPath:string; var bFile:TByteArray):Boolean;
var
  hFile:  THandle;
  dSize:  DWORD;
  dRead:  DWORD;
begin
  Result := FALSE;
  hFile := CreateFile(PChar(sPath), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hFile <> 0 then
  begin
    dSize := GetFileSize(hFile, nil);
    SetFilePointer(hFile, 0, nil, FILE_BEGIN);
    SetLength(bFile,dSize);
    if ReadFile(hFile, bFile[0], dSize, dRead, nil) then
      Result := TRUE;
    CloseHandle(hFile);
  end;
end;

Der Fehler liegt also in:

Code:

SetLength(bFile,dSize);

Ich habe es bereits mit

Code:

SetLength(^bFile,dSize);

und

Code:

SetLength(Addr(bFile),dSize);

probiert, was allerdings nicht zum Erfolg führte (selber Fehler).
Ich komme aus der C++ und ASM-Ecke und lerne gerade Delphi, daher verzeiht unnötige Fragen :). Und über Hintergrundinformationen, wie das der Compiler macht freue ich mich natürlich :).
IDE: Delphi 2007.

[Deep-Sea]

Schau dir mal die Definition von TByteArray an:

Delphi-Quellcode:

TByteArray = array[0..32767] of Byte;

Was fällt dir auf? Richtig, es ist ein statisches Array. Es hat eine feste Länge. Darum geht SetLength nicht.
Nutze statt dessen TBytes :wink:

[justnew]

Danke :).
Das muss ich mir unbedingt angewöhnen :).

[himitsu]

Je nach Delphiversion (ich glaub in den älteren gab's das noch nicht), gibt es ein TBytes, welches deinem Wunschtyp entsprechen sollte.

Ansonsten gibt es noch einige andere vordefinierte Typen ala T...DynArray in der Unit Types, wie z.B. TIntegerDynArray und TStringDynArray.
Und sobald einem die Generis zur Verfügung stehen, könnte man auch

Delphi-Quellcode:

TArray<...>

verwenden.

(

Delphi-Quellcode:

TArray<T> = array of T;

)


PS: das SetFilePointer könntest'e hier weglassen ... nach dem Öffnen (CreateFile) steht das eh immer am Dateianfang.