X
xlieryu
Unregistered / Unconfirmed
GUEST, unregistred user!
var MyStrList: TStringList;
MyStrList里动态存储了若干个需要下载的文件路径及文件名，
GetFileName为自定义的求出文件名的函数，
下面这几句的功能是实现自动下载MyStrList里那些任务，下完一个后可以自动下另一个，
直到下完为止。
for j:= 1 to MyStrList.countdo
try
tmpStream:=TFileStream.Create(DirEdit.Text+'/'+GetFileName(MyStrList.Strings[j-1]),fmCreate);
idHttp1.Get(MyStrList.Strings[j-1],tmpStream);
finally
tmpStream.Free;
end;
我现在想这样，在下载的同时，分别在5个Label控件里显示当前正在下载的文件的文件名、
文件大小、已接收字节（或K）、剩余字节（或K）、传输速率5个内容，并且用一个过程条
来显示当前文件的下载进度。在所有下载任务完成后弹出对话框提示或者其他提示。
如果实在有困难，至少也要1个Label控件来显示当前正在下载文件的文件名。
如果上面这段代码不能完成这些要求的话，可以完全改掉这些部分。
我要的非常着急！请给出源代码并加以说明。非常感谢！
MyStrList里动态存储了若干个需要下载的文件路径及文件名，
GetFileName为自定义的求出文件名的函数，
下面这几句的功能是实现自动下载MyStrList里那些任务，下完一个后可以自动下另一个，
直到下完为止。
for j:= 1 to MyStrList.countdo
try
tmpStream:=TFileStream.Create(DirEdit.Text+'/'+GetFileName(MyStrList.Strings[j-1]),fmCreate);
idHttp1.Get(MyStrList.Strings[j-1],tmpStream);
finally
tmpStream.Free;
end;
我现在想这样，在下载的同时，分别在5个Label控件里显示当前正在下载的文件的文件名、
文件大小、已接收字节（或K）、剩余字节（或K）、传输速率5个内容，并且用一个过程条
来显示当前文件的下载进度。在所有下载任务完成后弹出对话框提示或者其他提示。
如果实在有困难，至少也要1个Label控件来显示当前正在下载文件的文件名。
如果上面这段代码不能完成这些要求的话，可以完全改掉这些部分。
我要的非常着急！请给出源代码并加以说明。非常感谢！
]