Windows 8.1 Pro mit Firbird 2.5.3

[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

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