Определение доступных портов

Предыдущая тема Следующая тема Перейти вниз

Определение доступных портов

Сообщение  bigalex в Чт Апр 22, 2010 5:22 pm

Хотелось бы на примере увидеть как определить доступные СОМ порты и поместить их в ComboBox

bigalex

Сообщения : 2
Дата регистрации : 2010-04-22

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Определение доступных портов

Сообщение  bigalex в Пт Апр 23, 2010 2:12 pm

В принципе определить можно так:

Спойлер:
Dim hCom As handle
Dim Com As Zstring * 8 => "\\.\COM"
Dim commPort As Zstring * 5
Dim n As Integer
Dim modemStat As dword
For n = 1 To 256
hCom = CreateFile( Com & n,_
GENERIC_READ Or GENERIC_WRITE,_
0,_
NULL,_
OPEN_EXISTING,_
0,_
NULL )
If hCom Then
Print Com & n;":"
If GetCommModemStatus( hCom, @modemStat ) = 0 Then
Print " GetCommModemStatus failed with error ";GetLastError()
Else
If modemStat And MS_CTS_ON Then Print " CTS=1 "; Else Print " CTS=0 ";
If modemStat And MS_DSR_ON Then Print "DSR=1 "; Else Print "DSR=0 ";
If modemStat And MS_RING_ON Then Print "RING=1 "; Else Print "RING=0 ";
If modemStat And MS_RLSD_ON Then Print "RLSD=1" Else Print "RLSD=0"
Endif
Else
Print "CreateFile failed with error ";GetLastError()
Sleep
Exit For
Endif
Next n
Sleep
closeHandle( hCom )

Sleep

А как добавить в ComboBOX?

bigalex

Сообщения : 2
Дата регистрации : 2010-04-22

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Определение доступных портов

Сообщение  tux в Пт Апр 23, 2010 3:03 pm

а на счет combobox-а мона глянуть примеры в папке example, либо почитать статейки по winapi на етом же форуме здесь
avatar
tux

Сообщения : 365
Дата регистрации : 2008-04-06
Возраст : 29
Откуда : Сибирь

Посмотреть профиль http://tux.nsk.ru/

Вернуться к началу Перейти вниз

Re: Определение доступных портов

Сообщение  Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения