Discussion :

[Sixpounder]

Bonjour tout le monde

Je souhaite récupérer les liens d'une page internet via le CppWebBrowser1.
Donc je me dirige vers la FAQ et récupère ce bou de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vLinks = vDocument.OlePropertyGet("Links");
   Variant vLinksCount = vLinks.OlePropertyGet("Length");
   for (int i = 0 ; i < vLinksCount ; i++)
   {
	  ListBox1->Items->Add(vLinks.OleFunction("Item",i));
   }
}

Cependant Builder me génère une erreur au niveau de la propriété Links.

J'ai parcouru l'ensemble du forum à ce sujet et tout le monde semble utilisé cette propriété.

[ShaiLeTroll]

Quelle erreur ? OleException : "Propriété Inconnue" ?
Sinon, question con, est-ce ton document contient des liens ?
Essaye sur différentes pages !

Essaye aussi OleObject au lieu de ControlInterface
Regarde ce que donne aussi All comme dans ce sujet pour simuler un click

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
{
  Variant OleDocument = CppWebBrowser->OleObject.OlePropertyGet("Document");
  if (((IDispatch *)OleDocument) != NULL)
  {
    Variant DocItemCollection = OleDocument.OlePropertyGet("All");
    int ItemCount = DocItemCollection.OlePropertyGet("length");
    for (int i = 0; i < ItemCount; i++)
    {
      Variant DocItem = DocItemCollection.OleFunction("item", i, i);
      if (((IDispatch *)DocItem) != NULL)
      {
        IHTMLElement *DocElement = NULL;
        if (((IDispatch *)DocItem)->QueryInterface(Mshtml::IID_IHTMLElement, (void**)&DocElement) == NO_ERROR)
        {
          OleVariant ElementType;
          if (DocElement->getAttribute(WideString("type"), 0, ElementType) == NO_ERROR)
          {
           ... ici tu peux tout énumérer !
          }
 
          DocElement->Release();
        } 
      } 
    }
  }
}

[Sixpounder]

Bonjour

Quelle erreur ? OleException : "Propriété Inconnue" ? Classe d'exception EOleSysError avec le message 'Nom inconnu'
Sinon, question con, est-ce ton document contient des liens ? Oui
Essaye sur différentes pages ! Déjà testé.

Essaye aussi OleObject au lieu de ControlInterface

Je viens de modifier mon code mais rien n'y fait toujours ce problème de :

Le projet Project1.exe a déclenché la classe d'exception EOleSysError avec le message 'Nom inconnu'.

[Edit :]
De même avec ton code, je n'arrive pas accéder aux propriétés OLE.

[ShaiLeTroll]

Laisse un peu de temps après le Navigate ou Navigate2 !
C'est un traitement asynchrone, tu accèdes prématurément à l'Objet !

un truc comme inspire de la FAQ Comment afficher une page construite dans son application ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
CppWebBrowser->Navigate ...
 
while (CppWebBrowser->ReadyState < READYSTATE_COMPLETE)
{
   Application->ProcessMessages();
   Sleep(5);
}
 
Variant OleDocument = CppWebBrowser->OleObject....

[Sixpounder]

Alors j'ai inséré une pause dans mon traitement mais le problème reste le même.

Cependant j'ai testé mon application sur un Windows 7 et là tout marche.

Mon problème ne viendrait-il pas d'un élément externe (par exemple IE) ?

OS : Windowsp XP SP3, Internet Explorer 6.0.2900.5512.xpsp_sp3_gdr.101209-1647, C++ Builder 2010.

[blondelle]

Salut Sixpounder
ton code fonctionne chez moi, window7 bcb6, sur la Form deux TButton un TListBox un TcppWebBrowser
L'URL qui ne s'affiche pas correctement dans le code

"http://cpp.developpez.com/faq/bcb/?page=composantstcppwebbrowser"

le .cpp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//WideString Url = fichierHTML;
WideString Url = "<a href="http://cpp.developpez.com/faq/bcb/?page=composantstcppwebbrowser" target="_blank">http://cpp.developpez.com/faq/bcb/?p...tcppwebbrowser</a>";
CppWebBrowser1->Navigate(Url);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vLinks = vDocument.OlePropertyGet("Links");
   Variant vLinksCount = vLinks.OlePropertyGet("Length");
   for (int i = 0 ; i < vLinksCount ; i++)
   {
   ListBox1->Items->Add(vLinks.OleFunction("Item",i));
   }
}
}
//---------------------------------------------------------------------------

le .h

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SHDocVw_OCX.h"
#include <OleCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TCppWebBrowser *CppWebBrowser1;
        TButton *Button2;
        TButton *Button1;
        TListBox *ListBox1;
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif