v7: Подключение весов к 1С

1C 7.7

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