/ Published in: Delphi
Works great ;)
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
function String2Hex(const Buffer: Ansistring): string; var n: Integer; begin Result := ''; for n := 1 to Length(Buffer) do Result := LowerCase(Result + IntToHex(Ord(Buffer[n]), 2)); end;