Thema
:
Delphi
Binäre Datei in Array of Byte laden
Einzelnen Beitrag anzeigen
Klaus01
Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
Delphi 10.4 Sydney
#
5
AW: Binäre Datei in Array of Byte laden
17. Feb 2013, 19:37
.. versuche es mal so:
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.Button2Click(Sender: TObject);
var
bArray:
Array
of
byte;
FileStream: TFileStream;
myfile :
file
;
i, filesizevalue: integer;
fname:
string
;
begin
try
try
FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
except
on
E:
Exception
do
showMessage(E.
Message
);
end
;
setLength(bArray, FileStream.Size);
FileStream.seek(0,soFromBeginning);
FileStream.ReadBuffer(bArray, FileStream.Size);
finally
FileStream.Free;
end
;
end
;
Grüße
Klaus
Klaus
Zitat
Klaus01
Öffentliches Profil ansehen
Mehr Beiträge von Klaus01 finden