// Глобальный модуль (Код для 1С 7.7)

Перем GW Экспорт;

Процедура ПриНачалеРаботыСистемы()
        
        имяф = КаталогИБ()+"DLL\GetWeight.dll";

        Если ФС.СуществуетФайл(имяф) = 0 
        Тогда
          Сообщить("Не найден файл внешней компоненты " + имяф);
        КонецЕсли;      
        
        Если ЗагрузитьВнешнююКомпоненту(имяф) = 0 
        Тогда
          Сообщить("Ошибка при загрузке внешней компоненты " + имяф);
        КонецЕсли;      

        Попытка
          GW = СоздатьОбъект("AddIn.GetWeight");
        Исключение
          Сообщить("Не удается создать объект AddIn.GetWeight");
          Сообщить("Зайдите в Windows под правами локального администратора и повторите попытку.");                
        КонецПопытки;
        
КонецПроцедуры

////////////////////////////////////////////////////////////////////////////////////////////////////

// При нажатии на кнопку

Процедура ф_ПолучитьВес()  
        
        зн = GW.ПолучитьВес("Замер тары", "HostName", 1901, 300);

        // Первый параметр :
        // Заголовок окна с текущим весом
        // если заголовок равен "" (пустоте), то вес сразу передаётся в 1С без окна 
        // взвешивания, как только будет установлена связь по ТСР с сервером GetWeightSrv

        // Второй параметр :
        // Имя или IP адрес компьютера на котором установлен сервер GetWeightSrv
        // (настройку сервер GetWeightSrv читайте GetWeightSrv.txt)
        
        // Третий параметр :
        // TCP порт для соединения который открыл сервер GetWeightSrv
        // (настройку сервер GetWeightSrv читайте GetWeightSrv.txt)

        // Четвертый параметр :
        // Минимальный вес на весах в килограммах, при котором оператор может принять его в 1С
        // (вес на весовой платформе должен быть больше или равен этому параметру)
        // (компонента не может передавать отрицательный вес)
        // (если параметр будет отрицательным, то он автоматически становится равным нулю)
        
        Сообщить("Функция вернула значение: " + зн);

        // Функция возвращает числовое значение с окном взвешивания:
        // -1 - в окне взвешивания была нажата кнопка "Отмена"
        // -2 - Ошибка создания TCP клиента для установки соединения с сервером GetWeightSrv. 
        // Либо функция вернёт текущий вес на весах
        // (вес должен быть больше или равен четвёртому параметру)

        // Функция возвращает числовое значение без окном взвешивания:
        // -2 - Ошибка создания TCP клиента для установки соединения с сервером GetWeightSrv. 
        // -3 - Не возможно установить соединение с сервером GetWeightSrv. 
        // -4 - Нет информации от блока весов.
        // -5 - Вес не зафиксирован на платформе.
        // -6 - Сервер прислал не читаемую посылку с данными о весе.
        // -7 - Вес на платформе меньше четвёртого параметру.
        // Либо функция вернёт текущий вес на весах


        // ВАЖНО: дата на компьютере где установлен сервер GetWeightSrv 
        //       и дата на компьютере где запускается 1С-компонента GetWeight
        //       ДОЛЖНЫ СОВПАДАТЬ!!! 
        //       иначе это приведёт к некорректной передаче показаний веса.
        //       1С-компонента будет отображать в окне программы значение:  --,--
КонецПроцедуры