hi ，請教各位大大 這些code是有關intraweb的 demo 程式 有關從web上下載一個檔案 問題是為什麼我的listbox 一直找不到路徑上的檔案並秀出來 讓我可以用來下載了?? 謝謝 unit IWUnit1; {PUBDIST} interface uses IWAppForm, IWApplication, IWTypes, IWCompButton, Classes, Controls, IWControl, IWCompListbox, IWCompLabel, IWCompMemo, IWHTMLControls; type TformMain = class(TIWAppForm) lboxFiles: TIWListbox; IWButton1: TIWButton; IWLabel1: TIWLabel; IWMemo1: TIWMemo; IWLink1: TIWLink; procedure IWButton1Click(Sender: TObject); procedure IWAppFormCreate(Sender: TObject); procedure IWLink1Click(Sender: TObject); protected FPath:string; public end; implementation {$R *.dfm} uses SysUtils, SWSystem; procedure TformMain.IWButton1Click(Sender: TObject); begin if lboxFiles.ItemIndex > -1 then begin WebApplication.SendFile(FPath lboxFiles.Text, '', '', true); end; iwmemo1.Lines.Add('ok'); end; procedure TformMain.IWAppFormCreate(Sender: TObject); var i: Integer; LSrch: TSearchRec; begin FPath := gsAppPath 'Downloads\'; i := FindFirst(FPath '*.*', faAnyFile, LSrch); iwlabel1.Text:=fpath inttostr(i); try while (i = 0 do begin if (LSrch.Attr and faDirectory) = 0 then lboxFiles.Items.Add(LSrch.Name); iwmemo1.Lines.Add(LSrch.Name); i := FindNext(LSrch); end; finally FindClose(LSrch); end; lboxFiles.ItemIndex := 0; end; end.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.