COM-порт открыт при помощи оператора Open как файл.
Задача: получать с него периодически появляющиеся данные. 

Можно, конечно, непрерывно проверять его: пришли данные, или нет. Но это грубое решение. Хочется использовать событие от COM-порта. Можно ли это сделать без использования контрола?

В указанных условиях - однозначно нет.

я запускал в отдельном потоке именно циклическое чтение, предварительно настроив таймаут чтения. т.е. второй поток висит скажем 1 ms потом смотрит - не вывешен ли флаг завершитсья , складывает полученные полученные данные и снова в цикл чтения. Таймаут даже нафиг не нужен кроме того, что иначе процессор будет вешаться...

Не совсем красиво, но я почему-то не смог подсунуть ссылку на метод заданного объекта вместо указателя на функцию асинхронного вызова (или как там оно называется...)... потому пришлось извращатсья с потоками, ибо организовывать отдельную "висячую функцию" посреди набора объектов - это имхо сродни извращению...

Я понимаю, что извращение. Просто еще файл контрола тянуть с собой не хочется ужасно.
Думал, мож с API что-нить подходящее можно наворотить.

Люди а как вообще работать с COM портом?  

Берем описание драйвера IOPort и читаем до полного просветления

  
А где его отрыть?    

Отбросить предубеждения и использовать поиск по Инету. Гугль дает нужную ссылку уже на первой странице.

 Акин, это ты перепутал машинныи порт c асинхронным, или я чо-то пропустил?

А с СОМ-портом, пардон, с использованием IRQ, а не поллинга, ты как собираешься мимо портов ввода-вывода работать? использование IOPort просто избавляет от необходимости писАть собственный драйвер ядра.

Это, в общем "нелегальный" путь. Например в XP обращение к железу не весьма приветствуется.
Как мне показалось, GorbunovDiman спрашивал про штатные бейсиковские способы работы с COM.

Гм... мне это утверждение кажется сомнительным.

да что вы все прицепились к этому ioPORTS?
мы народ плечистый - нам работать с контроллером напрямую - раз плюнуть.. да?

подыму в обсуждение тему работы с COM-портами через файлы.
в отношении QB не скажу что и как, но если заинтересует C++ исходник - что бы по аналогии разобраться - примеры есть и много. могу и свои исходники дать.


а я не соглашусь.  "нелегальный" путь - это мягко сказано... это настоящее "варварство". Причем не приветствуется оно нигде. ни в windows ни в linux.
Непосредственно "железом" такого рода должны заниматься драйвера или система. 
и я молчу об относительной сложности работы с контроллером "напрямую" по сравнению с работой с файлами.




Это сообщение отредактировал(а) Denjs - 13.3.2008, 23:39

Akina
Не знаю именно про "IOPort", но что-то очень похожее я юзал, и в 98 всё было ОК, а под XP - фигушки  

Denjs
В VB даже по сравнению с QB по этой теме есть существенные различия, а про Си - вообще молчу.


Это сообщение отредактировал(а) JusTalionis - 13.3.2008, 23:32

гм... а в VB что? *DCB структуру на что-то другое заменили?


Это сообщение отредактировал(а) Denjs - 13.3.2008, 23:46

Random действует не так, как в QB, а при открытии COM как файл, этот режим предпочтителен. (Не знаю почему, но так в мануалах утверждают.)

Через файлы - без поллинга?   Если можно, сюда хотя бы основы исходного кода. Желательно упростить и прокомментировать, чтобы и обезьяна поняла суть происходящего...

поллингы? ааа.... поллитры?! ))
да) в начале сложно, но это удобнее чем работать с контроллером напрямую - и не засоряем систему лишними драйверами... и удобнее пользователю - никаких доп драйверов для работы программы не нужно.


куски кода - для QT4 - потому не сильно пугайтесь увидев что незнакомое...
"выдрал" не чистив от комментариев, ссылок на функции других классов и др. ... думаю сути дела это не мешает....

открываем ..
DevPath_ - имя порта.



самое геморройное - инициация DCB. Она переписывается по шаблону и правится в нужных местах.

