Funktion BinToHex

[Giantics]

Wer kann mir helfen, ich steh grad auf dem Schlauch und weiß nicht, wie ich die Funktion bin2hex anwenden muss.

Delphi-Quellcode:

procedure AddToString(Abin: String8; var S: String);
var
  bin, hex: PChar;
begin
  GetMem(hex,2);
  BinToHex(@Abin[1],hex,2);  
  S := S + hex;
  FreeMem(hex);

Da kommt aber leider nix gescheites raus!

[SirThornberry]

Laut onlinehilfe sollte es so aussehen
  BinToHex(PChar(ABin), hex, length(ABin));

[Giantics]

Das ändert leider auch nichts am Resultat
(aus "10101100" wird "3130" anstatt "AC")!

[SirThornberry]

Bin To hex erwartet keinen String im Format mit 1 und 0. Bin to hex macht nix anderes als die Ascii-Zeichen des Buffers in Hex zu wandeln.
Das bei dir nur 3130 angezeigt wird liegt daran das du mit
GetMem(hex,2); nur 2 Byte reservierst.
denn die 31 steht für den Ascii-Code der 1 als Hex und
die 30 steht für den Ascii-Code der 0 als Hex.

Les dir einfach mal die Hilfe durch, da steht das du mindestens 2 * Buffersize an speicher dafür brauchst.

[Giantics]

Achso, dann ists mir klar, danke