Datei als HEX laden (Suche schon mehrfach benutzt)

[raysto]

Hey
Ich versuche jetzt schon seit einiger Zeit eine Datei als HEX String zu laden und so ganz möchte mir das nicht gelingen. Das Problem hier ist, dass Delphi anscheinend bei einem leeren Byte (00) aufhört die Datei zu lesen. Das heißt ich suche mir mit dem OpenFileDialouge eine Datei aus und klicke auf öffnen und Delphi lädt mir sowohl als normalen String als auch als Hex string nur die ersten paar bytes, weil es dann auf ein 00 trifft. Ich habe mich dann mal im Internet umgeschaut aber nicht wirklich eine Lösung dazu gefunden. Also habe ich schon fertige Funktionen ausprobiert, die eine Datei sofort als HEX laden. Diese geben mir aber nur errors. Jetzt bin ich echt ratlos was ich tun soll Ich hoffe mir kann jemand helfen.

[Sir Rufo]

Achtung, jetzt etwas für den Langzeitspeicher:

Jede Datei besteht aus einer Folge an Bytes!

Also liest man die Datei in etwas, dass eine Bytefolge halten kann (z.B. TStream) und geht dann Byte für Byte durch und erstellt sich davon eine Ansicht oder auch Präsentation (hier die Darstellung von einem Byte als Hex-Wert, das dann wieder ein string ist) und hängt das an etwas, dass wiederum diese Ansicht speichern kann (wäre hier z.B. ein string )

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

[Sir Rufo]

Nochmal: Byte!

Ich kann das auch größer schreiben

[zeras]

Versuchs doch mal so, wie Sir Rufo schon geschrieben hat.

Delphi-Quellcode:

function LoadFileAsHex(const FileName: String) : String;
var
  Stream : TFileStream;
  BinStr : TBytes;

begin

  Stream:= TFileStream.Create(FileName, fmOpenRead);
  try
    SetLength(BinStr, Stream.Size);
    Stream.ReadBuffer(BinStr, Length(BinStr));
  finally
    Stream.Free;
  end;

 
end;

[raysto]

Wenn ich die von dir vorgeschlagene Variante benutze, kommt der Fehler, dass BinStr und Stream.Size nicht kompatibel sind