本文整理自网络,侵删。
单元文件: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环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决
更多相关阅读请进入《Delphi》频道 >>