Un problème avec une fonction

Version imprimable

27/06/2007, 20h14
chm0105

Un problème avec une fonction

salut,

J'utilise le composnant WebBrowser de Borland 6. J'aimerais créer "une fonction" (je ne sais pas si c'est une fonction dans mon cas) utilisant cet objet.

Par exemple, la fonction googe qui m'affiche la page google dans mon composant: google() -> et la page s'affiche.

Cependant, je ne peut pas utiliser l'objet WebBrowser dans ma "fonction". Avez ous une solution? Comment faut-il s'y prendre? Moi jâppel ma fonction google() simplement comme ceci :?

Salut,

Pour rajouter une méthode google à l'objet en question, il faut que tu recrées un composant héritant du WebBrowser. Ainsi, tu pourras faire ceci :

Code:

MonWebBrowser->Google();

Sinon, tu peux tout simplement coder un procédure qui va modifier l'URL du WebBrowser, ce qui donne :

Dans le .h :

Code:

void __fastcall google();

Dans le .cpp :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 //Implémentation void __fastcall TForm1::google() { MonWebBrowser->Navigate("www.google.fr"); } //Exemple d'utilisation void __fastcall TForm1::Button1Click(TObject *Sender) { google(); }
Voilà, pour la partie programmation de la première solution, il faut que j'ai un peu plus de temps... ;)

27/06/2007, 21h24
Crayon

Citation:

Envoyé par chm0105

Cependant, je ne peut pas utiliser l'objet WebBrowser dans ma "fonction".

Pourquoi?
27/06/2007, 23h24
chm0105

j'ai donc créé ma fonction dans un fichier annexe, en .h. Lorsque je compile, le symbole WebBrowser n'est pas accessible.

Merci ero-sennin. Je pense que je vais plutot utiliser la 2ème solution. Je veux inclure mes fonctions, ou plutot procédures dans un autre fichier, je peux le faire?
27/06/2007, 23h29
Crayon

Citation:

Envoyé par chm0105

j'ai donc créé ma fonction dans un fichier annexe, en .h. Lorsque je compile, le symbole WebBrowser n'est pas accessible.

Tu n'as qu'à faire un include de ta fiche principale dans ton fichier d'entête en annexe et il sera accessible.
27/06/2007, 23h30
chm0105

fichier d'entête, c'est le .h? Peux-tu être un peu plus clair. Je dois inclure quel fichier dans quel fichier?
27/06/2007, 23h32
Crayon

Oui, le h c'est pour header qui signifie en-tête. ;)
27/06/2007, 23h36
chm0105

je dois donc inclure le Unit1.h dans fonctions.h en annexe?
27/06/2007, 23h36
Crayon

Citation:

Envoyé par chm0105

fichier d'entête, c'est le .h? Peux-tu être un peu plus clair. Je dois inclure quel fichier dans quel fichier?

Si tu me donnes le nom de tes fichiers sa va aller mieux :lol:

Ton application utilise X.h et ta fonction est déclarée dans Y.h
Dans ce cas, tu met dans Y.h (en haut)

Code:

#include "X.h"
27/06/2007, 23h38
Crayon

Citation:

Envoyé par chm0105

je dois donc inclure le Unit1.h dans fonctions.h en annexe?

Oui c'est ça. On parle avec un décalage d'un post, ne fais pas attention à ma réponse précédente.
27/06/2007, 23h40
chm0105

très bien. Le programme compile. Mais je ne peux pas accéder à ma fonction si je n'inclut pas fonction.h dans Unit.h (ce que je n'ai pas encor fait).

Si je le fais, j'ai la même erreur: WebBrowser.. non définit...

Je suis un peu perdu avec ses fichiers... Merci de ton aide! ;)
27/06/2007, 23h45
Crayon

Juste pour être certain, est-ce que tu peux mettre ici le code de ton fichier fonction.cpp et celui de fonction.h svp (du moins la partie intéressante)

Salut,

Si tu utilise la procédure de façon externe à la fiche, il faut rajouter en paramètre le WebBrowser et donc faire ceci :

Dans le .h

Code:

void __fastcall google(TCppWebBrowser MonWebBrowser);

Dans le cpp:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 //Implémentation void __fastcall TForm1::google(TCppWebBrowser MonWebBrowser) { MonWebBrowser->Navigate("www.google.fr"); } //Exemple d'utilisation void __fastcall TForm1::Button1Click(TObject *Sender) { google(MonWebBrowser); }
En espérant ne pas me tromper ... vu l'heure, je ne suis plus plus très en état :aie:

voila donc une partie de mes fichiers:

1) fonctions.h

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
...
#include "Unit1.h"
...
int users(void)
{
  // Navigue vers la page du script + paramètre users
  WideString url = urlwebadmin + urlpage + "?WebProg=users";
  Browser->Navigate(url);
  Browser->Refresh();
 
  // Récupère le Body de la page
  Variant vDocument = Browser->ControlInterface->Document;
  if(((IDispatch *)vDocument) != NULL)
  {
   Variant vBody = vDocument.OlePropertyGet("Body");
   Variant vContenuHTML = vBody.OlePropertyGet("InnerHTML");
   return vContenuHTML;
  }
}

2) Unit1.cpp

Code:

1
2
3
4
5
6
7
8
9
10
 
