idhttp post 上传或下载时显示进度条(对接idhttp1.OnWork事件)
通过 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; |
好了这样就可以了,不过如果上传或下载速度太快的话就无法看到进度条在动
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了