主题:[讨论]pb使用mftpx.OCX控件出错,控件已经注册过了!
我按照以下说明弄好
3. 使用Mabry Internet FTP/X Control
---- 此控件是由Mabry Software公司提供的一个用于Ftp的控件,读者可以到www.mabry.com上去下载此控件(mftpx.ocx)。经比较,笔者认为在进行ftp传输方面,使用此控件进行编程最方便。它能完成绝大部分Ftp的功能,而且在编程中能很方便地控制程序的运行。比如说要完成前述功能,我们先注册该控件,然后在PB程序中加入一个该控件的Ole,取名Ole_1;一个单行编辑器Sle_1,用为显示有关信息;一个按钮Cb_1,点击它时进行Ftp操作。另设一个boolean 型Instance Variables,取名is_con,并将它设为false,用于指示网络是否已连通。对该控件的属性进行如下设置:
属性 值 说明
Host 202.114.67.2
Logonname User
Logonpassword 12345
Timeout 10 根据实际情况设置
---- 在Cb_1的clicked事件中加入以下代码:
sle_1.text = "正在连接....."
setpointer(hourglass!)
ole_1.object.connect()
if is_con then
sle_1.text = "开始传输...."
ole_1.object.putfile
("c:\temp\t00001.txt","/txtdata/t00001.txt")
sle_1.text = "传输完毕!"
end if
setpointer(arrow!)
is_con = false
在Ole_1的各事件中加入相应代码:
connected事件:
if fconnected then
sle_1.text = "连接成功!"
is_con = true
else
sle_1.text = "连接失败!"
is_con = false
end if
externalexception事件:
sle_1.text = "外部错误,可能网络不通"
action = ExceptionIgnore!
progress事件:
sle_1.text = "已传输"
+ string(bytestransfered)+"字节....."
[color=#FF0000]因为
属性 值 说明
Host 202.114.67.2
Logonname User
Logonpassword 12345
Timeout 10 根据实际情况设置[/color]
这个我不知道哪里设置,所以在cb_1.clicked下最开始写了
ole_1.object.host="80.64.64.7"
ole_1.object.logonname="sygsj"
ole_1.object.logonpassword="gsj987"
ole_1.object.timeout=10
然后编译(compile)没有出错信息,运行(run)也不出错,界面弹出后,点击cb_1按钮,出错,提示是:
Application terminated.
Error: Error acessing external object property host at line 1 in clicked event of object cb_1 of w_download
不知道哪里有问题,请哪位大侠指导一下
3. 使用Mabry Internet FTP/X Control
---- 此控件是由Mabry Software公司提供的一个用于Ftp的控件,读者可以到www.mabry.com上去下载此控件(mftpx.ocx)。经比较,笔者认为在进行ftp传输方面,使用此控件进行编程最方便。它能完成绝大部分Ftp的功能,而且在编程中能很方便地控制程序的运行。比如说要完成前述功能,我们先注册该控件,然后在PB程序中加入一个该控件的Ole,取名Ole_1;一个单行编辑器Sle_1,用为显示有关信息;一个按钮Cb_1,点击它时进行Ftp操作。另设一个boolean 型Instance Variables,取名is_con,并将它设为false,用于指示网络是否已连通。对该控件的属性进行如下设置:
属性 值 说明
Host 202.114.67.2
Logonname User
Logonpassword 12345
Timeout 10 根据实际情况设置
---- 在Cb_1的clicked事件中加入以下代码:
sle_1.text = "正在连接....."
setpointer(hourglass!)
ole_1.object.connect()
if is_con then
sle_1.text = "开始传输...."
ole_1.object.putfile
("c:\temp\t00001.txt","/txtdata/t00001.txt")
sle_1.text = "传输完毕!"
end if
setpointer(arrow!)
is_con = false
在Ole_1的各事件中加入相应代码:
connected事件:
if fconnected then
sle_1.text = "连接成功!"
is_con = true
else
sle_1.text = "连接失败!"
is_con = false
end if
externalexception事件:
sle_1.text = "外部错误,可能网络不通"
action = ExceptionIgnore!
progress事件:
sle_1.text = "已传输"
+ string(bytestransfered)+"字节....."
[color=#FF0000]因为
属性 值 说明
Host 202.114.67.2
Logonname User
Logonpassword 12345
Timeout 10 根据实际情况设置[/color]
这个我不知道哪里设置,所以在cb_1.clicked下最开始写了
ole_1.object.host="80.64.64.7"
ole_1.object.logonname="sygsj"
ole_1.object.logonpassword="gsj987"
ole_1.object.timeout=10
然后编译(compile)没有出错信息,运行(run)也不出错,界面弹出后,点击cb_1按钮,出错,提示是:
Application terminated.
Error: Error acessing external object property host at line 1 in clicked event of object cb_1 of w_download
不知道哪里有问题,请哪位大侠指导一下