Fox Pro hace discado a traves de un modem?

Puedes hacerlo con API...o con MSComm

API ...

Declare long tapiRequestMakeCall IN "tapi32.dll" ;
string lpszDestAddress, ;
string lpszAppName, ;
string lpszCalledParty, ;
string lpszComment

= tapiRequestMakeCall("6581523", 0,0,0)

******************************************

MSComm

&& (Supongo el modem conectado al com4)
thisform.olecontrol1.COMMPORT = 4
thisform.olecontrol1.PORTOPEN = .T.
thisform.olecontrol1.OUTPUT = "ATDT6608196" +chr(13)

La secuencia de números después de ATDT es el numero telefónico al que
queremos marcar

*******************************************

Existe otre forma con el API pero más larga...

David Amador T.
WebMaster de "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia
Tel.(5) 6621502 - 6581523 - Cel. 310 - 6581865

"Armando" escribió en el mensaje
news:0f7201c3728f$21d828d0$

Saludos , estoy trabajando con una base de datos que tiene
nueros de telefonos y me han pedido que haga que la
computadora disque el telefono que aparezca en pantalla,
alguien sabe si se puede usar Visual Fox Pro para hacer
discado? existe alguna instruccion que haga esto? o sabes
si existe algun software adecuado para lograr esto?
Gracias por la ayuda!!!!

*** Código para marcar un teléfono
Parámetros: # de teléfono y puerto en el formato Commport = "COM1:"
(2,3,4,etc. según toque)
Saludos cordiales:

Pepe Llopis
FUTURA Systems & software, S.L.
www.futuracenter.com



FUNCTION DialNumber
LPARAMETERS PhoneNumber, CommPort

LOCAL lcmsg, lnport, lnwritten, lcmnd, lnstop

lcmsg="Por favor, descuelgue el teléfono y seleccione ACEPTAR para marcar "
+ PhoneNumber
IF MESSAGEBOX(lcmsg, MB_ICONINFORMATION+MB_OKCANCEL,"Marcar
número")#ID_CANCEL
lnport = CreateFile(@Commport, GENERIC_READ + GENERIC_WRITE,0,0,3,0,0)
IF lnport > 0
lnwritten = 0
lccmnd = "ATDT"+PhoneNumber+CF_TEXT
IF WriteFile(lnport,@lccmnd,LEN(lccmnd),@lnwritten,0)#0
= FlushFileBuffers(lnport)
lnstop = SECONDS() + WAITSECONDS
DO WHILE SECONDS() < lnstop
DoEvents
ENDDO
lccmnd = "ATH0" + CF_TEXT
= WriteFile(lnport, @lccmnd, LEN(lccmnd), @lnwritten, 0)
= FlushFileBuffers( lnport )
= closeHandle( lnport )
ENDIF
ENDIF
ENDIF

RETURN
ENDFUNC