X
xlieryu
Unregistered / Unconfirmed
GUEST, unregistred user!
我想中断当前下载![!]
stop: Boolean
//“开始下载”按钮的事件
stop:=false;
for j:= 1 to MyStrList.countdo
begin
Application.ProcessMessages;
if stop then
begin
break;
tmpStream.Free;
end;
try
tmpStream:=TFileStream.Create(DirEdit.Text+'/'+GetFileName(MyStrList.Strings[j-1]),fmCreate);
FNLabel.Caption :=GetFileName(MyStrList.Strings[j-1]);
FNLabel.Update;
idHttp2.Get(MyStrList.Strings[j-1],tmpStream);
finally
tmpStream.Free;
end;
end;
//“停止下载”按钮事件:
stop:=true;
目前的代码只能中断下一个任务的下载,而不能中断当前正在下载的下载。
请问有办法解决吗?
stop: Boolean
//“开始下载”按钮的事件
stop:=false;
for j:= 1 to MyStrList.countdo
begin
Application.ProcessMessages;
if stop then
begin
break;
tmpStream.Free;
end;
try
tmpStream:=TFileStream.Create(DirEdit.Text+'/'+GetFileName(MyStrList.Strings[j-1]),fmCreate);
FNLabel.Caption :=GetFileName(MyStrList.Strings[j-1]);
FNLabel.Update;
idHttp2.Get(MyStrList.Strings[j-1],tmpStream);
finally
tmpStream.Free;
end;
end;
//“停止下载”按钮事件:
stop:=true;
目前的代码只能中断下一个任务的下载,而不能中断当前正在下载的下载。
请问有办法解决吗?