2

我有一个控制服务器连接的功能。如果 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;

我怎么解决这个问题 ？

4

1 回答 1

0

您没有说出“不起作用”的意思，但我认为您的意思是连接在您指定的期限结束时不会超时。

使用下面的代码和保证失败的 ConnectionString（通过指定不存在的服务器），在我的 LAN 上，TAdoConnection 似乎不会在大约 9 秒内超时。如果超时时间长于指定的时间，则确实会在更长的时间后超时，但实际时间与指定的超时值并没有密切相关。因此，指定超时值确实“起作用”，但如果您想要一个与您的一样低的超时值，则似乎不行。

如果可以通过 Delphi 的 Ado 来克服这个限制，我会感到惊讶。AdoConnection1.ConnectionTimeout 只是简单地传递给附加到它的 Ado ConnectionObject，它位于 COM 接口的“另一端”，所以如果它没有按照你的意愿响应，那么，afaik，你无能为力它。机器的 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;
于 2016-04-01T12:47:54.903 回答