如何取网站上的内容

Question

网站不需要登陆,想取出里面固定的一些信息..如:地址,网址等

Answer 1

用 TEmbeddedWB好哦着 TWebbrowser  打开网站 等
procedure  TfrmMain.WebHomePageDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  V: OleVariant;
begin  WebHomePage.GetDocument.links;
  //网页中的所有超级链接，你可以利用
  WebHomePage.GetDocument.links.length;
  //个数 你可以挨个遍历
 try
    V := (ASender as TEmbeddedWB).OleObject.document.all.item('PingName1',0);
    //读出数据
    if not VarIsNull(V) then
    begin
      v.value := '设定你需要设定的值';
    end;
  except  end;
end;

Answer 2

比如现有页面：
http://www.hktdc.com/sourcing/industry/sc/1/汽车零配件制造商.htm我想取到该页面上所有公司的信息，请问楼上的
TEmbeddedWB可以实现这种功能吗？

Answer 3

Uses UrlMon, OleCtrls;调用函数UrlDownloadToFile( NIL, 'http://www.hktdc.com/sourcing/industry/sc/1/汽车零配件制造商.htm', 'c:\temp.html', 0, NIL)
保存到硬盘上已经变成文本文件了，用TWebBrowser打开或者直接以文本方式打开操作都随你的便了～