kendimce ftpci diye bir class yazmıştım, can alıcı komutların (declare dlls) hepsini aşağıya kopyaladım:
DECLARE INTEGER URLDownloadToFile IN urlmon.dll;
INTEGER pCaller, STRING szURL,;
STRING szFileName, INTEGER dwReserved,;
INTEGER lpfnCB
* Declare a Kernel32 Functions
DECLARE Integer GetLastError IN Kernel32
DECLARE Integer FileTimeToSystemTime IN Kernel32 ;
String @lpcBuffer, String @lpcBuffer
* Declare DLL functions used by Program
DECLARE Integer InternetAutodial IN WinInet ;
Integer nAccessType, Integer nHandle
DECLARE Integer InternetAutodialHangup IN WinInet ;
Integer nFlags
DECLARE Integer InternetDial IN WinInet ;
Integer nHandle, String @lpcDialUp, Integer nAccessType, Integer @nConnect_Handle, ;
Integer nFlags
DECLARE Integer InternetHangUp IN WinInet ;
Integer nConnect_Handle, Integer nFlags
DECLARE Integer InternetGetConnectedState IN WinInet ;
Integer @nContext, Integer nFlags
DECLARE Integer InternetGoOnline IN WinInet ;
String @lpcURL, Integer nHandle, Integer nFlags
DECLARE Integer InternetOpen IN WinInet ;
String @lpcAgent, Integer nAccessType, String @lpcProxyName, ;
String @lpcProxyBypass, Integer nFlags
DECLARE Integer InternetConnect IN WinInet ;
Integer nInet_Handle, String @lpcServer, Short nPort, String @lpcUserName, ;
String @lpcPassword, Integer nService, Integer nFlags, Integer nContext
DECLARE Integer InternetCloseHandle IN WinInet Integer nConnect_Handle
* FTP Functions
DECLARE Integer FtpCreateDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory
DECLARE Integer FtpDeleteFile IN WinInet ;
Integer nConnect_Handle, String @lpcFileName
DECLARE Integer FtpFindFirstFile IN WinInet ;
Integer nConnect_Handle, String @lpcSearchStr, String @lpcWIN32_FIND_DATA, ;
Integer nFlags, Integer nContext
DECLARE Integer InternetFindNextFile IN WinInet ;
Integer nConnect_Handle, String @lpcWIN32_FIND_DATA
DECLARE Integer FtpGetCurrentDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory, Integer @nMax_Path
DECLARE Integer FtpGetFile IN WinInet ;
Integer nConnect_Handle, String @lpcRemoteFile, String @lpcNewFile, ;
Integer nFailIfExists, Integer nAttributes, Integer nFlags, ;
Integer nContext
DECLARE Integer FtpOpenFile IN WinInet ;
Integer nConnect_Handle, String @lpcRemoteFile, Integer nAccessType, ;
Integer nFlags, Integer nContext
DECLARE Integer FtpPutFile IN WinInet ;
Integer nConnect_Handle, String @lpcNewFile, String @lpcRemoteFile, ;
Integer nFlags, Integer nContext
DECLARE Integer FtpRemoveDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory
DECLARE Integer FtpRenameFile IN WinInet ;
Integer nConnect_Handle, String @lpcRemoteFile, String @lpcNewFile
DECLARE Integer FtpSetCurrentDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory
DECLARE Integer InternetGetLastResponseInfo IN WinInet ;
Integer @nError, String @lpcBuffer, Integer @nMax_Path
**************
DECLARE INTEGER GetAdaptersInfo IN iphlpapi;
STRING @pAdapterInfo, LONG @pOutBufLen
************
VFP9 SP2