idhttp post 上传或下载时显示进度条（对接idhttp1.OnWork事件）

转载

mob604756f16c66 2018-07-31 20:26:00

通过 idhttp 带进度条上传演示一下，下载和上传原理差不多，说明一下下面例子中的的idhttp 是动态创建的

第一步：添加一个StatusBar或者gauge 进度条，这2个都可以。我用的是 statusbar ，因为这个好看，属性保持默认就可。

第二步：获取上传进度需要填写idhttp中的onwork，onworkbegin，onworkend，由于idhttp是动态创建的所以需要覆盖一下。

在主窗体类中添加如下几个公有函数（函数名可随意），记住一定要是一个类的方法，否则报错。

1 2 3 4 5 6	`[delphi] view plaincopyprint?` `procedure` `idhttp_onwork(ASender: TObject; AWorkMode: TWorkMode;` `AWorkCount:` `Int64``);` `procedure` `idhttp_beginwork(ASender: TObject; AWorkMode: TWorkMode;` `AWorkCountMax:` `Int64``);` `procedure` `idhttp_endwork(ASender: TObject; AWorkMode: TWorkMode);`

　　之后编写函数的实现：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20	`[delphi] view plaincopyprint?` `procedure` `TFormMain``.``idhttp_onwork(ASender: TObject; AWorkMode: TWorkMode;` `AWorkCount:` `Int64``);` `begin` `ProgressBar1``.``Position:=AWorkCount ;` `end``;` `procedure` `TFormMain``.``idhttp_beginwork(ASender: TObject; AWorkMode: TWorkMode;` `AWorkCountMax:` `Int64``);` `begin` `ProgressBar1``.``Max:=AWorkCountMax;` `ProgressBar1``.``Min :=` `0``;` `ProgressBar1``.``Position:=``0``;` `end``;` `procedure` `TFormMain``.``idhttp_endwork(ASender: TObject; AWorkMode: TWorkMode);` `begin` `//ProgressBar1.Position:=ProgressBar1.Max;` `ProgressBar1``.``Position:=``0``;`

　　第三步：在动态创建idhttp的时候，像这样写

1 2 3 4 5	`[delphi] view plaincopyprint?` `idhttp1 := TIdHTTP``.``Create();` `idhttp1``.``OnWork := FormMain``.``idhttp_onwork;` `idhttp1``.``OnWorkBegin := FormMain``.``idhttp_beginwork;` `idhttp1``.``OnWorkEnd := FormMain``.``idhttp_endwork;`