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