如何判断webbrowser框架内容全部加载完毕？

2010-05-29 01:10:03 1.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Gephi新手必看：如何用Excel整理CSV数据快速生成网络图（附模板）本文为Gephi新手提供了一份从Excel数据整理到生成专业网络图的完整指南。详细讲解了如何构建规范的节点表和边表CSV文件，并导入Gephi进行可视化分析。通过实战案例，帮助读者快速掌握利用Excel整理数据、规避常见错误，并运用布局算法与视觉编码，将复杂关系数据转化为直观的网络洞察。阅读详情

我想等博客的fckeditor加载完毕后自动填写内容，现在填写内容已经搞定了，但是判断页面加载完毕不准确，所以调试时会出错，说找不到成员

博客地址
http://www.blogtoowoomba.com/

测试ID:onmyway
测试密码:cMKpYJJx

我查到的方法是

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

if WebBrowser1.Application = pDisp then

begin

Text := '网页下载完毕！';

end;

end;

但是不行

...全文

自动化专业与嵌入式在学生时期，我是一个典型的学渣，所以只能选择电气工程、汽修、数控之类的专业。而那些高分的则可以选择计算机，电子商务，通信之类的。这些专业看起来像是蓝领和白领的分界，至今我都觉得这种制度是不人性化的。专业这块根据学生的爱好去选择是最好的，毕竟有兴趣才会”真心”去学习。谁说学渣就学不会编程、学不会金融对吧？不过也罢，在学校能学到东西的毕竟是少数，最近有些大学生发了他们的课程表给我看了下。我感觉学的太广了，什么单片机、c语言、java之类的，导致很多学生学完以后还是很迷茫，不知道自己专业到底是从事什么方向的。所以阅读详情

HackerMo0

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

devhp 2010-05-30

打赏
举报

這個要操作的網頁是包含了三层框架,上面大大的代码仅仅判断到第二层上.而你要操作的刚好是第三层上的东西,

由于第三层并沒有SRC,所以也不會產生 DocumentComplete所以上面大大的方法根本就判斷不到第三層.所以我们变通一下.第三層會產生一個BeforeNavigate2,在這里用全局變更urls取得url,然後在DownloadComplete事件中判斷這個urls是不是:javascript:void(0)就可以了

  urls:string;

implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate('http://www.blogtoowoomba.com/login.php');

end;



procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);

begin

  if urls='javascript:void(0)' then

     填表; //為了以后再填,應該清空urls;



end;



procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;

  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

  Headers: OleVariant; var Cancel: WordBool);

begin

  if url='javascript:void(0)' then  urls:=url;

end;

HackerMo0 2010-05-30

打赏
举报

[Quote=引用 4 楼 tiankun66 的回复:]

注意

1、打开http://www.blogtoowoomba.com/ 完成后会提示一次完成

2、 Login 页面加载完成也会提示一次完成

3、登录后页面加载完成也会有一次提示完成
[/Quote]

多谢，不过我说的是发布文章页面的加载，是其中带了fckeditor编辑器的，地址是
http://www.blogtoowoomba.com/manager/add_entry.php
用我给的id和密码登陆

hongss 2010-05-29

打赏
举报



  while WebBrowser1.ReadyState < READYSTATE_COMPLETE do

    Application.ProcessMessages;

大肚肥肥 2010-05-29

打赏
举报

注意

1、打开http://www.blogtoowoomba.com/ 完成后会提示一次完成

2、 Login 页面加载完成也会提示一次完成

3、登录后页面加载完成也会有一次提示完成

大肚肥肥 2010-05-29

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
glpDisp: IDispatch;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
begin
if (glpDisp <> nil) and (glpDisp = pDisp) then
begin
glpDisp := nil;
ShowMessage('完成');

end;
end;
end;

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if glpDisp = nil then glpDisp := pDisp;
end;

end.

HackerMo0 2010-05-29

打赏
举报

测试过，不行啊。。。

大肚肥肥 2010-05-29

打赏
举报

1 定义一个全局变量 glpDisp: IDispatch;

2、NavigateComplete2 事件写如下代码
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if glpDisp = nil then glpDisp := pDisp;
end;

3、DocumentComplete 事件写如下代码
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if (glpDisp <> nil) and (glpDisp = pDisp) then
begin
glpDisp := nil;
ShowMessage('完成');

end;
end;

如何判断webbrowser框架内容全部加载完毕？

相关推荐