Das habe ich jetzt mal gemacht.
So sieht das jetzt bei mir aus:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
FileStream: TFileStream;
myfile : file;
i, filesizevalue: integer;
fname: string;
begin
FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
setLength(bArray, FileStream.Size);
FileStream.ReadBuffer(bArray, FileStream.Size);
FileStream.Free;
end;
Aber wenn ich das starte, bekomme ich einen Fehler:
Erste Gelegenheit für
Exception bei $00406637.
Exception-Klasse $C0000005 mit Meldung '
access violation at 0x00406637: write of address 0x00190000'. Prozess Projekt1.exe (5236)
Das hier wird dann im System-Tab Rrt makiert:
FISTP QWORD PTR [EDX+ECX]