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

**sirius**

Ein Hex-Editor wäre das erste.
Oder auch das RTF-Format. Da werden bilder in Hexform gespeichert.
Tja, ansonsten.. ein Disassembler

**Larsi**

sry wenn ichs falsch formuliert habe, aber ich möchte ein bisschen code wie ich die funktion verwenden kann.

**Gehstock**

Ist das Ernst Gemeint ?

markieren

Delphi-Quellcode:

			Edit1.Text := '48616C6C6F206963682062696E2065696E2054657874';

Edit2.Text := StringToHexStr(Edit1.Text);

und

markieren

Delphi-Quellcode:

			Edit1.Text := 'Hallo ich bin ein Text';

Edit2.Text := HexStrToString(Edit1.Text);

Ein weiteres Beispiel wäre ein Zahlenkonverter (Dezimal <-> Binär <-> Hexadezimal <-> ...)

//Edit:

Zitat von Gehstock:

Ist das Ernst Gemeint ?

Nein. Wenn dann ernst!

**Larsi**

dankeschön

Delphi: String To Hex/ Hex To Str

Delphi: String To Hex/ Hex To Str

Re: Delphi: String To Hex/ Hex To Str

Re: Delphi: String To Hex/ Hex To Str

Re: Delphi: String To Hex/ Hex To Str

Re: Delphi: String To Hex/ Hex To Str

Re: Delphi: String To Hex/ Hex To Str

Forumregeln

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#2 Re: Delphi: String To Hex/ Hex To Str 30. Dez 2007, 15:29 Ein Hex-Editor wäre das erste. Oder auch das RTF-Format. Da werden bilder in Hexform gespeichert. Tja, ansonsten.. ein Disassembler Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

Larsi Registriert seit: 10. Feb 2007 2.262 Beiträge Delphi 2007 Professional	#3 Re: Delphi: String To Hex/ Hex To Str 30. Dez 2007, 15:32 sry wenn ichs falsch formuliert habe, aber ich möchte ein bisschen code wie ich die funktion verwenden kann. Ein Tag ohne Delphi ist ein verlorener Tag! Homepage zu meinem neuen Programm: StreamZ
	Zitat

Gehstock Registriert seit: 28. Jan 2006 Ort: Görlitz / Sachsen 489 Beiträge Delphi 2007 Professional	#4 Re: Delphi: String To Hex/ Hex To Str 30. Dez 2007, 15:39 Ist das Ernst Gemeint ? markieren Delphi-Quellcode: Edit1.Text := '48616C6C6F206963682062696E2065696E2054657874'; Edit2.Text := StringToHexStr(Edit1.Text); und markieren Delphi-Quellcode: Edit1.Text := 'Hallo ich bin ein Text'; Edit2.Text := HexStrToString(Edit1.Text); Marcel
	Zitat

fLaSh11 (Gast) n/a Beiträge	#5 Re: Delphi: String To Hex/ Hex To Str 30. Dez 2007, 16:31 Ein weiteres Beispiel wäre ein Zahlenkonverter (Dezimal <-> Binär <-> Hexadezimal <-> ...) //Edit: Zitat von Gehstock: Ist das Ernst Gemeint ? Nein. Wenn dann ernst!
	Zitat

Larsi Registriert seit: 10. Feb 2007 2.262 Beiträge Delphi 2007 Professional	#6 Re: Delphi: String To Hex/ Hex To Str 30. Dez 2007, 18:01 dankeschön Ein Tag ohne Delphi ist ein verlorener Tag! Homepage zu meinem neuen Programm: StreamZ
	Zitat