FTP & Internet Transfer

ArthurYe 2003-12-14 01:23:37
各位高手:
我使用OLE选中Internet Transfer然后在一台装有IIS,网卡,NT4.0 Server的PC下编程想实现FTP异步下载功能,具体我做了IIS的基本用户设置然后在OLE控件里设置了user 等属性然后运行ole_1.object.execute("","get \file.txt c:\file.txt")出现严重运行错误。我还试用了在dos下使用ftp命令在输入password的时候出现输入不进的问题导致无法完成get操作。 请教这些是什么原因,怎么解决这个问题,及这个控件有个事件叫什么(statechange吧)不记得了需要编程去实现异步下载,这里怎么去写很想知道。最好能给个源代码例子(pbl)和设计思路,让我可以快速学习并掌握,如果较大可以发到我的E-Mail Box: ArthurYe_01@yahoo.com.cn

-------------------乐乐----------------------------无限感激---------------
...全文
68 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ArthurYe 2003-12-16
  • 打赏
  • 举报
回复
由于手里严重缺乏资料,请各位高手踊跃提供microsoft internet transfer属性,事件,函数(参数,返回值,用途)的详细资料给我好吗,英文也可以,需要详细,再请各位如果有一分教详细的原代码的话最好给我发一份,WINDOWS和UNIX平台之间FTP需要注意些什么请教!我这里分还没人来领,参与者均有分,也可以发E-MAIL:ArthurYe_01@yahoo.com.cn

----------------乐乐---------------------------------Waiting for u----------------
ArthurYe 2003-12-15
  • 打赏
  • 举报
回复
我改了一下设置,把NT帐号和FTP用户相统一,好象有些前进,但是仍然不能login,说是:
directory inaccessable只类的(不是很准确,意思是这样),请各位高手多多指点小弟!!!

-----------------乐乐-------------------------------再三感谢----------------------
ArthurYe 2003-12-15
  • 打赏
  • 举报
回复
ropriest(馆主):
首先对您的回复表达我真诚的感谢!!我觉得目前可能主要是配置上出了问题,因为我查看了FTP服务已经打开(是不是ftp publishing service这个服务?,如果不是我在我的PC上就没有看到什么有关FTP的服务了)在程序中我运行ole_1.object.openurl()函数后statechanged事件显示是state=11,表icError与主机通讯时出现了错误。我在dos下运行ftp命令,IIS显示已经有个用户连上了,我再输入用户名就显示了我在IIS中定义的用户名,然后再输入密码出现输入无法看到效果的现象,接着就是530 user f1 cannot login \n login failed.于是就不能作到get,put的操作.然后我又试用了anonymous用户登陆仍然不行。请您详细的告诉我如何配置他们好吗? 另外,因为手里缺乏资料,恳请您给一份较详细关于internet transfer属性,事件,函数的资料好吗?

----------------乐乐-------------------------------感激不尽---------------------
ropriest 2003-12-14
  • 打赏
  • 举报
回复
1、看看你的服务器是否有开ftp服务
2、控件的用法:
1) 控件属性中设置url中的协议为ftp
2) 调用ole控件的事件中写上连接的必要信息
ole_1.object.document=is_doc
ole_1.object.username=is_usr
ole_1.object.password=is_pwd
ole_1.object.remotehost=is_ip //主机ip

//然后连接,也可以放到statechanged中去连接
ole_1.object.execute(ole_1.object.url," cd "+is_doc)

3)ole的statechanged中可以获取ole执行具体的指令和执行的状态
choose case state
case 0
……
case 12
ole_1.object.execute(ole_1.object.url,"get" + is_name+" " + is_doc + "/" + is_name1)
MessageBox('','成功!')
ole_1.Object.Cancel()

End Choose

如果要一次性批量下载或上传,可以用mget,mput
要异步下在,可以用一个实例变量,让它每作一步赋一次值,然后根据变量的值执行下一步即可。如:
If ii_flag = 1 Then
ole……
ii_flag = 2
ElseIf ii_flag=2 Then
ole……
ii_flag = 3
……
End If









663

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder Web 应用
社区管理员
  • Web 应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