Forum: Programmieren allgemein
Delphi
by Klaus01,
17. Feb 2013
.. so sollte es gehen.
procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
FileStream: TFileStream;
begin
try
try
FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
except
Forum: Programmieren allgemein
Delphi
by Klaus01,
17. Feb 2013
.. versuche es mal so:
procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
FileStream: TFileStream;
myfile : file;
i, filesizevalue: integer;
fname: string;
begin
Forum: Programmieren allgemein
Delphi
by Klaus01,
17. Feb 2013
.. mit einer Instanz von TFileStream die Datei öffnen.
Mit fileStream.size die Größe der Datei ermitteln.
Mit setLength(DeinArray, Dateigröße) das Array auf die entsprechende Größe ändern.
Mit fileSize.readBuffer(DeinArray,ArrayGröße) die Datei in das Array einlesen.
Grüße
Klaus