>Is there a VFP class out there to make a phone call using the PC instead of the phone? (Don't ask...;)
>
>Eric K.
Hi Eric.
Do you mean you want the program to dial a telephone number in a file for purposes of conversation? If so, this code should work for you provided you have FoxTools.fll loaded:
LOCAL lcNum2Dial, LcComPort, lcdstring, lnport
THISFORM.uRetVal = .T.
lcNum2Dial = ALLTRIM(THISFORM.TxtPrefix.Value)
IF LEFT(ALLTRIM(THISFORM.TxtPhone.Value),3) = ALLTRIM(THISFORM.TxtLocalArea.Value)
lcNum2Dial = lcNum2Dial + RIGHT(ALLTRIM(THISFORM.TxtPhone.Value),7)
ELSE
lcNum2Dial = lcNum2Dial + "1" + ALLTRIM(THISFORM.TxtPhone.Value)
ENDIF
lcNum2Dial = lcNum2Dial + ALLTRIM(THISFORM.TxtSuffix.Value)
lccomport=THISFORM.cboComPort.Value
lcdstring = "ATDT " + lcNum2Dial + CHR(13)
opencomm = RegFn("OpenComm", "CII", "I", 'User.exe')
writecomm = RegFn("WriteComm", "ICI", "I", 'User.exe')
closecomm = RegFn("CloseComm", "I", "I", 'User.exe')
lnport = CallFn(OpenComm, lccomport, 100, 100)
=CallFn(WriteComm, lnport, lcdstring, len(lcdstring))
=MESSAGEBOX("Dialing "+ALLTRIM(lcNum2Dial)+CHR(13)+CHR(13)+;
"Pick up the phone and press any key", 64)
lcdstring=CHR(10)+CHR(13)+CHR(10)+CHR(13)
=CallFn(WriteComm, lnport, lcdstring, len(lcdstring))
=CallFn(CloseComm, lnport)
Marcia
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only