解析网页

Question

如何控制一个框架网页？
比如说，你用delphi作了一个浏览器，其中显示框架网页？如何在一个框架的某个文本框中用编码实现文本写入；已知框架名称、文本框名称、网页的form 名称！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var doc: IHtmlDocument2; win: IHtmlWindow2;
begin
  doc := WebBrowser1.Document as IHtmlDocument2;
  win := IDispatch(OleVariant(doc.all.item('Frame2', EmptyParam)).contentWindow) as IHtmlWindow2;
  (win.document.all.item('TextArea1', EmptyParam) as IHtmlTextAreaElement).Value := Edit1.Text;
end;