Delphi-PRAXiS - Delphi Funktion BinToHex

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Funktion BinToHex (https://www.delphipraxis.net/38961-funktion-bintohex.html)

Giantics

26. Jan 2005 20:08

Funktion BinToHex

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

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

26. Jan 2005 20:16

Re: Funktion BinToHex

Laut onlinehilfe sollte es so aussehen

Delphi-Quellcode:

BinToHex(PChar(ABin), hex, length(ABin));

Giantics

26. Jan 2005 20:23

Re: Funktion BinToHex

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

SirThornberry

26. Jan 2005 20:30

Re: Funktion BinToHex

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

Delphi-Quellcode:

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

26. Jan 2005 20:44

Re: Funktion BinToHex

Achso, dann ists mir klar, danke :-D

Alle Zeitangaben in WEZ +1. Es ist jetzt 19:51 Uhr.