uniconnection斷線重連
uses memds
con.Options.LocalFailover := true;
procedure TUnidac.conConnectionLost(Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
begin
RetryMode := rmReconnectExecute; //執行重新連接並重新執行中止的操作。不引發異常
end;