VPF::ВК для работы с COM Портом 1С 7.7 - Форум программистов

SaschaL

Дата 8.10.2009, 10:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9

Добрый день!
Не подскажите нет ли в природе Внешней компоненты прикрутив , которую можно было бы получать данные с устройств подключенных к COM порту. В частности мне нужно под 1С 7.7.
Если кто что знает может поделиться ссылкой по данной теме

AkelaSQL

Дата 8.10.2009, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7

Компонент полно. Всё зависит от того, какое оборудование Вы хотите повесить на ком-порт.

--------------------

SaschaL

Дата 8.10.2009, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

На COM порту намерен повесить датчик проксимити карт, для пропускной системы

AkelaSQL

Дата 8.10.2009, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7

Есть dll для чтения на ком-порту контроллера проксими карт фирмы кодос

--------------------

Zero

Дата 8.10.2009, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24

Если тебе известна структура данных считывателя, то ты можешь обойтись без драйвера и напрямую данные Соm-порта принимать в 1с и обрабатывать. Вот пример каким образом данные принимаются и оцифровываются с автовесов "Лахта". Голова весов подключена к порту Com1, настройка: Скорость 600 б/с. Переменная "СтрВес" после окончания цикла передают данные о весе в для дальнейшей обработки.

Код


fso = CreateObject("Scripting.FileSystemObject");
ff=fso.OpenTextFile("AUX:",1,0);
Пока 1=1 Цикл
  а = ff.read(1);
  Хекс=Строка(КодСимв(а));
  СтрВес="";
  Если Число(Хекс)=165 Тогда
    Для к=1 по 6 Цикл
      а = ff.read(1);
      Хекс=Строка(КодСимв(а));
      Если СокрЛП(Хекс)="238" Тогда
        Дес="0";
      ИначеЕсли СокрЛП(Хекс)="34" Тогда
        Дес="1";
      ИначеЕсли СокрЛП(Хекс)="165" Тогда
        Дес=" ";
      ИначеЕсли СокрЛП(Хекс)="199" Тогда
        Дес="2";
      ИначеЕсли СокрЛП(Хекс)="103" Тогда
        Дес="3";
      ИначеЕсли СокрЛП(Хекс)="43" Тогда
        Дес="4";
      ИначеЕсли СокрЛП(Хекс)="109" Тогда
        Дес="5";
      ИначеЕсли СокрЛП(Хекс)="237" Тогда
        Дес="6";
      ИначеЕсли СокрЛП(Хекс)="38" Тогда
        Дес="7";
      ИначеЕсли СокрЛП(Хекс)="239" Тогда
        Дес="8";
      ИначеЕсли СокрЛП(Хекс)="111" Тогда
        Дес="9";
      ИначеЕсли СокрЛП(Хекс)="81" Тогда
        Дес="-";
      КонецЕсли;
      СтрВес=СтрВес+Дес;
    КонецЦикла
  Иначе
    Продолжить
  КонецЕсли;
  Прервать;
КонецЦикла;

Это сообщение отредактировал(а) Zero - 8.10.2009, 20:10

Sibit

Дата 9.10.2009, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 96
Регистрация: 6.10.2009
Где: NSK

Репутация: нет
Всего: 1

Можно попробовать использовать библиотеку для сканера штрихкода и по аналогии штатной компоненты сделать обработку для вашего устройства. Работает все оч просто - когда появляются данные они передаются в обработчик события. Обратной связи с устройством нет. Сам когда-то такое делал с весами, когда выяснилось, что штатная библиотека весов работает совсем никак.

SaschaL

Дата 12.10.2009, 05:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Спасибо за ответы буду пробовать получить данные с устройства, хотя если честно то структура файла в точности неизвестна, знаю лишь несколько блоков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »