комрад, вот тебе писЧдля размышлений, надеюсь поможет:

local external functions:
// wininet functions
FUNCTION ulong InternetOpenA( string szAgent, ulong dwAccessType, string szProxy, string szProxyBypass, ulong dwFlags ) LIBRARY "wininet.dll"
FUNCTION ulong InternetConnectA( ulong hInternet, string szServerName, uint nServerPort, string szUserName, string szPassword, ulong dwService, ulong dwFlags, ulong dwContext ) LIBRARY "wininet.dll"
FUNCTION boolean InternetCloseHandle( ulong hInternet ) LIBRARY "wininet.dll"
//FUNCTION boolean InternetGetLastResponseInfoA( REF ulong lpdwError, REF string lpszBuffer, REF ulong lpdwBufferLength ) LIBRARY "wininet.dll"
//FUNCTION boolean InternetGetConnectedState( REF ulong lpdwFlags, ulong dwReserved ) LIBRARY "wininet.dll"
//FUNCTION boolean InternetAutodial( ulong dwFlags, ulong dwReserved ) LIBRARY "wininet.dll"
//FUNCTION boolean InternetAutodialHangup( ulong dwReserved ) LIBRARY "wininet.dll"
//FUNCTION ulong InternetDial( ulong hwndParent, string szConnectId, ulong dwFlags, REF ulong dwConnection, ulong dwReserved ) LIBRARY "wininet.dll"
//FUNCTION ulong InternetHangup( ulong dwConnection, ulong dwReserved ) LIBRARY "wininet.dll"
//FUNCTION boolean InternetSetOptionA( ulong hInternet, ulong dwOption, string lpBuffer, ulong dwBufferLength ) LIBRARY "wininet.dll"
//FUNCTION boolean InternetCheckConnectionA( string lpUrl, ulong dwFlags, ulong dwReserved ) LIBRARY "wininet.dll"
//FUNCTION ulong InternetOpenUrlA( ulong hInternet, string lpUrl, string lpHeaders, ulong dwHeadersLength, ulong dwFlags, ulong dwContext ) LIBRARY "wininet.dll"

// wininet ftp functions
//FUNCTION boolean FtpDeleteFile( ulong hSession, string lpszFileName ) LIBRARY "wininet.dll"
FUNCTION boolean FtpCreateDirectoryA( ulong hSession, string lpszDirectory ) LIBRARY "wininet.dll"
//FUNCTION ulong FtpFindFirstFileA( ulong hSession, string szSearchFile, REF os_finddata lpvData, ulong dwFlags, ulong dwContext ) LIBRARY "wininet.dll"
//FUNCTION boolean FtpGetFileA( ulong hService, string szRemoteFile, string szLocalFile, boolean bFailIfExist, ulong dwLocalFlags, ulong dwInetFals, ulong dwContext ) LIBRARY "wininet.dll"
FUNCTION boolean FtpPutFileA( ulong hService, string szLocalFile, string szRemoteFile, ulong dwFlags, ulong dwContext ) LIBRARY "wininet.dll"
FUNCTION boolean FtpGetCurrentDirectoryA( ulong hService, REF string szPath, REF ulong lpdwBuffLength ) LIBRARY "wininet.dll"
//FUNCTION boolean FtpRemoveDirectory( ulong hSession, string lpszDirectory ) LIBRARY "wininet.dll"
//FUNCTION boolean FtpRenameFile( ulong hSession, string lpszExisting, string lpszNew ) LIBRARY "wininet.dll"
FUNCTION boolean FtpSetCurrentDirectoryA( ulong hService, string szPath ) LIBRARY "wininet.dll"
//FUNCTION ulong FtpOpentFileA( ulong hSession, string szFileName, ulong dwAccess, ulong dwFlags, ulong dwContext ) LIBRARY "wininet.dll"
//FUNCTION boolean InternetFindNextFileA( ulong hFind, REF os_finddata lpvData ) LIBRARY "wininet.dll"

// windows functions
//FUNCTION boolean FileTimeToSystemTime(ref os_filedatetime lpFileTime, ref os_systemtime lpSystemTime) library "KERNEL32.DLL"
//FUNCTION boolean FileTimeToLocalFileTime(ref os_filedatetime lpFileTime, ref os_filedatetime lpLocalFileTime) library "KERNEL32.DLL"
FUNCTION ulong GetLastError() LIBRARY "kernel32.dll"

/***********************************************************************************************/
fw_ftp_report:

string s_logon, s_password_a, s_ftp_address, s_cd_directory, s_file_name_a
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

s_logon = dw_1.GetItemString(a_l_curr_rpw, 'logon')
s_password_a = dw_1.GetItemString(a_l_curr_rpw, 'password_a')
s_ftp_address = dw_1.GetItemString(a_l_curr_rpw, 'ftp_address')
s_cd_directory = dw_1.GetItemString(a_l_curr_rpw, 'cd_directory')
s_file_name_a = dw_1.GetItemString(a_l_curr_rpw, 'file_name_a')

s_file_name_a = a_s_assoc_name + ' - ' + Mid(s_file_name_a, 1, Pos(lower(s_file_name_a), '.pdf')) + ' - ' + i_s_today + '.pdf'

// Connect ...
l_session = InternetConnectA(l_internet, s_ftp_address, INTERNET_DEFAULT_FTP_PORT, s_logon, s_password_a, &
INTERNET_SERVICE_FTP, 0, 0) //INTERNET_FLAG_PASSIVE, 0)

IF IsNull(l_session) OR l_session = 0 THEN
InternetCloseHandle(l_session)
RETURN 'Error: InternetConnectA'
END IF

IF NOT IsNull(s_cd_directory) THEN
IF NOT FtpSetCurrentDirectoryA(l_session, s_cd_directory) THEN
IF NOT FtpCreateDirectoryA(l_session, s_cd_directory) THEN
RETURN 'Error: FtpCreateDirectoryA'
ELSE
IF NOT FtpSetCurrentDirectoryA(l_session, s_cd_directory) THEN
RETURN 'Error: FtpSetCurrentDirectoryA'
END IF
END IF
END IF
END IF
// Send ...
//l_mode = FTP_TRANSFER_TYPE_ASCII
l_mode = FTP_TRANSFER_TYPE_BINARY

// ar_s_file_name is the local file...
// s_file_name_a is the new remote file...
IF NOT FtpPutFileA(l_session, ar_s_file_name, s_file_name_a, l_mode, 0) THEN
InternetCloseHandle(l_session)
RETURN 'Error: FtpPutFileA'
END IF

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

RETURN ''