таймауты настроены так: - операция чтения не может длится более 100 ms.

читаем

Из read вываливаемся через 100 ms (?) или раньше - если пришли данные.
Я предпочитаю крутить это в цикле в отдельном потоке и "складывать" эти данные в основной поток.
Как уже говорил - это все содержимое единого класса и мне не хотелось делать "висячие функции" вне какого-либо класса для реализации "асинхронного режима".. а так - полная эмуляция асинхронности )) за счет 2-х потоков...


пишем


Закрываем:

полный исходник тут: otpdlinks.berlios.de
там - же и сопоставление оных режимов в линуксе в обертке единого кроссплатформенного класса...
не сочтите за рекламу а будете бить - не бейте сильно )))
Буду рад услышать замечания и кАменты. 

Думаю что данные куски без особого труда копируются и переводятся/переписываются по образцу в тот язык который вам надо... думаю отражения одних и тех-же функций win-библиотек есть во всех языках...

кстати обезьяны не работают с компортами...незачем им понимать метафизическую сущность serial-device ^_^

Это сообщение отредактировал(а) Denjs - 14.3.2008, 03:12

ТО есть все-таки именно поллинг. С определенным интервалом спрашиваем, а не пришло ли там чего... 

При работе же на уровне железа поллинг не нужен - приход каждого байта генерирует аппаратное прерывание, и его обработчик занимается приемом данных и помещением их в очередь. Он же может при достижении определенного содержимого стартовать процедуры обработки принятых данных.

 ... обработчик, который мы должны реализовывать сами. ...

кстати - не совсем "спрашиваем с определнным интервалом"... скорее "возобновляем ожидание" поступления данных с определенным интервалом.
обратились в read - и повисли на 100 ms или пока не придут данные. вывалились? ничего не пришло? не надо завершаться?(смотрим флаги) - и снова в ожидание чтения.
а при поступлении данных - read() завершается сразу - не дожидаясь пока истечет таймаут. т.е. событие отлавливается практически немедленно.


____________
просмотрел ещё раз описание DCB... гы... )
господа - под линукс рабоать с компортом удобнее - там в стандартный драйвер можно подсунуть указатель на асинхронный обработчик событий от порта.... Циклическая обработка, (или "поллинг"?), во втором потоке появилась только из-за того, что но у меня "не вышло" подсунуть указатель на метод класса, как на обработчик события поступления данных - данные структуры ориентированы на функциональный стиль программирования и это не совсем удобно... 

почему-то искренне считал что DCB практически полностью эквивалентен структуре termios...  и в него можно подсунуть указатель на обработчик события поступления данных который будет вызываться при появлении новых данных на входе...
виноват, ошибся...  тут надо только 2 потока и waitForCommEvent() как я пониаю... ?
под виндоус все-таки убого )) 

извиняюсь...
Akina, ваша правда судя по всему )
но работать с ioPorts - ещё большее извращение ))



Это сообщение отредактировал(а) Denjs - 14.3.2008, 13:17

А теперь это всё на С переведите мне на ВБ  

Это сообщение отредактировал(а) Akina - 17.3.2008, 21:14

M Akina

GorbunovDiman, не надо злоупотреблять смайлами.

Поддерживаю!

Ладно , понял.

Добавлено через 4 минуты и 12 секунд
Кстати правда кто небудь переведите

ЗкоГаденеГ? &_$

 Экий ты меркантильный. Не вздумай у мя чо-нить спросить - тоже тугрики потребую.  С тебя конкретно.

А остальным - даю пример работы с COM через API. Скачано в Интернете, но где именно - не знаю. Автору, бесплатно подарвшему его всем - огромный респект!

frmSerial -форма: 

SerialPort -модуль: 

Собственно, это и есть запрошенный "перевод".

Полный проект находится ниже в приаттаченном зипе.


Присоединённый файл ( Кол-во скачиваний: 42 )
 vb_serial_comms.zip 3,68 Kb

JusTalionis, чиркани пару слов пожалуйста на эту тему, я думаю это стоит того, чтобы поместить в FAQ.

