Программирование протокола Pelco-D

[alexxx033]

Дорогие прогаммисты, есть задача написать программу для управления купольной видеокамерой по протоколу Pelco-D, на VB6, прошу вашей помощи, нужны исходники с описанием, как открыть СОМ порт, как его прослушивать, как читать данные по протоколу Pelco-D и принимать их по RS-485

[Хакер]

как открыть СОМ порт

Точно так же, как файл.

как его прослушивать, как читать данные

Чтение и запись точно так же, как в файл.

Ну и есть ещё контрол MSComm, если файловая абстракция не устраивает.

как читать данные по протоколу Pelco-D и принимать их по RS-485

Читай документацию по соотв. протоколам.

[alexxx033]

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

[Хакер]

У нас тут не приветствуется нытьё про «по подробнее» и примеры. Конкретный чёткий вопрос → конкретный чёткий ответ. Вот как должно быть организовано общение.

[alexxx033]

Могу подробнее. Нужен код открытия сом порта, чтения его и передача сигнала по протоколу Pelco-D

[ark]

Могу подробнее. Нужен код открытия сом порта, чтения его и передача сигнала по протоколу Pelco-D

Код: Выделить всё

    Dim Data As String
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True '/*открытие*/
    MSComm1.Settings = "9600,n,8,1" 'скорость 9600 бит/сек, без паритета, 8 бит в симв/, 1 стоп.
    Data = MSComm1.Input '/*чтение*/
    MSComm1.Output = ConvertToPelcoProtoco("Hello") ' /*передача*/
    MSComm1.DTREnable = True 
    MSComm1.PortOpen = False

Подробно

[ger_kar]

Подробно

Прочитал с интересом, раньше этим никогда не интересовался (не надо было). А тут просто прочитал с интересом. Изложено обстоятельно и подробно, кроме всего прочего понятно и самое главное - на русском .

[Хакер]

Изложено обстоятельно

Интересно, те, кто это писал, в курсе, что в VB вместо CreateFile можно использовать обыкновенное VB-шное Open ... For ... As .... И в курсе ли они, что за магические константы их надо бить поганой метлой?

[ger_kar]

Интересно, те, кто это писал, в курсе, что в VB вместо CreateFile можно использовать обыкновенное VB-шное Open ... For ... As ....

Ну я обычно для работы с файлами пользуюсь либо встроенными VB шными средствами, либо FSO, WinAPI не использовал ни разу, а тут посмотрел и на такую реализации, так сказать до кучи .

И в курсе ли они, что за магические константы их надо бить поганой метлой?

Ну ты очень суров Но, а вообще то статья хорошая, я так подробно про COM порт до этого еще нигде не читал.

[Хакер]

Ну ты очень суров

Жизнь сурова. Она не прощает плохой код.

[ark]

Изложено обстоятельно

Вот именно что обстоятельно. Это как раз ликбез, а не готовый код на все случаи жизни, как требует alexxx033. ИМХО написано просто и понятно.

Интересно, те, кто это писал, в курсе, что в VB вместо CreateFile можно использовать обыкновенное VB-шное Open ... For ... As ....

Думаю, в курсе. Думаю, они даже в курсе, что можно также пользовать Set com = fso.OpenTextFile("COM1:9600,N,8,1", ForReading), а досовские команды можно обернуть в Shell или wsh.Run. Статья не исключительно под ВБ заточена.

И в курсе ли они, что за магические константы их надо бить поганой метлой?

dwDesiredAccess- режим доступа к файлу.Это четырехбайтовое число, которое задает различные режимы доступа к файлу. Нас интересует только режим чтение и запись, этот режим задаётся числом: С0000000hex в СИ можно вместо числа записать константу с именем "GENERIC_READ|GENERIC_WRITE".
dwShareMode- режим совместного доступа. СОМ-порты ПК не поддерживают совместный доступ, только одна программа может открыть порт. Поэтому этот параметр должен быть равен 0(режим запрещен).
lpSecurityAttributes- атрибуты защиты файла. Для СОМ-портов не используется поэтому всегда равны 0 ("NULL").
dwCreationDistribution- управление режимом автосоздания файла. Это четырехбайтовое число, которое для СОМ портов всегда должно быть 00000003hex ("OPEN_EXISTING")

