delphi webbrowser 表单赋值模拟点击

本文整理自网络，侵删。

 
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编写的lpk.dll专杀，可清理rar

Delphi sysutils.trim、sysutils.trimleft、sysutils.trimright - 删除空格

Delphi 下找到目录中的所有文件夹

Delphi读取excel文件-统计全部工作表中内容相同单元格出现次数

Delphi 窗体不可用

Delphi 判断端口(port)是否被占用

Delphi 方法的类型

Delphi根据字符分割字串成数组

Delphi 得到字符串拼音首字母

Delphi tgpimage 把图像转存为其他格式

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

转载请注明出处：木庄网络博客 » delphi webbrowser 表单赋值模拟点击