Delphi ADOConnection 连接超时属性不起作用

Question

这个问题已经有答案了:

ADO Connection Timeout problem (2 个回答)

已关闭 6 年前。

我有一个控制服务器连接的功能。如果 ado 在 5 秒内无法连接，则应该给出错误。但connectiontimeout属性无法工作。

这是我正在使用的代码:

function AdoConnectionTester(strServerName, strUserName, strPassword,
    strDBName: string; boolShowMessage: boolean): Boolean;
var
  ADOConn: TADOConnection;
begin
  try
    Result := True;
    ADOConn := TADOConnection.Create(nil);
    ADOConn.LoginPrompt :=False;
    ADOConn.Close;
    ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;    Password='+strPassword+';'+
                                 'Persist Security Info=True;User ID='+strUserName+';'+
                                 'Initial Catalog='+strDBName+';'+
                                 'Data Source='+strServerName;
try
  ADOConn.ConnectionTimeout := 5;
  ADOConn.Open;
except
  on E: Exception do
  begin
    Result := False;
    ShowMessage(E.Message);
  end;
end;
if Result then
  if boolShowMessage = True then
    ShowMessage('OK');
  finally
    ADOConn.Free;
  end;
end;

如何解决这个问题？

Answer 1

您没有说出“不起作用”的意思，但我假设您的意思是连接在您指定的时间段结束时不会超时。

使用下面的代码和保证失败的 ConnectionString(通过指定不存在的服务器)，似乎 TAdoConnection 在我的 LAN 上不会在大约 9 秒内超时。如果指定的超时时间比指定的超时时间长，确实会在更长的时间后超时，但实际时间与指定的超时值关系并不密切。因此，指定超时值在产生效果的意义上确实“有效”，但如果您希望超时值与您的值一样低，则似乎不起作用。

如果可以通过 Delphi 的 Ado 来克服此限制，我会感到惊讶。 AdoConnection1.ConnectionTimeout 只是传递给附加到它的 Ado ConnectionObject，而该对象位于 COM 接口(interface)的“另一侧”，因此，如果它没有按照您想要的方式响应，那么，据我所知，您无能为力它。机器的 TCPIP 设置中的某些内容可能会产生影响，但我不会打扰我的机器来找出答案;=)

更新在另一个 SO q 的提示下，我重新测试了我的代码，AdoConnection 在我的 LAN 上超时的最短时间已降至 2.8 秒，无需任何硬件更改或有意识地更改软件。也许差异是由 Win10 更新中的某些内容引起的。

procedure TForm1.TestConnectionTimeOut(Timeout : Integer);
var
  T1 : Integer;
begin
  T1 := GetTickCount;
  AdoConnection1.ConnectionTimeout := Timeout;
  try
    AdoConnection1.Connected := True;
  except
    ShowMessage(Exception(ExceptObject).Message + #13#10 + IntToStr(GetTickCount - T1));
  end;
end;