Обработка данных с COM-порта, сканер Z2-USB

@Remulka · Регистрация: 03.06.2014

Студворк — интернет-сервис помощи студентам

Коллеги, 2 вопроса по теме:
1.Почему просто не читать данные с com-порта? (я пытаюсь сейчас именно этот вариант)
2.Можете подсказать последовательность действий при работе с DLL

Если не жалко, для меня вопрос актуален. Спасибо.

@chapka · 03.06.2014, 11:57

1. На текущий момента именно так и реализовал, но перечень команд очень скудный
2. Пока не имею опыта работы с данной библиотекой. Вчера только удачно скомпилировал проект с подключенными библиотеками, но тесты еще не проводил

@Remulka · 03.06.2014, 13:00 **[ТС]**

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

@chapka · 03.06.2014, 13:58

Данные не всегда бывают читабельными. Скинь мануал на оборудование.

@Remulka · 03.06.2014, 14:28 **[ТС]**

Я данные получаю, но в 16ричном формате, читаю по байтам, не могу теперь в нормальный вид привести, сканер Z2-USB

@chapka · 03.06.2014, 14:46

1 байт = 1 символ.
что отдает тебе устройство можно спокойно посмотреть в гипертерминале.
У сканера всего две команды. i и r. На остальные у меня не ответил

@Remulka · 03.06.2014, 18:23 **[ТС]**

Прошу прощения за ламерство, как байт этот перевести в символ ?

@chapka · 03.06.2014, 23:21

У меня это реализовано так
Есть массив который заполняется в потоке чтения
unsigned char bufrd[BUFSIZE]
И есть строковая переменная
AnsiString Answer; // Полученная команда
Answer = (char*)bufrd;

Вот статья очень похожа на описание того метода что я использую http://piclist.ru/S-COM-THREAD... D-RUS.html

@Remulka · 04.06.2014, 08:27 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim arrBuffer(1024) As Byte
        Dim intSize As Integer
        Dim ss As String
        While port.BytesToRead() > 0
            intSize = port.Read(arrBuffer, 0, 1024)
 
       End While
       For i = 0 To 20
            ss += Chr(arrBuffer(i))
        Next
        TextBox1.Text = ss

А возвращает "f˜жћж†ж˜ћfд†ћfћћfа"

@chapka · 04.06.2014, 12:19

проверь настройки подключения

@Remulka · 04.06.2014, 12:22 **[ТС]**

Visual Basic
1
Dim WithEvents port As SerialPort = New System.IO.Ports.SerialPort("COM3", 19200, Parity.None, 8, StopBits.One)

@chapka · 04.06.2014, 12:23

C++
1
2
3
4
dcb.BaudRate=9600;
dcb.ByteSize=8; // кол-во бит в байте
dcb.Parity=0; // проверка четности
dcb.StopBits=0; // кол-во стоп-бит

Добавлено через 54 секунды
У тебя скорость другая. На терминале проверял?

@Remulka · 04.06.2014, 12:24 **[ТС]**

Тоже ахиенея

, спасибо за идейку, домой приду проверю.

@sokol_pet · 27.08.2014, 13:16

Remulka, тоже использую Z-2. Не подскажете, как открыть "считыватель" (функция ZR_Rd_Open).

У меня почему-то она постоянно записывает в переменную nRet отрицательное значение (-2147220989).

Буду благодарен за пример.

@sokol_pet · 27.08.2014, 13:48

Всё, проблема решилась. Дело было в драйверах.

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@Remulka 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 8

	Обработка данных с COM-порта, сканер Z2-USB 03.06.2014, 11:41. Показов 2727. Ответов 14 Метки нет (Все метки) Коллеги, 2 вопроса по теме: 1.Почему просто не читать данные с com-порта? (я пытаюсь сейчас именно этот вариант) 2.Можете подсказать последовательность действий при работе с DLL Если не жалко, для меня вопрос актуален. Спасибо. 0

@chapka 11 / 11 / 5 Регистрация: 20.02.2013 Сообщений: 36
	03.06.2014, 11:57
	1. На текущий момента именно так и реализовал, но перечень команд очень скудный 2. Пока не имею опыта работы с данной библиотекой. Вчера только удачно скомпилировал проект с подключенными библиотеками, но тесты еще не проводил 0

@Remulka 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 8
	03.06.2014, 13:00 [ТС]
	chapka Можете пример с COM портом показать, я данные то получаю, но вот не могу их в читабельный вид привести. 0

@chapka 11 / 11 / 5 Регистрация: 20.02.2013 Сообщений: 36
	03.06.2014, 13:58
	Данные не всегда бывают читабельными. Скинь мануал на оборудование. 0

@Remulka 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 8
	03.06.2014, 14:28 [ТС]
	Я данные получаю, но в 16ричном формате, читаю по байтам, не могу теперь в нормальный вид привести, сканер Z2-USB 0

@chapka 11 / 11 / 5 Регистрация: 20.02.2013 Сообщений: 36
	03.06.2014, 14:46
	1 байт = 1 символ. что отдает тебе устройство можно спокойно посмотреть в гипертерминале. У сканера всего две команды. i и r. На остальные у меня не ответил 0

@Remulka 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 8
	03.06.2014, 18:23 [ТС]
	Прошу прощения за ламерство, как байт этот перевести в символ ? 0

@chapka 11 / 11 / 5 Регистрация: 20.02.2013 Сообщений: 36
	03.06.2014, 23:21
	У меня это реализовано так Есть массив который заполняется в потоке чтения unsigned char bufrd[BUFSIZE] И есть строковая переменная AnsiString Answer; // Полученная команда Answer = (char*)bufrd; Вот статья очень похожа на описание того метода что я использую http://piclist.ru/S-COM-THREAD... D-RUS.html 0

@chapka 11 / 11 / 5 Регистрация: 20.02.2013 Сообщений: 36
	04.06.2014, 12:19
	проверь настройки подключения 1

@Remulka 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 8
	04.06.2014, 12:24 [ТС]
	Тоже ахиенея , спасибо за идейку, домой приду проверю. 0

@sokol_pet 0 / 0 / 0 Регистрация: 15.02.2011 Сообщений: 6
	27.08.2014, 13:16
	Remulka, тоже использую Z-2. Не подскажете, как открыть "считыватель" (функция ZR_Rd_Open). У меня почему-то она постоянно записывает в переменную nRet отрицательное значение (-2147220989). Буду благодарен за пример. Изображения 0

@sokol_pet 0 / 0 / 0 Регистрация: 15.02.2011 Сообщений: 6
	27.08.2014, 13:48
	Всё, проблема решилась. Дело было в драйверах. 0