procedure Tf_login.Timer1Timer(Sender: TObject);
function TestConnected: Boolean;
var
aCon: TADOConnection;
begin
Result := False;
aCon := TADOConnection.Create(nil);
try
aCon.LoginPrompt := False;
aCon.ConnectionTimeout := 1;
aCon.ConnectionString := ‘FILE NAME=‘+ExtractFilePath(ParamStr(0))+‘/ConnectJYBDB.udl‘;
aCon.Provider := ExtractFilePath(ParamStr(0)) + ‘/ConnectJYBDB.udl‘;
try
aCon.Connected := True;
Result := True;
except
Exit;
end;
finally
aCon.Free;
end;
end;
begin
if not TestConnected then //使用临时对象判断数据库连接状况
begin
//ShowMessage(‘数据库连接失败,请检查网络设置‘);
ConJYBDB.Close;
end
else
begin
if ConJYBDB.Connected then
ConJYBDB.Connected := True;
end;
end;
相关文章
- 08-27Socket之异步TCP客户端断线重连
- 08-27ansible批量安装zabbix客户端并实现自动发现功能
- 08-27[心跳] 使用心跳机制实现CS架构下多客户端的在线状态实时更新以及掉线自动重连
- 08-27客户端长连接断线重连机制
- 08-27springboot整合mqtt实现消息发送和消费,以及客户端断线重连之后的消息恢复
- 08-27[Netcat] 断线重连 自动重连
- 08-27QTcpSocket自动重连题 难道QTimer 还有坑?
- 08-27Spring+Rmi中的客户端自动重连配置
- 08-27基于bat的自动网络重连配置脚本
- 08-27206-ESP32_SDK开发-TCP客户端(select方式,自动重连)