Windows 8.1 Pro mit Firbird 2.5.3

[Walter Landwehr]

So habe jetzt einiges Umgebaut, die Anwendung läuft wieder aber beim verlassen auf den Windows 8 Rechnern kommt diese Meldung:

Exception EAccessViolation in Modul NatuPrax.exe bei 0000399D. Zugriffverletzung bei Adresse 0040399D im Modul NatuPrax.exe. Schreiben von Adresse 00000000:

Leider kann man nicht Debuggern, denn nach dem letzten Befehl in der Procdedure

Delphi-Quellcode:

procedure TdmMain.BeforeDestruction;
begin
   // hier das DisConnect
  ibqryOptionen.Close;
  MandantQry.Close;
  if ibconNatuprax_Next.connected = True then
  begin
    ibconNatuprax_Next.CloseTransactions;
    ibconNatuprax_Next.DeallocateStatements;
    ibconNatuprax_Next.Disconnect;
  end;
  if ibconMedikament.connected = True then
  begin
    ibconMedikament.CloseTransactions;
    ibconMedikament.DeallocateStatements;
    ibconMedikament.Disconnect;
  end;
  if ibconMain.Connected then
  begin
    ibconMain.CloseTransactions;
    ibconMain.DeallocateStatements;
    ibconMain.Disconnect;
  end;
  if ibconData.connected = True then
  begin
    ibconData.CloseTransactions;
    ibconData.DeallocateStatements;
    ibconData.Disconnect;
  end;
  inherited;
end;

kommt ja nichts mehr. Die Meldung kommt nach ca.4 sec. und NatuPrax bleibt im Task.

Nun bin ich mit meinem Latein am Ende und schier verzweifelt.

[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

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