delphi中使用webbrowser提交表单

转自:http://blog.163.com/hehaifeng1984@126/blog/static/6900113620133504644998/

 

我们以百度搜索为例,使用webbrowser组件自动在表单中填写信息,并提交出去。

首先从百度首页源代码中寻找表单信息,最关键的信息如下:

<formname="f"action="">

<input type="text"name="wd"id="kw"maxlength="100"class="s_ipt">

<inputtype="submit"value="百度一下"id="su" ></form>

   可以看到,百度的搜索表单的Name参数值是“f”,只有一个字母。而文本输入框的名字叫wd。我们只要设置wd的值就可以自动填写表单了。

   在窗体中拖一个WebBrowser组件和两个按钮组件,按钮1填写表单,按钮2提交数据,在窗口载入时打开百度首页:

procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser1.Navigate('http://www.baidu.com');
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
var  o:OleVariant;
begin
 o := WebBrowser1.OleObject.document.all.item( 'wd',0); //找到输入框
 o.value := '凌云阁';
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var o:OleVariant;
begin
  o:=WebBrowser1.oleobject.document.all.item('f',0);   //提交数据
  o.submit;
end;

上面的代码中,我们事先已经知道了表单和输入框的名字,使用WebBrowser1.OleObject.document.all.item( 'wd',0)找到输入框对象,用value方法输入数据。

由于百度的提交数据按钮没有name属性,只能利用表单的name属性,采用提交表单的方式提交。我们使用WebBrowser1.oleobject.document.all.item('f',0)找到表单对象。然后用sumit方法提交。

posted @   tc310  阅读(1848)  评论(0编辑  收藏  举报
编辑推荐:
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
阅读排行:
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 超详细,DeepSeek 接入PyCharm实现AI编程!(支持本地部署DeepSeek及官方Dee
· 用 DeepSeek 给对象做个网站,她一定感动坏了
· .NET 8.0 + Linux 香橙派,实现高效的 IoT 数据采集与控制解决方案
· .NET中 泛型 + 依赖注入 的实现与应用
点击右上角即可分享
微信分享提示