[kosalex]

Добрый день. Помогите разобраться, есть ж/д весовая подключенная через COM порт. Пишу в 1С вот так,

Процедура ИнициализацияСОМПорта()
    ComPort = Новый COMОбъект("MsCommLib.MsComm");    
    Попытка
        ComPort.CommPort        = 1;
        ComPort.Settings        = "9600,N,8,1";
        ComPort.Handshaking     = 0;
        ComPort.InBufferCount   = 0;
        ComPort.InBufferSize    = 70;
        ComPort.InputLen        = 0;
        ComPort.InputMode       = 1;
        ComPort.NullDiscard     = 0;
        ComPort.PortOpen = Истина;
        ЭлементыФормы.НадписьСвязь.Заголовок = "Связь есть..."
    Исключение
        Сообщить("Не возможно открыть порт.",СтатусСообщения.ОченьВажное);
    КонецПопытки;
КонецПроцедуры

Процедура ЧтениеСОМПорта() Экспорт
    ДанныеСПорта = "";
    Если ComPort.PortOpen Тогда
        ComPort.Output = "1";
        ДанныеСПорта = ComPort.Input;
        ВывестиВес(ДанныеСПорта);
    Иначе
        Сообщить("Порт не открывается",СтатусСообщения.ОченьВажное);
        ЭлементыФормы.НадписьСвязь.Заголовок = "Связи нет..."
    КонецЕсли;
    
КонецПроцедуры

Процедура ВывестиВес(ДанныеСПорта)
    Массив = ДанныеСПорта.Выгрузить();
    ИндексМин = ДанныеСПорта.GetLowerBound(0);
    ИндексМакс = ДанныеСПорта.GetUpperBound(0);
    СтрокаВес = "";
    Для Индекс = ИндексМин + 1 По ИндексМакс - 1 Цикл
        СтрокаВес = СтрокаВес + Строка(Массив.Получить(Индекс));
    КонецЦикла;
    
    ТекущийВес = СтрокаВес;
    
    ЭлементыФормы.ВесБрутто.Заголовок = ТекущийВес;
    ЭлементыФормы.ВесНетто.Заголовок = ТекущийВес;
    ЭлементыФормы.ВесТара.Заголовок = ТекущийВес;
    
КонецПроцедуры

В "ДанныеСПорта" попадает ComSafeArray 36484848484848...64, может я как то не так получаю вес, что делать с этим массивом? Может как то преобразовать нужно?

Очень нужна ПОМОЩЬ!

[logist]

Здесь http://pro1c.org.ua/index.php?showtopic=18276 стало скучно?