开发一个三层的例子,含ado,ics,采用socketconnection连接,程序可在线自动更新,谁要?请大家提点建议,要给分哟。(0分)

谢了:nie_lijun@hotmail.com
 
showmessage(httpcli1.RcvdHeader.Strings[7]);
显示的是RTag:"02e57aeb110c21:86b"
怎么得到当前传输文件大小?
 
linsb3031@163.com
我也要一份,谢谢!
收到后给分,绝不食言!
 
也给一份吧 一定给分 xmwwh@163.com
 
俺也想要一个,谢谢
jumberyin@21cn.com
 
收到给分,研究一下
zenghongbo-318@163.com
 
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]
 
catfox@163.net
thx [:)]
 
ludemin@sina.com
收到给分
 
playvc@163.net
谢谢
 
我要,学习学习,谢谢!
zhjwjan@163.net
 
showmessage(httpcli1.RcvdHeader.Strings[7]);
显示的是 RTag:"02e57aeb110c21:86b"
copy(strlen,17,length(strlen)-1)会得到什么样的结果呢?
 
liuhailong1977@tom.com
收到给分
 
谢谢楼主,给我一份吧,ninglng@163.com
收到即送分,谢谢
 
playvc@163.net
我要一份,收到后立即给分,谢谢
 
楼主怎么不给我一份呀,我都说了好几天了,真不够意思。我收后后立即给分。谢谢
playvc@163.net
 
我要一份,收到后立即给分,谢谢
freeking_g@163.com
 
请发一份给我。
 
to ie65652:
不好意思,不知道是不手邮箱出了问题,没有收到,麻烦你再给我发一遍如何?
到这里来拿分吧
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2208268
 
我的地址是
rm81@163.com rmvr97@msn.com
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
884
DelphiTeacher的专栏
D
S
回复
0
查看
817
SUNSTONE的Delphi笔记
S
顶部