Как узнать, доступен ли в сети сервер MS SQL? |
Previous Top Next |
Здесь представлена функция, выполняющая проверку доступности MS SQL сервера.
Code: |
Function CheckMSSQLServer(fServerName, fUserName, fPsw : String) : Bool; Var wDb : TDatabase; begin // Check if MS SQL Server is reachable // Важно! BDE Должна быть установлена Result := False; wDb := TDatabase.Create(nil);
with wDb do begin DatabaseName := 'wDbDatabaseName'; // arbitrary name, must be unique // in current Session Params.Values['SERVER Name'] := fServerName; Params.Values['USER Name'] := fUserName; Params.Values['PASSWORD'] := fPsw; LoginPrompt := False; end;
try wDb.DriverName := 'MSSQL'; try wDb.Connected := True; wDb.Connected := False; except ShowMessage('Server is not reachable'); end; Result := True; finally wDb.Free; end; end; |
©Drkb::02777
Взято из http://forum.sources.ru