請教 各位前輩 為何Gauge1進度無法作用 謝謝! procedure TForm1.Button1Click(Sender: TObject); begin idFTP1.Username := 'Test'; idFTP1.Password := '123'; idFTP1.Port := 21; idFTP1.Host := '192.168.1.11'; idFTP1.Connect; idFTP1.Get('Test.exe','C:\' 'Test.exe',true); idFTP1.disconnect; end; procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); begin Gauge1.MaxValue := AWorkCountMax; end; procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin Gauge1.Progress := AWorkCount; end

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
  Gauge1.Progress := AWorkCount;
  Gauge1.Update;
end

多加這行試試 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

Jasonwong 你好: 加入  Gauge1.Update;  還是不行?  

这儿有个ftp的相关事例，其中也有下载进度的指示，我相信看了以后一定对您有帮助！ Demos\Indy\FTPDemo

提問者您好:


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


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


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

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

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
begin
idFTP1.Username := 'Test';
idFTP1.Password := '123';
idFTP1.Port := 21;
idFTP1.Host := '192.168.1.11';
idFTP1.Connect;
Gauge1.MaxValue := IdFTP1.Size(Test.exe);///加入此行
idFTP1.Get('Test.exe','C:\' 'Test.exe',true);
idFTP1.disconnect;
end;

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
// Gauge1.MaxValue := AWorkCountMax; 刪除此改改為上的IdFTP1.Size

end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
Gauge1.Progress := AWorkCount;
end
[/code]

------
學藝不精 謝多多指教

編輯記錄

IdFTP1.Size

FTP server list 的許可權，這個應該是可以得到尺寸的，我跟提問者犯過同樣的問題