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