(Tcl) Inovis VAN FTP/SSL (EDI)

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "ftpssl.gateway.inovisworks.net"
CkFtp2_put_Username $ftp "myLogin"
CkFtp2_put_Password $ftp "myPassword"

# The Inovis EDI VAN requires Passive connections:
CkFtp2_put_Passive $ftp 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.
CkFtp2_put_AuthTls $ftp 1

# You'll probably need this property set to 1 if you're
# behind a NAT router or firewall.
CkFtp2_put_PassiveUseHostAddr $ftp 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).
CkFtp2_put_Ssl $ftp 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:
CkFtp2_put_AutoFeat $ftp 0

# Connect, convert to TLS, and login to the FTP server.
set success [CkFtp2_Connect $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
} else {
    # LastErrorText contains information even when
    # successful. This allows you to visually verify
    # that the secure connection actually occurred.
    puts [CkFtp2_lastErrorText $ftp]
}

puts "Connection to Inovis EDI VAN OK!"

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

set success [CkFtp2_Disconnect $ftp]

delete_CkFtp2 $ftp