[ FranjoZG @ 01.09.2020. 10:02 ] @
Koristim: FB 1.5 i Delphi 10.1 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: Code: procedure Tdm.fdcError(ASender, AInitiator: TObject; var AException: Exception); begin fmMain.OtvoriDB; end; u Main formi, proc. OtvoriDB: Code: 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. |