Еще раз о MSComm Control (очень прошу - ПОМОГИТЕ!!!)

[Oleg_ss]

Не работает даже пример из MSDN

Private Sub Form_Load()
Dim Instring As String
MSComm1.CommPort = 1
MSComm1.Settings = "115200,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "PROSTO STROKA" & Chr$(13)
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCrLf)
MSComm1.PortOpen = False
End Sub

Соединяю нуль кабелем COM1 и COM2. Запускаю два гипертерминала на оба порта - все работает.
Запускаю свою прогу. В гипертерминале появляется наша запись "PROSTO STROKA". А вот с гипертерминала нет ничего!!! Ни один символ с клавы не проходит!!!
В чем дело?
Использую Васик 6.0 и ХРень

[kif]

Если я правильно понял, то все это происходит на одной машине.
Если это так, то работать не должно:
При загрузке формы открывается первый порт и посылается строка, за тем он же и слушается (первый), должен быть второй.
Напиши два приложения и настрой их на первый и второй порты - все должно работать.

[Oleg_ss]

Зачем писать два приложения?
Моя прога работает с COM1, а гипертерминал с COM2
Оба порта соеденины нуль кабелем
Если запускать два гипертерминала на оба порта, то при нажатии клавиши на первом, видим ответ на втором и наоборот.
Теперь на первый COM напускаем мою прогу. Во втором читаем строку, а вот ответ получить не могу

[kif]

Я когда-то писал прогу, читающую данные с АТС (звонки, короче).
У меня была такая же проблема.
Все оказалось просто - я не указал все параметры.
Вот код, проверь:

Private Sub Form_Load()
Me.Caption = ProgramName

With CommPort
On Error GoTo ErrInit
.CommPort = NumPort
.Settings = "9600,N,8,1"
.InputLen = 0
.PortOpen = True
.DTREnable = True ' Выставить готовность терминала
.RThreshold = 1 ' обрабатывать при получении 1 байта
.Handshaking = comRTS
.RTSEnable = True
On Error GoTo 0
End With
Exit Sub

ErrInit:
MsgBox "Не возможно инициализировать порт", vbCritical, ProgramName

End Sub

=================================

Private Sub CommPort_OnComm()
Select Case CommPort.CommEvent
Case Is = comEvReceive
Buffer = Buffer & CommPort.Input
End Select
End Sub[/code]

[Oleg_ss]

СПАСИБО!!!
Все заработало!!!
Видимо эти две строки сделали свое дело
.DTREnable = True ' Выставить готовность терминала
.RThreshold = 1 ' обрабатывать при получении 1 байта

Ну готовность терминала понятно, а что значит обрабатывать 1 байт
и чему равно comRTS?
Если можно подробнее...