Discussion :

[lisco]

Bonjour, je cherche à récupérer une page html à partir d'une url. Mon idée est de faire une TEdit où l'utilisateur doit etre une adresse url et ensuite je click sur un bouton pour récupérer la page html correspondant à l'url!!!

Est ce quelqu'un est deja confronté a ce genre de problème , ça fait 3 jours que je galère et j'arrive pas a trouver la solution!!

I need help please.

Merci d'avance.

[gandf]

Tu as quelle version de C++Builder ?

FAQ C++Builder : http://cpp.developpez.com/faq/bcb/?p...tcppwebbrowser
ou FAQ Delphi : http://delphi.developpez.com/faq/?page=indy_idhttp

[Argol_Medusa]

si tu as la version 6 ou plus de builder tu peux utiliser un TCppWebBrowser qui te permettra de récupérer le contenu en texte ou en page html

[lisco]

Tu as quelle version de C++Builder ?

J'utilise C++Builder 2010 !!! dont je connais pas encore toutes les composants.

Si vous avez encore des propositions je suis preneur, et merci pour ce premier coup de main, je vais continuer mes recherches.

[Crayon]

Avec C++Builder 2010 il y a TWebBrowser.

C'est facile a utiliser tu fais seulement:

Code :

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

1
2
3
4
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    WebBrowser1->Navigate("www.google.com");
}

[lisco]

Re-bonjour, je reprends mon besoin : je dois recuperer une page html à partir d'une url entrer par un utilisateur dans un formulaire.
Alors mon idée est d'entrer l'url dans un TEdit et de recuperer le contenu de la page correspondante dans un TFileStream.
Mon idée me semble bonne mais j'ai un souci à la compilation, voici mon code et l'erreur que j'ai:

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
bool __fastcall TForm1::downloadFile (AnsiString source,AnsiString destination)
{
	    TFileStream *F = new TFileStream(destination, fmCreate);
        bool download = false;
 
                try
                {
                        HTTPClient->Get(AnsiString(AnsiString(source)).c_str(),F);
                        download=true;
                }
                catch (...)
                {
                        download=false;
                }
 
 
 
		return download;
}

//------------------------------------------------------------------------

//Methode qui permet de lancer le chargement:

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
 
  URL = TEdit->Text ;
  downloadFile (URL,"c:\\test.txt") ;
}

Voici l'erreur que j'ai à la compilation :

Code :

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

[ILINK32 Erreur] Fatal: Impossible d'ouvrir le fichier 'SHDOCVW_OCX.OBJ'

Mon but est de recuperer la page html correspondant à l'url pour pouvoir y faire des traitement.
j'ai besoin de votre aide svp et merci d'avance.

[Crayon]

Ok, je reprend mon exemple précédent dans lequel j'ai ajouté le code de la FAQ Comment récupérer le source HTML d'une page affichée dans un TCppWebBrowser ?. Lien qui avait été donné plus haut par gandf.

Voici donc le code complet:

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
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    WebBrowser1->Navigate(TEdit->Text.w_str()); // URL dans un TEdit
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WebBrowser1DocumentComplete(TObject *ASender, const IDispatch *pDisp,
          OleVariant &URL)
{
    IHTMLDocument3 *html = NULL;
    IHTMLElement *element = NULL;
    BSTR string = L"";
    TWebBrowser *browser = (TWebBrowser*)ASender;
 
    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;
    }
 
    // On sauvegarde le contenu
    TFileStream *FStream;
    try
    {
        FStream = new TFileStream("c:\\test.html", fmCreate | fmOpenWrite);
        FStream->Write(string, SysStringByteLen(string));
    }
    __finally
    {
        delete FStream;
    }
}
//---------------------------------------------------------------------------

N'oublie pas d'inclure ceci:

Code :

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

#include <mshtml.h>