Черкану обязательно; обещаю. Но только после того, как добью эту проблему до победного. (С вашей объединенной помощью  )

Спасибо!

 Огромное спасибо

Во исполнение моего обещания, здесь данного cardinalу, рассказываю, как я все-таки добил задачу, и выкладываю готовый проект.

Я испробовал много вариантов. Во-первых, должен отметить, что использование контрола в данном случае дает настолько большие облегчения в работе, что я попытался временно отказаться от своего принципа не применять контролы. И тут же налетел на другую проблему: на моей машине все работало легко и просто, но принес экзешник на работу - и на той машине сразу вылетело сообщение, что в системе установлен неподходящий контрол,- и точка. Я писал об этом в соседней темке. Попробовал переименовать файл контрола; пробовал даже сменить внутри контрола все имена - не вышло, все равно запускался либо тот, что в системе, либо на новый надо было перерегистрировать. Пришлось на этот путь конкретно забить. Контролы - неплохая в основе идея, но Микрософт сделали всё от них зависящее, чтоб пользоваться ими было невозможно.

Вторым вариантом было проверить "смешанную" работу бейсика и API. Я попытался открыть порт обычным бейсиковским Open, а настроить его скорости и проч.- функцией API (потому что в VB6 у Open теперь нет параметров настройки порта). Но функция настройки требует хэндл порта, а как его получить?.. Я пробовал использовать описатель файла, возвращаемый Open (#1, #2,... то есть). Не сработало. Ничего не зависало, но порт не настраивался все равно.

Остается только полностью использовать API, что я всем и рекомендую.
Работа API разбиралась на основе найденного мною примера, который был мной выложен выше. С удивлением я обнаружил, что тот проект прекрасно работает с on-board портом, но отказывается писать/читать эмулированный под XP порт, являющийся шнуром USB-COM. Выяснилось, что автором примера допущена ошибка в объявлении функций ReadFile и WriteFile: последний параметр этих функций lpOverlapped должен быть типа OVERLAPPED, а автор присвоил ему Long. Видимо, посмотрел- что вроде всё работает, и выкинул "излишнюю" структуру. Вот вред "отсебятины". Кроме того, в том примере неправильно описан тип DCB, но это не приводит к ошибкам, если не пытаться писать в поля "в ручную". Так что мне пришлось самому подробно разобрать всё, что требуют API.

А вот с этого места начинается FAQ, запрошенный cardinalом.
Выкладываю полный текст моего модуля для работы с COM-портом при помощи API: 
Как использовать. Создаете в своем проекте модуль и вписываете в него целиком этот код. В результате в вашей проге доступны три подпрограммы и две функции для работы с COMом.
Сначала открываете желаемый порт подпрограммой OpenCOM. Аргументом ее является только число, напр. 2 (а не COM2: ). Потом настраиваете желаемую скорость и прочее при помощи SetCommParam - у нее тоже все аргументы числовые. Вместо "9600,8,n,1" задаем 9600, 0, 8, 0 . Подробное описание поставил в комментах.
Всё! После этого можно посылать данные WriteCOM и принимать ReadCOM. ReadCOM имеет параметром количество читаемых знаков. Это сделано для того, чтобы при циклическом вызове можно было ускорить вращение цикла, убавив число принимаемых за раз символов (все равно вызовы идут друг за другом!). Можно сделать даже посимвольный прием, но тогда скорость опять падает за счет увеличения количества проходов цикла. Оптимум- 10 - 15 в цикле и 255 знаков при разовом приеме кнопкой.
Замеченные ошибки мной исправлены, формат DCB правильный. При желании можно писать "в ручную" прямо в поля переменной BarDCB, а потом вызвать SetCommParam, которая отправит настройки в порт. Про DCB я могу рассказать отдельно (если спросите), впрочем я постарался по возможности подробно ее откомментировать.

И одно важное предупреждение:
перед завершением программы следует порт закрыть ОБЯЗАТЕЛЬНО! Если Вы этого не сделаете - он останется открытым и недоступным для всех программ. Я не знаю другого способа вернуть такой порт в действие, кроме перезагрузки компа. API принадлежат собственно не Бейсику, а Виндам, и поэтому их действие сохраняется и после закрытия вашей программы. В данном случае - это единственный минус использования API.
Закрыть порт в нашей программе можно, использовав непосредственно функцию API, поставленную в событие Unload формы:
fin_com = CloseHandle(ComNum)
ComNum у нас хранит хэндл порта, полученный при открытии. Эту переменную можно использовать в программе для проверки, открыт ли порт. Если ComNum больше нуля - то открыт.

К этому сообщению я приаттачиваю полностью проект. Собственно, всё необходимое для работы с портом сосредоточено в модуле. А форма - это только пользовательский интерфейс, и все, что наворочено в ней - всего лишь связи элементов между собой. (Дело в том, что текстовые поля не отображают нулевой код, а мне хотелось, чтоб он отсылался/принимался тоже. Пришлось дублировать данные в переменных, и проч. мутату).
Проект был задуман как терминал для отладки микроконтроллеров, и поэтому внешне он реализует подход электронщика, а не программиста. Кнопки "Open" нет: порт открывается автоматически, когда начинается работа с ним, а закрывается при закрытии программы.
Форма About первоначально была предназначена для дополнительных параметров, типа размера буферов. Это делайте сами  

Благодарности: Неизвестному автору примера, на котором я тренировался, и от которого остались имена и некоторые решения.
Олегу Титову, за замечательную статью , которая мне всё разъяснила. Об этом я постараюсь рассказать в отдельной темке.

Всем удачи!  





Это сообщение отредактировал(а) JusTalionis - 25.5.2008, 10:21

Присоединённый файл ( Кол-во скачиваний: 81 )
 comm_API.zip 8,66 Kb

Вообщем можете верить можете проверить... но когда пытался использовать данный код, возникла маленькая проблемка...
Порт никак не хотел открываться. Все заработало когда заменил "COM1" на "\.\\COM1". Решение нашел по адресу http://support.microsoft.com/kb/115831. Может это сэкономит кому время...

mihanik!!!  
Вы у нас тут специалист,  сертифицированный Микрософт; разъясните, пожалуйста, как же все-таки следует правильно писать имена портов: \\.\COM10, \\\\.\\COM10 или \.\\COM1 ?
И с какой, вообще, стати в именах портов появилась непонятная куча слэшей?

А что сразу я-то?   
Я сертифицированный специалист в области ОС Windows XP, а не программер?
(Хотя VB6 немного знаю...)

Думаю, что это как-то связано с организацией работы API... 


(Вы заметили парность слешей, если их больше 1?)


Это сообщение отредактировал(а) mihanik - 14.9.2008, 15:13

нет, не заметил. Там их по три штуки есть.  И все-таки сколько их должно быть-то? Три или шесть? (хотя бы у двузначных COM-ов)? Я что-то не въезжаю, что в Микрософтовской цитате рекомендовано.

Где?
Если это

то это не считается. Это не 3, а 2 и 1.


Ну... Там сказамо, что если ты обращаешься к порту 10 и выше, то стоит использовать такую вот странную нотацию.
Кроме того сказано, что и для портов с номерами от 1 до 9 эта нотация также работает...

А какую именно: \\.\ или \\\\.\\ ?

Вольный перевод




Ну... Как-то так...

Добавлено через 2 минуты и 19 секунд
JusTalionis, изучай не только VB6, но и английский...  ;-)


