Ungewolltes "Enter your credentials" bei Datenbank-Login

[Der schöne Günther]

Hat leider nur Komponenten, keine Controls.

Die Vererbungsreihenfolge ist sowieso...

Code:

TComponent -> TFDComponent -> TFDGUIxComponent -> TFDGUIxLoginDialog

Das Ding hat nur eine Property "Caption" (der Fenstertitel des Popups), aber sonst eigentlich nichts brauchbares.


Kann doch nicht sein, dass das sonst noch niemanden gestört hat?

[jaenicke]

Zitat von Der schöne Günther:

Kann doch nicht sein, dass das sonst noch niemanden gestört hat?

Ich habe den Standarddialog noch nie benutzt außer für eigene Tests.

[haentschman]

Zitat:

Ich habe den Standarddialog noch nie benutzt außer für eigene Tests

Das hilft enorm...

Zum Thema:
Ich würde dir empfehlen einen eigenen LoginDialog zu entwerfen. Diesen kannst du dann ggf. im Design deiner Anwendung gestalten bzw. mit Icons aufhübschen. Damit bist du unabhängig, auch wenn mal das DBMS wechselt.

[Der schöne Günther]

Hm, ich wüsste spontan nicht wie- Ich kann mir doch nicht selbst eine Zugangsverwaltung bauen?

Da wäre meine Frage eher "Wie baue ich mir einen eigenen Anmeldedialog für den Zugriff über FireDAC" - Dafür würde ich dann aber ein neues Thema aufmachen.

[Union]

Es geht bestimmt auch einfacher und ohne memory leaks. Aber momentan fällt mir sonst nix ein als den Resourcestring zu patchen:

Delphi-Quellcode:

uses Windows, FireDAC.Stan.ResStrs;

procedure HookLogin;
var
  dwOld : WORD;
  pRes : pResStringRec;
begin
  pRes :=  pResStringRec(@S_FD_LoginCredentials);
  VirtualProtect(pRes, SizeOf(pRes^), PAGE_EXECUTE_READWRITE, @dwOld);
  pRes.Identifier := Integer(PChar('Und bist Du nicht willig'));
  VirtualProtect(pRes, SizeOf(pRes^), dwOld, @dwOld);
end;

[Der schöne Günther]

Bist du ein Zauberer?

Ich habe keine Ahnung was da vor sich geht, aber es funktioniert. Vielen Dank!

[Union]

Es wird einfach der von FD benutzte Resourcestring ausgetauscht. Was noch fehlt ist das Merken des neuen Pointers mit dem ausgetauschten Text, damit er in der finalization freigegeben werden kann (StrDispose).