General information
Category:
Third party products
>>>Hi All.
>>>I want use modem in my application.
>>>I am write follow code:
>>>
>>> ***** Top Code*****
>>> ComForm = CREATEOBJECT('Form') ComForm.AddObject("Testcom","Olecontrol","MSCOMMLib.MSComm")
>>>
>>>ThisForm.Testcom.CommPort = 2
>>>ThisForm.Testcom.Settings = "28800,N,8,1"
>>>
>>>ThisForm.Testcom.PortOpen = .T.
>>>ThisForm.Testcom.InputLen=0
>>>ThisForm.Testcom.Output = "ATDP2559902" + chr(13)
>>>
>>> ThisForm.Testcom.PortOpen = .F.
>>> ***** End Code *****
>>>
>>>But my modem do't deal... :(((.
>>>Other property mscomm32 default.
>>>Thanks.
>>>Denis.
>>
>>Hi Denis,
>>
>>Add:
>>ThisForm.Testcom.Rthreshold=1
>>ThisForm.Testcom.Sthreshold=1
>>
>>Place before port close:
>>Wait window 'dialing'
>>
>>Rthreshold sets the threshold for the number of characters in queue before action is taken. Sthreshold sets the threshold for number of characters in queue *before any are sent*. Default is 0, which means *never transmit*
>>
>>HTH
>
Hi Glenn,
I think code should work without the modifications you have suggested.
Actually Rthreshold & Sthreshold is used for Event driven Reading
and Writing of Serial Port. Whereas Denis just simply writes
to the port (He does not want to use ONComm Event). I don't think there is any problem in the code. May be There is some problem in Hardware setting.
Denis, may be you can try this
testcomm.output="AT"+chr(13) && modem should reply to this as "OK"
Do while .t.
reply=testcomm.input
if reply="OK"
exit
endif
enddo
testcom.portopen=.f.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only