Korisnik pokrene program, pa zaboravi na njega 2-3 sata. Kad se sjeti, program je izgubio konekciju na FB server. Kod sebe to ne uspjevam dobiti. Pokušavam sa zaustavljanjem i pokretanjem servisa FB.
U parametrima TFDConnection sam postavio:
AutoConnect := true
AutoReConnect := true
Kod zaustavljanja FB servisa, event AfterDisconnect se NE okine.
Kako nakon prekida konekcije ponovno ju uspostaviti? Pokušao sam u event konekcije OnError dodati:
procedure Tdm.fdcError(ASender, AInitiator: TObject; var AException: Exception);
begin
fmMain.OtvoriDB;
end;
u Main formi, proc. OtvoriDB:
procedure TfmMain.OtvoriDB;
...
if dm.fdc.Connected then
dm.fdc.Close;
...
end;
dm.fdc.Connected ima vrijednost: true
dm.fdc.Close vrati grešku: [FireDAC][Phys][FB]Unable to complete network request to host "MojLap". Error writing data to the connection.
Ako izbacim dm.fdc.Close, tada mi dm.fdc.Open javi istu grešku.
Kolega ima na istom kompu program pisan u D2007 i nema tih problema.