Discussion :

[SegmentationFault]

Bonjour,

j'ai une application console qui traite une page web :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
objIE := CreateOLEObject('InternetExplorer.Application');
objIE.application.Navigate(site);

et la je souhaite bloquer l'ouverture du popup. Alors apres une petite recherche, j'ai ajouté dans mon application ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Type
  TServerHindler = class
  public
    class procedure StopPopup(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
  end;

et apres la creation de objIE j'ajoute l'evenement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objIE.OnNewWindow2 := TServerHindler.StopPopup;

D'apres les exemples que j'ai trouvé sur net, ca devrait fonctionner sans problème, mais pour moi au moment de la compimation, il me dit qu'il y a pas assez de parametres dans la ligne::

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objIE.OnNewWindow2 := TServerHindler.StopPopup;

quelqu'un a une idée svp?

[Eric Boisvert]

mais pour moi au moment de la compimation, il me dit qu'il y a pas assez de parametres dans la ligne::

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objIE.OnNewWindow2 := TServerHindler.StopPopup;

quelqu'un a une idée svp?

j'ai l'impression que le problème est avant cette ligne...
ici ca fonctionne

[Eric Boisvert]

Par contre, je vois pas très bien le lien avec ton titre...?