Devart Forums

Code: Select all

Uses
  MSServicesUni;

.... 

Var
  Lista   : TStrings;
  ServEnum: TMSServerEnumerator;
begin
  Lista:=TStringList.Create;
  ServEnum:=TMSServerEnumerator.Create;
  ServEnum.GetServerList(Lista);
  ServEnum.Free;
  EdServers.Lines.AddStrings(Lista);
  Lista.Free;
end;

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

uses
  MSServicesUni,
  SysUtils,
  Classes,
  Uni,
  SQLServerUniProvider,
  ActiveX;

Var
  ServerList, InstanceList: TStringList;
  ServEnum: TMSServerEnumerator;
  i, j: integer;
  UniConnection: TUniConnection;
begin
  CoInitialize(nil);
  try
    ServerList := TStringList.Create;
    try
      ServEnum := TMSServerEnumerator.Create;
      try
        ServEnum.GetServerList(ServerList);
        UniConnection := TUniConnection.Create(nil);
        try
          UniConnection.ProviderName := 'SQL Server';
          UniConnection.Username := 'sa';
          for i := 0 to ServerList.Count - 1 do begin
            Writeln(ServerList[i]);
            UniConnection.Server := ServerList[i];
            UniConnection.Connect;
            InstanceList := TStringList.Create;
            try
              UniConnection.GetDatabaseNames(InstanceList);
              for  j := 0 to InstanceList.Count - 1 do
                Writeln(#9 + InstanceList[j]);
            finally
              InstanceList.Free;
              UniConnection.Disconnect;
            end;
          end;
        finally
          UniConnection.Free;
        end;
      finally
        ServEnum.Free;
      end;
    finally
      ServerList.Free;
    end;
  finally
    CoUninitialize;
    readln;
  end;
end.