Also habe jetzt alles ausprobiert. Es muss an dem Thread liegen den ich benutze. Dieser ist für den Google Kalender da.
Die Verbindung wird so getrennt.
Delphi-Quellcode:
procedure Tdata.DataModuleDestroy(Sender: TObject);
begin
ncal.Free;
con.Close;
con.Connected := False;
end;
Um das Hauptformular habe ich FormClose so verändert.
Delphi-Quellcode:
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
timMain.Enabled := false;
tmMedikament.Enabled := false;
foriginalMenuStream.Free;
dmMain.Threadbeenden;
Action := caFree;
TForm(Self) := nil;
Application.Terminate;
exit;
end;
Aber alle Versuche sind gescheitert. Der Debugger läuft bis zum Ende durch
Delphi-Quellcode:
begin
// IB_Session.IB_GetClientLibNameFunc := GetFBClientLibName;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TdmMain, dmMain);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
Erst hier zum Schluss erscheint diese Meldung.