Форум: "Базы";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизКак получить список MS SQL серверов в сети? Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c