Всем привет.
Вопрос автору:
Пытаюсь перевести в УФ вашу обработку, с установкой и подключением разобрался. Когда дело доходит до выполнение команд dll типа ".Иденитификатор", то тонкий клиент зависает и ничего не происходит.
Вот код под 8.3.7.1776
&НаКлиенте
Перем АдресАрхиваКомпонента;
&НаКлиенте
Перем Компонент;
&НаКлиенте
Процедура ПриОткрытии(Отказ)
// адрес, содержит строку (навигационную ссылку на двоичные данные zip архива во
// временном хранилище)
АдресАрхиваКомпонента = ПолучитьАдресАрхиваВоВременномХранилище();
УстановитьКомпонент();
КонецПроцедуры // ПриОткрытии()
&НаСервере
// методы ПодключитьВнешнююКомпоненту,УстановитьВнешнююКомпоненту, могут принимать в
// качестве первого параметра строку в формате "навигационная ссылка"
// (URL к внешней компоненте, упакованной в ZIP-архив, в формате, аналогичном
// ПолучитьНавигационнуюСсылку).
Функция ПолучитьАдресАрхиваВоВременномХранилище()
//ОбъектОбработки = РеквизитФормыВЗначение("ОбработкаОбъект");
СсылкаНаАрхив = ПоместитьВоВременноеХранилище(ПолучитьОбщийМакет("Макет"),
Новый УникальныйИдентификатор);
Возврат СсылкаНаАрхив;
КонецФункции // ПолучитьАдресАрхиваВоВременномХранилище()
&НаКлиенте
// Процедура должна вызываться лишь один раз, в случае, если компонент еще не установлен
// или нуждается в обновлении
Процедура УстановитьКомпонент()
УстановитьВнешнююКомпоненту(АдресАрхиваКомпонента);
КонецПроцедуры // УстановитьКомпонент()
&НаКлиенте
// основная процедура инициализации комопнента
Процедура Инициализаровать()
Сообщить( АдресАрхиваКомпонента);
НачатьПодключениеВнешнейКомпоненты(Новый ОписаниеОповещения("ИнициализароватьЗавершение", ЭтотОбъект), "D:\1сBases\1c8\ClientDesk\DLL\TTCPServer.dll", "TTCPServer", ТипВнешнейКомпоненты.COM);
КонецПроцедуры
&НаКлиенте
Процедура ИнициализароватьЗавершение(Подключено, ДополнительныеПараметры) Экспорт
Сообщить(Подключено);
КонецПроцедуры
&НаКлиенте
Процедура Декорация1Нажатие(Элемент)
Инициализаровать();
КонецПроцедуры
&НаКлиенте
Процедура Декорация2Нажатие(Элемент)
Попытка
Компонент = Новый ("AddIn.TTCPServer.TTCPServer");
Сообщить(Компонент);
Исключение
Сообщить("Нет");
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура Декорация3Нажатие(Элемент)
Попытка
Если Не Компонент.Включено Тогда
Компонент.Порт=36666;
КонецЕсли;
Если НЕ Компонент.Открыть() Тогда
Сообщить(Компонент.ОписаниеОшибки);
КонецЕсли;
Исключение
//Иначе
// Сообщить("Соединение открыто. Закройте и попробуйте еще раз");
//КонецЕсли;
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
Показать
