WebBrowser - OnNewWindows2

Question

Voici une source tiré du sujet : Réseau et Internet

procedure TWeb.WebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var
result : Tweb;
begin
Result := TWeb.Create(self);
Tag := TWeb(self).tag;
ppDisp:=Result.WebBrowser.Application;
Form1.Switchbar.addtab(Result,0);
Result.Caption:=Result.WebBrowser.LocationURL;
exit;
end
else
Cancel:=True;

Cependant elle ne fonctionne pas!

Je voudrai avoir la vrai source qui marche pour affiche notre form au lieu de la form d'Internet Explorer.

Aussi comment faire pour détecté un site sécurisé ( SSL 128bits).

Merci d'avance.

- MAsterC -

cs_bazole · Answer

il doit manquer du code, je vois un ELSE à la l'avant dernière ligne mais je ne vois pas de IF ni THEN

"Voici une source tiré du sujet : Réseau et Internet" :
A-tu l'adresse exacte je serai curieux d'étudier ce code.

bazole

cs_bazole · Answer

Salut MasterC

Voilà ce que j'ai pu faire avec ce code.
Je n'ai pas tout compris ???????.
(Testé sur delphi 6 perso)

Dans l'évènement "OnNewWindow2" du composant TWebBrowser tu met le code suivant :

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);

var
//Variable corespondant à la fenêtre de ton programme
  Navigateur : TForm1;
begin
//Création d'une nouvelle fenêtre corespondant à ton programme
  Navigateur :=  TForm1.Create(self);

//Içi je suppose qu'il y a transfert de la nouvelle adresse dans le WebBrowser de la nouvelle fenêtre ????
  ppDisp := Navigateur.WebBrowser1.Application;

//Rend la nouvelle fenêtre visible
  Navigateur.Show;
 end; 

Dans l'évènement "OnBeforeNavigate2" du composant TWebBrowser tu met le code suivant :

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
//Affiche la nouvelle adresse dans un Edit
  Edit1.Text : = URL;
end;

Le truc bizarre avec ce code : si on ferme la première fenêtre, toutes les autres fenêtres ouvertes avec le click droit de la souris seront fermées.

tchao
bazole

WebBrowser - OnNewWindows2

2 réponses

Votre réponse

Discussions similaires