1、禁止Webbrowes新窗口打开页面,强制在当前页面打开
方法:放两个webbrowser控件,错码如下;
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch; var Cancel: WordBool); begin PpDisp := WebBrowser2.Application; end; procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject; const PDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); var urlStr: string; begin urlStr := string(URL); WebBrowser1.Navigate(urlStr ); Cancel := True; end;
取到全部连接 在USER 加入 MSHTML; 和 ActiveX; procedure TForm1.Button2Click(Sender: TObject); var doc:IHTMLDocument2; all:IHTMLElementCollection; len,i:integer; item:OleVariant; begin doc:=WebBrowser1 .Document as IHTMLDocument2; all:=doc.Get_links;//doc.Links len:=all.length; for i:=0 to len-1 do begin item:=all.item(i,varempty);//EmpryParam memo1.lines.add(item.href); end; end; ///////////////////////////////////////////////////////////////////////////////////////////////// 取得网页的源代码 Memo1.Text:=WebBrowser1.OleObject.document.documentelement.innerhtml; ////////////////////////////////////////////////////////////////////////////////////////////////// 禁止广告弹出 procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin cancel:=true end; ////////////////////////////////////////////////////////////////////////////////////////////// 不需要弹出窗口直接进去 procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var NewApp: TForm1; begin NewApp := TForm1.Create(Owner); NewApp.Visible := true; ppdisp := NewApp.webbrowser1.Application; end ///////////////////////////////////////////////////////////////////////////////////////////////// 只读文字 procedure TForm1.Button1Click(Sender: TObject); var HTMLDocument: IHTMLDocument2; begin HTMLDocument := WebBrowser1.Document as IHTMLDocument2; Memo1.Text := HTMLDocument.body.innerText; end; /////////////////////////////////////////////////////////////////////////////////////////////////////// 复制 uses Activex; 下面这些加在哪里都可以。 initialization oleinitialize(nil); finalization oleuninitialize; ////////////////////////////////////////////////////////////////////////////////////////////////////// 选择全部和复制 procedure TForm1.Button2Click(Sender: TObject); begin WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //选择全部 WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //拷贝到剪贴板 end; 提交表单中的下拉框和单选 uses mshtml; var HtmlDoc:IHTMLDocument2; myitem:Olevariant; i:integer; begin myitem := WebBrowser1.Document; for i := 0 to myitem.all.length - 1 do begin if myitem.all.item(i).tagName = 'SELECT' then // 下拉框选择 begin myitem.all.item(i).value:='2'; // '2'系value="里的内容 end; if myitem.all.item(i).tagName = 'INPUT' then begin if Uppercase(myitem.all.item(i).type)='RADIO' then begin if myitem.all.item(i).value='求' then myitem.all.item(i).checked:=true; end; end; end; end; var o : Olevariant; begin o := WebBrowser.OleObject.document.all.item('LoginUserID',0); //找到登录用户名的输入框 o.value := 'TEST'; o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入框 o.value := 'TEST' WebBrowser.oleobject.document.Forms.Item(0, 0).submit; //第一个表单提交 { o :=WebBrowser.oleobject.document.all.item('Login',0); //或者用指定表单名称提交 o.Click; //点击操作,对其它对象也可同样操作 } end; 调用JAVASCRIPT函数 WebBrowser1.OleObject.document.parentWindow.execScript('GSLogin()','javascript'); 多个frames的输入,FrameIndex为Frame的序号 var o : Olevariant; begin //找到登录用户名的输入框 o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0); o.value := 'TEST'; //找到登录密码的输入框 o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0); o.value := 'TEST' //第一个表单提交 WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit; { //或者用指定表单名称提交 o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0); o.Click; //点击操作,对其它对象也可同样操作 } end; WebBrowser1.oleobject.Document.getElementById('button').Click; /////////////////////////////////////////////////////////////////////////////////////// 第1个item是女(0开始) WebBrowser1.OleObject.document.getElementsByTagName('input').item(1).click; 或者用name,但name要唯一 WebBrowser1.OleObject.document.all.item('Registered1').click
http://www.cnblogs.com/xe2011/p/3144861.html(有关Twebbrowers操作 )
判断Webbrowes里的Radio是否选中
网页源码:
<tr class="t-head2"> <th id="type-tab1 " class="align-l s-line tabitem h-cell clickable"> <input type="radio" name="typeTab" class="radio" checked="checked" val="1" gmmbettypeid="5300"/> <label class="clickable">頭尾</label> </th> <th id="type-tab2" class="align-l s-line tabitem clickable"> <input type="radio" name="typeTab" class="radio" val="2" gmmbettypeid="5100"/> <label class="clickable">前定一</label> </th> <th id="type-tab3" class="align-l s-line tabitem clickable"> <input type="radio" name="typeTab" class="radio" val="3" gmmbettypeid="5200"/> <label class="clickable">前定二</label> </th> <th id="type-tab4" class="align-l tabitem clickable"> <input type="radio" name="typeTab" class="radio" val="4" gmmbettypeid="5400"/> <label class="clickable">中肚</label> </th> <th id="type-tab5" class="align-l s-line tabitem clickable"> <input type="radio" name="typeTab" class="radio" val="5" gmmbettypeid="5500"/> <label class="clickable">後定一</label> </th> <th id="type-tab6" class="align-l tabitem clickable"> <input type="radio" name="typeTab" class="radio" val="6" gmmbettypeid="5600"/> <label class="clickable">後定二</label> </th> </tr>
if Web1.OleObject.document.Frames.item(0).document.all.item(‘typeTab’,2).checked then
原创文章,作者:Maggie-Hunter,如若转载,请注明出处:https://blog.ytso.com/194733.html