首页 > Windows开发 > 详细

Delphi访问网页中的下拉菜单

时间:2015-08-09 22:20:37      阅读:341      评论:0      收藏:0      [点我收藏+]

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;

 

Delphi访问网页中的下拉菜单

原文:http://www.cnblogs.com/stroll/p/4716305.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!