Wie lese ich den BINÄRCODE einer Datei aus?

[Cleverclimber]

Zitat von ichbins:

du kannst den Filestream verwenden, dann geht es nur etwas anderst:

Delphi-Quellcode:

var LStream: TFileStream;
    buf:array of byte;
begin
  SetLength(LBuffer, 10);
  LStream := TFileStream.Create(DeinDateiname, fmOpenReadWrite);
  //10 Zeischen aus der Datei lesen
  LStream.Read(LBuffer[1], 10);
  //zurück an position 0 springen
  //10 Zeischen zurück schreiben
  LStream.Write(LBuffer[1], 10);
  LStream.Free;
end;

//der Inhalt des Array of Byte beinhaltet nach dem Lesen die ersten 10 Zeichen der Datei als Byte-Zahlen, also 0-255. Die kannst du dann noch weiter in 1en und 0en oder alternativ Hex-Zeichen zerlegen:

Delphi-Quellcode:

function hex(b:byte):string;
var
  hexes:string='0123456789ABCDEF';
begin
  result:=hexes[1+ (b div 16)]+ hexes[1+(b mod 16)];
end;

War der erste Quellcode nicht mit dem hier gerade identisch, bis auf dei Variabeln?? Und außerdem wird das arrey gar nicht in der function verwendet also von daher... ich weiß nicht... und das mit dem umwandel hab ich nicht ganz gechekt...