Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Как получить список MS SQL серверов в сети? 


anton_private   (2002-04-08 14:03) [0]

Как получить список MS SQL серверов в сети?



wicked   (2002-04-08 15:04) [1]

имхо никак... прямого пути нет...
можно, разве, получить список доступных хостов (отдельная тема), а потом пробовать подключиться к каждому из них... но это будет долго...



anton_private   (2002-04-08 15:11) [2]

ПОнятно, что прямого пути нет.
Как не напрямую узнать? Ну там MS SQL API.....



Delirium   (2002-04-08 15:15) [3]

В SQLDMO есть соответствующая функция, точнее к сожалнию сказать не могу - сижу не на рабочем месте :)



handra   (2002-04-08 17:52) [4]

Только для NT/2000:
type
SERVER_INFO_101 = record
sv101_platform_id: DWORD;
sv101_name: LPWSTR;
sv101_version_major: DWORD;
sv101_version_minor: DWORD;
sv101_type: DWORD;
sv101_comment: LPWSTR;
end;
PSERVER_INFO_101 = ^SERVER_INFO_101;

TNetServerEnum = function(
Servername: LPCWSTR;
Level: DWORD;
Bufptr: Pointer;
Prefmaxlen: DWORD;
Entriesread: LPDWORD;
Totalentries: LPDWORD;
Servertype: DWORD;
Domain: LPCWSTR;
Resume_handle: LPDWORD): DWORD; stdcall;
TNetApiBufferFree = function(Buffer: Pointer): DWORD; stdcall;

procedure TForm1.Button5Click(Sender: TObject);
const
SV_TYPE_SQLSERVER: DWORD = 4;
var
I: Integer;
DllHandle: THandle;
Entriesread: DWORD;
Totalentries: DWORD;
DwResumeHandle: DWORD;
Buffer, RealBuffer: Pointer;
NetServerEnum: TNetServerEnum;
NetApiBufferFree: TNetApiBufferFree;
begin
DllHandle := LoadLibrary("Netapi32.dll");
if DllHandle <> 0 then
try
NetServerEnum := GetProcAddress(DllHandle, "NetServerEnum");
NetApiBufferFree := GetProcAddress(DllHandle, "NetApiBufferFree");

if not (@NetServerEnum = nil)
or (@NetApiBufferFree = nil) then
begin
Entriesread := 0;
Totalentries := 0;
NetServerEnum("", 101, @RealBuffer, DWORD(-1), @Entriesread,
@Totalentries, SV_TYPE_SQLSERVER, nil, @DwResumeHandle);
if RealBuffer <> nil then
try
Buffer := RealBuffer;
for I := 0 to Entriesread - 1 do
begin
Memo1.Lines.Add(string(PSERVER_INFO_101(Buffer).sv101_name));
Buffer := Pointer(DWORD(Buffer) + SizeOf(SERVER_INFO_101));
end;
finally
NetApiBufferFree(RealBuffer);
end;
end;
finally
FreeLibrary(DllHandle);
end;
end;



handra   (2002-04-08 17:55) [5]

Только при наличии SQLDMO:
var oApp:OleVariant;
i,j:Integer;

oApp:=CreateOleObject("SQLDMO.Application");
for i:=1 to oApp.ServerGroups.Count do
begin
for j:=1 to oApp.ServerGroups.item(i).RegisteredServers.Count do
Memo1.Lines.Add((oApp.ServerGroups.item(i).RegisteredServers.Item(j).Name);
end;
oApp:=Unassigned;



unfam   (2002-04-09 03:04) [6]

uses SQLDMO_TLB;

var
IGrp: _ServerGroup;
IApp:_Application;
i:Integer;
lb:TListBox;

begin
IApp:=CoApplication.Create;
IGrp:=IApp.ServerGroups.Item(1);
for i:=1 to IGrp.RegisteredServers.Count do
lb.Items.Add(IGrp.RegisteredServers.Item(i).Name);
end;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.03 c
3-94337           agrig                 2002-04-09 21:55  2002.04.29  
Помогите написать запрос с суммированием!


3-94263           Rail                  2002-04-07 16:05  2002.04.29  
Как показать последнюю ошибу при работе с БД через BDE


3-94277           DANCHA                2002-04-06 09:57  2002.04.29  
Компонент TADOTable и глюки в работе с ним


1-94462           ruslan_as             2002-04-16 09:23  2002.04.29  
Прервать процедуру.


1-94390           Ray_Parker            2002-04-14 15:09  2002.04.29  
Вопрос по типу Double Word