marku
Марк  Козлов

&НаКлиенте
Процедура Подключитьvk_rs232(Команда)
    
    Попытка
        
        ПодключитьВК = ПодключитьВнешнююКомпоненту("C:\vk_rs232\vk_rs232.dll", "AAA", AddInType.COM);    
        //ПодключитьВК = ПодключитьВнешнююКомпоненту("rs232.dll", "AAA", ТипВнешнейКомпоненты.Native);    
        
    Исключение
        Сообщить("1. "+ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    ПортОткрыт = Ложь;
    
    Если ПодключитьВК Тогда
        КОМПорт = Новый ("AddIn.AAA.vk_rs232");
          
        Попытка
            КОМПорт.OpenPort("COM2");        
            Сообщить("2. "+"Порт открыт!");
            
            ПортОткрыт = Истина;
        Исключение
            Сообщить("2. "+ОписаниеОшибки());
        КонецПопытки;  
    Иначе
        Сообщить("2. ВК не подключилась");
        
    КонецЕсли;
    
    МенеджерОборудованияКлиент.Пауза(5);
    
    Если ПортОткрыт Тогда
        //Возврат;
        Попытка
            КОМПорт.ClosePort();
            Сообщить("Порт закрыт!");
            
        Исключение
            Сообщить("3. "+ОписаниеОшибки());
        КонецПопытки;        
    КонецЕсли;
    
    КОМПорт=Неопределено;
    ПодключитьВК=Неопределено;
    
КонецПроцедуры