APIFTP上传文件

系统结构: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, 整数型, 传址