9

在我的 Datasnap 客户端应用程序中，我将 1 个 TSQLConnection 用于我的方法和 ProviderConnection。

当连接丢失时会出现问题。TSQLConnection.Connected 和 TSQLConnection.ConnectionState 都没有捕捉到这一点。

当我的 TSQLconnection 已打开，但我失去了 Internet 连接，或者服务器停止 Datasnap 客户端应用程序时，会出现很多错误。（服务器方法或客户端数据集）

我创建了一个函数来管理我的服务器方法的 SQL 连接。但是当例如关闭通过 TDSProviderConnection 连接的 ClientDataset 时会出现更多问题。

问：您如何管理您的客户端应用程序以安全地捕获 TSQL 连接上的任何断开连接。
问：您如何管理停机时间，以及您如何处理未保存的客户端状态。

停机后重新连接不是问题。

调用服务器方法时：这将引发异常。

tmpM:=TServerMethodsClient.Create(MYTSQLCONNECTION.dbxconnection,true);

所以我编写了下一个方法来使用虚拟方法从我的数据模块中获取 TSQLCONNECTION。

function TDMForm.DSConnection: TSQLConnection;
var
  tmpM:TServerMethodsClient;
begin
  result:=nil;
  if assigned(MYTSQLCONNECTION) then begin
    tmpM:=TServerMethodsClient.Create(MYTSQLCONNECTION.dbxconnection,true);
    try
      try
        tmpM.Ping;
        result:=MYTSQLCONNECTION
      except
        ReconnectForm.ShowModal; // has a reconnect button that tries to reconnect + shutdownbutton
        if ReconnectForm.modalresult=mrOK then
          result:=MYTSQLCONNECTION
        else
          MainForm.Close;
      end;
    finally
      tmpm.Free;
    end;
  end;
end;

我以这种方式编写了方法，因为找出连接是否丢失的唯一方法是通过会引发相同错误的虚拟方法......然后我可以查询重新连接或关闭程序。

编辑：我期待某种一般性的答案和指导方针，做和不做。不是对我的代码的更正，这只是为了展示我目前正在做的事情。

4

1 回答 1

4

我们在同一个问题上苦苦挣扎——如何检测连接何时断开，以及如何优雅地重新连接。这就是我们最终做的事情，事实证明这对我们来说非常成功。

我们的用户连接到 DataSnap 服务器以检索数据并进行更改。OnBeforePost所有记录的创建、更新和删除都OnBeforeDelete通过TClientDataSet.

由于在您尝试与服务器通信并发现连接已被切断之前，您无法检测到客户端何时被强制断开与 DataSnap 服务器的连接，因此我们TApplicationEvents在应用程序的主窗体中添加了一个并编写了一个事件处理程序为OnException事件。当我们看到 时EIdSocketError，我们知道连接已死，因此我们向用户显示一条消息，说同样多，然后调用Abort，以便在本地数据集中不会发生Postor 。Delete用户可以重新登录，然后再次单击保存或删除以完成之前的操作。

我们的全局异常处理程序如下所示：

procedure TMainForm.AppEventsException(Sender: TObject; E: Exception);
begin
  if E is EIdSocketError then
  begin
    AppEvents.CancelDispatch;
    MessageDlg('The connection to the database was lost.  You must log in before you retry the failed action.  Actual error message:'#13#10#13#10 + E.Message, mtError, [mbOK], 0);
    Abort;
  end;

  if E is TDBXError then
  begin
    AppEvents.CancelDispatch;
    MessageDlg('The database returned an error.  If you cannot correct the issue, please contact customer service with the following database error message:'#13#10#13#10 + E.Message, mtError, [mbOK], 0);
    Abort;
  end;

  // Show any other unhandled exceptions
  Application.ShowException(E);
end;

这TDBXError是我们捕获的另一个问题，因为它通常意味着发生了数据库错误，例如外键或唯一键违规。由于没有在数据库中Abort进行更改，因此我们在本地进行更改，这使我们与数据库保持同步。

由于我们处理与数据库同步的方式（通过OnBeforePost和OnBeforeDelete），连接被切断并且用户重新连接并获得新的 DataSnap 会话并不重要。我们甚至可以重新启动 DataSnap 服务器，而不会丢失用户所做的更改等。他们只需再次登录并单击保存。什么都不会丢失。

所有这一切都回答了您的第一个问题......有一天，我们将实现离线模式，TClientDataSet可以将其保存到用户的 HDD，下次他们登录时，我们将进行同步以应用所有本地保存的更改。但是我们还没有这样做——所以我对你的第二个问题没有很好的答案。

于 2012-12-13T23:44:13.170 回答