Subject | Re: [firebird-support] Firebird Server Startup/.Shutdown problems... |
---|---|
Author | Thomas Besand |
Post date | 2005-05-04T13:35:32Z |
psmdev schrieb:
maybe something like the following can help you. I do this in the
CloseQuery Event of my StartUp Form
<snip>
procedure TfrmLauncher.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
If frmExit.ShowModal = mrOK then begin
try
DataModule1.ADOConnection1.Close;
CanClose := True;
Application.Terminate;
except
end;
end else begin
CanClose := False;
end;
end;
<snap>
hth
Thomas
>The first problem is that when you tell the terminal toHi Giles,
>shutdown/restart, it seems the Firebird server tries to stop before
>Windows manages to close active applications, so some of our stuff is
>still running and connected to the database. The net effect of this
>is that the Firebird server pops up and says 'There are still active
>connections, are you sure you want to quit?' (not exact wording, but
>you get the gist), which hangs the shutdown process altogether. By
>this time the touchscreen drivers have been unloaded too, so you have
>to open it up and either hard reset it or plug a keyboard in to get
>any further.
>
>
maybe something like the following can help you. I do this in the
CloseQuery Event of my StartUp Form
<snip>
procedure TfrmLauncher.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
If frmExit.ShowModal = mrOK then begin
try
DataModule1.ADOConnection1.Close;
CanClose := True;
Application.Terminate;
except
end;
end else begin
CanClose := False;
end;
end;
<snap>
hth
Thomas