Creating TWebBrowser in Runtime with Delphi

Question

I have a TWebBrowser object which is created in runtime and used in background, that is, not visible. The problem is that events like OnDocumentComplete dont work or are not triggered in Delphi2009. Any advice?

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FWebBrowser:= TWebBrowser.Create(Self);
  FWebBrowser.RegisterAsBrowser:= True;
  FWebBrowser.OnDocumentComplete:= WhenDocIsCompleted;
end;

procedure TfrmMain.WhenDocIsCompleted(ASender: TObject; const pDisp: IDispatch;
  var URL: OleVariant);
begin
  ShowMessage('Doc is completed!');
end;

There is any difference important between Navigate and Navigate2? How can I enable cookies here?

Thanks in advance.

Not really an answer to your question, but why would you use TWebBrowser if you are not using it for display? Wouldn't be better to just get it using a HTTP Client component like Indy's TIdHTTP or the WinInet API that uses the same settings as IE. See stackoverflow.com/questions/1823542/… — Lars Truijens
– Lars Truijens, Commented Dec 27, 2009 at 11:36
I've used TidHTTP and TidCokkieManager but problems with cookies persist so I saw TWebBrowser like a solution but after tests it has same problem. — Billiardo Aragorn
– Billiardo Aragorn, Commented Dec 27, 2009 at 16:26
So what is the question? Is it about the cookies or the event? Maybe it is best if you separate both questions. — Lars Truijens
– Lars Truijens, Commented Dec 27, 2009 at 18:26

perror · Accepted Answer · 2015-08-05 09:38:41Z

9

TWinControl(FWebBrowser).Parent := Form1;  // Parent property is read-only unless cast

edited Aug 5, 2015 at 9:38

perror

7,52616 gold badges63 silver badges89 bronze badges

answered Mar 12, 2011 at 16:41

tomo7

5097 silver badges6 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Stijn Sanders · Accepted Answer · 2009-12-29 19:48:31Z

2

You may have this issue because the TWebBrowser internally works closely together with the handle of the parent form to get messages posted from windows. Try using a hidden form with the TWebBrowser on (optionally run-time created as well), and/or investigate if the HandleAllocated and HandleNeeded methods could help you.

answered Dec 29, 2009 at 19:48

Stijn Sanders

37k11 gold badges48 silver badges71 bronze badges

Comments

Ingo · Accepted Answer · 2014-08-06 18:04:54Z

2

Call for the OnDocumentComplete Problem:

WebBrowser1.HandleNeeded;

or in your case:

FWebBrowser.HandleNeeded;

before webBrowser.Navigate

answered Aug 6, 2014 at 18:04

Ingo

5,3871 gold badge33 silver badges25 bronze badges

Comments

Billiardo Aragorn · Accepted Answer · 2009-12-27 16:31:19Z

1

A component working perfectly with web-pages cookies is TEmbeddedWB from EmbeddedWB and is free.

answered Dec 27, 2009 at 16:31

Billiardo Aragorn

3771 gold badge4 silver badges16 bronze badges

2 Comments

Cesar Romero Over a year ago

I cant access EmbeddedWB website for long time. I have the sources and Im using in Delphi 2010, also I have improved some parts and fixed some bugs.

AmigoJack Over a year ago

For the "latest" downloads see Wayback's archive, since the website ceased to exist after 2009-04.

Vladimir Miroshnichenko · Accepted Answer · 2013-09-12 14:55:51Z

procedure TForm1.ReCreateBrowser();
begin
    if(WebBrowser <> NIL) then
    begin
       WebBrowser.Stop;
       WebBrowser.Destroy;
    end;

    WebBrowser        := TWebBrowser.Create(Form1);
    TWinControl(WebBrowser).Name   := 'WebBrowser';
    TWinControl(WebBrowser).Parent := Form1; //set parent...can be panel, tabs etc
    WebBrowser.Silent := true;  //don't show JS errors
    WebBrowser.Visible:= true;  //visible...by default true

    //don't set width/heigh/top/left before TWinControl(WebBrowser).Parent := Form1;
    WebBrowser.Top    := 10;
    WebBrowser.Left   := 10;
    WebBrowser.Height := 600;
    WebBrowser.Width  := 800;
    WebBrowser.OnDocumentComplete  := WebBrowserDocumentComplete;
  //WebBrowser.OnNavigateComplete2 := WebBrowserNavigateComplete2;
end;

Collectives™ on Stack Overflow

Creating TWebBrowser in Runtime with Delphi

5 Answers 5

Comments

Comments

Comments

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

5 Answers 5

Comments

Comments

Comments

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related