(DataFlex) 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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoFtp
    Boolean iSuccess
    String sTemp1

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

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    Set ComHostname Of hoFtp To "ftpssl.gateway.inovisworks.net"
    Set ComUsername Of hoFtp To "myLogin"
    Set ComPassword Of hoFtp To "myPassword"

    // The Inovis EDI VAN requires Passive connections:
    Set ComPassive Of hoFtp To True

    // 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.
    Set ComAuthTls Of hoFtp To True

    // You'll probably need this property set to True if you're
    // behind a NAT router or firewall.
    Set ComPassiveUseHostAddr Of hoFtp To True

    // The Ssl property is for establishing an implicit SSL connection
    // on port 990.  Do not set it to True.  The Inovis VAN
    // uses explicit encryption (SSL/TLS).
    Set ComSsl Of hoFtp To False

    // 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:
    Set ComAutoFeat Of hoFtp To False

    // Connect, convert to TLS, and login to the FTP server.
    Get ComConnect Of hoFtp To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End
    Else Begin
        // LastErrorText contains information even when
        // successful. This allows you to visually verify
        // that the secure connection actually occurred.
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
    End

    Showln "Connection to Inovis EDI VAN OK!"

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

    Get ComDisconnect Of hoFtp To iSuccess


End_Procedure