使用Delphi以编程方式获取ODBC数据源名称列表

uses
  Windows, SysUtils, DB, ODBC;

function GetODBCDataSourceNames: TStringList;
var
  hEnv: SQLHENV;
  hDsn: SQLHDBC;
  RetCode: SQLRETURN;
  ServerName, UserName: array[0..1024] of Char;
  NameLength1, NameLength2: SQLSMALLINT;
begin
  Result := TStringList.Create;
  try
    RetCode := SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, hEnv);
    if RetCode <> SQL_SUCCESS then
      Exit;
    RetCode := SQLSetEnvAttr(hEnv, SQL_ATTR_ODBC_VERSION, @SQL_OV_ODBC3, 0);
    if RetCode <> SQL_SUCCESS then
      Exit;
    RetCode := SQLAllocHandle(SQL_HANDLE_DBC, hEnv, hDsn);
    if RetCode <> SQL_SUCCESS then
      Exit;
    RetCode := SQLDriverConnect(hDsn, 0, nil, 0, nil, 0, @NameLength1, SQL_DRIVER_NOPROMPT);
    if RetCode <> SQL_SUCCESS then
      Exit;
    RetCode := SQLDataSources(hEnv, SQL_FETCH_FIRST, ServerName, 1024, NameLength1, UserName, 1024, NameLength2);
    while RetCode = SQL_SUCCESS do
    begin
      Result.Add(Format('%s (%s)', [ServerName, UserName]));
      RetCode := SQLDataSources(hEnv, SQL_FETCH_NEXT, ServerName, 1024, NameLength1, UserName, 1024, NameLength2);
    end;
  finally
    SQLFreeHandle(SQL_HANDLE_DBC, hDsn);
    SQLFreeHandle(SQL_HANDLE_ENV, hEnv);
  end;
end;