Danke für die schnelle Antwort
Ich habe folgende Funktion:
Delphi-Quellcode:
function LoadFileAsHex(const FileName: String) : String;
var
Stream : TFileStream;
BinStr : String;
TmpStr : String;
HexStr : String;
i : Integer;
begin
Stream:= TFileStream.Create(FileName, fmOpenRead);
try
SetLength(BinStr, Stream.Size);
Stream.ReadBuffer(BinStr, Length(BinStr));
finally
Stream.Free;
end;
SetLength(HexStr, 2*Length(BinStr));
for i:= 1 to Length(BinStr) do begin
TmpStr:= Format('%.2x', [BinStr[i]]);
HexStr[2*i-1]:= TmpStr[1];
HexStr[2*i]:= TmpStr[2];
end;
Result:= HexStr;
end;
Wenn ich die nun folgendermaßen benutze:
Edit1.Text := uHexTools.LoadFileAsHex(OpenFile.FileName); //OpenFile = OpenFileDialogue
wird mir ausgegeben, dass es einen "Stream read error" gibt und ich weiß nicht, was dazu führt :/