Information générale
Catégorie:
Produits tierce partie
>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.
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement