| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265591
建立时间:2005年6月6日 |
| |
|
 [delpih编程]Webbrowser 技巧集（转贴）
软件技术
吕向阳 发表于 2009/3/12 12:12:11 |
1.获得网页中变量值 htm中
var currID=123
程序中可以这么调
用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可
以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发
一个异常事件,即变量currID不存在。
---------------------------------------------------------------------------
2.执行网页中的函数 tmp := 'currID = getNextID(currID)'+#13#10;
Form1.WebBrowser1.OleObject.Document |
|
|
[delpih编程]Delphi用WebBrowser编程-自动登录操作
软件技术
吕向阳 发表于 2009/3/12 12:05:37 |
利用Delphi的Olevariant类型
===单个frames的输入
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0); //找到登录用户名的
输入框
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入
框
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit; //第一个表单提交
{
o :=WebBrowser.oleobject.document.all.i |
|
|
[delpih编程]提取网页中的所有链接、点击第 n 个链接 -转贴
软件技术
吕向阳 发表于 2009/3/12 11:52:16 |
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Align := alTop;
WebBrowser1.Navigate('http://del.cnblogs.com');
ListBox1.Align := alClient;
Button1.Caption := '提取网页所有链接地址';
Button2.Caption := '提取网页所有链接文本';
Button3.Caption := '模拟点击指定的链接';
end;
{提取网页所有链接地址}
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
ListBox1 |
|
|
[delpih编程]模拟点击网页中的按钮(转贴）
软件技术
吕向阳 发表于 2009/3/12 11:50:03 |
{假如知道按钮名称, 譬如是: 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;
|
|
|
[delpih编程]WebBrowser 操作记要 (转贴）
软件技术
吕向阳 发表于 2009/3/12 11:44:29 |
WebBrowser1.GoHome; //到浏览器默认主页
WebBrowser1.Refresh; //刷新
WebBrowser1.GoBack; //后退
WebBrowser1.GoForward; //前进
WebBrowser1.Navigate('...'); //打开指定页面
WebBrowser1.Navigate('about:blank'); //打开空页面
--------------------------------------------------------------------------------
//打开空页面, 并写入...
WebBrowser1.Navigate('about:页面内容');
------------------------------------------- |
|
|
[delpih编程]DELPHI取得IFRAME框架里面输入的内容
软件技术
吕向阳 发表于 2009/3/12 0:53:58 |
uses mshtml;
//引用单元
procedure TMainForm.ToolButton56Click(Sender: TObject);
var
Index: Integer;
Document: IHTMLDocument2;
FrameIdx: OleVariant;
FrameDis: IDispatch;
FrameWin: IHTMLWindow2;
begin
while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
if WebBrowser1.Document = nil then Exit;
if WebBrowser1. |
|
|