Zitat von
yankee:
Ja, die Funktionen habe ich auch versucht zu verwenden, bevor ich sie mir selbst geschrieben habe.
Nur haben dir mir immer einfach irgendwelche Exceptiosn geworfen, die ich nicht nachvollziehen konnte.
In Anlehnung an deine Routinen könnte man sie so kapseln:
Delphi-Quellcode:
function Bin2Hex (const Data; Size: Cardinal): string;
begin
SetLength (Result, 2 * Size);
BinToHex (@Data, PChar(Result), Size);
end;
procedure Hex2Bin (const s: string; var Data);
begin
HexToBin(PChar(LowerCase(s)), @Data, Length(s) div 2);
end;
Gruß Hawkeye