Как узнать, доступен ли в сети сервер MS SQL

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Два программиста:

— Ко мне вчера чувак приходил, сервак сломал.

— Он что хакер?

— Нет, мудак!

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;

{/codecitation}

Добавить комментарий