MyDac数据库重连探讨

e54f

To avoid infinite attempts of reconnecting to the server, you can use a counter variable. For example, you can use the following code:

1. var
   
2.   RetryCount: Integer;
   
3. 
   
4. procedure TMainForm.MyConnection1ConnectionLost(Sender: TObject;
   
5.   Component: TComponent; ConnLostCause: TConnLostCause;
   
6.   var RetryMode: TRetryMode);
   
7. begin
   
8.   if RetryCount < 2 then begin
   
9.     Inc(RetryCount);
   
10.     RetryMode := rmReconnectExecute;
    
11.   end
    
12.   else begin
    
13.     RetryCount := 0;
    
14.     RetryMode := rmRaise;
    
15.   end;
    
16. end;

复制代码

In this case, MyDAC will try to reconnect to the server twice, and in case of failure will generate an exception.

rmRaise An exception is raised.
rmReconnect Reconnect is performed and then exception is raised.
rmReconnectExecute Reconnect is performed and abortive operation is reexecuted. Exception is not raised.