用VB創建FTP組件(put)
2024-07-21 02:15:41
供稿：網友
基本步驟是：
1、調用internetopen函數設置環境。
2、調用internetconnect 函數連接主機。
3、調用ftpputfile 函數得到文件。
4、用internetclosehandle 函數關閉第1、2步的句柄。
當使用ftpgetfile 時與上面的步驟看起來完全一樣。事實上唯一的區別是在第3步中調用了ftpputfile 。vb特定調用這一函數的聲明是：
private declare function ftpputfile lib "wininet.dll" alias "ftpputfilea" _
(byval hftpsession as long, byval lpszlocalfile as string, _
byval lpszremotefile as string, byval dwflags as long, _
byval dwcontext as long) as boolean
第一個參數hftpsession 是internetconnect 調用返回的句柄值。
lpsznewfile 和lpszremotefile 分別是本地機上的文件名和將在遠程主機上創建的文件名。
參數dwflags 指定為1時，用ascii 傳輸文件（a類傳輸方法），指定為2是用二進制傳輸文件（1類傳輸方法）。由于dirmap.txt 是ascii 文本文件，我們傳遞值1。
最后，當使用回叫信號時，lcontext 用來識別應用程序前后關系。因為在我們的例子中不使用回叫信號，所以這個值為0。
以下是得到dirmap.txt文件并將其存在 c:/dirmap.txt的調用。
blnrc = ftpputfile(lnginetconn, “c::/dirmap.txt”, “dirmap.txt”, 1, 0)
如果函數調用成功，blnrc為 true, 反之為false。
你可以看到，把文件放到ftp服務器上與從ftp服務器上得到文件一樣簡單。有一點要注意，匿名用戶無權在ftp服務器上創建文件。所以要確定用來與ftp服務器連接的用戶帳號要有創建文件的權限。不然的話，ftpputfile函數調用就會返回false，說明put 失敗了。
注冊會員，創建你的web開發資料庫，
