Link to home
Start Free TrialLog in
Avatar of LexLuthar
LexLuthar

asked on

Capture input through a modem

Is it possible to capture input (ex. someone hits the number '2' on their phone pad to answer 'no' to a question) through a modem?  Currently I'm using the following to make the phone calls...
            TelePhone = CREATEOBJECT('Form')
            TelePhone.ADDOBJECT("Dial","Olecontrol","MSCOMMLib.MSComm")
            TelePhone.Dial.CommPort = CommPortUsed && Use Serial Port.
            TelePhone.Dial.Settings = "14400,N,8,1"  && 14.4 Kbaud, No Parity, 8 data Bits, 1 Stop Bit
                  TelePhone.Dial.PortOpen = .T.
            TelePhone.Dial.OUTPUT = M.tele + CHR(13) && Dial the number
etc.
ASKER CERTIFIED SOLUTION
Avatar of CarlWarner
CarlWarner
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of LexLuthar
LexLuthar

ASKER

I've tried my best guess at the proper syntax.   What would be the specific code knowing this code...?
            TelePhone = CREATEOBJECT('Form')
            TelePhone.ADDOBJECT("Dial","Olecontrol","MSCOMMLib.MSComm")
            TelePhone.Dial.CommPort = CommPortUsed && Use Serial Port.
            TelePhone.Dial.Settings = "14400,N,8,1"  && 14.4 Kbaud, No Parity, 8 data Bits, 1 Stop Bit
                  TelePhone.Dial.PortOpen = .T.
            TelePhone.Dial.OUTPUT = M.tele + CHR(13) && Dial the number
------
is it
Telephone.Dial.input
or
Telephone.Dial.Buffer
or
buffer=Telephone.Dial.input
or
Telephone.Dial.inputlen=0
etc.
Help:(



with Telephone.Dial
.inputlen = 0 && read the whole char in buffer
lcstr = .input
endwith

Now you will have to parse lcstr to check for the dialed number 2


I added...
DO WHILE .T.
with Telephone.Dial
.inputlen = 0 && read the whole char in buffer
lcstr = .input
? lcstr
endwith
WAIT WINDOW TIME(.5)
ENDDO
the only thing printing on the screen was whatever value I gave to .inputlen.
If .inputlen=10 then the screen would fill up with '10' scrolling down the screen no matter what button I pushed on the phone:(
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial