rawlik писал(а) 18. Марта 2009 :: 15:03:


ПолучитьТаблицуЗагруженныхВК

Я в 1С++ для этого и добавлял метод ПолучитьТаблицуЗагруженныхВК

Не совсем простейший... Но зато надежный :) Просто проверяйте переменную глСервис на неравность 0. Иначе используйте ее по назначению (а зачем тогда эта компонента нужна?). А в глобальном модуле

[font=Courier New]
Перем глСервис Экспорт;

Функция ПодключитьКомпоненту()
     Если ТипЗначения(глСервис) = 0 Тогда
           СписокПутей = СоздатьОбъект("СписокЗначений");
           СписокПутей.ДобавитьЗначение(КаталогПрограммы() + "FormEx.dll");
           СписокПутей.ДобавитьЗначение(КаталогИБ() + "FormEx.dll");
           СписокПутей.ДобавитьЗначение(КаталогИБ() + "ExtForms\FormEx.dll");
           Для Сч = 1 По СписокПутей.РазмерСписка() Цикл
                 ИмяФайла = СписокПутей.ПолучитьЗначение(Сч);
                 Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
                       Попытка
                             Если ЗагрузитьВнешнююКомпоненту(ИмяФайла) = 1 Тогда
                                   глСервис = СоздатьОбъект("Сервис");
                             ИначеЕсли ПодключитьВнешнююКомпоненту(ИмяФайла) = 1 Тогда
                                   глСервис = СоздатьОбъект("Сервис");
                             ИначеЕсли глСервис <> 0 Тогда
                                   Сообщить("Внимание! Невозможно загрузить компоненту " + ИмяФайла + "!" +
                                     РазделительСтрок + "Срочно обратитесь к разработчику Вашей конфигурации!", "!!");
                                   глСервис = 0;
                             КонецЕсли;
                       Исключение
                             глСервис = 0;
                             Сообщить("Внимание! Невозможно загрузить компоненту " + ИмяФайла + "!" +
                                   РазделительСтрок + "Срочно обратитесь к разработчику Вашей конфигурации!", "!!");
                       КонецПопытки;
                       Прервать;
                 КонецЕсли;
           КонецЦикла;
           Если ТипЗначения(глСервис) = 0 Тогда
                 глСервис = 0;
                 Если Вопрос("Внимание! Не подключена компонента FormEx! Некоторые действия недоступны!" +
                       РазделительСтрок + "Срочно обратитесь к разработчику Вашей конфигурации! Продолжить?", "Да+Нет") = "Нет" Тогда
                       глСервис = -1;
                 КонцеЕсли;
           КонецЕсли;
     КонецЕсли;
     Возврат глСервис;
КонецФункции;




Процедура ПриНачалеРаботыСистемы()
     Если ПодключитьСистему() = -1 Тогда
           ЗавершитьРаботуСистемы(0);
           Возврат;
     КонецЕсли;
..........
[/font]

П.С. Спасибо Алексу за компоненту. У меня много полезного кода, связанного с ней, обращайтесь.. :)

1. Хм... У меня, конечно, много неоднозначностей... Но интересно, где же это здесь? Здесь логика проста, как тапок.
Просто в терминале винды есть особенность, компонента ИНОГДА НЕ ЗАГРУЖАЕТСЯ С ПЕРВОГО РАЗА, более того, для этого приходится использовать аж две функции (см. код). В баг не вникал, просто забыл об этой функции, когда все заработало.
2. Ну, если содержимое функции глФормЭксЗагружена() будет равно ли глСервис нулю, пускай, сам принцип состоит в том, загрузилась ли компонента при запуске, и если не загрузилась, можно повторить вызов ПодключитьКомпоненту (например, по параметру в ней же). Просто не вижу смысла нагружать ГМ лишними функциями, он этого не любит, несмотря на модульность 1С. Спасибо за внимание.
3. Извините, что использовал конструкцию Попытка Исключение, но это ведь только при запуске....

Ну ладно, все, больше не буду надоедать. Много функций действительно вредит, проверено годами, просто инстинктивно стараюсь этого избегать. Тогда уж по методологии 1С (один метод на чтение и на запись):


Перем глСервис Экспорт;

Функция глВКФормЭксЗагружена(ЗагрузитьНаВсякийСлучай = 0)
     Если (ЗагрузитьНаВсякийСлучай = 1) и (ТипЗначения(глСервис) = 0) Тогда
           СписокПутей = СоздатьОбъект("СписокЗначений");
           СписокПутей.ДобавитьЗначение(КаталогПрограммы() + "FormEx.dll");
           СписокПутей.ДобавитьЗначение(КаталогИБ() + "FormEx.dll");
           СписокПутей.ДобавитьЗначение(КаталогИБ() + "ExtForms\FormEx.dll");
           Для Сч = 1 По СписокПутей.РазмерСписка() Цикл
                 ИмяФайла = СписокПутей.ПолучитьЗначение(Сч);
                 Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
                       Попытка
                             Если ЗагрузитьВнешнююКомпоненту(ИмяФайла) = 1 Тогда
                                   глСервис = СоздатьОбъект("Сервис");
                             ИначеЕсли ПодключитьВнешнююКомпоненту(ИмяФайла) = 1 Тогда
                                   глСервис = СоздатьОбъект("Сервис");
                             ИначеЕсли глСервис <> 0 Тогда
                                   Сообщить("Внимание! Невозможно загрузить компоненту " + ИмяФайла + "!" +
                                         РазделительСтрок + "Срочно обратитесь к разработчику Вашей конфигурации!", "!!");
                                   глСервис = 0;
                             КонецЕсли;
                       Исключение
                             глСервис = 0;
                             Сообщить("Внимание! Невозможно загрузить компоненту " + ИмяФайла + "!" +
                                   РазделительСтрок + "Срочно обратитесь к разработчику Вашей конфигурации!", "!!");
                       КонецПопытки;
                       Прервать;
                 КонецЕсли;
           КонецЦикла;
     КонецЕсли;
     Возврат ?(ТипЗначения(глСервис) = 0, 0, 1);
КонецФункции;


Процедура ПриНачалеРаботыСистемы()
     Если глВКФормЭксЗагружена(1) = 0 Тогда
           Если Вопрос("Внимание! Не подключена компонента FormEx! Некоторые действия недоступны!" +
                 РазделительСтрок + "Срочно обратитесь к разработчику Вашей конфигурации! Продолжить?", "Да+Нет") = "Нет" Тогда
                 ЗавершитьРаботуСистемы(0);
                 Возврат;
           КонецЕсли;
     КонецЕсли;
..........



Так лучше?..

P. S. Не использовал пока 1С++ в работе, нет возможности, да и на 8-ку уже перехожу, там все по-другому.. Можете закрывать ветку. 

Печально, конечно, уважаемый, что такой код для вас является сложным... В действительности, я работаю не с одним клиентом и приходится учитывать все недоделки, которые оставили в наследство программисты 1С из Москвы. А еще с удовольствием упростил бы сотни конструкций, ими написанных, видать, в спешном порыве, которые больше напоминают не бритву Оккама, а скорее, сапог Шварца... Специально для вас тогда, я думаю, сойдет вот такая конструкция.


Перем глПеремВКФормЭксЗагружена Экспорт;

Функция глВКФормЭксЗагружена()
     Возврат глПеремВКФормЭксЗагружена;
КонецФункции;

Процедура ПриНачалеРаботыСистемы()
     глПеремВКФормЭксЗагружена = ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "FormEx.dll");
..........


Хотите больше возможностей - усложняйте код. Это же 1С!

П.С. Знаете, настоящий программист должен быть поэтом, ведь это самая что ни на есть творческая профессия...