Registry und DWORDs

[MathiasSimmack]

Haste nich´ ´ne Studentin, die das machen könnte?

[Assarbad]

Ne du, hab ich net, aber ich kann es nach wie vor. Nur leider brauch ich dazu was ...

[MathiasSimmack]

Uralter Beitrag, aktuelles Problem:

Zitat von Robert_G:

Das klingt nach einem verdammt guten Argument sein D8 auf den neuesten Stand zu bringen.

Wenn es was bringen würde, dann wär´s noch besser.

Soll heißen: Ich habe mir das D8 Update #2 besorgt und installiert. Das Schreiben von DWords in die Registry nach dem o.g. Muster geht bei mir (D8 Pro) nach wie vor nicht. Ich bin erstaunt, dass es bei dir geklappt hat. Sollen die Unterschiede zwischen Pro- und Architektversion wirklich so groß sein?

[Robert_G]

Zitat:

Sollen die Unterschiede zwischen Pro- und Architektversion wirklich so groß sein?

Das glaube ich weniger.
Da ich schon oft Problemchen mit lokalisierter Software hatte, besorge ich mir immer das Original. Im englischen D8 klappte es einwandfrei. (Ich teste es gleich nochmal...)

[MathiasSimmack]

Ich bin dir ja dankbar für deine Hilfe, und nimm´s bitte nicht persönlich ... aber wo siehst du denn hier:

Zitat von Robert_G:

Delphi-Quellcode:

  reg.SetValue('DWORD_Val', Convert.ToInt32(ui));
  reg.SetValue('DWORD_Val', Int32(ui));
  reg.SetValue('DWORD_Val', ui);

Probleme mit der Lokalisierung? Das würde ja bedeuten, dass deutsche Borland-Team hat enorm in die Interna eingegriffen.

[Robert_G]

Viele lokalisierte Programme bocken oft an Stellen, wo man es nicht vermutet (sonst wäre der Fehler schon früher gefunden worden )

Zum Thema:
Es funktioniert einwandfrei.
Ich habe eben schnell was zusammengeklickt. Mit dem Schnipsel bekommst du den Wert und den Typ (dürfte in dem Fall immer Int32 sein )

Delphi-Quellcode:

procedure TfrmTestReg.btnWrite_Click(sender: System.Object; e: System.EventArgs);
var
  reg :RegistryKey;
begin
  reg := Registry.CurrentUser.OpenSubKey('Software\TestReg', true);
  if txtRegWrite.Text.Trim = '' then
    reg.SetValue('Miep' , Int32.Parse(txtRegRead.Text))
  else
    reg.SetValue(txtRegWrite.Text.Trim , Int32.Parse(txtRegRead.Text.Trim));
end;

procedure TfrmTestReg.btnRead_Click(sender: System.Object; e: System.EventArgs);
var
  reg :RegistryKey;
  FetchedObj :System.Object;
begin
  reg := Registry.CurrentUser.OpenSubKey('Software\TestReg', false);
  if txtRegWrite.Text.Trim = '' then
    FetchedObj := reg.GetValue('Miep' , -1)
  else
    FetchedObj := reg.GetValue(txtRegWrite.Text.Trim , -1);

  txtRegRead.Text := FetchedObj.ToString;
  if FetchedObj.ToString <> '' then
    lblRegType.Text := FetchedObj.GetType.ToString
  else
    lblRegType.Text := '(null)';
end;

Edit: war wohl zu langsam, du hast es im anderen thread schon gelöst

[MathiasSimmack]

Tja, ich bin ratlos.

Zitat von Robert_G:

Es funktioniert einwandfrei.

Nicht bei mir.

Zitat:

Delphi-Quellcode:

procedure TfrmTestReg.btnWrite_Click(sender: System.Object; e: System.EventArgs);
var
  reg :RegistryKey;
begin
  reg := Registry.CurrentUser.OpenSubKey('Software\TestReg', true);
  if txtRegWrite.Text.Trim = '' then
    reg.SetValue('Miep' , Int32.Parse(txtRegRead.Text))
  else
    reg.SetValue(txtRegWrite.Text.Trim , Int32.Parse(txtRegRead.Text.Trim));
end;

scheitert nach wie vor an der Fehlermeldung: Es gibt keine Version von "SetValue", die man so aufrufen kann.

Ob bitte mal andere stolze (?) Besitzer von Delphi 8 Professional ausprobieren könnten, ob der o.g. Code funktioniert? Bei mir geht´s nicht. Der "Microsoft.Win32"-Namespaces muss unter uses eingebunden werden.

[Robert_G]

Zitat von MathiasSimmack:

...scheitert nach wie vor an der Fehlermeldung: Es gibt keine Version von "SetValue", die man so aufrufen kann.

Der 2. Parameter von SetValue ist ein System.Object. Davon werden ALLE typen und Klassen abgeleitet (sogar Arrays!).
Ein Int32 sollte also IMMER passen...

there smells something extremely rotten in state of Borland

[MathiasSimmack]

Zitat von Robert_G:

Der 2. Parameter von SetValue ist ein System.Object. Davon werden ALLE typen und Klassen abgeleitet (sogar Arrays!).

Ja, ich weiß. Und wie auf Seite #1 geschrieben: Bei Strings und String-Arrays habe ich absolut keine Probleme.

Zitat:

Ein Int32 sollte also IMMER passen...

Ich glaube dir ja. Nur entweder mache ich was falsch (obwohl: Copy&Paste ... ), oder ich habe eine besch**** Delphi-Version erwischt, oder die Pro-Version hat generell ein Problem damit. Darum ja auch die Frage an andere D8-Besitzer. @Alexander, Chakotay: Wo seid ihr?

Na ja, ich schreib mal eben eine Mail an den Kundendienst. Wenn die die Post wieder ignorieren, wie damals die Pienitz (oder wie die heißt), dann muss ich mal schauen wie man die Aufmerksamkeit von Borland bekommen kann.

[MathiasSimmack]

Gut, Problem erkannt; Gefahr gebannt.

Im DF schrieb ich gerade

Mensch, das war ein Krampf. Ich weiß jetzt warum es nicht ging. Oder sagen wir: Ich kenne die Ursache. Es gibt standardmäßig eine nicht dokumentierte Compileroption
{$AUTOBOX ON} im Quelltext der Unit. In der Hilfe steht nichts dazu, aber Google brachte mich u.a. auf diese Seite, wo folgendes steht:

Zitat:

In the {$AUTOBOX ON} state, a simple type is compatible with that simple type, and TObject itself. Also, in a call to a procedure with an interface type parameter, an object is compatible with only any interface types it implements, provided that the declared procedure is not overloaded.

Nachzulesen hier.

Damit hätte sich das technische Problem zwar gelöst, aber dennoch bleibt ein bitterer Beigeschmack.
Ich schätze, da wird eine weitere Mail an den Kundendienst fällig werden.