delphi webbrowser 表单赋值模拟点击


本文整理自网络,侵删。

 

单元文件:MSHTML

var   Form   :     IHTMLFormElement     ;
        D:IHTMLDocument2     ;
begin
    with   WebBrowser1   do   begin
          D   :=   Document   as   IHTMLDocument2;
          Form   :=   D.Forms.item( 'form1 ',0)   as   IHTMLFormElement;   //form1为表单名
          //title为表单中的文本框
        (form.item( 'title ',0)   as   IHTMLElement).setAttribute( 'value ',s_title,0);  
        (form.item( 'content ',0)   as   IHTMLElement).setAttribute( 'value ',edit1.text,0);

//下面提交方式任选一种都可以 
(form.item( 'su',0)   as   IHTMLElement).click;//add为按钮名称    【方法1 提交】
 WebBrowser1.oleobject.document.Forms.Item(0, 0).submit;  //第一个表单提交   【方法2 提交】

    end;

相关阅读 >>

Delphi dbgrid1查询只显示50条记录修改

Delphi lockbox 做加密解密

Delphi实现文件拖放代码

Delphi x秒生成大量垃圾字符

Delphi xe5如何像手机qq一样最小化后显示图标

Delphi stringgrid之属性大全

tclientsocket和tserversocket用法

secsperday:一天共有多少秒

Delphi xmldocument控件之xml

Delphi 输入法设置(imemode与imename)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...