精易论坛

标题: 类_ftp 连接命令应该再加上一个 是否被动语义 被动模式参数 [打印本页]

作者: wjt741106    时间: 2017-5-5 18:23
标题: 类_ftp 连接命令应该再加上一个 是否被动语义 被动模式参数
.版本 2
.子程序 连接FTP服务器, 逻辑型, 公开, 连接FTP服务器;
.参数 FTP服务器地址, 文本型
.参数 用户名, 文本型, 可空
.参数 密码, 文本型, 可空
.参数 端口号, 整数型, 可空
.参数 是否被动语义, 逻辑型, 可空, 为空,默认为被动模式        ---------------------》  应该加上这个参数,允许选择FTP连接模式。我测试过,在某些被动模式FTP服务器,没有这个参数,不能正常下载文件 ,不知道是否有这个必要,请专家考证
.如果真 (是否为空 (用户名))
    用户名 = “anonymous”
.如果真结束
.如果真 (是否为空 (密码))
    密码 = 字符 (0)
.如果真结束
.如果真 (是否为空 (端口号))
    端口号 = 21
.如果真结束
初始句柄 = InternetOpenA (字符 (0), 1, 字符 (0), 字符 (0), 0)
' 连接句柄 = InternetConnectA (初始句柄, FTP服务器地址, 端口号, 用户名, 密码, 1, 0, 0)
连接句柄 = InternetConnectA (初始句柄, FTP服务器地址, 端口号, 用户名, 密码, 1, 选择 (是否被动语义, 134217728, 0), 0)
.如果真 (连接句柄 ≠ 0)
    返回 (真)
.如果真结束
断开FTP服务器 ()
返回 (假)


作者: 项目部002    时间: 2017-5-6 10:45
已加入,请于下次更新后下载新版。




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4