各位老大,大家辛苦了!请教我遇到一个解析网业问题!我通过
var
  doc   :   Variant;   
  begin
  doc   :=   WebBrowser1.document;
  Memo1.Text   :=   Doc.body.innerhtml;//取得当前网页的源文件,
但是我发现取得的源文件比较少,而通过鼠标右键查看源文件时能够看到全部的!是怎样才能显示全部的源文件呢?我要解析它!
(网页大体格局是,左边一个树形,右边有个查显示所有信息,信息在表格中显示!)

解决方案 »

  1.   

    以下是获得网页中Radio的方法,你改改
    procedure TForm1.Button2Click(Sender: TObject);
    var
        doc: OleVariant;
        i:integer;
    begin
      doc:=EmbeddedWB1.document;
      for i:=0 To doc.all.length-1 do
      begin
        if (doc.all.item(i).tagName = 'INPUT')and (doc.all.item(i).type='radio') then
        begin
          if (doc.all.item(i).checked ='true') and (doc.all.item(i).value='right') then
             showmessage(doc.all.item(i).value);
        end;
      end;
    end;