Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871409 Fri, 30 Sep 2005 07:13:47 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871409 Цитата Rouse_ @
Вот итого

отлично, только я думаю надо выложить полный список DSOP_SCOPE_TYPE_... (может кому понадобится глобальный каталог, uplevel или downlevel)

      DSOP_SCOPE_TYPE_TARGET_COMPUTER = {text}000001;
      DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN = {text}000002;
      DSOP_SCOPE_TYPE_DOWNLEVEL_JOINED_DOMAIN = {text}000004;
      DSOP_SCOPE_TYPE_ENTERPRISE_DOMAIN = {text}000008;
      DSOP_SCOPE_TYPE_GLOBAL_CATALOG = {text}000010;
      DSOP_SCOPE_TYPE_EXTERNAL_UPLEVEL_DOMAIN = {text}000020;
      DSOP_SCOPE_TYPE_EXTERNAL_DOWNLEVEL_DOMAIN = {text}000040;
      DSOP_SCOPE_TYPE_WORKGROUP = {text}000080;
      DSOP_SCOPE_TYPE_USER_ENTERED_UPLEVEL_SCOPE = {text}000100;
      DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE = {text}000200;


флаги выбора
      DSOP_SCOPE_FLAG_STARTING_SCOPE = {text}000001;
      DSOP_SCOPE_FLAG_WANT_PROVIDER_WINNT = {text}000002;
      DSOP_SCOPE_FLAG_WANT_PROVIDER_LDAP = {text}000004;
      DSOP_SCOPE_FLAG_WANT_PROVIDER_GC = {text}000008;
      DSOP_SCOPE_FLAG_WANT_SID_PATH = {text}000010;
      DSOP_SCOPE_FLAG_WANT_DOWNLEVEL_BUILTIN_PATH = {text}000020;
      DSOP_SCOPE_FLAG_DEFAULT_FILTER_USERS = {text}000040;
      DSOP_SCOPE_FLAG_DEFAULT_FILTER_GROUPS = {text}000080;
      DSOP_SCOPE_FLAG_DEFAULT_FILTER_COMPUTERS = {text}000100;
      DSOP_SCOPE_FLAG_DEFAULT_FILTER_CONTACTS = {text}000200;


и фильтры
      DSOP_FILTER_INCLUDE_ADVANCED_VIEW = {text}000001;
      DSOP_FILTER_USERS = {text}000002;
      DSOP_FILTER_BUILTIN_GROUPS = {text}000004;
      DSOP_FILTER_WELL_KNOWN_PRINCIPALS = {text}000008;
      DSOP_FILTER_UNIVERSAL_GROUPS_DL = {text}000010;
      DSOP_FILTER_UNIVERSAL_GROUPS_SE = {text}000020;
      DSOP_FILTER_GLOBAL_GROUPS_DL = {text}000040;
      DSOP_FILTER_GLOBAL_GROUPS_SE = {text}000080;
      DSOP_FILTER_DOMAIN_LOCAL_GROUPS_DL = {text}000100;
      DSOP_FILTER_DOMAIN_LOCAL_GROUPS_SE = {text}000200;
      DSOP_FILTER_CONTACTS = {text}000400;
      DSOP_FILTER_COMPUTERS = {text}000800;
]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871386 Fri, 30 Sep 2005 06:59:46 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871386 Показать диалог выбора пользователей
:)]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871285 Fri, 30 Sep 2005 04:52:47 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871285 Цитата Rouse_ @
надеюсь ты не будешь против

конечно не против, выкладывай сколько надо. :yes: ;)]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871199 Thu, 29 Sep 2005 21:14:48 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=871199
tIce, надеюсь ты не будешь против если я чуть поправленный код в FAQ выложу. Структуры просто необходимые из JclObjSel.pas в основной модуль перетащу? Завтра покажу, у меня на работе просто все лежит...
Да кстати, за примерчик лови +]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870839 Thu, 29 Sep 2005 13:39:43 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870839 Цитата Rouse_ @
tIce, а где ты ObjSel взял?

