Задача такая, нужно получить список SQL-серверов в локальной сети. Сервера — MSSQL. Как это сделать?

Здравствуйте, delphinchik, Вы писали:

D>Задача такая, нужно получить список SQL-серверов в локальной сети. Сервера — MSSQL. Как это сделать?

    using System;
    using System.Text;
    using System.Runtime.InteropServices;

    /// <summary>
    /// Summary description for SqlLocator.
    /// </summary>
    public class SqlLocator
    {
        [DllImport("odbc32.dll")]
        private static extern short SQLAllocHandle(short hType, IntPtr inputHandle, out IntPtr outputHandle);
        [DllImport("odbc32.dll")]
        private static extern short SQLSetEnvAttr(IntPtr henv, int attribute, IntPtr valuePtr, int strLength);
        [DllImport("odbc32.dll")]
        private static extern short SQLFreeHandle(short hType, IntPtr handle); 
        [DllImport("odbc32.dll",CharSet = CharSet.Ansi)]
        private static extern short SQLBrowseConnect(IntPtr hconn, StringBuilder inString, short inStringLength, StringBuilder outString, short outStringLength, out short outLengthNeeded);

        private const short SQL_HANDLE_ENV = 1;
        private const short SQL_HANDLE_DBC = 2;
        private const int SQL_ATTR_ODBC_VERSION = 200;
        private const int SQL_OV_ODBC3 = 3;
        private const short SQL_SUCCESS = 0;
    
        private const short SQL_NEED_DATA = 99;
        private const short DEFAULT_RESULT_SIZE = 1024;
        private const string SQL_DRIVER_STR = "DRIVER=SQL SERVER";

        private SqlLocator() { }

        public static string[] GetServers()
        {
            string[] retval = null;
            string txt = string.Empty;
            
            IntPtr henv = IntPtr.Zero;
            IntPtr hconn = IntPtr.Zero;
            
            StringBuilder inString = new StringBuilder(SQL_DRIVER_STR);
            StringBuilder outString = new StringBuilder(DEFAULT_RESULT_SIZE);

            short inStringLength = (short)inString.Length;
            short lenNeeded = 0;

            try
            {
                if (SQL_SUCCESS == SQLAllocHandle(SQL_HANDLE_ENV, henv, out henv))
                {
                    if (SQL_SUCCESS == SQLSetEnvAttr(henv,SQL_ATTR_ODBC_VERSION,(IntPtr)SQL_OV_ODBC3,0))
                    {
                        if (SQL_SUCCESS == SQLAllocHandle(SQL_HANDLE_DBC, henv, out hconn))
                        {
                            if (SQL_NEED_DATA == SQLBrowseConnect(hconn, inString, inStringLength, outString, 
                                DEFAULT_RESULT_SIZE, out lenNeeded))
                            {
                                if (DEFAULT_RESULT_SIZE < lenNeeded)
                                {
                                    outString.Capacity = lenNeeded;

                                    if (SQL_NEED_DATA != SQLBrowseConnect(hconn, inString, inStringLength, outString, 
                                        lenNeeded,out lenNeeded))
                                    {
                                        throw new ApplicationException("Unabled to aquire SQL Servers from ODBC driver.");
                                    }    
                                }

                                txt = outString.ToString();
                                int start = txt.IndexOf("{") + 1;
                                int len = txt.IndexOf("}") - start;
                                
                                if ((start > 0) && (len > 0))
                                {
                                    txt = txt.Substring(start,len);
                                }
                                else
                                {
                                    txt = string.Empty;
                                }
                            }                        
                        }
                    }
                }
            }
            catch (Exception ex)
            {
                // Throw away any error if we are not in debug mode
                txt = string.Empty;
                Console.WriteLine("Exception in SqlLocator::GetServers() : " + ex.Message);
            }
            finally
            {
                if (hconn != IntPtr.Zero)
                {
                    SQLFreeHandle(SQL_HANDLE_DBC,hconn);
                }

                if (henv != IntPtr.Zero)
                {
                    SQLFreeHandle(SQL_HANDLE_ENV,hconn);
                }
            }

            if (txt.Length > 0)
            {
                retval = txt.Split(",".ToCharArray());
            }

            return retval;
        }
    }

Здравствуйте, squiz. Я допустил одну неточность. Дело в том, что мне интересно узнать как это можно реализовать на Delphi 5.

Здравствуйте, delphinchik, Вы писали:

D>Задача такая, нужно получить список SQL-серверов в локальной сети. Сервера — MSSQL. Как это сделать?

var
v: variant;
I: Integer;
begin
v:=CreateOleObject('SQLDMO.Application');
For I:=1 to v.ListAvailableSQLServers.Count do begin
ListBox1.Items.Add(v.ListAvailableSQLServers.item(I));
end;
end;

Здравствуйте, Satrapp, Вы писали:

S>Здравствуйте, delphinchik, Вы писали:

D>>Задача такая, нужно получить список SQL-серверов в локальной сети. Сервера — MSSQL. Как это сделать?

S>

S>var
S>v: variant;
S>I: Integer;
S>begin
S>v:=CreateOleObject('SQLDMO.Application');
S>For I:=1 to v.ListAvailableSQLServers.Count do begin
S>ListBox1.Items.Add(v.ListAvailableSQLServers.item(I));
S>end;
S>end;
S>

Спасибо большое все получилось. Честно говоря, думал будет намного сложнее.

Здравствуйте, delphinchik, Вы писали:

D>Здравствуйте, Satrapp, Вы писали:

S>>Здравствуйте, delphinchik, Вы писали:

D>>>Задача такая, нужно получить список SQL-серверов в локальной сети. Сервера — MSSQL. Как это сделать?

S>>

S>>var
S>>v: variant;
S>>I: Integer;
S>>begin
S>>v:=CreateOleObject('SQLDMO.Application');
S>>For I:=1 to v.ListAvailableSQLServers.Count do begin
S>>ListBox1.Items.Add(v.ListAvailableSQLServers.item(I));
S>>end;
S>>end;
S>>

D>Спасибо большое все получилось. Честно говоря, думал будет намного сложнее.

Только тебе надо будет тащить за собой SQLDMO — он встает вместе с клиентскими тулзами SQL Server-a, и по умолчанию его нет.