to xumin23
在update.pas中看到没:
procedure TForm4.HttpCli1HeaderEnd(Sender: TObject);
var strlen:string;
begin
strlen:=httpcli1.RcvdHeader.Strings[7];
strlen:=copy(strlen,17,length(strlen)-1);
label5.Caption:='当前传输文件大小:'+strlen+'个字节';
progressbar1.Max:=strtoint(strlen);
end;
在HttpCli1的onHeaderEnd事件中,先截取报文头的strings[7],然后从该字符串的第17个字符开始截取剩下的字符串,再将该字符串转换为数值型即为当前要下文件的大小
[red]记住:是在onheaderend事件中才能得到正确的文件大小,最好不要放在其他事件中[/red]