>>>>>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
>>>
>>>Oops. Left out of sentence: Rthreshold=receive Sthreshold=Send
>>
>>
>>Hi Glenn,
>>Sorry for my english... :((
>Is this code working on your computer??? On my computer modem doesn't dial....
> :)
>
>>Denis.
Denis,
This code works on my computer, under VFP 5.0, with the following exceptions. 1. Must have Sthreshold=1 !! 1. 28800 is an unsupported speeed for MSComm32.
From Help file:
Supported speeds:
110
300
600
1200
2400
9600 (Default)
14400
19200
38400 (reserved)
56000 (reserved)
128000 (reserved)
256000 (reserved)
HTH
Glenn