COM-порт. Чтение/запись байта\слова\двайного слова

[~Виктор~]

Этот ворпрос уже поднималсо, но вразумительного ответа на канкретно заданный вапрос я извените так найти и не смог, посиму спрашиваю:

Необходимо прочитать(записать) байт(слово/двойное слово) с(в) COM1 порта.

Как это сделать?

[tyomitch]

Comm Control

[~Виктор~]

tyomitch

А как его подключить этот Comm Control?
Не смог найти его здаесь Project->References.
И далее как с ним работать?
Попадробней пожалусто

[Konst_One]

это OCX

[GSerg]

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

[~Виктор~]

GSerg да не гарячись ты попусту. этаж албанцкий
А ты лингвист штоль или за диржаву абидна?
Еще кот Лиапольт гаварил - ребзя давайте жить дружно!

[alibek]

~Виктор~, строгое замечание. Рекомендую ознакомится с правилами форума.

[~Виктор~]

Писать в COM порт я понял нужно вот так:

MSComm1.Output = "AT"

а мне нужно послать в порт команду для устройства - 10h и FFh

как это сделать?

[~Виктор~]

Извините сам понял

qw = Chr(&H10)
MSComm1.Output = qw
qw = Chr(&HFF)
MSComm1.Output = qw

[Cytron]

GSerg да не гарячись ты попусту. этаж албанцкий
А ты лингвист штоль или за диржаву абидна?
Еще кот Лиапольт гаварил - ребзя давайте жить дружно!

Ты бредишь?

[tyomitch]

Cytron, устное замечание за флуд.

[alibek]

А зачем такие сложности? CommView проще.

[keks-n]

Угу. А ещё, чтобы не таскать за собой кучу файлов, порт открываем через CreateFile и работаем стандартным API...

Кстати, никто не знает, можно ли без написания драйвера зарегистрировать в системе новый COM-порт и запросы к нему аппликухе передавать?

[GSerg]

С удовольствием посмотрим на статическую линковку InpOut в VB6.

[keks-n]

GSerg
Знаешь ведь, что можно . Другое дело, что придётся подменять параметры линкера и заменять obj-файл модуля с заглушками для этих функций на свой.

[GSerg]

Знаю ведь, что можно, и если будет предъявлено, скажу: и чё, насколько здесь больше геморроя, чем в предлагавшемся изначально случае?..

чаще пишу на masm, поэтому говорю чаще про него.

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

[tyomitch]

Кстати, никто не знает, можно ли без написания драйвера зарегистрировать в системе новый COM-порт и запросы к нему аппликухе передавать?

Думаю, что да. Можно создать через DefineDosDevice ссылку на произвольный файл (например, трубу). Приду домой, попробую.

[tyomitch]

Кстати, никто не знает, можно ли без написания драйвера зарегистрировать в системе новый COM-порт и запросы к нему аппликухе передавать?

Думаю, что да. Можно создать через DefineDosDevice ссылку на произвольный файл (например, трубу). Приду домой, попробую.

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

Option Explicit

Private Declare Function DefineDosDevice Lib "kernel32" Alias "DefineDosDeviceA" (ByVal dwFlags As Long, ByVal lpDeviceName As String, ByVal lpTargetPath As String) As Long

Sub Main()
' subst своими руками: направим букву диска в каталог
DefineDosDevice 0, "S:", "C:\test"
Open "S:\blah" For Output As 1: Print #1, "blah": Close 1 ' создаст C:\test\blah
' таким же способом направим COM8 в файл
DefineDosDevice 0, "COM8", "S:\bleh"
Open "COM8" For Output As 1: Print #1, "bleh": Close 1 ' создаст C:\test\bleh
End Sub


[keks-n]

Значит его так можно и на именованный пайп натравить?
+Как сделать, чтобы он понимался как нормальный COM-порт(т. е., чтобы HyperTerminal тот же, предлагал через него ломиться, или во "Входящие подключения" на вкладке "Устройства" в он был рядом с модемами и LPT1)?

[tyomitch]

1. да
2. я знаю что ли, откуда он этот список берёт?

[tyomitch]

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

Option Explicit

Private Declare Function DefineDosDevice Lib "kernel32" Alias "DefineDosDeviceA" (ByVal dwFlags As Long, ByVal lpDeviceName As String, ByVal lpTargetPath As String) As Long

Sub Main()
' кстати: этим способом можно даже подключить пространство труб как отдельный диск =)
DefineDosDevice 0, "S:", "\\.\Pipe"
End Sub


[Cytron]

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

Option Explicit

Private Declare Function DefineDosDevice Lib "kernel32" Alias "DefineDosDeviceA" (ByVal dwFlags As Long, ByVal lpDeviceName As String, ByVal lpTargetPath As String) As Long

Sub Main()
' кстати: этим способом можно даже подключить пространство труб как отдельный диск =)
DefineDosDevice 0, "S:", "\\.\Pipe"
End Sub


хм... Интересно А как его потом убрать, этот диск?

[tyomitch]

Легче всего -- командой subst /d S:

[Cytron]

а зачем тогда нужен этот subst своими руками когда в конце концов всё равно придется пользоваться обычным subst?

[tyomitch]

Ну а не проще, чем меня спрашивать, открыть доку по DefineDosDevice и узнать, что означает её первый параметр?

[keks-n]

Похоже,что таким макаром можно виртуальный диск из user-mode забацать

[tyomitch]

Нельзя. Его можно сделать только из каталога существующей файловой системы, что ненамного превосходит функциональность subst.

[tyomitch]

Вот тут ещё одну идею подали -- можно создать на NTFS-разделе симлинк на трубу. (Т.е. какая-нибудь прога будет думать, что пишет в файл в своей текущей папке, а на самом деле её вывод шёл бы в эту трубу.)

[keks-n]

Не всегда прокатит. Прога может пытаться менять позицию в файле, куда идёт запись.