Für mich sieht es aus, als würdest du die Datei als String einlesen und die dann in Hex umwandeln.
Macht man das nicht mit einem FileStream, und liest Byte für Byte aus und wandelt den in Hex um?
So denke ich mir das. (Es kann natürlich auch sein, das beides geht, aber an deinem gezeigten Code sehe ich kein Fehler)
Delphi-Quellcode:
var
fs:TFileStream;
str : String //was am Ende Rauskommt
i : Integer;
b : Byte;
begin
fs := TFileStream.Create('Datei', fm_OpenRead);
try
For i := 0 to fs.Size do begin
fs.ReadBuffer(b,sizeof (b));
//oder fs.ReadByte(b); <-- bin mir nichtt sicher
str := Str + '|' + IntToHex(b,2); <-- '|' ist der Trenner
end;
finally
fs.Free;
end;
end;
ungetestet
[edit] Hmm... Zum 1. Mal kein roter Kasten... [/edit]