Компот и его контакты

[TiG]

Подскажите пожалуйста можно ли программно определить замкнуты ли определённые контакты компорта или нет. ОС XP, стандартный ком.

[Хакер]

COM-порт, это не RAW-порт с какими-то контактами, это интерфейс RS-232. Это интерфейс последовательной передачи данных.

Какие контакты тебя интересуют? Их там всего-то 9 и все имею своё специальное предназначение. И как понять замкнуты? Если ты замкнёшь каких-нибудь два выхода ком-порта, то ты просто его сожжешь.

[TiG]

RTS(7)+CTS(8)
DTR(4)+DSR(6),DCD(1)

[HAWK]

Вот DLLка для работы с COM портом.
Там есть описание функций.
В общем, сначала с помощью функции OpenCom открываешь порт и получаешь его хендл.
Далее с помошью функций GetComCTS, GetComDSR, GetComDCD определяешь логические уровни на соответствующих входах порта.
А с помощью функций SetComDTR и SetComRTS илменяешь логические уровни на выходах порта.

[TiG]

жуть, я половину тока понял, можно на пальцах или с кодом там примером)?

[HAWK]

Вот пример на языке PureBaisc

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

If OpenLibrary(0, "ComPort_Pb.dll")=0 ; Загружаем динамическую библиотеку ComPort_Pb.dll
MessageRequester("Ошибка", "Не удалось найти файл  ComPort_Pb.dll", #MB_OK|#MB_ICONERROR)
End ; Т. к. библиотека не найдёна, то завершаем работу программы.
EndIf

; Вызываем функцию "OpenCom" из "ComPort_Pb.dll",
; которая открывает порт COM1 (1), со скоростью обмена 9600 бод (9600),
; контроль чётности отключён (0), с восьмю битамии в посылке (8),
; длина стоп-бита равна 1 (1), управление потоком отсутствует (0)
; размер буфера приёма и передачи равен 255 байт (255).
; В переменную Handle будет помещён хендл порта или ноль если не удалось открыть порт.
Handle = CallFunction(0, "OpenCom", 1 ,9600, 0, 8, 1, 0, 255, 255)

If Handle=0 ; Порт занят либо отсутствует в системе
MessageRequester("", "Не удалось открыть порт", #MB_OK|#MB_ICONERROR)
End ; Т. к. порт не доступен, то завершаем работу программы.
EndIf


; Вызываем функции из "ComPort_Pb.dll".
; "SetComDTR" установит на выходе DTR отрицательное напряжение,
; а "SetComRTS" установит положительное напряжение на выходе RTS
CallFunction(0, "SetComDTR", Handle, 0)
CallFunction(0, "SetComRTS", Handle, 1)

; Вызываем функции из "ComPort_Pb.dll".
; Они возвращяют 0 или 1, в зависимости от напряжения на соответствующем входе
CTS = CallFunction(0, "GetComCTS", Handle)
DSR = CallFunction(0, "GetComDSR", Handle)
DCD = CallFunction(0, "GetComDCD", Handle)


CallFunction(0,"CloseCom", Handle) ; Закрываем порт

В начале проги с помощью функции OpenLibrary загружается DLLка.
Если её удалось загрузить, то с помощью CallFunction производится вызов функций DLLки.
Первой вызывается фунуция "OpenCom".
Она открывает порт COM1, со скоростью обмена 9600 бод.
Имя порта определяет первый аргумент функции.
Сейчас там число 1, значит будет открыт порт COM1, а если там, скажем, было бы число 4, то открывался бы порт COM4.
Функция возвращает хендл порта - его идентификатор в систме по которму мы будем дальше обращатся к порту.
Этот идентификатор не равен нулю.
В случае если функция вернёт 0, то это значит что порт не удалось открыть.

Далее, с помощью функции "SetComDTR" устанавливается отрицательное напряжение на выходе DTR порта.
А функция "SetComRTS" установит положительное напряжение на выходе RTS порта.
Напряжение задаёт аргумент функции если он равен 1, то напряжение положительное, а если 0, то отрицательное.

Делее находятся функции, которые определяют текущий логический уровень (0 или 1) на входах CTS, DSR и DCD и записываеют его значение в одноимённые переменные.

[alibek]

HAWK, ты читать умеешь?

[HAWK]

Умею.
Код привёл и обясник как он работает.
Что не так?

[alibek]

Прочитай название подфорума.

[HAWK]

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

А что лучше было бы если бы написал что-то типа этого "Извини, я VB незнаю, так что разбирайся как хочешь"

[alibek]

Если на форуме по MSSQL будет вопрос про хранимые процедуры, ты будешь давать советы для MySQL потому что MySQL ты знаешь, а MSSQL нет?

[HAWK]

Повторяю ещё раз.
Я выложил DLLку написаную на PureBasic.
Она естественно будет работать и с VB.
Но TiG кое-что не понял из описания и попросил привести пример.
Я VB незнаю, поэтому привёл пример на том, что знаю.

[jangle]

Повторяю ещё раз.
Я выложил DLLку написаную на PureBasic.

Надо выкладывать скомпилированную DLL, как топикстартер будет использовать твой исходник?

[HAWK]

Так там есть и скомпилированая DLLка "ComPort_Pb.dll" и её исходник

[TiG]

сравнивая свойства контрола мскомм rtsenbled и rtshandle тоже неплохо получилось

[TiG]

CTSHolding точней)))