Nom inconnu vLinks

Version imprimable

Nom inconnu vLinks

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:

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é.

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:

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();
        } 
      } 
    }
  }
}

14/12/2011, 17h08
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 :

Citation:

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.

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:

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....

15/12/2011, 11h31
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.

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

Citation:

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

le .cpp

Code:

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:

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