Hex to Base64

[p80286]

Zitat von Cubysoft:

Am Besten wäre es natürlich, wenn ich einfach direkt alles in ein Byte Array gepackt bekomme, aber dafür reicht mein Wissen leider nicht aus. Es wäre genial, wenn ihr hierbei nochmal helfen könntet

dann Schau Dir mal #2 an!
Das könnte hilfreich sein.

Gruß
K-H

P.S.
Hex ist übriges das gleiche wie Base16

[Cubysoft]

Achsoooooo jetzt weiß ich endlich was base 64 ist DD danke Ich schau mir deinen Post nochmal genauer an

EDIT: Ja hier ist auch schon das Problem:

Der Wert für das 2. Byte liegt als String vor (dezimal, 1-250). Der Wert für die Bytes danach liegt ebenfalls als String vor (aber nicht little endian sondern eben normal). Ich weiß weder, wie ich den Wert für Byte 2 als Byte konvertiere, noch wie ich einen Integer beliebiger länge (Byte 3-x) in ein little endian byte array konvertiere. Vor allem deswegen, weil die größe eines Integers - soweit ich weiß - unter 32 und 64bit unterschiedlich ist..

[Sir Rufo]

Zitat von Cubysoft:

Ja hier ist auch schon das Problem:

Der Wert für das 2. Byte liegt als String vor (dezimal, 1-250). Der Wert für die Bytes danach liegt ebenfalls als String vor (aber nicht little endian sondern eben normal). Ich weiß weder, wie ich den Wert für Byte 2 als Byte konvertiere, noch wie ich einen Integer beliebiger länge (Byte 3-x) in ein little endian byte array konvertiere. Vor allem deswegen, weil die größe eines Integers - soweit ich weiß - unter 32 und 64bit unterschiedlich ist..

Ob es wohl möglich wäre, dass du anstatt einer abstrakten Beschreibung einmal konkrete Werte zeigen könntest, so z.B.

Delphi-Quellcode:

function Foo( Arg1 : Byte; Arg2 : string; Arg3 : Int64 ) : string;
begin
  // da weiss ich nicht wie
end;

procedure Test;
begin
  Assert(
    // Eingangswerte 
    Foo(42, '42', 42) 
    // erwartetes Ergebnis
    = 'Magic' );
end;

Darunter können wir uns dann konkret etwas vorstellen

[Cubysoft]

Ich weiß nicht genau was du meinst, aber ich versuche gerade aus Werten einer Datenbank einen Base64 kodierten String zu erstellen, mit dem ein anderes Programm arbeiten kann. Dazu habe ich den genannten Aufbau:

1.Byte: Header (immer 02)
2.Byte: Anzahl (liegt als String vor: Beispiele: 1;15;123;250;... -> der Wert schwankt zwischen 1 und 250)
3-xByte: ID (liegt als String vor: Beispiele: 1;2345;65234;... -> der Wert ist immer positiv und ungleich 0 ansonsten theoretisch beliebige größe, derzeit aber nich größer als 3Bytes)
x+1Byte: 0Byte

Mein Ansatz zum Erstellen des Byte Arrays:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BArray: TByteDynArray;
  s2: string;
  t: Byte;
begin
  SetLength(BArray, ?); //Ich weiß vorher noch nicht wie groß es wird, weil die ID ja beliebig groß ist
  BArray[0] := $02;
  t := StrToInt(ed_anzahl.Text);
  BArray[1] := t;
  //hier müsste ich dann die ID als little endian, also verkehrt herum hinzufügen
  BArray[?] := $00;
end;

Ich hoffe das Problem ist jetzt klar. Wenn ich das Byte Array erstmal richtig aufgebaut habe, versuche ich mal #2

[himitsu]

Sind da wirklich Leerzeichen zwischen den Hex-Werten?

• Leerzeichen entfernen (Replace im String)
• Hex nach Bin konvertieren (String -> ByteArray oder Stream)
• Bin nach Base64 konvertieren (ByteArray oder Stream -> String)