Binärcode/Hex

[ichbins]

du liest das Teil einfach Byte für Byte ein und zerlegst das Byte dann in je 2 Hex-Ziffern:

Delphi-Quellcode:

const 
  hexes:string='0123456789ABCDEF';
var
  f:file of byte;
  b:byte;
begin
  assignfile(f,dateiname);
  reset(f);
  while not eof(f) do begin
    read(f,b);                // teilungsergebniss von b durch 16 / Teilungsrest
    hexwertvondiesembyte:=hexes[(b div 16)+1]+hexes[(b mod 16)+1];
  end;
  closefile(f);
end;