delphi客户端自动重连功能

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;