Windows 8.1 Pro mit Firbird 2.5.3

[Walter Landwehr]

Hallo Frank,

zunächst mal vielen Dank für Deine Mühe. Ich habe die Anwendung jetzt mal so umgebaut. Leider hängt sich das Programm jetzt im Login auf.

Delphi-Quellcode:

procedure TLoginFrm.FormCreate(Sender: TObject);
begin
  Design;
  MandantenCbx.KeyValue := dmMain.MandantenQry.FieldByName('MandantenNr').AsInteger;  <-------- An dieser Stelle hängt sich das Programm auf, nichts ist mehr möglich.
  PasswortQry.open;
  PasswortQry.FetchAll;
  LeseLetzterBenutzer;
  PasswortEdit.Text := '';
  if dmMain.ibqryOptionen.State = dsinactive then
     dmMain.ibqryOptionen.Open;
end;

Der Aufruf des Login Formular geschieht im Modul wie folgt:

Delphi-Quellcode:

  With TLoginFrm.Create(Self) do
  begin
    ShowModal;
    Release;
  end;

dmMain.MandantenQry.FieldByName('MandantenNr').AsI nteger kann irgendwie nicht initialisiert werden.

Noch ne Idee hierzu?

[mkinzler]

Existiert das Datenmodul zu diesem Zeitpunkt schon?

[Walter Landwehr]

Habe noch ein weiteres Problem. Alle Aufrufe die mit dmMain. beginnen (im gesamten Code) bekomme ich eine Schutzverletzung. Ich denke irgendwie ist das Datenmodul noch nicht da, obwohl alle Befehle im Datenmodul abgearbeitet werden.

[mkinzler]

Erzeuge dieses als erstes.

[DeddyH]

Oder greife einfach nicht im OnCreate auf andere Forms/Module zu.

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