科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网网络频道用API得到局域网中可用SqlServer服务器列表

用API得到局域网中可用SqlServer服务器列表

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

无意中找到了以前的一个C#程序,觉得好用发到这里以便和大家共享一下.

作者:巧巧读书 来源:巧巧读书 2008年6月25日

关键字: 网吧 网吧组网 网吧服务器架设

  • 评论
  • 分享微博
  • 分享邮件

  无意中找到了以前的一个C#程序,觉得好用发到这里以便和大家共享一下,其实这个代码我是抄别人过来的,原作者不详,觉得写的好就和大家共享一下了程序实现了用API来得到SqlServer服务器列表的功能,我觉得比用SQLDEMO组件更有意义,代码如下:

  /// <summary>

  /// 获取网内的数据库服务器名称

  /// </summary>

  public class SqlLocator

  {

  [System.Runtime.InteropServices.DllImport("odbc32.dll")]

  private static extern short SQLAllocHandle(short hType, IntPtr inputHandle, out IntPtr outputHandle);

  [System.Runtime.InteropServices.DllImport("odbc32.dll")]

  private static extern short SQLSetEnvAttr(IntPtr henv, int attribute, IntPtr valuePtr, int strLength);

  [System.Runtime.InteropServices.DllImport("odbc32.dll")]

  private static extern short SQLFreeHandle(short hType, IntPtr handle);

  [System.Runtime.InteropServices.DllImport("odbc32.dll",CharSet= System.Runtime.InteropServices.CharSet.Ansi)]

  private static extern short SQLBrowseConnect(IntPtr hconn, System.Text.StringBuilder inString,

  short inStringLength, System.Text.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(){}

  /// <summary>

  /// 获取网内的数据库服务器名称,是一个字符串数组。

  /// </summary>

  /// <returns></returns>

  public static string[] GetServers()

  {

  string list = string.Empty;

  IntPtr henv = IntPtr.Zero;

  IntPtr hconn = IntPtr.Zero;

  System.Text.StringBuilder inString = new System.Text.StringBuilder(SQL_DRIVER_STR);

  System.Text.StringBuilder outString = new System.Text.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.");

  }

  }

  list = outString.ToString();

  int start = list.IndexOf("{") + 1;

  int len = list.IndexOf("}") - start;

  if ((start >0) &&(len >0))

  {

  list = list.Substring(start,len);

  }

  else

  {

  list = string.Empty;

  }

  }

  }

  }

  }

  }

  catch

  {

  list = string.Empty;

  }

  finally

  {

  if (hconn != IntPtr.Zero)

  {

  SQLFreeHandle(SQL_HANDLE_DBC,hconn);

  }

  if (henv != IntPtr.Zero)

  {

  SQLFreeHandle(SQL_HANDLE_ENV,hconn);

  }

  }

  string[] array = null;

  if (list.Length >0)

  {

  array = list.Split(',');

  }

  return array;

  }

  }

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章