M
microluck
Unregistered / Unconfirmed
GUEST, unregistred user!
每次下载,都只能下载文件的开始一小部分,没办法下载完全,代码如下:
不知道这种方法对不对? 如果有更好的办法,请指点!
这是线程中的代码:
unit Unit2;
interface
uses
IdHTTP,Classes;
type
Download = class(TThread)
idhttp1:tIDHttp;
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
{ Download }
procedure Download.Execute;
var
tmpStream:TFileStream;
begin
{ Place thread code here }
idhttp1:=tIdhttp.create(nil);
FreeOnterminate:=true;
tmpStream:=TFileStream.Create('c:/get.swf',fmCreate);
try
idhttp1.Get('http://www.******.com/****.swf',tmpStream);
finally
tmpStream.Free;
end;
end;
end.
主程序中用:
Second:=Download.Create(false);
来开始线程,进行下载,可是不论怎么着,都只能下载很小的一部分。
我是拨号上网用户,不是宽带。
不知道这种方法对不对? 如果有更好的办法,请指点!
这是线程中的代码:
unit Unit2;
interface
uses
IdHTTP,Classes;
type
Download = class(TThread)
idhttp1:tIDHttp;
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
{ Download }
procedure Download.Execute;
var
tmpStream:TFileStream;
begin
{ Place thread code here }
idhttp1:=tIdhttp.create(nil);
FreeOnterminate:=true;
tmpStream:=TFileStream.Create('c:/get.swf',fmCreate);
try
idhttp1.Get('http://www.******.com/****.swf',tmpStream);
finally
tmpStream.Free;
end;
end;
end.
主程序中用:
Second:=Download.Create(false);
来开始线程,进行下载,可是不论怎么着,都只能下载很小的一部分。
我是拨号上网用户,不是宽带。