在PB中實現ftp傳輸
（加入日期:2001-6-21）
【保存文章至硬盤】【打印文章】【字體：大中
小】
---- 在用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
---- 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