程序流程:procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('页面page1");
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if not Webbrowser1.Busy then 获取页面page1所有下载链接
为每个链接创建下载线程
end;这样只实现了第一页所有链接的下载,如何让程序在页面page1的所有下载线程完成后,自动顺序下载页面page2、page3...最好给出具体实现方法,谢谢。急用。
begin
Webbrowser1.Navigate('页面page1");
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if not Webbrowser1.Busy then 获取页面page1所有下载链接
为每个链接创建下载线程
end;这样只实现了第一页所有链接的下载,如何让程序在页面page1的所有下载线程完成后,自动顺序下载页面page2、page3...最好给出具体实现方法,谢谢。急用。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货