|   |   | 
| 
 | v7: Подключение весов к 1С | ☑ | ||
|---|---|---|---|---|
| 0
    
        KrutoyDron 26.12.12✎ 13:28 | 
        Здравствуйте. Хочу подключить весы к 1С использую MSCOMM32.OCX. все бы нормально но не все. С помощью одной проги узнал что весы отправляют в середине строки символ #0 и 1С распознает его как конец строки. К примеру "вес # 30 kg", "вес" получаю а "30 kg" нет. как решить проблему помогите.     | |||
| 1
    
        defini 26.12.12✎ 13:50 | 
        (0) А СтрЗаменить() не?     | |||
| 2
    
        KrutoyDron 26.12.12✎ 14:12 | 
        (1) нет
  делаю так Сообщить(СтрЗаменить(Драйвер.Input, Симв(0),"D")); | |||
| 3
    
        defini 26.12.12✎ 14:53 | 
        А если так:
  Стр = СокрЛП(Драйвер.Input); Сообщить(СтрЗаменить(Стр, Симв(0),"D")); | |||
| 4
    
        KrutoyDron 26.12.12✎ 15:23 | 
        (3) тоже нет     | |||
| 5
    
        KrutoyDron 26.12.12✎ 15:34 | 
        Процедура ПриОткрытии()
  Попытка Драйвер=СоздатьОбъект("MSCOMMLib.MSComm.1"); Исключение Предупреждение("Не могу создать объект"); Возврат; КонецПопытки; Драйвер.CommPort = 2; Драйвер.Settings = "9600,N,8,1"; Попытка Драйвер.PortOpen=1; Исключение Предупреждение("Не могу открыть порт"); Возврат; КонецПопытки; Если Драйвер.PortOpen=0 Тогда Предупреждение("Не открыт порт"); Возврат; КонецЕсли; Сообщить("Создан объект "+Драйвер+" и включен"); КонецПроцедуры //******************************************* Процедура ПриЗакрытии() Драйвер.PortOpen=0; Драйвер=0; КонецПроцедуры | |||
| 6
    
        Lionee 26.12.12✎ 16:42 | 
        а что за весы ?     | |||
| 7
    
        Torquader 26.12.12✎ 19:43 | 
        Предлагается использовать MSScriptControl, где вставить код на VbScript, передающий, что нужно, и анализирующий, как нужно.
  А этот код уже вызывать через команду Run, от MsScriptControl. Также можно написать OLE-объект через Windows Script Component, который возвращает нужное число или код ошибки, а все танцы с весами будут вообще далеко от 1С. | |||
| 8
    
        KrutoyDron 26.12.12✎ 23:12 | 
        (6) cas nt-570a     | |||
| 9
    
        Ganiev 27.12.12✎ 09:15 | 
        Стр = СокрЛП(Драйвер.Input);
  Код1 = КодСимв("#"); Код2 = КодСимв("0"); СтрЗаменить(Стр,Симв(Код1),"D"); СтрЗаменить(Стр,Симв(Код2),"D"); Сообщить(Стр); | |||
| 10
    
        KrutoyDron 27.12.12✎ 09:27 | 
        (9) Код символа я как раз знаю это "0" в 1С или #0 в системах типа дэлфи и т.д или 00 как HEX     | |||
| 11
    
        Ganiev 27.12.12✎ 09:39 | 
        Если не ошибаюсь то 1с распознает #0 как 2 символа # и 0 !     | |||
| 12
    
        timax 27.12.12✎ 09:44 | 
        Читай руководство к весам. Обычно в самой железке куча настроек в т.ч. по формату сообщения. Работал с весам AND и Vibra.     | |||
| 13
    
        KrutoyDron 27.12.12✎ 09:53 | 
        народ вот руководство но на энглише кто может разобратся
  http://www.cas-polska.com.pl/zalacznik.php?id=321&element=335 | |||
| 14
    
        KrutoyDron 27.12.12✎ 09:58 | 
        есть у кого-нибудь хотябы похожее на русском     | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |