Как узнать, доступен ли в сети сервер MS SQL?
Материал из DRKB
Как узнать, доступен ли в сети сервер MS SQL?[править | править код]
Здесь представлена функция, выполняющая проверку доступности MS SQL сервера.
function CheckMSSQLServer(AServerName, AUserName, APsw: 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'] := AServerName;
Params.Values['USER Name'] := AUserName;
Params.Values['PASSWORD'] := APsw;
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;
Source: Взято из http://forum.sources.ru
ID: 02777