application a_app
ULong lul_buflen
string s_null
long l_internet, l_session, l_mode
int INTERNET_OPEN_TYPE_PRECONFIG
int INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4
int INTERNET_DEFAULT_FTP_PORT = 21
int INTERNET_SERVICE_FTP = 1
int FTP_TRANSFER_TYPE_ASCII = 1
int FTP_TRANSFER_TYPE_BINARY = 2
long INTERNET_FLAG_PASSIVE = 134217728

lul_buflen = 256

SetNull(s_null)

// Open Internet ...
a_app = GetApplication()

l_internet = InternetOpenA(a_app.AppName, INTERNET_OPEN_TYPE_PRECONFIG, s_null, s_null, 0)

IF IsNull(l_internet) OR l_internet = 0 THEN
RETURN 'Error: InternetOpenA'
END IF

// Connect ...
l_session = InternetConnectA(l_internet, s_ftp_address, INTERNET_DEFAULT_FTP_PORT, s_logon, s_password_a, INTERNET_SERVICE_FTP, 0, 0)
IF IsNull(l_session) OR l_session = 0 THEN
InternetCloseHandle(l_session)
RETURN 'Error: InternetConnectA'
END IF

/*
Do something now...
*/


// Close ...
IF NOT InternetCloseHandle(l_session) THEN
RETURN 'Error: InternetCloseHandle'
END IF

RETURN ''