http://cvs.sourceforge.net/viewcvs.py/jvcl/dev/JVCL3/common/

скачать надо ObjSel.pas, jedi.inc, jvcl.inc, jvcld7.inc (для D7) и windowsonly.inc]]> rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870829 Thu, 29 Sep 2005 13:32:04 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870829 tIce, а где ты ObjSel взял?]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870772 Thu, 29 Sep 2005 12:48:53 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870772 Цитата rtwolf @
А более "правильного" метода нет?

думаю что нет]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870759 Thu, 29 Sep 2005 12:40:59 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870759 А более "правильного" метода нет?]]> rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870727 Thu, 29 Sep 2005 12:19:46 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870727 Цитата rtwolf @
не выдирать же его из этого

              Text := Text + Format(
                'Object : %u'#13#10 +
                '  Name : %s'#13#10 +
                '  Class: %s'#13#10 +
                '  Path : %s'#13#10 +
                '  UPN  : %s'#13#10, [
                Index,
                WideCharToString(SelLst.aDsSelection[Index].pwzName),
                WideCharToString(SelLst.aDsSelection[Index].pwzClass),
                WideCharToString(SelLst.aDsSelection[Index].pwzADsPath),
                WideCharToString(SelLst.aDsSelection[Index].pwzUPN)]);
    //сдесь выдирается имя домена (s:string)
                s:=WideCharToString(SelLst.aDsSelection[Index].pwzUPN);
                delete(s,1,pos('@',s));
    // в результате в s будет имя домена
]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870692 Thu, 29 Sep 2005 11:51:57 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870692
Хотя нет еще, с этим я погорячился :)
Еще один вопрос а как в резалт вернуть имя домена Domain, не выдирать же его из этого
                'Object : %u'#13#10 +
                '  Name : %s'#13#10 +
                '  Class: %s'#13#10 +
                '  Path : %s'#13#10 +
                '  UPN  : %s'#13#10
]]> rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870545 Thu, 29 Sep 2005 10:15:37 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870545 Цитата tIce @
у меня воспринимается как домен

sorry, проверил, тожа как комп. ща попробую расковырять поглубже. :)

Добавлено
попробуй убрать DSOP_SCOPE_TYPE_TARGET_COMPUTER. это приводит в тому что по умолчанию становится домен в котором ты есть.

Добавлено
Короче разобрался:
        ZeroMemory(@ScopeInit, SizeOf(ScopeInit));
        ScopeInit[0].cbSize := SizeOf(TDSOPScopeInitInfo);
        ScopeInit[0].flType := DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN or
                                    DSOP_SCOPE_TYPE_EXTERNAL_UPLEVEL_DOMAIN;
     
        ScopeInit[0].flScope := DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE;
        ScopeInit[0].FilterFlags.Uplevel.flBothModes := DSOP_FILTER_USERS;
        ScopeInit[0].FilterFlags.flDownlevel := DSOP_DOWNLEVEL_FILTER_USERS;
     
        ZeroMemory(@InitInfo, SizeOf(InitInfo));
        InitInfo.cbSize := SizeOf(InitInfo);
        InitInfo.cDsScopeInfos := SizeOf(ScopeInit) div SizeOf(TDSOPScopeInitInfo);
        InitInfo.aDsScopeInfos := @ScopeInit;
        InitInfo.flOptions :=DSOP_FLAG_SKIP_TARGET_COMPUTER_DC_CHECK;
        initInfo.pwzTargetComputer:='Domain.int';
]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870532 Thu, 29 Sep 2005 10:09:13 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870532 rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870516 Thu, 29 Sep 2005 09:57:40 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870516 Цитата rtwolf @
дай тогда константы для
ScopeInit[0].flType
ScopeInit[0].flScope и прочего