Это сообщение отредактировал(а) mihanik - 14.9.2008, 21:23

Пасиб за пожелание относительно английского; этот вольный перевод и у меня получился таким же, но меня смутило вот что: "ЕСЛИ имя порта - это "\\.\COM10". А если просто COM10? Тогда как?.. Ведь у Derks заработало \.\\COM1 а не \\.\COM1.

(Извиняй, что докапываюсь, но хочется чтоб код работал везде, а не на одной конкретной машине.)

JusTalionis, это как твоя аватара.
Кто-то видит саксофониста, а кто-то прекрасную девушку...
Я бы поступил так, если номер порта 1-9, то использовал бы одну нотацию, если 10-... , то другую.
Оператор If ещё не отменили...

  

If без проблем. Но не в этом же дело. А дело в том, чтобы получить исправно рабочий код.
В реальности ни я, ни кто другой, не в состоянии в ручную проверить работоспособность кода на ВСЕХ компах, которые могут существовать на свете.
Для этого существуют стандарты и правила. Их соблюдение гарантирует работоспособность в оговоренных условиях. Например путь C:\WINDOWS гарантированно приведет нас в папку, если таковая существует.

Мне нет проблемы добавить два или 4 слэша. И посмотреть, заработает или нет. Но это "шаманство", потому что у меня - всё заработает, а на твоем компе - фиг знает. Код, который я выше писал, работал на двух машинах у меня, работал под '95 и '98 на работе, работал под Вистой.
А вот у  Derks не заработал. Я добавлю слэши так и эдак - и у скольких людей тогда код перестанет работать и начнет глючить? Не можешь сказать? Вот поэтому и надо придерживаться в написаннии правил, которые обеспечивают работоспособность.
А правило не может быть двусмысленным, как моя аватара. Кстати, на ней, имхо, Че Гевара в молодости, а не девушка))))))

