我按照一下說明弄好
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)+"位元組....."
因為
屬性 值 說明
Host 202.114.67.2
Logonname User
Logonpassword 12345
Timeout 10 根據實際情況設定
這個我不知道哪里設定，所以在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
不知道哪里有問題，請哪位大俠指導一下
uj5u.com熱心網友回復：
詳細情況：http://www.winu.cn/ask/question.php?qid=15122
uj5u.com熱心網友回復：
應該是找不到那個ocx，沒有注冊的可能性最大。uj5u.com熱心網友回復：
2樓的（那個就是我發的，我就是按后面那個方法設定的啊），沒用的。頂上去轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/96415.html
標籤：控件與界面
下一篇：兩節連排的排課問題