Delphi 使用idhttp下載显示进度以及大小

发布时间：2020-12-15 09:58:59 所属栏目：大数据来源：网络整理

导读：在更新程式時，需要知道目前下載到多少百分比及大小怎麼做？在 Delphi 使用idhttp及IdAntiFreeze（防止程式看起來當掉）二個元件就可以做得到。順便列下關鍵程式碼 procedure TForm1 . BtnDownloadClick(Sender: TObject); var ?? tStream: TMemoryStream;

在更新程式時，需要知道目前下載到多少百分比及大小怎麼做？

在Delphi使用idhttp及IdAntiFreeze（防止程式看起來當掉）二個元件就可以做得到。順便列下關鍵程式碼

 
     procedure 
      TForm1 
     . 
     BtnDownloadClick(Sender: TObject); 
    

var

 
     ?? 
     tStream: TMemoryStream;

begin 
    

tStream := TMemoryStream 
     Create; 
    

?? 
     try 
    

???? 
     IdHTTP1 
     Get(EdtSource 
     Text,tStream); 
    

tStream 
     SaveToFile(EdtTarget 
     Text); 
    

ShowMessage( 
     'Download Success!' 
     ); 
    

except 
    

'Download Fail！' 
     ); 
    

end 
     ; 
    

Free; 
    

;

?

IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; 
    

AWorkCount:  
     Int64 
     ); 
    

begin 
    

Label1 
     Caption := BytesToStr(aWorkCount); 
    

ProgressBar1 
     Position := aWorkCount; 
    

<a title="Update" href="http: 
     //superlevin.ifengyuan.tw/tag/update/">Update</a>; 
    

;

?

IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode; 
    

AWorkCountMax:  
     ); 
    

begin 
    

Max := aWorkCountMax;?  
     // Set File total size 
    

Label2 
     Caption := BytesToStr(aWorkCountMax); 
    

Update; 
    

end;

代码：http://pan.baidu.com/s/1kp9hs

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!