Windows 8.1 Pro mit Firbird 2.5.3

[mkinzler]

Dann greifts Du auf etwas zu, was schon nicht mehr existiert.

Btw. Prüfe einen Boolean nie auf True
es reicht:

if ibconMedikament.connected then

[TRomano]

Vielleicht solltest Du derart Prüfen, wenn Du dir nicht sicher bist, ob die verwendeten Objekte noch existieren:

Delphi-Quellcode:

if Assigned(ibconNatuprax_Next) and ibconNatuprax_Next.connected then begin
   // ... mache irgend etwas mit [B]ibconNatuprax_Next[/B]
end;

[FBrust]

Hallo,

wenn ich das richtig sehe, führst Du das Disconnect im Datenmodul (dmMain) durch.

Hast Du mal versucht, das Disconnect im OnClose-Ereignis Deines Hauptformulars zu machen?


Gruß
Frank

[Walter Landwehr]

Ja habe ich auch schon versucht. Bringt aber nichts.

Ich habe es soweit das keine Schutzverletzung mehr kommt sondern Windows 8.1 Rechner melden beim Schließen des Programms.

NatuPrax.exe funktioniert nicht mehr.
Das Programm wird aufgrund eines Problems nicht richtig ausgeführt. Das Programm wird geschlossen und Sie werden benachrichtigt, wenn eine Lösung verfügbar ist.

Im Anhang nochmals mein veränderter Code.

[mkinzler]

Wie soll das ohne erzeugtes Datenmodul funktionieren?

[dataspider]

Zitat von mkinzler:

Wie soll das ohne erzeugtes Datenmodul funktionieren?

Er erzeugt es doch:

Delphi-Quellcode:

function dmMain: TdmMain;
begin
   if FdmMain = nil then
   begin
     FdmMain := TdmMain.Create(Application);
     FdmMain.AfterConstruction;
   end;
   Result := FdmMain;
end;

Walter,
AfterConstruction musst du nicht aufrufen, du vererbst diese Methode und diese wird nach dem Erzeugen automatisch aufgerufen.
Also nimm das raus. Macht zwar nichts (glaub ich), aber ist Quatsch.

Frank

[mkinzler]

Und wird das irgendwo aufgerufen? Und wenn ja vor dem OnCreate der Hauptform? Denn da wird die LoginForm errzeugt, welche darauf zugreifen will.

Der Code ist die Vollendung von Obfuscation.

[Walter Landwehr]

OK Frank, habe ich rausgenommen. Jetzt kommen keine Meldungen mehr, aber NatuPrax ist nachdem beenden im Task Manager immer noch zu sehen. NatuPrax verschwindet also nicht aus dem Speicher. Das ist blöd, weil ich ein Mehrfach Start verhindere. Sonst funktioniert alles perfekt man kann damit arbeiten aber wie gesagt beim Beenden.

[dataspider]

Walter,

möglicherweise ist das Problem ja gar nicht das Datenmodul.

Ich würde mal zum Test folgendes machen:

Im MainForm im OnClose und OnCloseQuery ein Exit; in die erste Zeile, damit der Code nicht ausgeführt wird.
(Du schreibst ja noch in die Registrierung etc.)

Ein Button auf das MainForm und dort dmMain.Free; in den Code.

Vor Beenden des Programmes auf den Button und dmMain bewusst zerstören, dann beenden.

Was passiert dann?

Frank

[TRomano]

Auf die Schnelle waren die Quellen nicht so gut zu verstehen. Vielleicht solltest Du ein TDataModule dafür benutzen, wofür es geschaffen wurde: zum Anlegen der Connections, der Tables/Queries, der Transactions und ein paar grundsätzlicher (Datenbank-) Funktionen.
In der DPR vermisse ich das Erzeugen des Datenmoduls (ist auskommentiert) und in jenem gibt es eine Funktion zum Erzeugen der MainForm ?
Wie schon einige Andere geschrieben hatten würde ich das Datenmodul vor der Mainform erzeugen, dort die Verbindung zur DB herstellen und auch beim Schließen der Applikation wieder kappen. Damit solltest Du die Kontrolle behalten. Das Login-Formular bindest Du in die Mainform ein, da ich davon ausgehe, dass Du dort einen Button (oder was auch immer) zum Connecten hast. So lange "leben" auch alle deine Module und Du hast weniger Probleme mit AV´s ....