Recuperer source page web

Version imprimable

bonjour
je n'arrive pas a faire fonctionner le code décrit dans la faq pour récupérer la source d'un page web.
je souhaite l'affichez dans un doc pour voir ce qu'il recupere mais mon doc reste vide.
avez vous une idée de mon erreur? merci

mon code :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
// fonction non modifiée de la faq
AnsiString __fastcall GetSource (TCppWebBrowser * browser)
{
   IHTMLDocument3 *html = NULL;
   IHTMLElement *element = NULL;
   BSTR string = L"";
 
   try
   {
      if (browser->Document != NULL)
      {
         OleCheck(browser->Document->QueryInterface(IID_IHTMLDocument3,(LPVOID*)&html));
         OleCheck(html->get_documentElement(&element));
         OleCheck(element->get_outerHTML(&string));
      }
   }
   catch (EOleSysError &eOSE)
   {
      if (element != NULL)
      {
         element->Release();
      }
      if (html != NULL)
      {
         html->Release();
      }
      throw eOSE;
   }
   return (AnsiString) string;
}
 
// un bouton pour la tester
 
void __fastcall TForm3::Button7Click(TObject *Sender)
{
GetSource (Form2 -> CppWebBrowser1);
}
 
// affichage sous word
 
void __fastcall TForm3::Button2Click(TObject *Sender)
{
 
WideString source;
//txt = VarToStr(aContenuHTML);
source = string.c_str();
 
    Variant vFileName, vReadOnly, vWDocuments, vWDocument;
    vFileName = "c:\\test.doc";
    Variant vMSWord;
try
        {
 
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = false; // lecture seule
 
    vWDocuments = vMSWord.OlePropertyGet("Documents");
    vWDocument = vWDocuments.OleFunction("Open", vFileName,vReadOnly);
    vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText",source);
}

17/04/2012, 16h55
DjmSoftware

:?:(Merci de mieux lire la FAQ avant de poster
l'article mentionné est parfaitement fonctionnel, mais il faut parfois le lire dans son entier
cdlt

Salut manworms2
DjmSoftware a raison il faut lire correctement les exemples fournis, et prendre le temps de reflechir, les codes fournis demandent toujours a etre adaptes
Sur la Form un TButton pour ouvrir la page Web et un CppWebBrowser pour l'affichage, un TButton pour copier le CppWebBrowser dans word
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <mshtml.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
CppWebBrowser1->Navigate((TVariant)"<a href="http://www.site.com/page.html" target="_blank">http://www.site.com/page.html</a>", &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString aContenuText = "";
AnsiString aContenuHTML = "";
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vBody = vDocument.OlePropertyGet("Body");
   Variant vContenuText = vBody.OlePropertyGet("InnerText");
   Variant vContenuHTML = vBody.OlePropertyGet("InnerHTML");
   aContenuText = vContenuText;
   aContenuHTML = vContenuHTML;
}
    Variant vFileName, vReadOnly, vWDocuments, vWDocument;
    Variant vMSWord;
try
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = false; // lecture seule
    vWDocuments = vMSWord.OlePropertyGet("Documents");
 vWDocument = vWDocuments.OleFunction("Add");
    vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText",WideString(aContenuText));
}
//---------------------------------------------------------------------------

17/04/2012, 20h23
manworms2

merci pour vos réponses
blondelle j'ai essayer ton code mais il ne récupère pas la source, seulement le texte de la page.

j'ai l'erreur lors de la compilation:
"unresolved external Tform3 Get source referenced from UNIT3.OBJ"

merci
17/04/2012, 20h37
blondelle
Dans la chaine de code
Code:

1 2 vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText",WideString(aContenuText));
remplacer " aContenuText " par " aContenuHTML " pour recuperer le code HTML
pour l'erreur soit tu a cree une Form non defini dans les autres Forms ou tu a enleve de ton code une Form sans effacer completement ses references dans les autres Forms
19/04/2012, 17h32
manworms2

merci pour ta réponse , seulement la fonction que tu mentionne ne récupère que 1/3 du code source de la page.

Etonnant mais bon, essaye avec le code que tu avait propose

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <mshtml.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
CppWebBrowser1->Navigate((TVariant)"<a href="http://www.site.com/page.html" target="_blank">http://www.site.com/page.html</a>", &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString aContenuText = "";
AnsiString aContenuHTML = "";
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vBody = vDocument.OlePropertyGet("Body");
   Variant vContenuText = vBody.OlePropertyGet("InnerText");
   Variant vContenuHTML = vBody.OlePropertyGet("InnerHTML");
   aContenuText = vContenuText;
   aContenuHTML = vContenuHTML;
}
    Variant vFileName, vReadOnly, vWDocuments, vWDocument;
    Variant vMSWord;
try
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = false; // lecture seule
    vWDocuments = vMSWord.OlePropertyGet("Documents");
 vWDocument = vWDocuments.OleFunction("Add");
    vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText",WideString(aContenuHTML));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   IHTMLDocument3 *html = NULL;
   IHTMLElement *element = NULL;
   BSTR string = L"";
   try
   {
      if (CppWebBrowser1->Document != NULL)
      {
         OleCheck(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3,(LPVOID*)&html));
         OleCheck(html->get_documentElement(&element));
         OleCheck(element->get_outerHTML(&string));
      }
   }
   catch (EOleSysError &eOSE)
   {
      if (element != NULL)
      {
         element->Release();
      }
      if (html != NULL)
      {
         html->Release();
      }
      throw eOSE;
   }
//   return (AnsiString) string;
    Variant vFileName, vReadOnly, vWDocuments, vWDocument;
    Variant vMSWord;
try
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = false; // lecture seule
    vWDocuments = vMSWord.OlePropertyGet("Documents");
 vWDocument = vWDocuments.OleFunction("Add");
    vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText",WideString(string));
}
//---------------------------------------------------------------------------

J'ai juste ajoute un TButton

20/04/2012, 10h56
manworms2

merci blondelle mais j'ai toujours le même problème , il ne récupère que environ 1/3 de la page , il est vrai que la source est importante , 1/3 prend déjà 9 pages word.
dans un premier temps , je souhaiterais récupérer un array nommé "var TabVersion" dans la source. j'ai cherché mais je ne sais pas comment utiliser OlePropertyGet :?.

merci
20/04/2012, 12h12
blondelle
Peut etre en passant par un TMemo, plutot quand passant par uune string
Code:

1 2 3 4 5 6 Memo1->Lines->Add(vContenuText); ou Memo1->Lines->Add(vContenuHTML); ou Memo1->Lines->Add(string);
pour le TMemo mettre sa propriete " ScrollBars " a " ssVertical "
20/04/2012, 12h55
Argol_Medusa

Citation:

Envoyé par blondelle

Peut etre en passant par un TMemo, plutot quand passant par uune string

Heu je dis ça de tête mais il n'y a pas une limitation en lignes dans un TMemo ?
Du genre 65536 lignes ?

Vérifiez ce point, c'était peut-etre sur le builder 6 seulement.

Vérifiez aussi le aContenuHTML, mais ça peut fort bien expliquer cette limite rencontrée dans la lecture de la page web.

Sinon autre possibilité : faire directement un download du fichier, puis le traiter en suite sans passer par le composant CppWebBrowser, c'est encore plus simple.
20/04/2012, 13h07
DjmSoftware

Citation:

Heu je dis ça de tête mais il n'y a pas une limitation en lignes dans un TMemo ?
Du genre 65536 lignes ?

cette limitation n'a plus lieu depuis NT4
cdlt