上一篇:Delphi下载指定网址(URL)的文件,带进度条显示
下一篇:Delphi旋转位图 - 转贴

Delphi访问网页中的下拉菜单

发布于: 2012-12-20 19:52:31   |  发布在: Delphi文章   |  点击:

Delphi通过TWebBrowser浏览网页,然后访问该网页中的下拉菜单:

uses MsHtml;
procedure TForm1.Button1Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  coll: IHTMLElementCollection;
  iPos, iIndex: Integer;
  selElem: IHtmlSelectElement;
  optElem: IHtmlOptionElement;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  if doc = nil then Exit;

  coll := doc.all.tags('select') as IHTMLElementCollection;
  iPos := 0; //要访问的下拉菜单的序号,从0开始为第一个
  selElem := coll.item(iPos, 0) as IHtmlSelectElement;
  if selElem = nil then Exit;

  iIndex := 2; //下拉菜单的选项序号,从0开始为第一个,2为第三个选项
  optElem := selElem.item(iIndex, 0) as IHtmlOptionElement;
  if optElem = nil then Exit;

  ShowMessage(optElem.text); //获取该选项的值
  optElem.selected := True;  //选中该选项
end;

TWebBrowser下拉菜单网页