Delphi: String To Hex/ Hex To Str

[Larsi]

hi,
kann mir jemand dafür n jeweils n anwendungsbeispiel geben:

Delphi-Quellcode:

{************************************************************************** 
* NAME:    StringToHexStr 
* DESC:    Konvertiert einen String in eine hexadezimale Darstellung 
*************************************************************************} 
function StringToHexStr(const value:string):string; 
begin 
   SetLength(Result, Length(value)*2);  // es wird doppelter Platz benötigt 
   if Length(value) > 0 then 
      BinToHex(PChar(value), PChar(Result), Length(value)); 
end; 

{************************************************************************** 
* NAME:    HexStrToString 
* DESC:    Dekodiert einen hexadezimalen String 
*************************************************************************} 
function HexStrToString(const value:string):string; 
begin 
   SetLength(Result, Length(value) div 2);  // es wird halber Platz benötigt 
   if Length(value) > 0 then 
      HexToBin(PChar(value), PChar(Result), Length(value)); 
end;

Wäre echt total nett




MFG Lars Wiltfang