смотри в ObjSel]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870475 Thu, 29 Sep 2005 09:30:30 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870475 дай тогда константы для
ScopeInit[0].flType
ScopeInit[0].flScope и прочего
Если домен выбрать диалогом, то в поле он так и высвечивается (domain.int)
ЗЫ: В действительности домен называется не так как я написал тут.]]> rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870461 Thu, 29 Sep 2005 09:21:27 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870461 Цитата rtwolf @
если указать
InitInfo.pwzTargetComputer := 'domain.int';
то это воспринимается как компьютер, а не как домен


у меня воспринимается как домен :wacko: незнаю, а ты уверен что как компьютер?]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870405 Thu, 29 Sep 2005 08:50:51 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870405 Параметры использую такие:
        ScopeInit[0].cbSize := SizeOf(TDSOPScopeInitInfo);
        ScopeInit[0].flType := DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN or
                                    DSOP_SCOPE_TYPE_DOWNLEVEL_JOINED_DOMAIN or
                                    DSOP_SCOPE_TYPE_GLOBAL_CATALOG or
                                    DSOP_SCOPE_TYPE_ENTERPRISE_DOMAIN or
                                    DSOP_SCOPE_TYPE_EXTERNAL_UPLEVEL_DOMAIN or
                                    DSOP_SCOPE_TYPE_EXTERNAL_DOWNLEVEL_DOMAIN or
                    DSOP_SCOPE_TYPE_TARGET_COMPUTER;
        ScopeInit[0].flScope := DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE;
        ScopeInit[0].FilterFlags.Uplevel.flBothModes := DSOP_FILTER_USERS;
        ScopeInit[0].FilterFlags.flDownlevel := DSOP_DOWNLEVEL_FILTER_USERS;


если указать
InitInfo.pwzTargetComputer := 'domain.int';
то это воспринимается как компьютер, а не как домен.]]> rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870380 Thu, 29 Sep 2005 08:31:10 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870380 tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870369 Thu, 29 Sep 2005 08:23:36 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870369 rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870351 Thu, 29 Sep 2005 08:09:46 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870351
    function InitObjectPicker(Picker: IDsObjectPicker): HRESULT;
    var
      ScopeInit: array [0..0] of TDSOPScopeInitInfo; // ибъект который указывает что будем выбирать
      InitInfo: TDSOPInitInfo; // информация об инициализации
    begin
      if nil = Picker then
        Result := E_INVALIDARG
      else
      begin
        ZeroMemory(@ScopeInit, SizeOf(ScopeInit)); //заполняем нулями
        ScopeInit[0].cbSize := SizeOf(TDSOPScopeInitInfo); // заполняем структуру TDSOPScopeInitInfo
        ScopeInit[0].flType := DSOP_SCOPE_TYPE_TARGET_COMPUTER;
        ScopeInit[0].flScope := DSOP_SCOPE_TYPE_USER_ENTERED_DOWNLEVEL_SCOPE;
        ScopeInit[0].FilterFlags.Uplevel.flBothModes := DSOP_FILTER_USERS;
        ScopeInit[0].FilterFlags.flDownlevel := DSOP_DOWNLEVEL_FILTER_USERS;
     
        ZeroMemory(@InitInfo, SizeOf(InitInfo));// заполняем структуру TDSOPInitInfo
        InitInfo.cbSize := SizeOf(InitInfo);
        InitInfo.cDsScopeInfos := SizeOf(ScopeInit) div SizeOf(TDSOPScopeInitInfo);
        InitInfo.aDsScopeInfos := @ScopeInit;
        InitInfo.flOptions := DSOP_FLAG_SKIP_TARGET_COMPUTER_DC_CHECK;
    // инициализируем объект выбора
        Result := Picker.Initialize(InitInfo);
      end;
    end;
     
    function ProcessSelectedObjects(DatObj: IDataObject): HRESULT;
    var
      StgMed: TStgMedium; //объект хранения данных
      FmtEtc: TFormatEtc;  //формат ыввода данных
      SelLst: PDSSelectionList;  //выбранные объекты
      Index: ULONG;  
      Text: string;
    begin
    //проверка на "дурака"
     if nil = DatObj then
        Result := E_INVALIDARG
      else
      begin
        with FmtEtc do
        begin
    //регистрируем формат вывода данных
          cfFormat := RegisterClipboardFormat(CFSTR_DSOP_DS_SELECTION_LIST);
          ptd      := nil;
          dwAspect := DVASPECT_CONTENT;
          lindex   := -1;
          tymed    := TYMED_HGLOBAL;
        end;
        Result := DatObj.GetData(FmtEtc, StgMed);
        if Succeeded(Result) then
        begin
    //получаем результат вызора в удобоваримом формате
          SelLst := PDS_SELECTION_LIST(GlobalLock(StgMed.hGlobal));
    // и если не nil обрабатываем его
          if SelLst <> nil then
          try
            Text := '';
            for Index := 0 to SelLst.cItems - 1 do
            begin
              Text := Text + Format(
                'Object : %u'#13#10 +
                '  Name : %s'#13#10 +
                '  Class: %s'#13#10 +
                '  Path : %s'#13#10 +
                '  UPN  : %s'#13#10, [
                Index,
                WideCharToString(SelLst.aDsSelection[Index].pwzName),
                WideCharToString(SelLst.aDsSelection[Index].pwzClass),
                WideCharToString(SelLst.aDsSelection[Index].pwzADsPath),
                WideCharToString(SelLst.aDsSelection[Index].pwzUPN)]);
            end;
            ShowMessage(Text);
          finally
            GlobalUnlock(StgMed.hGlobal);
          end
          else
            Result := E_POINTER;
     
          ReleaseStgMedium(StgMed);
        end;
      end;
    end;


