易語言ftp操作-九游会j9娱乐平台
1. 易語言 ftp的操作
.版本 2
.支持庫 iext
.支持庫 internet.局部變數 項目類型, 整數型
.局部變數 選中項, 整數型
.局部變數 當前目錄, 文本型
.局部變數 容器1, 整數型選中項 = 遠程文件框.現行選中項
.如果真 (選中項 = -1)
返回 ()
.如果真結束
項目類型 = 遠程文件框.取表項數值 (選中項)當前目錄 = ftp取現行目錄 ()
.判斷開始 (項目類型 = 0) ' 是否為到上目錄
容器1 = 倒找文本 (當前目錄, 「/」, , 真)
.如果真 (容器1 ≠ -1)
當前目錄 = 取文本左邊 (當前目錄, 容器1)
.如果真 (當前目錄 ≠ 「/」)
當前目錄 = 取文本左邊 (當前目錄, 容器1 - 1)
.如果真結束
ftp置現行目錄 (當前目錄)
填充遠程框 ()
.如果真結束.判斷 (項目類型 = 1) ' 是否到子目錄
.如果真 (取文本右邊 (當前目錄, 1) ≠ 「/」)
當前目錄 = 當前目錄 + 「/」
.如果真結束
ftp置現行目錄 (當前目錄 + 遠程文件框.取標題 (選中項, ))
填充遠程框 ()
.默認.版本 2
.支持庫 iext
.支持庫 internet.子程序 填充遠程框
.局部變數 文件名, 文本型, , "0"
.局部變數 文件尺寸, 整數型, , "0"
.局部變數 文件屬性, 整數型, , "0"
.局部變數 文件時間, 日期時間型, , "0"
.局部變數 數目, 整數型
.局部變數 容器1, 整數型
.局部變數 名稱, 文本型
.局部變數 索引, 整數型
.局部變數 現行目錄, 文本型遠程文件框.全部刪除 ()狀態標簽.標題 = 「正在獲取目錄列表,請稍候...」
狀態標簽.刷新顯示 () ' 立即顯示改變後的標題
數目 = ftp目錄列表 (「*.*」, , 文件名, 文件屬性, 文件尺寸, 文件時間)
' 填充目錄
現行目錄 = ftp取現行目錄 ()
.如果真 (現行目錄 ≠ 「/」)
遠程文件框.插入表項 (, , 0, , , 0) ' 如果不是根目錄,則插入到父目錄的特殊表項
.如果真結束.計次循環首 (數目, 容器1)
.如果真 (位與 (文件屬性 [容器1], #子目錄) ≠ 0)
名稱 = 文件名 [容器1]
.如果真 (取文本左邊 (名稱, 1) ≠ 「.」)
索引 = 遠程文件框.插入表項 (, 名稱, 1, , , 1)
遠程文件框.置標題 (索引, 2, 到文本 (文件時間 [容器1]))
.如果真結束 .如果真結束.計次循環尾 ()
' 填充文件
.計次循環首 (數目, 容器1)
.如果真 (位與 (文件屬性 [容器1], #子目錄) = 0)
索引 = 遠程文件框.插入表項 (, 文件名 [容器1], 2, , , 2)
遠程文件框.置標題 (索引, 1, 到文本 (文件尺寸 [容器1]))
遠程文件框.置標題 (索引, 2, 到文本 (文件時間 [容器1]))
.如果真結束.計次循環尾 ()
2. 易語言連接ftp伺服器後如何讀取某個圖片文件顯示在圖片框上
1、如果是ftp伺服器連接用以下代碼
.版本 2
.支持庫 internet
ftp文件下載 (「ftp伺服器上欲下載文件的路徑」, 「本地保存位置」, )
圖片框1.圖片 = 讀入文件 (「本地保存位置」)
2、如果是網頁圖片用以下代碼
圖片框1.圖片 = http讀文件 (「http文件地址」)
3. 易語言ftp文件上傳問題,感激~
可以像圖片里寫。
其中ftp地址、賬號、密碼區你可以用編輯框來代替。其它的我就不多說了。
4. 易語言ftp上傳文件
[e=1].版本 2
.支持庫 spec
.子程序 _按鈕1_被單擊
.局部變數 ftp, 類_ftp
.如果真 (ftp.連接ftp伺服器 (地址, 帳號, 密碼, 21, ))
.如果真 (ftp.文件上傳 (取運行目錄 () + 「\123.txt」, 「/123.txt」, ))
調試輸出 (「上傳成功」)
.如果真結束
[/e]
1.文件上傳,返回的是真嗎。 是否上傳成功,如果成功了說明命令沒有問題,是參數的問題。
2.文件上傳的第二個參數,去掉ip地址試試。
5. 易語言 ftp讀取txt
步驟是,1.連接ftp伺服器進行下載你要的文本文件到本地
2.再打開本地讀入文件內容顯示在編輯框內
具體例:
.版本 2
.支持庫 internet
.支持庫 shell
.子程序 __啟動窗口_創建完畢
.局部變數 文件號, 整數型
連接ftp伺服器 (「58.222.184.**」, 「j***」, 「0910228***」, , )
ftp文件下載 (「1.txt」, 取特定目錄 (3) + 「\1.txt」, )『因為我的e不好編輯,我把他存在桌面了!你可以自己設定位置。
文件號 = 打開文件 (取特定目錄 (3) + 「\1.txt」, , )
編輯框1.內容 = 讀入文本 (文件號, )
6. 易語言ftp文件上傳 到指定文件夾
.版本 2
.支持庫 downlib
.支持庫 iext
.支持庫 internet
.程序集變數 上傳文件, ftp上傳對象
.程序集變數 參數, 任務參數
.子程序 上傳
參數.類型 = 2 + 3 ' 參數詳見提示
參數.傳送類型 = 1
參數.文件地址 = 「ftp://」 + ftp地址 + 「/」 + ftp賬號 + 「/1/1.txt」 ' 這里是ftp伺服器路徑,可以修改。
參數.用戶名 = ftp賬號
參數.用戶密碼 = ftp密碼
參數.本地文件路徑 = 「c:\1.txt」 ' 這里的文件名是需要上傳的文件路徑,可以修改。
參數.線程等待超時 = 1000
' =============================================================
透明標簽1.標題 = 「正在連接伺服器...」
透明標簽2.標題 = 「正在上傳文件...」
.判斷開始 (連接ftp伺服器 (ftp地址, ftp賬號, ftp密碼, , ))
透明標簽1.標題 = 「已連接!」
輸出調試文本 (ftp取現行目錄 () + 「aaa」)
.默認
透明標簽1.標題 = 「連接失敗!」
返回 ()
.判斷結束
' =============================================================
' 雙線內代碼為測試伺服器是否可用,可以不需要
上傳文件.上傳文件 (參數)
7. 易語言讀取ftp指定目錄里的txt文件名到列表框
.版本 2
.支持庫 internet
.子程序 _列表框1_雙擊選擇
.如果 (連接ftp伺服器 (ftp, usr, pas, , ))
ftp置現行目錄 () ' 設為你指定的目錄
.如果 (ftp文件下載 (列表框1.取項目文本 (列表框1.現行選中項), 「.\temp.txt」, ))
編輯框1.內容 = 到文本 (讀入文件 (「.\temp.txt」))
.否則
信息框 (「ftp文件下載失敗」, 16, 「錯誤」)
.如果結束
斷開ftp伺服器 ()
.否則
信息框 (「連接ftp伺服器失敗」, 16, 「錯誤」)
.如果結束
.子程序 _按鈕1_被單擊
.局部變數 文件列表, 文本型, , "0"
.局部變數 cnt, 整數型
.局部變數 tmp, 整數型
.如果 (連接ftp伺服器 (ftp, usr, pas, , ))
ftp置現行目錄 () ' 設為你指定的目錄
cnt = ftp目錄列表 (「*.txt」, , 文件列表, , , )
列表框1.清空 ()
.計次循環首 (cnt, tmp)
列表框1.加入項目 (文件列表 [tmp], )
處理事件 ()
.計次循環尾 ()
斷開ftp伺服器 ()
.否則
信息框 (「連接ftp伺服器失敗」, 16, 「錯誤」)
.如果結束
8. 易語言ftp下載文件夾里的全部文件
.版本 2
.支持庫 internet
.程序集 窗口程序集1
.程序集變數 目錄, 文本型, , "0"
.程序集變數 cnt, 整數型
.程序集變數 tmp, 整數型
.子程序 _按鈕1_被單擊
.如果真 (連接ftp伺服器 (「ftp ip」, 「賬號」, 「密碼」, 21, ) = 真)
編輯框1.內容 = 編輯框1.內容 + 「ftp已連接」
.如果真結束
.如果真 (ftp置現行目錄 (「你要進入的目錄」) = 真)
編輯框1.內容 = 編輯框1.內容 + #換行符 + 「進入目錄」
.如果真結束
cnt = ftp目錄列表 (「*.*」, , 目錄, , , )
.計次循環首 (cnt, tmp)
編輯框1.內容 = 編輯框1.內容 + #換行符 + 目錄 [tmp]
.計次循環尾 ()
.子程序 _按鈕2_被單擊
編輯框1.內容 = 編輯框1.內容 + #換行符 + 「---------------------------------------」
.計次循環首 (cnt, tmp)
ftp文件下載 (目錄 [tmp], 取運行目錄 () + 「/」 + 目錄 [tmp], )
編輯框1.內容 = 編輯框1.內容 + #換行符 + 「下載文件:」 + 取運行目錄 () + 「/」 + 目錄 [tmp]
.計次循環尾 ()