Datei als HEX laden (Suche schon mehrfach benutzt)

[raysto]

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 :/