Имя: Пароль:
1C
1С v8
Подключение компоненты!
0 TwoWorld
 
20.09.11
11:40
ЗагрузитьВнешнююКомпоненту("C:\Program Files\1cv82\8.2.13.205\bin\V7PLUS.DLL");
   Инфо = Новый("AddIn.V7PLUS");
   Сообщить("Компонента  загружена");
Исключение
   Сообщить("Компонента  не загружена");
КонецПопытки;

почему не загружает?
1 andrewks
 
20.09.11
11:41
окренеть....
2 Grusswelle
 
20.09.11
11:41
(0) В системе зарегистрирована?
3 TwoWorld
 
20.09.11
11:42
нет не зарегистрирована
4 TwoWorld
 
20.09.11
11:45
зарегистрировал
5 TwoWorld
 
20.09.11
11:45
тоже самое не находит
6 YF
 
20.09.11
11:46
(0) А почему должна загружать?
7 DmitrO
 
20.09.11
11:48
(6) а почему не должна?
гораздо интереснее ответ на другой вопрос: зачем вообще ее загружать?
8 YF
 
20.09.11
11:49
(7) компонента ведь под 7.7 писалась, почему в 8.2 должна грузиться?
9 andrewks
 
20.09.11
11:49
(6)+1
(7)+100
10 Капитан Смоллет
 
20.09.11
11:51
(8) Ты всё испортил...
11 TwoWorld
 
20.09.11
11:51
(7) ответ. в 7 автоматически грузу обновления : вот часть кода:
Функция УстановитьКомпоненту()
   Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtForms\v7plus.dll")=0 Тогда
       Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда
           Сообщить("Не удалось обнаружить компоненту V7Plus.dll!");
           Возврат 0;
       КонецЕсли;
   КонецЕсли;
   Попытка
       Соединение = СоздатьОбъект("Addin.V7HttpReader");
       Инфо = СоздатьОбъект("AddIn.V7SysInfo");
       Соединение.КоличествоПопытокАвторизации = 3;
   Исключение
       Сообщить("Не удалось создать объекты Addin.V7HttpReader или AddIn.V7SysInfo!");
       Возврат 0;
   КонецПопытки;
   Возврат 1;
КонецФункции  // УстановитьКомпоненту


//_____________________________________________________________________________
Функция ПолучитьКлюч()
   
   
   
   // проверка наличия диска ИТС
   Делт = КодСимв("Z")-КодСимв("A")+1;
   СтрокаИТС = Инфо.ПроверитьИмяФайла("1");
   Если ПустоеЗначение(СтрокаИТС)=1 Тогда
       Сообщить("Вставьте диск ИТС в дисковод и повторите операцию.");
       Возврат 0;
   КонецЕсли;
   
   ИТС = (КодСимв(Сред(СтрокаИТС,2,1)) + Делт-КодСимв(Лев(СтрокаИТС,1))) % Делт;  
   
   попытка
       Соединение.ПолучитьКакСтроку(Адрес+"auth.jsp?"+"its="+ИТС,АдресКлюча);
   исключение  
       Сообщить("Не удалось получить АдресКлюча из интернета!");
       Возврат 0;
   конецпопытки;
   
   Если СокрЛП(АдресКлюча)="" Тогда
       Сообщить("Доступ закрыт!");
       Возврат 0;
   КонецЕсли;
   
   Ключ = Инфо.ПроверитьИмяФайла(АдресКлюча);

   
   
   Возврат 1;

КонецФункции //ПолучитьКлюч  



Теперь мне нужно под 8 это адаптировать
12 DmitrO
 
20.09.11
11:52
ну как, "анонимные" источники в 1С указывают в документации что компоненты по технологии COM совместимы для 77 и для 8.x
13 andrewks
 
20.09.11
11:54
(12) так-то оно так... но, имхо, не всё так просто.
хотя, не пробовал
14 Tatitutu
 
20.09.11
11:55
15 DmitrO
 
20.09.11
11:55
(11) опа, а вот и ответ на вопрос..
законное, черт побери, желание..
Надо разбираться, и если не получится требовать от 1С чтобы заработало!
16 H A D G E H O G s
 
20.09.11
11:59
(12) Деанонимированные источники - то бишь я - тоже утверждают, что в v7plus.dll может выполняться код 7.7 и создаваться объекты 7.7, которые несколько отличаются от объектов 8.0.

КЭП?
17 H A D G E H O G s
 
20.09.11
11:59
Например, 8.x не знает функцию CreateObject(), а юзает NewObject.
18 TwoWorld
 
20.09.11
12:01
(16)  ладно,спасибо,оставлю я эту всю затею лучше.......
19 verba
 
20.09.11
13:21
ЗагрузитьВнешнююКомпоненту(<ИмяФайла>)
Параметры:

<ИмяФайла> (обязательный)

Тип: Строка. Имя файла внешней компоненты.

Не путь, а имя компоненты.
20 verba
 
20.09.11
13:22
Попытка
   ЗагрузитьВнешнююКомпоненту("scanopos.dll");
   Сообщить("Компонента scanopos загружена");
Исключение
   Сообщить("Компонента scanopos не найдена!", СтатусСообщения.Внимание);
КонецПопытки
Вообще это из СП.