问题详细说明:
1、假如我们打开了http://www.luhui123.com/
2、假如我们已经获取了HTML源代码
3、假如我们要获取“下载地址”这个链接地址(迅雷下载所有连接可以得到,或者鼠标移到“视频”处,IE下方有提示)
4、问题出现:在我们获取的HTML源代码中不会出现这个链接,而我们的鼠标移到“视频”上,下方有提示这个连接
5、我们应该怎么用Delphi实现抓取这个连接
--------------------------------------------------------------------------------
1,DELPHI取得的源代码是包含这些链接的,这是提取的结果自己在保存的时候去重就行了
------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
imgsrc :string;
begin
for i :=1 to wb.OleObject.Document.links.Length - 1 do begin
imgsrc := wb.OleObject.document.links.item(i).href;
if ansicontainstext(imgsrc,'google') then
else
if memo1.Lines.IndexOf(imgsrc)=-1 then memo1.Lines.Add(imgsrc); end; end;但是,
有些连接还是不能分析出来啊。 迅雷却可以,鼠标移上去IE也能提示这个连接。
求解
1、假如我们打开了http://www.luhui123.com/
2、假如我们已经获取了HTML源代码
3、假如我们要获取“下载地址”这个链接地址(迅雷下载所有连接可以得到,或者鼠标移到“视频”处,IE下方有提示)
4、问题出现:在我们获取的HTML源代码中不会出现这个链接,而我们的鼠标移到“视频”上,下方有提示这个连接
5、我们应该怎么用Delphi实现抓取这个连接
--------------------------------------------------------------------------------
1,DELPHI取得的源代码是包含这些链接的,这是提取的结果自己在保存的时候去重就行了
------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
imgsrc :string;
begin
for i :=1 to wb.OleObject.Document.links.Length - 1 do begin
imgsrc := wb.OleObject.document.links.item(i).href;
if ansicontainstext(imgsrc,'google') then
else
if memo1.Lines.IndexOf(imgsrc)=-1 then memo1.Lines.Add(imgsrc); end; end;但是,
有些连接还是不能分析出来啊。 迅雷却可以,鼠标移上去IE也能提示这个连接。
求解
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货