search

madorin / fibplus

FibPlus Library for Delphi and C++Builder. Data access components for Firebird & Interbase.
168 stars 58 forks source link

pFIBDatabase.pas #31

Closed Mike6386 closed 5 years ago

Mike6386 commented 6 years ago

procedure TpFIBDatabase.RestoreConnect(Sender:TObject); var Actions:TOnLostConnectActions; vIsTimer:boolean; begin if Connected then begin StopWaitRestoreConnect; // Без этой процедуры vTimer никогда не остановится Exit; end; ...

madorin commented 5 years ago

RestoreConnect вызывается автоматически таймером когда коннект не активен. Этот метод даже не должен быть в паблик. Потом дальше в метод таймер останавливается. Можете вставить WaitForRestoreConnect = 0, и тамер остановится.