急:请问各位高手如何将ftp种的文件和目录导入像shelllistview,directorylistbox等控件中 |
答題得分者是:P.D.
|
truthhk
一般會員 發表:2 回覆:9 積分:2 註冊:2010-12-22 發送簡訊給我 |
|
老大仔
尊榮會員 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
再做一次好人吧! 因為這類範例有, 但不太容易找到完整的, 所以公佈出來可以省很多研究時間
這是我8年前的作品, 有興趣到會員創作區下載 http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=102003 [code delphi] procedure TForm_FTPsrv1.CDir(DirName: String); var i: integer; sl: TStringList; begin try IdFTP1.ChangeDir(DirName); IdFTP1.TransferType:= ftASCII; labelDIR.Caption:= IdFTP1.RetrieveCurrentDir; DirectoryListBox1.Items.Clear; DirectoryListBox1.Sorted:= False; IdFTP1.List(DirectoryListBox1.Items); for i:= 0 to DirectoryListBox1.Items.Count-1 do begin if i<2 then DirectoryListBox1.Items[i]:= '0' DirectoryListBox1.Items[i] else begin if DirectoryListBox1.Items[i][1]='d' then DirectoryListBox1.Items[i]:= '1' DirectoryListBox1.Items[i] else DirectoryListBox1.Items[i]:= '-' DirectoryListBox1.Items[i]; end; end; DirectoryListBox1.Sorted:= True; except on E:Exception do begin Application.MessageBox(pChar('資料夾切換失敗' #13 E.message),'錯誤', MB_ICONERROR MB_OK); end; end; end; [/code]
編輯記錄
P.D. 重新編輯於 2011-01-04 20:13:36, 註解 無‧
|
truthhk
一般會員 發表:2 回覆:9 積分:2 註冊:2010-12-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |