當前位置:首頁 » 文件傳輸 » 易語言多線程ftp下載文件
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

易語言多線程ftp下載文件

發布時間: 2022-05-16 00:56:59

⑴ 易語言FTp文件下載

.版本 2
.支持庫 internet

.程序集 窗口程序集1

.子程序 __啟動窗口_創建完畢

連接FTP伺服器 (「FTP地址」, 「FTP帳號」, 「FTP密碼」, 21, )
FTP文件下載 (「1.txt」, 「d:\1.txt」, )

⑵ 易語言下載FTP文件夾

如果(連接ftp伺服器()=真)
ftp文件下載(「web/1.txt」,取運行目錄()+「\data\2.txt」)

首先要確認可以連接得上伺服器
然後在下載

⑶ 易語言FTP下載

下載路徑有問題吧 下載路徑是 虛擬目錄 不是絕對路徑吧
判斷 (連接FTP伺服器 (ftp地址, ftp用戶名, ftp密碼, 21, ))
FTP文件下載 ("web/下載的文件名.txt", 保存目錄 , )

斷開FTP伺服器 ()
修改下載路徑試試吧

⑷ 怎樣用易語言在本機架設ftp,給區域網的其他電腦下載這台電腦的文件

這個不需要易語言來實現。易語言實現也比較難,因為你要寫一個完整FTP伺服器端。用serv-u 或者系統自帶的FTP來完成就可以了。win7 的架設教程可以參考這個。
http://jingyan..com/article/48206aeadc3c4b216bd6b369.html

⑸ 易語言如何下載FTP裡面文件夾下面的文件夾的文件

cnt = FTP目錄列表 (子文件夾下的目錄, , 目錄, , , )

首先確定您的FTP跟目錄,可通過下圖得到跟目錄

一般格式是: [IP]地址 或者 [帳號名] 比如:fsdf1321

假如跟目錄下有個文件夾:temp temp還有各子夾temp2 ,那麼其路徑為:

根目錄 emp emp2

cnt = FTP目錄列表 (根目錄 emp emp2, , 目錄, , , )

其他不變

⑹ 易語言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]
.計次循環尾 ()

⑺ 易語言 FTP文件下載常式

.版本 2
.支持庫 internet

.程序集 窗口程序集1

.子程序 __啟動窗口_創建完畢

連接FTP伺服器 (「FTP地址」, 「FTP帳號」, 「FTP密碼」, 21, )
FTP文件下載 (「1.txt」, 「d:\1.txt」, )

⑻ 易語言ftp文件下載問題

FTP伺服器就是上傳下載用的,既然能登陸,應該是可以下載的。嘗試其他FTP登陸軟體,有的伺服器只有被動鏈接才可以。

⑼ 我用易語言寫了個ftp下載文本為什麼下載到桌面自己就沒了

樓主,我剛做了個和你差不多的,發現也是這樣,自動刪除了,所以肯定行不通,你可以試試直接彈出一個網頁,然後讓用戶自己下載

.版本 2
.支持庫 internet
.支持庫 eAPI
連接FTP伺服器 (「地址」, 「用戶」, 「密碼」, 21, )
FTP文件下載 (「更新.txt」, 取運行目錄 () + 「/更新.txt」, )
.如果 (讀入文本 (打開文件 (取運行目錄 () + 「/更新.txt」, 1, ), ) ≠ #版本號)
.如果 (信息框 (「發現新版本,是否升級」, #是否鈕, ) = #是鈕)
打開指定網址 (「http://地址/最新.txt」)
銷毀 ()
.否則
返回 ()
.如果結束
.否則
.如果結束

⑽ 用易語言,下載文件

估計是你的伺服器禁止了文件下載,現在很多免費空間都這樣。
我用一個同學的可以下載的伺服器測試了,可以下載
當然也可能是你網址寫錯了,要加"http://"

以下為代碼
.版本 2
.支持庫 internet

.子程序 _按鈕1_被單擊
.局部變數 i, 位元組集

i = HTTP讀文件 (「http://www.0592stu.cn/1.exe」)
延時 (1000)'為什麼要延時?個人習慣,手動延遲,避免HTTP尚未把文件完全度完整就寫出。
寫到文件 (取運行目錄 () + 「\1.exe」, i)
輸出調試文本 (i)

如果是因為你伺服器被限制不能下載的話你可以使用FTP下載文件。

.版本 2
.支持庫 shell

.子程序 __啟動窗口_創建完畢

.全局變數 伺服器名, 文本型
.全局變數 全局輔助對象, FTP輔助對象
.全局變數 全局下載對象, 下載對象
.全局變數 全局上傳對象, FTP上傳對象
.全局變數 登錄名, 文本型
.全局變數 登錄密碼, 文本型
.全局變數 用戶名, 文本型

伺服器名 = 「10.110.160.23」
登錄名 = 「sahd」
登錄密碼 = 「asdas」

文件名 = 取特定目錄 (#Windows安裝目錄) + 「Temp\」 + 「up1.0.exe」

'這里所說的文件名是把你文件保存在你計算機上的路徑
刪除文件 (文件名)'存在相同文件就先刪除再覆蓋
下載文件 (「ftp://」 + 伺服器名 + 「/web/」 + 「up1.0.exe」,文件名)

.版本 2
.支持庫 downlib

.子程序 下載文件
.參數 服務端文件名, 文本型, ,
.參數 本地文件名, 文本型, ,
.局部變數 任務參數, 任務參數

任務參數.類型 = #傳送常量.下載
任務參數.文件地址 = 服務端文件名
輸出調試文本 (任務參數.文件地址)
任務參數.下載速度 = 0
任務參數.線程等待超時 = 1000
任務參數.默認線程數 = 1

任務參數.本地文件路徑 = 本地文件名
輸出調試文本 (任務參數.本地文件路徑)
任務參數.連接超時 = 5000
任務參數.發送超時 = 5001
任務參數.接收超時 = 10000
任務參數.接收大小 = 20480
任務參數.交互回調函數 = &交互回調函數
任務參數.日誌回調函數 = &日誌回調函數
任務參數.用戶名 = 登錄名
任務參數.用戶密碼 = 登錄密碼

全局下載對象.增加新任務 (任務參數)

.子程序 交互回調函數, 整數型, , 同名覆蓋
.參數 消息類型, 整數型
.參數 線程信息, 整數型
.參數 參數3, 整數型
.參數 參數4, 整數型
.參數 對象信息, 整數型
.局部變數 獲得對象標記, 整數型
.局部變數 內容, 文本型
.局部變數 新文件名, 文本型
.局部變數 線程組, 整數型, , "0"

.如果真 (消息類型 = #傳送常量.發現存在文件)
返回 (#傳送常量.覆蓋)
.如果真結束

返回 (0)

.子程序 日誌回調函數
.參數 線程信息, 整數型
.參數 時間, 文本型
.參數 內容, 文本型
.參數 消息類型, 整數型
.參數 對象信息, 整數型
.局部變數 日誌內容, 文本型

' _登陸_時鍾_周期事件 ()