integer i
string fpath,fname
for i=1 to lb_1.TotalItems() // lb_1中顯示的是需要上傳的檔案完整路徑
fpath=lb_1.Text(i) //fpath=檔案完整路徑
fname=right(fpath,len(fpath)-LastPos(fpath, "\"))//fname=檔案名
Ole_1.object.execute("","put " + fpath+" \"+fname)
do until ole_1.object.StillExecuting = False
loop
next
//想實作的功能是把lb中顯示的檔案 回圈呼叫Internet Transfer 控制元件的execute put 方法 批量上傳檔案
結果死回圈 誰給看看？
還有個問題 怎么獲的 execute size 方法回傳的值？
uj5u.com熱心網友回復：
跟蹤一下就知道了！http://www.newasp.net/tech/net/12011.html
uj5u.com熱心網友回復：
---- 在用PB進行開發時常常需要用到ftp功能，最典型的應用就是將資料視窗中的資料生成txt檔案，然后將此資料檔案用ftp發送到遠程服務器上去。由于pb本身并未提供任何ftp的功能，因此想在pb中進行ftp傳輸，只能應用pb以外的資源。以下是筆者在pb開發中總結出來的幾種方法。
---- 1． 使用外部命令
---- 這種方法就是在pb程式中運行Windows中自帶的ftp命令。具體做法是在程式中生成一個.bat檔案，將要運行的ftp命令寫到此檔案中，再運行這個批處理檔案。假設ftp服務器ip為 202.114.67.2，用戶名為user，口令12345，現在要將本地c:\temp\下的t00001.txt檔案上傳到服務器的\txtdata\目錄下去。則pb代碼如下：
integer li_bat //檔案名指標
li_bat = FileOpen(path_ftp+'get_file.bat',
lineMode!, Write!, LockWrite!, Replace!)
FileWrite(li_bat, 'cd c:\temp\')
FileWrite(li_bat, 'ftp 202.114.67.2')
FileWrite(li_bat, 'user)
FileWrite(li_bat, '12345')
FileWrite(li_bat, 'put t00001.txt
\txtdata\t00001.txt')
FileWrite(li_bat, 'bye')
FileWrite(li_bat, 'exit')
FileClose(li_bat)
Run(path_ftp+'get_file.BAT',Minimized!)
messagebox("提示資訊","資料上報完畢")
---- 此方法的優點是簡單易行，既不要呼叫API函式，也不需加入OLE。缺點一是要運行外部命令，將會打開dos視窗，顯得不夠和諧；二是資料傳輸成功與否無法判斷，在編程時不好控制。
---- 2． 使用Internet Transfer控制元件
---- Internet Transfer控制元件是網路編程中非常常用的控制元件。它支持目前Internet上使用最為廣泛的兩種協議，即Http和Ftp。在windows98中它是由系統自帶。有關此控制元件的詳細資料請查看相關書籍。這里我們只使用它的Ftp功能。在PB中加入一個與此控制元件的OLE，取名ole_1，并按以下資料設定此控制元件的屬性（注意不是ole_1的屬性），表中沒有列出的屬性請用預設值：
屬性 值 說明
Protocol 2 指定用Ftp協議
Remotehost 202.114.67.2
Username User1
Password 12345
---- Internet Transfer控制元件支持兩種資料傳輸方式，即同步傳輸方式和異步傳輸方式。同步傳輸方式在資料傳輸時會阻塞程式，此功能是通過呼叫該控制元件的OpenUrl方法來實作的；而異步方式則不會阻塞程式，它通過呼叫控制元件的Execute方法來實作。同步方式雖然易于控制，但它只能下載檔案，不能上傳檔案，這使得它在實際的應用受到限制。要實作資料的上傳下載，只能使用此控制元件的異步傳輸方式。要完成上例中的功能，在PB程式中加入以下陳述句即可：
Ole_1.object.execute("","put c:
\temp\t00001.txt \txtdata\t00001.txt")
---- 同理，如果要將服務器上的檔案下載到本地，在程式中加入即下陳述句：
Ole_1. object.execute("","get \txtdata\t00001.txt c:\temp\t00001.txt")
---- Internet Transfer控制元件的功能很強大，利用它足以制作一個功能比較完善的FTP工具，而且它是作業系統自帶的，在編程時不需要注冊新的控制元件。但根據筆者的使用經驗，此控制元件也有兩個不能忽視的缺點，其一、它的資料上傳下載是異步傳輸的，在每次只運行一個ftp命令時尚可，如果一次運行多個ftp命令就會出錯。比如說，我們想先進入服務器的\file目錄，再上傳資料，這樣程式應如下：
Ole_1.object.execute("","cd \file\")
Ole_1.object.execute("","put
c:\temp\t00001.txt \txtdata\t00001.txt")
---- 由于execute方法是異步執行的，它不等第一個陳述句完成就開始執行第二條陳述句，這樣可能服務器還來不及將當前目錄轉到\file下資料已經開始上傳，造成錯誤。
---- 其二、筆者還發現一個莫名其妙的問題，那就是利用此控制元件進行上傳時它會將上傳到服務器上的檔案的檔案名改為大寫，如上例中，本地的t00001.txt上傳到服務器上后，它的名字會變成T00001.TXT，這在NT上自然無妨，但在Unix機器上就可能帶來錯誤。
---- 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)+"位元組....."
---- 此控制元件其它函式和屬性請在PB的Browser畫板中查看，此處不再詳述。
---- 上述程式在以下系統中試驗通過：
---- 服務器 Digital Unix
---- 開發工具 Pwin98 + Powerbuilder6.5
uj5u.com熱心網友回復：
你說的跟蹤是debug吧？在除錯狀態下運行程式 就一切正常，執行狀態下 就死回圈 ，很奇怪uj5u.com熱心網友回復：
問題一：Ole_1.object.execute("","put " + fpath+" \"+fname)
do until ole_1.object.StillExecuting = False
loop
不應該判斷等于FALSE,等于FALSE就代表執行完畢了，應該：
Ole_1.object.execute("","put " + fpath+" \"+fname)
do until ole_1.object.StillExecuting = true
yield() //可以回應取消
loop
問題二：
ll_size=long(ole_1.object.Getchunk(1024,0))
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/103553.html
標籤：控件與界面
上一篇：Microsoft Internet Transfer Control FTP問題 高分求教 在線等
下一篇：OpenSheet如何加判斷