本文整理自网络,侵删。

代码文件:unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw;
type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);begin WebBrowser1.Align := alTop; Button2.Enabled := False; Button3.Enabled := False; Button4.Enabled := False; Button1.Caption := '模拟一个页面'; Button2.Caption := '假如知道按钮名称'; Button3.Caption := '假如知道按钮的 ID'; Button4.Caption := '假如只知道是第几个按钮';end;
{模拟一个页面}procedure TForm1.Button1Click(Sender: TObject);begin WebBrowser1.Navigate( 'about:<head><title>标题</title><body bgcolor=#ff0000>' + '<form method="POST" action="http://del.cnblogs.com">' + '<input type="submit" value="提交" id="btnID" name="btnName">' + '</form></body>'); Button2.Enabled := True; Button3.Enabled := True; Button4.Enabled := True;end;
{假如知道按钮名称, 譬如是: btnName}procedure TForm1.Button2Click(Sender: TObject);begin WebBrowser1.OleObject.document.all.item('btnName').click; //WebBrowser1.OleObject.document.all.item('btnName', 0).click; FormCreate(nil);end;
{假如知道按钮的 ID, 譬如是: btnID}procedure TForm1.Button3Click(Sender: TObject);begin WebBrowser1.OleObject.document.getElementByID('btnID').click; FormCreate(nil);end;
{假如只知道是第几个按钮, 譬如是第一个}procedure TForm1.Button4Click(Sender: TObject);begin WebBrowser1.OleObject.document.getElementsByTagName('input').item(0).click; FormCreate(nil);end;
end.
相关阅读 >>
Delphi cb_addstring 与lb_addstring的区别?
Delphi中使用ixmlhttprequest如何用post方式提交带参
更多相关阅读请进入《Delphi》频道 >>