在更新程式時,需要知道目前下載到多少百分比及大小怎麼做? 在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;
代码:http://pan.baidu.com/s/1kp9hs |
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。