Delphi-Quellcode:
function HexToString(HexString:String):String;
var
i: Integer;
begin
for i:= 0 to (length(HexString) div 2 -1) do
begin
result:=result + chr(HexToByte(HexString[(i*2)+1]+HexString[(i*2)+2]));
end;
end;
Tausch mal bitte die obige Funktion aus.
War mein Fehler.
Grüße
Klaus