Datei in ein Bytearray einlesen

[Linguini]

Delphi-Quellcode:

  _File   : TByteArr;
  P: TParameters;


PEUtils.GetEntryPoint(ReadIn(fileName), P) ;

Prozedur:

Delphi-Quellcode:

procedure GetEntryPoint( FileData: TByteArr; var P: TParameters );
begin
  P.EntryPoint := PCardinal( @FileData[P.PE_Offset+$28] )^;
end;

Leider enthalte ich damit immer bei "P.EntryPoint := PCardinal( @FileData[P.PE_Offset+$28] )^;" eine Exception:

Code:

Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 00476ED9 in Modul 'PhosGenPro.exe'. Lesen von Adresse FF930040'. Prozess PhosGenPro.exe (1488)

Irgendwo ist noch der Wurm drin...
In "fileName" liegt der Pfad zu der Datei. ReadIn ist die Prozedur, die mr_emre_d in diesem Thread bereits gepostet hat.

Danke für eure super Hilfe bisher =)