(Visual FoxPro) Inovis VAN FTP/SSL (EDI)

Demonstrates how to connect to the Inovis EDI VAN (FTP/SSL).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loFtp
LOCAL lnSuccess

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ftp2')
loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftpssl.gateway.inovisworks.net"
loFtp.Username = "myLogin"
loFtp.Password = "myPassword"

* The Inovis EDI VAN requires Passive connections:
loFtp.Passive = 1

* Note: The Inovis documentation mentions an outbound
* high port range of 40000-49999.  In passive mode, the
* FTP server chooses the port number for the data
* connection.  The Inovis server will choose a port number
* in the range 40000-49999.  To establish the data connection,
* your firewall must allow outgoing connections in that port
* range. 

* This tells Chilkat FTP2 to establish
* an AUTH TLS secure channel after connecting
* on the standard FTP port 21.
loFtp.AuthTls = 1

* You'll probably need this property set to 1 if you're
* behind a NAT router or firewall.
loFtp.PassiveUseHostAddr = 1

* The Ssl property is for establishing an implicit SSL connection
* on port 990.  Do not set it to 1.  The Inovis VAN
* uses explicit encryption (SSL/TLS).
loFtp.Ssl = 0

* The Chilkat FTP component automatically sends a "FEAT";
* command after connecting.  This allows the component
* to better know the FTP server's capabilities.
* The Invois server doesn't recognize the FEAT command,
* so disable it:
loFtp.AutoFeat = 0

* Connect, convert to TLS, and login to the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ELSE
    * LastErrorText contains information even when
    * successful. This allows you to visually verify
    * that the secure connection actually occurred.
    ? loFtp.LastErrorText
ENDIF

? "Connection to Inovis EDI VAN OK!"

* Do whatever you're doing to do ...
* upload files, download files, etc...

lnSuccess = loFtp.Disconnect()

RELEASE loFtp