Is unable to judge whether the page download finished, refer to the online code:
Procedure TForm1. WebBrowser1NavigateComplete2 (Sender: TObject;
Const pDisp: IDispatch; Var URL: OleVariant);
The begin
If glpDisp=nil then glpDisp:=pDisp;
end;

3, the DocumentComplete write the following code
Procedure TForm1. WebBrowser1DocumentComplete (Sender: TObject;
Const pDisp: IDispatch; Var URL: OleVariant);
The begin
If (glpDisp & lt;> Nil) and (glpDisp=pDisp) then
The begin
GlpDisp:=nil;
ShowMessage (' complete ');

end;
end;


How to solve? Thank you very much!

CodePudding user response:

WebBrowser1. Isbusy
WebBrowser1. State<> Complete
Don't remember

CodePudding user response:

This code to download some other web page code, but this is not to money.163.com, do not know why?

CodePudding user response:

It is recommended to use Embedded Web Browser

Access to the source code is only a code: EmbeddedWB DocumentSource

CodePudding user response:

Tried, obtaining success money.163.com source code,

CodePudding user response:

I try to see see

CodePudding user response:

It is recommended to use Embedded Web Browser

Access to the source code is only a code: EmbeddedWB DocumentSource