uniconnection断线重连

uses memds

con.Options.LocalFailover := true;

procedure TUnidac.conConnectionLost(Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
begin
RetryMode := rmReconnectExecute; //执行重新连接并重新执行中止的操作。不引发异常
end;