...
  #include "Unit1.h"
  #include "fonctions.h"
...
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  lbl1->Caption = users();
}
//------------------------------------------------------------------------------

27/06/2007, 23h52
chm0105

merci ero-sennin, mais je pense qu'il doit y avoir une erreur ou un oubli avec un include... ;)

chm0105 dans un fichier .h on ne met pas de code, on met seulement les déclarations de fonction que l'on veux accéder à l'extérieur.

Donc dans fonction.h:

Code:

int users(void);

Dans fonction.cpp:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include "fonction.h"
#include "Unit1.h"
 
int users(void)
{
  // Navigue vers la page du script + paramètre users
  WideString url = urlwebadmin + urlpage + "?WebProg=users";
  Browser->Navigate(url);
  Browser->Refresh();
 
  // Récupère le Body de la page
  Variant vDocument = Browser->ControlInterface->Document;
  if(((IDispatch *)vDocument) != NULL)
  {
   Variant vBody = vDocument.OlePropertyGet("Body");
   Variant vContenuHTML = vBody.OlePropertyGet("InnerHTML");
   return = vContenuHTML;
  }
}

28/06/2007, 00h00
chm0105

un grand MERCI! Je n'est malheuresement pas le temps de tester ceci ce soir, mais ça m'a beaucoup aidé :D!
28/06/2007, 10h12
chm0105

Un dernier problème:

Code:

[Lieur Erreur] Unresolved external 'users()' referenced from D:\UNIT1.OBJ

J'ai donc inclut les fichiers comme indiqué ci-dessus ainsi que fonction.h dans Unit1.cpp.
28/06/2007, 19h11
ero-sennin

Salut,

Essaie de supprimer les fichiers créés de façon temporaire et recompile le tout pour voir.
28/06/2007, 19h13
chm0105

non j'ai toujours la même erreur... :(
28/06/2007, 19h15
ero-sennin

Peux tu nous mettre à disposition uniquement les sources de fonctions.h et .cpp dans un zip pour que l'on puisse y jeter un oeil de façon plus précise ?

Voir ton projet ... à la limite si c'est possible
28/06/2007, 19h22
chm0105

1 pièce(s) jointe(s)

voila les fichier h et cpp de mes fonctions ainsi que le .cpp du programme
28/06/2007, 19h26
ero-sennin

Il me manque le fichier bpr pour le programme... et unit1.h
28/06/2007, 19h28
chm0105

Désloé, je ne peux pas vous fournir le projet complet. Il faut simplement le composant TcppWevBrowser dispo dans Internet et le nommer "Browser".
TCppWebBrowser *Browser;

Il y a un problème avec la fonction elle doit retourner une valeur et dans certain cas elle ne retourne rien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
int users(void)
{
  // Navigue vers la page du script + paramètre users
  WideString url = urlwebadmin + urlpage + "?WebProg=users";
  Browser->Navigate(url);
  Browser->Refresh();
 
  // Récupère le Body de la page
  Variant vDocument = Browser->ControlInterface->Document;
  if(((IDispatch *)vDocument) != NULL)
  {
   Variant vBody = vDocument.OlePropertyGet("Body");
   Variant vContenuHTML = vBody.OlePropertyGet("InnerHTML");
   return vContenuHTML;
  }
}

Il faudrais plutôt:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
int users(void)
{
  int nValRetour = 0;
  // Navigue vers la page du script + paramètre users
  WideString url = urlwebadmin + urlpage + "?WebProg=users";
  Browser->Navigate(url);
  Browser->Refresh();
  
  // Récupère le Body de la page
  Variant vDocument = Browser->ControlInterface->Document;
  if(((IDispatch *)vDocument) != NULL)
  {
   Variant vBody = vDocument.OlePropertyGet("Body");
   Variant vContenuHTML = vBody.OlePropertyGet("InnerHTML");
   nValRetour = vContenuHTML;
  }
  return nValRetour;
}

28/06/2007, 19h44
chm0105

oui merci! Mais cela ne résoud pas le problème de l'objet?
28/06/2007, 20h10
ero-sennin

Bon, moi j'ai fait vite fais des modifs dans le code mais j'ai un autre soucis mais plus de déclarations je pense.

J'ai fait autrement en passant en paramètre le Browser, ce qui me semble être le plus judicieux.

Voici l'erreur que j'ai (vous trouverez ci joint mon code)

Code:

[Lieur Erreur] Unresolved external 'users(Shdocvw_tlb::TCppWebBrowser *)' referenced from C:\DOCUMENTS AND SETTINGS\XXXXX\BUREAU\TEST\UNIT1.OBJ
28/06/2007, 23h32
chm0105

oui merci pour ton aide. C'est toujours un problème avec UNIT1.OBJ. Crayon tu as une solution? (ou qqn d'autre)
Merci pour votre aide ;)
29/06/2007, 12h15
ero-sennin

1 pièce(s) jointe(s)

Salut,

Il fallait rajouter une déclaration (unit2.cpp dans mon cas dans le projet).
Je remet à disposition mon code corrigé ;)
01/07/2007, 14h20
chm0105

merci je regarde sa...
01/07/2007, 14h51
chm0105

un grand merci!!! Il fallait donc passer l'objet en paramètre! :mouarf: