Universale ToHex und FromHex procedure/function

[ice.icewing]

Ach so einfach kann man das lösen. :wall:

Ich hab es vor Wochen wesentlich aufwendiger gemacht, aber sieht dafür schöner aus. :mrgreen:

Delphi-Quellcode:

function TMainForm.HexBauen(TS : TStream) : String;
var S : String;
    i,j : integer;
    c : String;
    Mybyte, MybyteL : byte;
    TSS : TStringStream;
begin
  TSS := TStringStream.create('');
  TSS.CopyFrom(TS,TS.Size);
  TSS.Seek(0,0);
  Result := '';
  j := 1;
  setlength(S, TS.Size*2);
  c := TSS.ReadString(TS.Size);
  for i := 1 to TSS.Size do begin
    Mybyte := Byte(c[i]);
    asm
      mov al,Mybyte
      mov ah,al
      and al,00001111b
      and ah,11110000b
      cmp al,00001001b
      jg @m1
      add al,48d
      jmp @m2
@m1:   add al,55d
@m2:   shr ah,4
      cmp ah,00001001b
      jg @m3
      add ah,48d
      jmp @ende
@m3:   add ah,55d
@ende: mov MyByteL,al         
      mov MyByte,ah
    end;
    S[j] := char(MyByte);
    inc(j);
    S[j] := Char(MyByteL);
    inc(j);
  end;
  Result := S;
end;

Also viele Weg führen nach Rom. :)

icewing

[IngoD7]

Zitat:

Zitat von Hawkeye219

Zitat:

Also das war dein sinn? Und warum hast du da (abgesehen von den tausend anderen Varianten) nicht einfach das Zeichen abgespeichert, was du unter pchar gefunden hast

yankee möchte mit den vorgestellten Routinen beliebige binäre Daten in eine Textform überführen, um sie anschließend beispielsweise in einer .ini-Datei abzuspeichern.

Davon war zwar nicht direkt die Rede, aber so sehe ich das auch.
Um Steuerzeichen im Ergebnisstring auszuschließen ist die 64 Byte lange Hex-Darstellung des 32 Byte langen Sets äusserst sinnig.

[sirius]

:wall: Danke Ingo!

Jetzt hab ichs auch kapiert :stupid:
Man will das ganze in einer Textdatei abspeichern. Alles klar. Nur warum unbedingt in eine Textdatei :gruebel: Naja, das könnte durchaus mal passieren. :mrgreen: