Windows 8.1 Pro mit Firbird 2.5.3

[Walter Landwehr]

OK, das habe ich eingebunden. Ich habe das Gefühl das nach dem Schließen der Anwendung noch auf eine Datei zugegriffen werden soll, die es aber nicht mehr gibt. Was wird zuletzt geschlossen das Main Formular = (Hauptformular) oder das Datenmodul?

[dataspider]

Zitat von Walter Landwehr:

OK, das habe ich eingebunden. Ich habe das Gefühl das nach dem Schließen der Anwendung noch auf eine Datei zugegriffen werden soll, die es aber nicht mehr gibt. Was wird zuletzt geschlossen das Main Formular = (Hauptformular) oder das Datenmodul?

Das hängt davon ab, wie es erzeugt wird.

Wo steht denn die Zeile:

dmMain.ibconMain.Connected := False; // kommt nachfolgende Meldung nur bei Win8.1 pro

wo eine Exception kommt.

Ich vermute, dass ibconMain schon beim Zerstören ist, während Connected auf False gesetzt wird.

Frank

[Walter Landwehr]

Hallo,

so ich habe das ganze System jetzt mal auf einen Windows 8.1 pro installiert, da auf meinen Windows 7 keine Fehler kommen.

Hier mal mein Code in OnCloseQuery des Hauptformulars.

Delphi-Quellcode:

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var int: Integer;
begin
   inherited;
  if TagesKalenderFrm <> Nil then
    TagesKalenderFrm.Close;
  if not dmMain.MandantQry.Active then
    dmMain.MandantQry.Open;
  if ((dmMain.MandantQry.FieldByName('SICHERUNGSTAG').AsDateTime < Date)
  and (Constants.User.UserName = dmMain.ibqryOptionen.FieldByName('Sicherungsmann').AsString)) or
    (dmMain.ibqryOptionen.FieldByName('DATENSICHERUNG_ERZWINGEN').AsString = 'J') then
    begin
      int := MessageDlg('Eine Datensicherung wurde heute noch nicht durchgeführt.' + #13 +'Möchten Sie jetzt sichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0); // = mrYes then begin
      if int = mrYes then
      begin
         Datensicherung1Click(Self);
         CanClose := true;
      end;
     if (int = mrCancel) then
        Abort;
  end;
  timMain.Enabled := False;
//  dmMain.ibqryOptionen.Close;
//  dmMain.MandantQry.Close;
//  if dmMain.ibconNatuprax_Next.connected = True then
//     dmMain.ibconNatuprax_Next.connected := False;
//  if dmMain.ibconMedikament.connected = True then
//     dmMain.ibconMedikament.connected := False;
//  if dmMain.ibconMain.connected = True then
//     dmMain.ibconMain.connected := False;        // Hier kommt es direkt zu einem AV
//  if dmMain.ibconData.connected = True then
//     dmMain.ibconData.connected := False;
//  dmMain.Free;
//  dmMain := Nil;
//   if dmMain.ibconMain.Connected = True then
//     ShowMessage('On CloseQuery: Main ist connected');
end;

und hier mal die

Delphi-Quellcode:

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  Inherited;
  frmMain := Nil;   // Hier kommt nach einiger Zeit die Meldung Runtime Error 217
end;

Weiß immer noch nicht wo der Fehler in meinem Code ist.

Bin auch gerne bereit Eure Leistung zu bezahlen, wenn nur dieser Fehler bald weg ist.

[Perlsau]

In deiner Destroy-Methode wird zuerst Inherited aufgerufen, was ansich schon dafür sorgt, die Instanz von TfrmMain zu zerstören. Danach greifst du aber noch einmal auf diese bereits zerstörte Instanz zu, indem du sie auf Nil zu setzen versuchst. "Normalerweise wird in der neuen Methode inherited dazu benutzt, um die “alte” geerbte Methode aufzurufen." (Delphi-Treff)

Übrigens sollte man Dinge, die beim Schließen einer Anwendung zu erledigen sind, nicht in OnCloseQuery legen, sondern in OnClose.

Zu zahlen ist hier nichts, das ist doch ein kostenloses Forum

[Daniel]

Zitat von Perlsau:

In deiner Destroy-Methode wird zuerst Inherited aufgerufen, was ansich schon dafür sorgt, die Instanz von TfrmMain zu zerstören. Danach greifst du aber noch einmal auf diese bereits zerstörte Instanz zu, indem du sie auf Nil zu setzen versuchst.

Ich mache das auch manchmal, wenn ich die Form-Variable auf NIL setzen möchte. Diese Zuweisung auf NIL allein bringt auch keinen Fehler, da ja nicht mehr auf Methoden des (ehemaligen) Formulare zugegriffen wird. Das ist zugegebenermaßen nicht das schönste Pattern, aber manchmal muss man Dinge einfach auf NIL setzen.
Was ich sagen wollte: Der Fehler von Walter muss noch woanders stecken.


//Edit: Eins sehe ich gerade: Da oben wird mittels "Abort" eine stille Exception ausgelöst. Wenn man sich aber eh schon im OnCloseQuery befindet, kann man auch den Var-Parameter "CanClose" auf False setzen, wenn man das schliessen verhindern möchte.

[Walter Landwehr]

OK, ich habe jetzt aus der TfrmMain.FormCloseQuery das Inherited und Abort herausgenommen sowie in der TfrmMain.FormDestroy alles aus kommentiert. Nun kommt beim schließen die Meldung InvalidPointer mit der Meldung "Ungültige Zeigeroperation".

[dataspider]

Walter,

vielleicht Zipst du mal die dpr, die MainForm und die DMMain zusammen und lädst das mal hoch.
Laut deiner DPR ist das Hauptformular ja dein Haupt - Datenmodul.

Da würde ich wirklich mal testen, wie die Freigabe erfolgt.

Frank

[Walter Landwehr]

OK, hier die gewünschten Dateien.

[Walter Landwehr]

Hier nochmals mit den dfm Dateien.

[dataspider]

Deine Quellen stimmen nicht mehr...
dmMain wird nicht mehr erzeugt, aber egal...

Im OnCreate des DataModule hast du ein Application.Terminate.
Das macht IMHO Probleme und sollte dort raus.

Ich würde folgendes machen:

Delphi-Quellcode:

unit Modul;

interface

uses
  SysUtils, Classes;

type
  TdmMain = class(TDataModule)
  private
    procedure Init;
  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
  end;

function dmMain: TdmMain;

var
  //dmMain: TdmMain;
  FdmMain: TdmMain = nil;

implementation

{$R *.dfm}

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

procedure TdmMain.AfterConstruction;
begin
  inherited;
  // oder alternativ hier rein alles aus deinem Create
  // und das Init raus
end;

procedure TdmMain.BeforeDestruction;
begin
  // hier das DisConnect
  if ibconMain.Connected then
  begin
    ibconMain.CloseTransactions;
    ibconMain.DeallocateStatements;
    ibconMain.Disconnect;
  end;
  inherited;
end;

procedure TdmMain.Init;
begin
  // hier alles aus deinem OnCreate rein
end;

end.

Variable dmMain raus und dafür eine Funktion, dann braucht man sich um das Erzeugen nicht zu kümmern.
Das DisConnect in das Datenmodul, dann kann es aus dem MainForm raus.

Ich habe 2 alternative Varianten. Entweder Init oder AfterConstruction

Ich verwende Create und Destroy wirklich nur zum Erzeugen oder Freigeben eigener Objekte und Initialisierung von Variablen.
Alles Andere kommt nach dem vollständigen Erzeugen oder vor dem Zerstören.

Viel Glück!

Frank