>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,

Javier.