И в данном случае мне непонятно, что же тогда считается правильным "именем порта"? Я в простоте душевной полагал, что в программировании "правильным" является именно то имя, которое фигурирует в вызове, а не в устной речи.
В тексте же "именем порта" названо одно, а в вызове - другое. Вот такое правило мне не понятно, разъясните кто-нибудь мне, старому дураку!

Оно и не является дувусмысленным.

UNC-путь должен начинаться двумя слешами, если указывается имя компьютера, и одним - если не указывается. В записи \\.\COM10 в начале два слеша - значит, компьютер указан, а раз там точка - путь указывает на текущий компьютер. Кстати, допустима запись типа \\?\Resource\Folder\Filename - вернее, как раз в данном случае, когда ресурс есть устройство (COM10), недопустима, а вот для файлового ресурса не только допустима, но и предпочтительна.

Нотация с ошибочным количеством слешей сработала просто потому, что все происходит локально. Но не факт, что это будет на всех компьютерах - особенности ОС могут привести к проблемам. А вот указанный в документации вариант \\.\COM10 сработает всегда.

Akina:
С учетом выше сказанного Вами, будет ли безусловно верен следующий (развернутый) перевод? -

"Если номер COM-порта превышает 9, то к нему следует обращаться как к сетевому даже в том случае, когда он находится непосредственно на текущем компьютере, то есть сетевое имя его например \\.\COM10
При вызове функции CreateFile() в адресе следует добавить слэши следующим образом: 
Этот способ работает также и для портов 1 - 9."
?


Derks:
Пробовали ли Вы использовать в точности микрософтовский вариант вызова "\\\\.\\COM1" ? Заработал ли такой синтакисис?
И почему Вы остановились на "\.\\COM1" ?

Термин "сетевой" в данном случае неверен. Правильнее использовать термин "UNC-путь".

Всё работает отлично. Спасибо за код. Но есть замечание. После закрытия порта следует обнулить переменную ComNum, т.е. вписать ComNum = 0. Ни кто за нас это не сделает. Ещё раз говорю - Спасибо.

Зачем?

Я , конечно ,  извиняюсь за некрофилию но  у меня малость проблема с работой этого кода

данный код не хочет работать если номер компорта больше 9 

в строке
 

ComNum  возврашщает -1 при  com>9 
  
 ой, туплю, все ..   топик выше прочитал ))

Это сообщение отредактировал(а) ZeroNull - 25.3.2017, 13:43

После того, как порт закрыт,  число, хранимое в ComNum теряет всякую ценность.
Хочешь его обнуляй, хочешь не обнуляй, это ни на что уже не влияет.


Добавлено через 5 минут и 13 секунд
 Там где-то в середине разбиралось. Когда номер порта двузначный, Микрософт предлагает использовать написание его имени со слэшами.

Добавлено через 13 минут и 45 секунд
А про начальный вопрос темы все как-то и забыли.
Ведь автор хотел организовать событие по приходу данных?
(без контрола)