3

我有一个TADOConnection内部线程。如果它无法连接到数据库（超时），则在关闭应用程序时，线程会被暂停，并且在尝试完成之前我的应用程序能够关闭需要一些时间。我不想减少连接的连接超时，这不是问题。有什么方法可以强制中止连接尝试？

在TADOConnection线程执行开始时连接并自动重复重新连接直到成功。然后，在关闭应用程序时，如果数据库连接失败，线程将挂起，直到连接尝试完成（超时）。

编辑

这是线程如何工作的示例：

procedure TMyThread.Init;
begin
  CoInitialize(nil);
  FDB:= TADOConnection.Create(nil);
  FDB.LoginPrompt:= False;
  FDB.ConnectionTimeout:= 5;
  FDB.ConnectOptions:= coAsyncConnect;
end;

procedure TMyThread.Uninit;
begin
  if FDB.Connected then
    FDB.Connected:= False;
  FDB.Free;
  CoUninitialize;
end;

function TMyThread.Reconnect: Boolean;
begin
  Result:= False;
  if FDB.Connected then
    FDB.Connected:= False;
  FDB.ConnectionString:= FConnectionString;
  try
    FDB.Connected:= True; //How to abort?
    Result:= True;
  except
    on e: exception do begin
      //MessageDlg(e.Message, mtError, [mbOK], 0);
      FDB.Connected:= False;
      Result:= False;
    end;
  end;
end;

procedure TMyThread.Process;
begin
  if Reconnect then begin //Once connected, keep alive in loop
    while FActive do begin
      if Terminated then Break;
      if not Connected then Break;

      //Do Some Database Work

    end;
  end else begin
    //Log connection failure
  end;
end;

procedure TMyThread.Execute;
begin
  while not Terminated do begin
    if FActive then begin
      Init; //CoInitialize, create DB, etc.
      try
        while (FActive) and (not Terminated) do begin
          try
            Process; //Actual processing procedure
          except
            on e: exception do begin
              //Record error to log
            end;
          end;
        end;
      finally
        Uninit; //CoUninitialize, destroy DB, etc.
      end;
    end;
  end;
end;

（试图只包括与问题相关的内容）

4

1 回答 1

2

首先想到的是减少连接的超时。你为什么不想要那个？以及为什么要在关闭应用程序时建立连接？尤其是当您希望在花费比预期更多的时间时中止它时，为什么还要连接呢？听起来我们可以知道更多的背景信息。

在特殊情况下你确实需要它，条件是连接快，并且这个问题只适用于应用程序的销毁，那么我建议不要等待线程完成。只是不要释放它，终止应用程序，然后让 Windows 终止该进程，包括它的所有线程。

如果连接确实成功，那么这种方法可能会适得其反，因此当线程连接时向主线程发出信号，并通过等待线程来推迟其终止。您可能需要再次超时。

编辑：

我想OnWillConnect每次尝试连接时都会发生该事件。尝试EventStatus := esCancel在其处理程序中返回。

于 2013-01-19T17:21:08.850 回答