下载文件并执行,主要是学习下IDHTTP跟进度条控件的使用

delphi_zw

专不了图片，自己下载附件看吧，在此感谢鱼老湿的教程，人中学到了不少知识，还望陆续更新后期的教程！
UpDate V1.0.zip (684.95 KB, 下载次数: 44)

2012-11-21 15:37 上传

点击文件名下载附件

林之白狼

哈哈哈，你的那个皮肤不错，能共享下吗？兄弟{:1_1:}

zhuojialu

能提供下源码学习吗？

delphi_zw

zhuojialu 发表于 2012-12-2 21:40

                               
登录/注册后可看大图

能提供下源码学习吗？

procedure TForm1.bsSkinButton1Click(Sender: TObject);
var mystream1 :TMemoryStream;
begin
bsSkinButton1.Enabled := False;
mystream1 :=TMemoryStream.Create;
  IdHTTP1.Get('http://list.image.baidu.com/t/image/w_mengchong.jpg',mystream1);//下载文件地址
  mystream1.SaveToFile('1.jpg');
ShowMessage('升级成功');
bsSkinButton1.Enabled := true;
ShellExecute(0,'open','1.jpg',nil,nil,sw_show);
bsSkinGauge1.value:=0;
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
bsSkinGauge1.MaxValue:=AWorkCountMax;
  bsSkinGauge1.MinValue:=0;
  bsSkinGauge1.Value:=0;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
bsSkinGauge1.Value:=bsSkinGauge1.Value+AWorkCount;
end;
end.