Чего ж тут магического? Ну не было у авторов задачи весь Enum от CreateFile копипастить.

[Хакер]

Чего ж тут магического?

Код: Выделить всё

  Retval = CreateFile("COM1:", &HC0000000, 0, 0, 3, 0, 0)


На месте всех этих чисел должны быть константы.

[ark]

На месте всех этих чисел должны быть константы.

Да они ж все описаны НА ЭТОЙ ЖЕ странице, а не где-то еще - я ж цитату привел. Согласен, в конечном модуле должны быть константы, но это ж куски, а не сборка. Там нету также Option Explicit, и SecurityAttributes жестко по ссылке передаются, и dwCreationDistribution, при внимательном прочтении можно грамматические/синтаксические ошибки найти.

[Хакер]

Да они ж все описаны НА ЭТОЙ ЖЕ странице, а не где-то еще - я ж цитату привел. Согласен, в конечном модуле должны быть константы, но это ж куски, а не сборка.

Константы должны быть везде. Особенно в учебном примере.

[ark]

Константы должны быть везде. Особенно в учебном примере.

ИМХО не факт. Вы в примере по СОМу (не этому), или нативному НТ, или по реестру (причем конкретному примеру, а не общему обзору), где HRESULT возвращается, будете с ERROR_SUCCESS или с 0 сравнивать?
Там при внимательном рассмотрении и покруче ляпы на ВБ есть - Read/WriteFile lpOverlapped As Long по ссылке, однако ИМХо это частности, соринки, на которые можно заметить автору, но не хаять огульно.

[Хакер]

HRESULT

HRESULT буду сравнивать макросом SUCCEED. Это битфиелд, и неудачей считается не конкретный код, а сброшенный сбойный бит.

NTSTATUS буду сравнивать с STATUS_SUCCESS.

покруче ляпы на ВБ есть - Read/WriteFile lpOverlapped As Long по ссылке, однако ИМХо это частности, соринки, на которые можно заметить автору,

Это досадные ошибки, который каждый делает. А вот неиспользование констант — это принципиальная позиция. Куда серьёзнее.

[ark]

NTSTATUS буду сравнивать с STATUS_SUCCESS.

Я имею в виду именно ВБ. Неуж-то будете объявлять

Код: Выделить всё

Public Const STATUS_SUCCESS As Long=0
Public Const NT_SUCCESS As Long=0
Public Const ERROR_SUCCESS As Long=0
Public Const NO_ERROR As Long=0


[Хакер]

Неуж-то будете объявлять

Никак не иначе.

[alexxx033]

Меня интересует, вобще кто-то знает, можно ли по протоколу Pelco-D принимать данные о позиционировании камеры, или по этому протоколу можно только управлять

[ark]

Меня интересует, вобще кто-то знает, можно ли по протоколу Pelco-D принимать данные о позиционировании камеры, или по этому протоколу можно только управлять

Разработчики наверняка знают http://cvs.ru/files/pelco-d.pdf

Devices that receive the “D” protocol may generate a response.

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

[ark]

Никак не иначе.

Не верю

(с) не моё

[alexxx033]

Нужен код , под конкретную задачу. При перемещении камеры на некоторый угол, она по протоколу Pelco-D, передает свои данные о позиционировании, а именно угла поворота относительно горизонтальной и вертикальной оси. затем эти данные обрабатываются в программе. Мне необходимо каким-то образом получить эти данные. Я не знаю как этого добиться. Поэтому и спрашиваю у специалистов.

[ark]

