各位老大!.....
困了我一个星期了...
困了我一个星期了...
解决方案 »
- 虚心请教关于图片处理的问题
- 发票或银行存折上的字体是什么字体,请达人告知。。。。。200分相送
- 如何动态调用ActiveFormProj1.ocx,并且ActinForm放到主程序的一个Panel里面显示?
- 想做程序员的朋友必看
- ★★★www.csdn.com.cn★★★已经开通~目前正在测试阶段~!!
- 很爽的打印dbgrid,stringgrid,datasource.的控件。欢迎下载
- 紧急求救!!!!!!!!!-----
- 请问如何设置TREEVIEW在ENABLED:=FALSE状态下的颜色
- 关于Crystal Report报表动态条件的设定
- 如何在delphi中定制浏览器,功能类似于腾讯或者轻骑兵,最好有源代码,用于学习,
- 简单问题!!!
- 怎么得到字符串的实际长度?
var
FileName:String;
begin
HttpCli1.ContentRangeBegin := IntToStr(1024*1024);
HttpCli1.ContentRangeEnd := '';
GetButton.Enabled := FALSE;
HttpCli1.Head;
FileName:=HttpCli1.DocName;
FileName:='C:\'+FileName;
// if not FileExists(FileName) then
// FileClose(FileCreate(FileName)); HttpCli1.RcvdStream := TFileStream.Create(FileName, fmCreate);
// HttpCli1.RcvdStream := TFileStream.Create(FileName, fmOpenReadWrite);
// HttpCli1.ContentRangeBegin := IntToStr(HttpCli1.RcvdStream.Size);
// if HttpCli1.ContentRangeBegin='0' then HttpCli1.ContentRangeBegin:='';
// HttpCli1.RcvdStream.Seek(0,soFromEnd); AbortButton.Enabled := TRUE;
InfoLabel.Caption := 'Loading';
try
try
HttpCli1.Get;
MemoRcv.Lines.Add(HttpCli1.RcvdHeader.Text);
InfoLabel.Caption := 'Received ' +
IntToStr(HttpCli1.RcvdStream.Size) + ' bytes';
except
on E: EHttpException do begin
InfoLabel.Caption := 'Failed : ' +
IntToStr(HttpCli1.StatusCode) + ' ' +
HttpCli1.ReasonPhrase;;
end
else
raise;
end;
finally
GetButton.Enabled := TRUE;
AbortButton.Enabled := FALSE;
HttpCli1.RcvdStream.Destroy;
HttpCli1.RcvdStream := nil;
end;
end;
我是用indy 中的 idhttp 控件
有这样的例子吗?