Discussion :

[manworms2]

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 :

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

[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

[blondelle]

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 :

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

[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

[blondelle]

Dans la chaine de code

Code :

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

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

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