Пример вызова:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Picker: IDsObjectPicker;
      DatObj: IDataObject;
    begin
    //инициализируем COM+
      if Succeeded(CoInitialize(nil)) then
      try
    // создаем Picker как объект COM+
        if Succeeded(CoCreateInstance(CLSID_DsObjectPicker, nil,
          CLSCTX_INPROC_SERVER, IID_IDsObjectPicker, Picker)) then
        try
    //если инициализация Picker успешна вызываем сам диалог
          if Succeeded(InitObjectPicker(Picker)) then
            case Picker.InvokeDialog(Self.Handle, DatObj) of
              S_OK:
                try
    //вызов диалога
                  ProcessSelectedObjects(DatObj);
                finally
    //освобождаем DatObj
                  DatObj := nil;
                end;
              S_FALSE:
                ShowMessage('Ничего не выбрано');
            end;
        finally
          Picker := nil;
        end;
      finally
        CoUninitialize;
      end;
    end;


только добавь в uses ActiveX и ObjSel

Добавлено
сам пользую.]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870343 Thu, 29 Sep 2005 08:05:18 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870343 rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870332 Thu, 29 Sep 2005 07:59:23 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870332 Цитата rtwolf @
Немного. Но преодразовать код С++ в Делфи могу


смотри тут]]> tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870317 Thu, 29 Sep 2005 07:50:38 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870317 rtwolf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870287 Thu, 29 Sep 2005 07:27:09 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870287 tIce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870244 Thu, 29 Sep 2005 06:56:37 +0000 Показать диалог выбора пользователей https://forum.sources.ru/index.php?showtopic=116353&view=findpost&p=870244 Облазил весь инет, но не нашел то что ищу. Раскрою суть вопроса, а то можно не так понять. Мне необходимо показать диалог "выбора пользователей компьютеров и групп" в NT-системах. Для примера, до него можно добраться так: папка->свойства->безопасность->дополнительно->добавить. Может быть кто-то из вас с этим сталкивался?
Заранее спасибо.]]> rtwolf Delphi: Система, Windows API