易语言API核心库做的FTP上传文件源码

API核心库做的FTP上传文件系统结构:InternetOpen,InternetConnect,InternetCloseHandle,FtpFindFirstFile,InternetFindNextFile,FtpSetCurrentDirectory,FtpCreateDirectory,FtpGetCurrentDirectory,FtpRemoveDirectory,FtpGetFile,FtpPutFile,FtpOpenFile,FtpDeleteFile,InternetGetLastResponseInfo,======窗口程序集1||||------__启动窗口_创建完毕||||------_按钮1_被单击||||------_按钮2_被单击||||------_按钮3_被单击||||------_按钮4_被单击||||======调用的Dll||||---[dll]------InternetOpen||||---[dll]------InternetConnect||||---[dll]------InternetCloseHandle||||---[dll]------FtpFindFirstFile||||---[dll]------InternetFindNextFile||||---[dll]------FtpSetCurrentDirectory||||---[dll]------FtpCreateDirectory||||---[dll]------FtpGetCurrentDirectory||||---[dll]------FtpRemoveDirectory||||---[dll]------FtpGetFile||||---[dll]------FtpPutFile||||---[dll]------FtpOpenFile||||---[dll]------FtpDeleteFile||||---[dll]------InternetGetLastResponseInfo 调用的DLL命令:.DLL命令InternetOpen,整数型,"wininet.dll","InternetOpenA".参数sAgent,文本型.参数lAccessType,整数型.参数sProxyName,文本型.参数sProxyBypass,文本型.参数lFlags,整数型.DLL命令InternetConnect,整数型,"wininet.dll","InternetConnectA".参数hInternetSession,整数型.参数sServerName,文本型.参数nServerPort,短整数型.参数sUsername,文本型.参数sPassword,文本型.参数lService,整数型.参数lFlags,整数型.参数lContext,整数型.DLL命令InternetCloseHandle,短整数型,"wininet.dll".参数hInet,整数型.DLL命令FtpFindFirstFile,整数型,"wininet.dll","FtpFindFirstFileA".参数hFtpSession,整数型.参数lpszSearchFile,文本型.参数lpFindFileData,WIN32_FIND_DATA,传址.参数dwFlags,整数型.参数dwContent,整数型.DLL命令InternetFindNextFile,整数型,"wininet.dll","InternetFindNextFileA".参数hFind,整数型.参数lpvFindData,WIN32_FIND_DATA,传址.DLL命令FtpSetCurrentDirectory,逻辑型,"wininet.dll","FtpSetCurrentDirectoryA".参数hFtpSession,整数型.参数lpszDirectory,文本型.DLL命令FtpCreateDirectory,逻辑型,"wininet.dll","FtpCreateDirectoryA".参数hFtpSession,整数型.参数lpszDirectory,文本型.DLL命令FtpGetCurrentDirectory,逻辑型,"wininet.dll","FtpGetCurrentDirectoryA".参数hFtpSession,整数型.参数lpszCurrentDirectory,文本型,传址.参数lpdwCurrentDirectory,整数型,传址.DLL命令FtpRemoveDirectory,逻辑型,"wininet.dll","FtpRemoveDirectoryA".参数hFtpSession,整数型.参数lpszDirectory,文本型.DLL命令FtpGetFile,逻辑型,"wininet.dll","FtpGetFileA".参数hFtpSession,整数型.参数lpszRemoteFile,文本型.参数lpszNewFile,文本型.参数fFailIfExists,逻辑型.参数dwFlagsAndAttributes,整数型.参数dwFlags,整数型.参数dwContext,整数型.DLL命令FtpPutFile,逻辑型,"wininet.dll","FtpPutFileA".参数hFtpSession,整数型.参数lpszLocalFile,文本型.参数lpszRemoteFile,文本型.参数dwFlags,整数型.参数dwContext,整数型.DLL命令FtpOpenFile,整数型,"wininet.dll","FtpOpenFileA".参数hFtpSession,整数型.参数sFileName,文本型.参数lAccess,整数型.参数lFlags,整数型.参数lContext,整数型.DLL命令FtpDeleteFile,逻辑型,"wininet.dll","FtpDeleteFileA".参数hFtpSession,整数型.参数lpszFileName,文本型.DLL命令InternetGetLastResponseInfo,逻辑型,"wininet.dll","InternetGetLastResponseInfoA".参数lpdwError,整数型,传址.参数lpszBuffer,文本型.参数lpdwBufferLength,整数型,传址