易語言ftp進度

Ⅰ 在線求答案~~關於易語言進度條~~~~

下面是我的程序升級源碼,供你參考：
.版本 2
.支持庫 EThread

.程序集 窗口升級程序集
.程序集變數 ftp文件大小, 整數型
.程序集變數 本地文件名, 文本型
.程序集變數 本地文件, 整數型

.子程序 _升級窗口_創建完畢

.如果真 (取反 (文件是否存在 (取運行目錄 () ＋ 「/ZH.exe」)))
寫到文件 (取運行目錄 () ＋ 「/ZH.exe」, #升級)
.如果真結束

.判斷開始 (代理 ＝ 4)
本地文件名 ＝ 「4.exe」
升級1 (「4」)
.判斷 (代理 ＝ 3)
本地文件名 ＝ 「3.exe」
升級1 (「3」)
.判斷 (代理 ＝ 2)
本地文件名 ＝ 「2.exe」
升級1 (「2」)
.判斷 (代理 ＝ 1)
本地文件名 ＝ 「1.exe」
升級1 (「1」)
.默認

.判斷結束
_啟動窗口.銷毀 ()

.子程序 升級1
.參數 參數, 文本型

.如果 (FTP_連接FTP伺服器 (「地址」, 「用戶名」, 「密碼」, ))
編輯框1.加入文本 (#換行符 ＋ 「連接伺服器成功！」)
FTP文件大小 ＝ FTP_文件取大小 (「/*********/web/大唐」 ＋ 參數 ＋ 「.exe」)
FTP文件大小 ＝ 取整 (FTP文件大小 ÷ 1000)
編輯框1.加入文本 (#換行符 ＋ 「需要下載的文件大小為：」 ＋ 到文本 (FTP文件大小) ＋ 「M」)
時鍾2.時鍾周期 ＝ 1000
啟動線程 (&下載, , )
編輯框1.加入文本 (#換行符 ＋ 「正在下載，請稍候......」)
.否則
信息框 (「連接伺服器失敗！請聯系客服。」, 0, )
.如果結束
返回 ()

.子程序 _時鍾2_周期事件
.局部變數 位置1, 整數型

本地文件 ＝ 取文件尺寸 (取運行目錄 () ＋ 「/」 ＋ 本地文件名)
本地文件 ＝ 取整 (本地文件 ÷ 10)
進度條1.位置 ＝ 取整 (本地文件 ÷ FTP文件大小)
.如果真 (進度條1.位置 ＝ 100)
時鍾2.時鍾周期 ＝ 0
FTP_斷開FTP伺服器 ()
運行 (取運行目錄 () ＋ 「/ZH.exe」, 假, )
銷毀 ()

.如果真結束

.子程序 下載

FTP_文件下載 (「/******/web/大唐」 ＋ 到文本 (代理) ＋ 「.exe」, 取運行目錄 () ＋ 「/」 ＋ 本地文件名, )

Ⅱ 易語言FTP下載進度顯示（有用的話再加100財富）

標簽1.標題 ＝ 到文本 (四捨五入 (下載對象.取已下載長 () ÷ 1024 ÷ 1024, 2)) ＋ 「M」 ＋ 「/」 ＋ 到文本 (四捨五入 (取文件尺寸 (本地文件) ÷ 1024 ÷ 1024, 2)) ＋ 「M」

希望對你有幫助。自己研究吧

Ⅲ 易語言ftp上傳為什麼會卡住

建議用延時，
所說的延時，只是讓它緩慢的上傳，因為FTP上傳是需要很大的壓力的。所以延時可以來解決，
當然延時不是延遲，延遲是卡住，延時只是一個慢慢的走過去而已

Ⅳ 誰能給我一個FTP在線更新的易語言源碼，要帶進度，很急

使用線程了嗎
試試線程，也許能解決這個問題

Ⅳ 易語言的進度條怎麼顯示FTP的下載進度

獲取需要下載的文件大小，判斷已經下載的大小和整體大小的百分比。易語言FTP下載不會向迅雷那樣創建一個和被下載文件大小一樣的緩存，而是下載多少就變成多大。

Ⅵ 易語言FTP下載進度

db2.mdb 大嗎？http讀文件（）用來下載文件夠嗆的，你可以用 下載對象 或者 有個進度下載模塊 ，自己找找 。真的要效果好的話，迅雷有開放SDK 這個就很強了。網路 迅雷引擎

Ⅶ 關於易語言ftp問題。

上傳的時候注意一下文件路徑！多看下函數說明，關鍵代碼如下。

如果 (連接FTP伺服器 (ip, user, pw, 埠, 被動模式) ＝ 真)

如果 (FTP文件上傳 (本地路徑文件名, 伺服器路徑文件名, 是否使用ASCII碼方式))

Ⅷ 易語言FTP下載文件，怎麼弄進度條

進度條1.位置 = 已下載大小/文件大小*100

給你思路了，應該很簡單了。。。自己分析吧。

Ⅸ 易語言簡單點的FTP下載進度

這個貌似沒有直接的 可以考慮獲取文件總大小 然後根據每秒下載速度 通過公式來計算

Ⅹ 易語言 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]))
.如果真結束.計次循環尾 ()