>>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 Dennis,
>
>I have followed al the thread with Glenn concerning this topic. I had the same problem as you, and what I did is a less professional approach, but it did work. All I did was to place:
>
>= inkey(2.5, "H")
>
>Before
>
>thisForm.testComm.PortOpen = .F.
>
>This makes a pause so as to give time to modem to able to dial. If you have pulse dialing, then the time might be a bit longer.
>
>Regards,
>
Hi Javier,
I think in production code, you would probably be testing for a *connect,busy,error* at this point. This is just a test example though.
Best regards,
>Javier.
Glenn