Datenmodul wird nicht erstellt

[Poelser]

Moin,

ich habe hier ein merkwürdiges Verhalten beim Compilieren, für das ich zwar einen Workaround habe, aber der Sache trotzdem auf den Grund gehen möchte. In der *.dpr:

Delphi-Quellcode:

begin
  Application.Initialize;
{$IFDEF debug}
  ReportMemoryLeaksOnShutdown := True;
{$ENDIF}
  Application.MainFormOnTaskbar := True;
  Application.Title := 'xyz';
  TStyleManager.TrySetStyle('Aqua Light Slate');
  Application.CreateForm(TDM, DM);
  if TDialogLogin.login then Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

Im Login-Dialog wird zur Anmeldung dann auf das Datenmodul zugegriffen:

Delphi-Quellcode:

  userid := TSQLTool.GetInteger(DM.conXYZ, 'user', 'iduser',
    'short=' + QuotedStr(EditKuerzel.Text) + ' AND ' +
    'BINARY password=' + QuotedStr(EditPassword.Text));

und das geht plötzlich schief, wenn der User die AnmeldeAction ausführt:

Benachrichtigung über Debugger-Exception

---------------------------

Im Projekt mkueche.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x00cfd016: read of address 0x00000074' aufgetreten.

Das liegt jetzt daran, dass das Datenmodul (DM) NIL ist. Warum ist das plötzlich so? Die DPR und der Login sind seit Monaten so am laufen, und haben nie Zicken gemacht. Ich starte das Programm ja mehrmals täglich, und arbeite an der Programmlogik, die mit der Anmeldung überhaupt nix zu tun hat.

Mein Workaround besteht darin, das CreateForm für das Datenmodul in die Login-Unit zu verlagern:

Delphi-Quellcode:

Initialization

  if not assigned(DM) then Application.CreateForm(TDM, DM);

end.

Aber das kann's doch nicht sein, oder? Warum also wird in der DPR plötzlich das Datenmodul vom Delphi 10.2 prof. scheinbar beim Compilieren übersprungen? Vielleicht hat ja jemand 'ne Idee.

TIA, Poelser

[Uwe Raabe]

Zitat von Poelser:

Warum also wird in der DPR plötzlich das Datenmodul vom Delphi 10.2 prof. scheinbar beim Compilieren übersprungen? Vielleicht hat ja jemand 'ne Idee.

Hast du schon mal versucht mit F7 in die betreffende Zeile hineinzusteppen?

[Poelser]

Moin Uwe,

ja, ich kann mit F7 hineinsteppen. Und dort wird eine Instance mit dem Namen "DM" erstellt, also eigentlich alles gut.

[Lemmy]

und was passiert anschließend nach dem Erstellen? d.h. zumindest einen Brakepoint in das OnDestroy des DM setzen und ggf. auch mal DM in die überwachten Variablen ziehen und dort ggf. die Option "Bei Änderungen anhalten" - vielleicht siehst Du dann wenn jemand daran unberechtigt rum schreibt...

[Uwe Raabe]

Ist denn auch sichergestellt, daß DM immer dieselbe Variable meint?

[Poelser]

Zitat von Uwe Raabe:

Ist denn auch sichergestellt, daß DM immer dieselbe Variable meint?

Treffer, versenkt! Ich hatte tatsächlich ein Formular erstellt, für das ich im Interface

Delphi-Quellcode:

var
  DM: TDialogMeal;

deklariert habe. Dort findet zwar kein direkter Zugriff auf das Datenmodul statt, und im Login auch nicht auf dieses Formular, aber die Objekte, die im Programm so benutzt werden, nutzen das Datenmodul...
Tja, mit DME: TDialogMeal; ist dann plötzlich alles OK.

Vielen Dank für die Denkanstöße!

Poelser