Windows 8.1 Pro mit Firbird 2.5.3

[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.

[dataspider]

Zitat von mkinzler:

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

die globale Variable wurde durch eine Funktion ersetzt.
Somit wird das Datenmodul bei der ersten Verwendung von dmMain.WasAuchImmer erzeugt...

Zitat von mkinzler:

Der Code ist die Vollendung von Obfuscation.

Da hätte selbst die NSA dran zu kauen...

Frank

[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

[Walter Landwehr]

Hallo Frank, habe ich gemacht, aber das Ergebnis ist gleich. Beim beenden steht es weiterhin im Speicher. Ich muss noch dazu sagen das auch der Compiler das Programm nicht richtig beendet.

[dataspider]

Zitat von Walter Landwehr:

Hallo Frank, habe ich gemacht, aber das Ergebnis ist gleich. Beim beenden steht es weiterhin im Speicher. Ich muss noch dazu sagen das auch der Compiler das Programm nicht richtig beendet.

Sicher auch meine letzte Idee.
Den Timer tmMedikament würde ich testhalber auch deaktivieren im FormClose.

Hast du noch Code im Finalization irgendeiner Unit?
Die meisten Komponentenbibliotheken machen regen Gebrauch davon. Am Ende liegt es an TMS oder dem Reportgenerator...

Frank

[Walter Landwehr]

Ok ich mache morgen weiter, bin jetzt fix und fertig.