Имя: Пароль:
1C
 
Подскажите...."Создание элемента управления MSComctlLib.Toolbar не удалось"
0 Соратник
 
25.09.07
14:19
ОС 2003 сервер

в конфигурации используются кнопки созданные при помощи этого АктивИкс компонента...
появляется ошибка описанная в сабже... подскажите, пожалуйста в чем проблема и как решить...

Заранее спасибо.
1 smaharbA
 
25.09.07
14:22
for %i in (%windir%\system32\*.ocx) do regsvr32 /s %i
а в частности
regsvr32 /s %windir%\system32\MSCOMCTL.OCX
2 Соратник
 
25.09.07
14:31
(1) а вот нету такого OCX, подсказывают, что он с МС Офис распространяется... а офиса то на серваке и нету :)
3 smaharbA
 
25.09.07
14:33
4 Соратник
 
25.09.07
14:46
(3) спасибо
5 Соратник
 
25.09.07
15:09
установил... перезагрузил... не взлетело :(
6 pectopatop
 
25.09.07
15:15
(3) они ж еще версий разных бывают...
(5) попробуй теперь зарегать как в (1)
7 pectopatop
 
25.09.07
15:21
к тому же, могло быть так что там в коде написано нетчто подобное:
попытка
  загрузитьвнешнююActiveXину(каталогИБ()+"MSComctlLib.Toolbar");
  создатьИзЭтогоКнопищи("MSComctlLib.Toolbar");
исключение
  Сматериться("Создание элемента управления MSComctlLib.Toolbar не удалось");
конецпопытки;

т.е. я к тому, что может ее (компоненту) надо перенести куда поближе к базе.. ???
8 Соратник
 
25.09.07
15:25
в коде написано:

   Попытка
       АктивИкс_ПанельИнструментовОбщее=СоздатьОбъект("АктивИкс");
       АктивИкс_ПанельИнструментовОбщее.УстановитьАтрибут(Форма, "ПанельИнструментовОбщее");
       АктивИкс_ПанельИнструментовОбщее.СоздатьЭУ("MSComctlLib.Toolbar");
       ОбъектПанельИнструментовОбщее=АктивИкс_ПанельИнструментовОбщее.Объект;
   Исключение
       Сообщить("Описание ошибки: "+ОписаниеОшибки());    
   КонецПопытки;
9 Соратник
 
25.09.07
15:55
нет больше идей? в чем может быть причина :(
10 akaBrr
 
25.09.07
16:01
Странно скопипастил твой код ошибка не выскакивает, библиотеку зарегил?
11 Соратник
 
25.09.07
16:07
дык регил... устанавливал из дистрибытива скаченного по ссылке Абрахамса... перезагружал... заново регил... результат один... не въезжаю
12 Соратник
 
25.09.07
16:10
(10) так код рабочий... не на одной тачке работал... а сейчас вот на серваке понадобилось запустить разработку...
13 Соратник
 
25.09.07
16:12
(3) может проблема что не установлен VB?
14 akaBrr
 
25.09.07
16:27
Мдя у меня на форме надпись "Здесь должен быть АктивХ"
15 зулус
 
26.09.07
11:13
Боюсь растроить, но кажется мало иметь и зарегистрить этот OCX в системе, надо еще иметь лицензию на его использование.
16 smaharbA
 
26.09.07
11:19
+(15)

Процедура Сформировать()
   Шел=СоздатьОбъект("WScript.Shell");
   КаталогСистемы=Шел.ExpandEnvironmentStrings("%WinDir%");
   Если ФС.СуществуетФайл(КаталогСистемы+"\system32\comdlg32.ocx")=0 Тогда
       Предупреждение("Нет в системе файла comdlg32.ocx");
       Возврат;
   КонецЕсли;
   Шел.Run("cmd /c regsvr32 /s comdlg32.ocx",0,-1);
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку("HKLM\SOFTWARE\Classes\Licenses\ED4B87C4-9F76-11d1-8BF7-0000F8754DA1
   |knlggnmntgggrninthpgmnngrhqhnnjnslsh
   |HKLM\SOFTWARE\Classes\Licenses\096EFC40-6ABF-11cf-850C-08002B30345D
   |knsgigmnmngnmnigthmgpninrmumhgkgrlrk
   |HKLM\SOFTWARE\Classes\Licenses\190B7910-992A-11cf-8AFA-00AA00C00905
   |gclclcejjcmjdcccoikjlcecoioijjcjnhng
   |HKLM\SOFTWARE\Classes\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d
   |mlrljgrlhltlngjlthrligklpkrhllglqlrk
   |HKLM\SOFTWARE\Classes\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905
   |kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun
   |HKLM\SOFTWARE\Classes\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905
   |gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj
   |HKLM\SOFTWARE\Classes\Licenses\556C75F1-EFBC-11CF-B9F3-00A0247033C4
   |xybiedobrqsprbijaegcbislrsiucfjdhisl
   |HKLM\SOFTWARE\Classes\Licenses\57CBF9E0-6AA7-11cf-8ADB-00AA00C00905
   |aahakhchghkhfhaamghhbhbhkbpgfhahlfle
   |HKLM\SOFTWARE\Classes\Licenses\5f54e750-ce26-11cf-8e43-00a0c911005a
   |mnlnnimimnoiuilnvjkinnkitjwjnimntntm
   |HKLM\SOFTWARE\Classes\Licenses\6FB38640-6AC7-11cf-8ADB-00AA00C00905
   |gdjkokgdldikhdddpjkkekgknesjikdkoioh
   |HKLM\SOFTWARE\Classes\Licenses\72E67120-5959-11cf-91F6-C2863C385E30
   |ibcbbbebqbdbciebmcobmbhifcmciibblgmf
   |HKLM\SOFTWARE\Classes\Licenses\78E1BDD1-9941-11cf-9756-00AA00C00908
   |yjrjvqkjlqqjnqkjvprqsjnjvkuknjpjtoun
   |HKLM\SOFTWARE\Classes\Licenses\7C35CA30-D112-11cf-8E72-00A0C90F26F8
   |whmhmhohmhiorhkouimhihihwiwinhlosmsl
   |HKLM\SOFTWARE\Classes\Licenses\899B3E80-6AC6-11cf-8ADB-00AA00C00905
   |wjsjjjlqmjpjrjjjvpqqkqmqukypoqjquoun
   |HKLM\SOFTWARE\Classes\Licenses\8B7FE740-50AC-101B-A3C9-08002B2F49FB
   |mjgcqcejfchcijecpdhckcdjqigdejfccjri
   |HKLM\SOFTWARE\Classes\Licenses\8CC49940-3146-11CF-97A1-00AA00424A9F\Retail
   |yubcdcprktpjtapmmfdacmupasbhscddncgp
   |HKLM\SOFTWARE\Classes\Licenses\8CC49940-3146-11CF-97A1-00AA00424A9F
   |
   |HKLM\SOFTWARE\Classes\Licenses\9E799BF1-8817-11cf-958F-0020AFC28C3B
   |uqpqnqkjujkjjjjqwktjrjkjtkupsjnjtoun
   |HKLM\SOFTWARE\Classes\Licenses\B1EFCCF0-6AC1-11cf-8ADB-00AA00C00905
   |qqkjvqpqmqjjpqjjvpqqkqmqvkypoqjquoun
   |HKLM\SOFTWARE\Classes\Licenses\BC96F860-9928-11cf-8AFA-00AA00C00905
   |mmimfflflmqmlfffrlnmofhfkgrlmmfmqkqj
   |HKLM\SOFTWARE\Classes\Licenses\DC4D7920-6AC8-11cf-8ADB-00AA00C00905
   |iokouhloohrojhhhtnooiokomiwnmohosmsl
   |HKLM\SOFTWARE\Classes\Licenses\E32E2733-1BC5-11d0-B8C3-00A0C90DCA10
   |kmhfimlflmmfpffmsgfmhmimngtghmoflhsg
   |HKLM\SOFTWARE\Classes\Licenses\F4FC596D-DFFE-11CF-9551-00AA00A3DC45
   |mbmabptebkjcdlgtjmskjwtsdhjbmkmwtrak
   |HKLM\SOFTWARE\Classes\Licenses
   |Licensing: Copying the keys may be a violation of established copyrights.");
   Для к=1 По Текст.КоличествоСтрок()/2 Цикл
       Попытка
           Шел.RegWrite(Текст.ПолучитьСтроку(к*2-1)+"\",Текст.ПолучитьСтроку(к*2));
       Исключение
       КонецПопытки;
   КонецЦикла;
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Диалог=Скрипт.Eval("Диалог=new ActiveXObject('MSComDlg.CommonDialog')");
   Диалог.ShowColor();
   Сообщить(Скрипт.Eval("Диалог.Color"));
КонецПроцедуры
17 Соратник
 
26.09.07
13:23
(16) ... спасибо, только похоже это нарушение авторских прав... а я то наивный думал, что это стандартный виндовый АктивИкс, входящий в дистрибутив винды...
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.