wenn dem so wäre
Allerdings ist die Welt der binär und hexdezimal Codes für mich absolutes Neuland, deshalb habe ich den Code der den hexcode ließt nicht selbst geschreiben:
Delphi-Quellcode:
var
fs: TFileStream;
Buffer: TMyByteArray;
BytesRead: Longint;
s: string;
i: Int64;
HexLength: Integer;
begin
i := 0;
SetLength(Buffer, BUFFERSIZE);
fs := TFileStream.Create(edit1.text,
fmOpenRead);
HexLength := Length(HEXPREFIX) + 2 + Length(HEXSUFFIX);
SetLength(s, fs.size * HexLength);
Progressbar1.Max := fs.Size div BUFFERSIZE;
try
repeat
BytesRead := fs.Read(Buffer[0], BUFFERSIZE);
Move(BuffToHex(Buffer)[1], s[i * (HexLength * BUFFERSIZE) + 1],
HexLength * BytesRead);
Inc(i);
Progressbar1.StepIt;
Application.ProcessMessages;
until BytesRead < BUFFERSIZE;
memo1.SelText := s;
finally
FreeAndNil(fs);
end;