Binärdaten für Registry als Konstante

[EDatabaseError]

Moin,

solangsam bekomm ich die Krise :wall:

Mein Problem: Ich möchte das mein Prog. im OnCreate eine Konstante mit Binärdaten in die Registry schreibt...so weit so gut
Jetzt muss ich aber die Konstante erst mal deklarieren wozu ich auch Daten aus der Registry lese... jap... aber ich bekomme die Daten nicht in eine Konstante. Habe die Daten zwar schon als Array of Char/Byte ausgelesen aber wie bekomme ich das als Konstante in meinen Code :gruebel:

:stupid:

tobi

[dominikkv]

"richtige" Konstanten kannst du nicht zur Laufzeit verändern.
Ich verstehe dein Problem nicht -.-

[BUG]

So könntest du es machen ...

Delphi-Quellcode:

const REG_CONST: array[0..4] of byte = ($11, $22, $33, $44, $55);

Die Hexadezimalzahlen entsprechen dabei den Binärdaten.

MfG,
Bug

[EDatabaseError]

:angel2: ja habs auchn bisschen schlecht formuliert.

Mein Ziel ist es eine Konstante mit den Binärdaten zu haben (im Source) um diese in die Registry zu schreiben.
Aber ich bekomme die benötigten Binärdaten nicht als Konstante in den Code.

...//ADD hm das sieht gut aus ... gibts auch die Möglichkeit die erstellung der Konstante einmalig zu automatisieren denn 503 Bytes abschreiben ... Puh... Müsste doch theoretisch über ein ByteToHexStr oder so gehen

[BUG]

Zitat:

Zitat von EDatabaseError

503 Bytes abschreiben ... Puh...

... bei der Größe wäre es vielleicht besser, das ganze irgendwie aus einer Ressource zu laden.

MfG,
Bug

[sx2008]

Delphi-Quellcode:

var
  daten : string;
  rg : TRegistry;
begin
  daten :=#27#0#0#255;  // binäre Daten
  ...
  rg.WriteBinaryData('PasswortCode', daten[1], Lenght(daten));

[BUG]

Zitat:

Zitat von sx2008

Delphi-Quellcode:

var
  daten : string;
//...
  daten :=#27#0#0#255;  // binäre Daten

Und ich dachte meine Lösung wäre dirty ...

Da ich mal Langeweile habe und ein Erfolgserlebnis brauche ( :) ): siehe Anhang.

MfG,
LivingUndead