Нужен код , под конкретную задачу.

Тогда Вам, скорее всего, надо искать форум по соответствующему протоколу. Здесь Вам дадут совет по ВБ, и, если повезет и кто-то уже занимался с этим протоколом, примеры кода. По видимому, этот протокол всё-таки уступает в популярности, скажем, NMEA, поэтому готового кода ни у кого нет. Согласно протоколу (см ссылку), есть команда Query. Чего она делает - ХЗ, видимо отдана на откуп разработчикам. См. доки по камере.
Вот пример http://www.codeproject.com/KB/cs/PelcoPDinC.aspx

[ger_kar]

Ну вот посмотрел я спор по поводу магических констант, что тут можно сказать, так сказать взгляд начинающего.
Ну во первых сам по себе код Retval = CreateFile("COM1:", &HC0000000, 0, 0, 3, 0, 0) мне например больше импонирует, чем длинющая запись с использованием именованных констант, что в этом плохого и непонятного? Все коротко и ясно. А для болшей ясности можно еще и комментарий добавить.

Я имею в виду именно ВБ.
Неуж-то будете объявлятьКод:
Public Const STATUS_SUCCESS As Long=0
Public Const NT_SUCCESS As Long=0
Public Const ERROR_SUCCESS As Long=0
Public Const NO_ERROR As Long=0

Никак не иначе.

Это видимо, кто как привык, кому как удобнее, мне например кажеться, что объявлять кучу констант, причем все равные нулю, а потом в передаваемых параметрах строчить длинющие имена, это извращение, расчитанное на любителя. Да и ясности это особо не добавляет. Лучше добавить комент, с описанием, что за параметры передаются, и понятнее и удобнее.

[Хакер]

Это видимо, кто как привык, кому как удобнее, мне например кажеться, что объявлять кучу констант, причем все равные нулю, а потом в передаваемых параметрах строчить длинющие имена, это извращение, расчитанное на любителя.

Это не извращение, а правило. За его нарушение должны уволнять, а на лбу ставить клеймо «быдлокодер», чтобы никуда в другие места не приняли.

Очевидно, что в голове несведущих хорошие вещи и плохие поменялись местами.

[ark]

Это не извращение, а правило. За его нарушение должны уволнять, а на лбу ставить клеймо «быдлокодер», чтобы никуда в другие места не приняли. Очевидно, что в голове несведущих хорошие вещи и плохие поменялись местами.

Хакер, это ВБ, который допускает некоторые вольности. Поверь, мне так же известны "правила хорошего тона", особенно если речь идет о групповых проектах, но неуж-то и все переменные в венгерских нотациях объявлять?
ЗЫ @ger_car: Константы объявлять НАДО. Но ИМХО, во всем должно быть чувство меры. Тут недалеко и до священных войн за то, кто какой стороной яйцо разбивает.

[Хакер]

особенно если речь идет о групповых проектах, но неуж-то и все переменные в венгерских нотациях объявлять?

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

Я не понимаю, к чему было сказано, что VB позволяет вольности. VB позволяет использовать вместо констант волшебные числа в той же степени, что и любые другие языки.

[ark]

Я не понимаю, к чему было сказано, что VB позволяет вольности. VB позволяет использовать вместо констант волшебные числа в той же степени, что и любые другие языки.

Я про объявление переменных, кастование типов и т.п. Поэтому ИМХО и объявление одной константы S_OK, скажем, вместо десятка повторов укладывается в русло этих вольностей (с учетом отсутствия include) и клеймить за это не стоит.
ЗЫ, ради интереса, по вашим суровым правилам на DeviceIo константы напрямую объявлять кошерно или надо через CTL_CODE?

[Хакер]

(с учетом отсутствия include)

С учётом наличия TLB, константы объявляются один раз и на всю жизнь.

[ark]

С учётом наличия TLB, константы объявляются один раз и на всю жизнь.

TLB!=VB