Ⅰ 怎樣用易語言在本機架設ftp,給區域網的其他電腦下載這台電腦的文件
這個不需要易語言來實現。易語言實現也比較難,因為你要寫一個完整FTP伺服器端。用serv-u 或者系統自帶的FTP來完成就可以了。win7 的架設教程可以參考這個。
http://jingyan..com/article/48206aeadc3c4b216bd6b369.html
Ⅱ 易語言問題關於FTP下載和讀入文件命令!高手來!
我覺得應該是你的連接太過頻繁,要有一定的間隔時間。反復頻繁的連接伺服器而沒有間隔時間會被當作是攻擊。有時候網速也有一定的影響。這就是有時候行有時候不行的原因。
Ⅲ 易語言FTP下載
下載路徑有問題吧 下載路徑是 虛擬目錄 不是絕對路徑吧
判斷 (連接FTP伺服器 (ftp地址, ftp用戶名, ftp密碼, 21, ))
FTP文件下載 ("web/下載的文件名.txt", 保存目錄 , )
斷開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]))
.如果真結束.計次循環尾 ()
Ⅳ 用易語言,下載文件
估計是你的伺服器禁止了文件下載,現在很多免費空間都這樣。
我用一個同學的可以下載的伺服器測試了,可以下載
當然也可能是你網址寫錯了,要加"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)
.子程序 日誌回調函數
.參數 線程信息, 整數型
.參數 時間, 文本型
.參數 內容, 文本型
.參數 消息類型, 整數型
.參數 對象信息, 整數型
.局部變數 日誌內容, 文本型
' _登陸_時鍾_周期事件 ()
Ⅵ 易語言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裡面文件夾下面的文件夾的文件
cnt = FTP目錄列表 (子文件夾下的目錄, , 目錄, , , )
首先確定您的FTP跟目錄,可通過下圖得到跟目錄
一般格式是: [IP]地址 或者 [帳號名] 比如:fsdf1321
假如跟目錄下有個文件夾:temp temp還有各子夾temp2 ,那麼其路徑為:
根目錄 emp emp2
cnt = FTP目錄列表 (根目錄 emp emp2, , 目錄, , , )
其他不變
Ⅷ 易語言FTp文件下載
.版本 2
.支持庫 internet
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
連接FTP伺服器 (「FTP地址」, 「FTP帳號」, 「FTP密碼」, 21, )
FTP文件下載 (「1.txt」, 「d:\1.txt」, )
Ⅸ 易語言 FTP文件下載常式
.版本 2
.支持庫 internet
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
連接FTP伺服器 (「FTP地址」, 「FTP帳號」, 「FTP密碼」, 21, )
FTP文件下載 (「1.txt」, 「d:\1.txt」, )
Ⅹ 易語言下載FTP文件夾
如果(連接ftp伺服器()=真)
ftp文件下載(「web/1.txt」,取運行目錄()+「\data\2.txt」)
首先要確認可以連接得上伺服器
然後在下載