Jim,

I have my little program to the point where the BBS says "Please start download within 45 seconds", but nothing downloads. I am sure I am missing something vital. Do you have any idea what may or may not be happening? The documentation is lacking and this is my first time to attempt anything like this.

I appreciate all the help you have given me.

Thanks.


My code is below:

USE mmSystem IN 0
USE mmFacility IN 0

PUBLIC oMbxCom
oMbxCom = CREATEOBJECT('Apax1.Apax')

oMbxCom.MsCommCompatible = .T.
oMbxCom.HandShaking = 2
oMbxCom.ComNumber = 3
oMbxCom.CommPort = 3 && Use Comm3, The third Serial Port.
oMbxCom.Settings = "38400,N,8,1"


*: Open com port
oMbxCom.PortOpen()

*: Dial the number. The chr(13) is needed to complete the modem command sequence
oMbxCom.Putstring("ATDT" + ALLTRIM(mmSystem.phone) + CHR(13))

WAIT 'Dialing...' TIMEOUT 30


WAIT 'Sending Login ID' TIMEOUT 5
oMbxCom.PutString(mmFacility.login + chr(13))
WAIT 'Sending Password' TIMEOUT 5
oMbxCom.PutString(mmFacility.pass + chr(13))

WAIT 'Sending command to download file' TIMEOUT 3
oMbxCom.PutString("$$REQ ID=" + mmFacility.login + ;
" BID='" + ALLTRIM(mmFacility.batchsec) + "ANSI835'" + chr(13))

WAIT TIMEOUT 30

?oMbxCom.Input

*: Hang up
oMbxCom.Putstring("ATH0" + chr(13))

*: Close the com port
oMbxCom.Close()

RELEASE oMbxCom