Discussion :

[Fbartolo]

Je souhaite désactiver tout cache sur ce composant, car si je demande deux fois la même page, il ne va pas la lire mais utilise le cache.
je ne souhaites pas utiliser refresh, mais bien relancer le site par la commande:

Code :

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

1
2
 
WebBrowser1->Navigate((WideString)"http://www.j.ai.pas.trouve.com/");

je n'ai pas trouvé la commande ni l'option si elle existe sur le composant.

[Greybird]

Bonjour,

Il te suffit de changer un peu ton code :

Code :

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

1
2
3
TVariant flags;
flags = 2 | 4 | 8; // navNoHistory | navNoReadFromCache | navNoWriteToCache
WebBrowser1->Navigate((WideString)"http://www.j.ai.pas.trouve.com/", &flags);

Cordialement,

Arnaud

[Fbartolo]

Mercy Greybird en regardant l'aide de BCB6 j'aurais pu trouver sur 2006 c'est pas ça l'aide ...

Néanmoins pour ce que je veux faire ça marche pas, en éffet je fais un process qui surveille les temps de réponse d'un serveur web, par exemple de façon simple en tapant sur la même page.

je déclanche un timer et sur l'évènement <OnDocumentComplète> je compte le nombre de tick. le premier coup j'ai par exemple 8 secondes de décomptée
et après toujours 0 (et on peut voir que la page n'est pas rechargée).
c'est bizzare sur la page d'accueil Google ça fait ça et sur la page d'accueil Altavista ça me donne bien un temps cohérent à chaque fois (même si je ne met pas le <flags>)

Bizzare non, des idées ou autre façon de faire ??

[Greybird]

Bonjour,

OnDocumentComplete peut se produire plusieurs fois. As-tu bien mis en place le mécanisme permettant de s'assurer qu'il s'agit bien du dernier OnDocumentComplete ? (cf aide BCB6) Dans le cas contraire, il se peut qu'une image soit en cache, et que les paramètres donnés au Navigate ne servent que pour la page en elle-même ? C'est fumeux, mais je ne vois pas trop ce qui pourrait expliquer ce genre de comportement.... Peut-être que je rate quelque chose.
Tu peux peut être essayer d'installer Ethereal et de surveiller les requetes qui passent pour t'assurer que tout est normal. Genre pas de réponse 304 de Google ou ce genre de chose.

Sinon, dans la mesure où il s'agit uniquement d'une application de surveillance, et où donc l'affichage de la page est inutile, je te conseille vivement l'utilisation d'un composant sans affichage graphique, du type TIdHTTP.


Arnaud

[Fbartolo]

Bon après avoir fait plusieurs tests TidHTTP fonctionne bien mais ne comptabilise pas le temps de chargement des images, et dans mon cas c'est important.

l'aspect affichage est sympathique aussi dans mon application puisque je tourne sur plusieurs pages pour faire une moyenne.

Donc le seul cas qui fonctionne c'est de créer à chaque fois un composant TCppWebBrowser dynamique pour chaque page HTML.

Seul souci c'est que je ne suis pas arrivé à lancer une fonction sur:

Code :

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

WebBrowser1DocumentComplete(TObject *Sender, LPDISPATCH pDisp, Variant *URL)

puisque le lien est justement dynamique... et je suis pas parvenu à faire le lien , si quelqu'un maitrise le sujet...

[Greybird]

Seul souci c'est que je ne suis pas arrivé à lancer une fonction sur:

Code :

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

WebBrowser1DocumentComplete(TObject *Sender, LPDISPATCH pDisp, Variant *URL)

puisque le lien est justement dynamique... et je suis pas parvenu à faire le lien , si quelqu'un maitrise le sujet...

Je ne comprend pas très bien le problème. Pourrais-tu le reformuler s'il te plait ?

Arnaud

[Fbartolo]

Bon j'ai trouvé une solution, qui ne me plait pas trop mais bon:

N'arrivant pas à faire une transtypage sur l'évènement: OnDocumentComplete, afin de faire pointer une fonction classique après création dynamique de TCppWebBrowser... :

Code :

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

1
2
3
4
5
6
7
8
9
10
TCppWebBrowser *CppWebBrowser1;
CppWebBrowser1 = new TCppWebBrowser(Form2);
CppWebBrowser1->ParentWindow = Handle;
unsigned long Add;
TVariant  Flags = (2 |4 |8 );
DelaiWeb = 0;
CppWebBrowser1->OnDocumentComplete = CppWebBrowser2->OnDocumentComplete;
 
Timer1->Enabled = true;
CppWebBrowser1->Navigate((WideString) "http://www.c.est.ca.com/",&Flags);

J'en ai mis deux: un qui est ma référence pour alimenter les évènements On...

et l'autre que je créé dynamiquement avec ensuite l'affectation:

Code :

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

1
2
 
CppWebBrowser1->OnDocumentComplete = CppWebBrowser2->OnDocumentComplete;

Ainsi le compilateur me permet de pointer sur les évènements (avec mon code) de l'autre CppWebBrowser..

Ceci dit si Quelqu'un connait une manière d'écrire plus "conforme" je suis preneur.
Car de mettre en place deux composants pour en utiliser un c'est pas top.

Je me permet de mettre résolu par ce que cela fonctionne mais cela ne me plait pas trop..

[Fbartolo]

Je ne comprend pas très bien le problème. Pourrais-tu le reformuler s'il te plait ?

Arnaud

Quand je met un composant WebBrowser sur ma fiche, je peux écrire du code dans les évènements gérés par le composants (inspecteur d'objet, evènement..)

Lorsque je le créé en dynamique, je ne sai pas adresser ces évènements.

C'est ça mon PB, que j'ai détourné pour l'instant en plaçant un composant en statique et en y mettant le code, puis je fais pointer ensuite sur ce dernier... c'est pas très glop.

[Sunchaser]

Bonjour,
Il se peut que je ne comprenne pas le bien le problème, et que je réponde a côté dsl, mais quand je fais :

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
 
void __fastcall TForm1::BTajoutClick(TObject *Sender)
{
//
TCppWebBrowser *pCpp = new TCppWebBrowser(this);
pCpp->ParentWindow = this->Handle;
pCpp->OnDocumentComplete = MyCppDocumentComplete;
WideString Url = "http://www.developpez.net/forums/";
TVariant  Flags = (2 |4 |8 );
pCpp->Navigate(Url, &Flags);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyCppDocumentComplete(TObject* Sender, LPDISPATCH pDisp, tagVARIANT *URL)
{
    Beep();
    ShowMessage("C'est bon....le saucisson !");
}

avec :

Code :

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

1
2
 
void __fastcall MyCppDocumentComplete(TObject* Sender, LPDISPATCH pDisp, tagVARIANT *URL);

dans le .h
cela semble fonctionner, en tout cas cela renvoie bien le petit message (au contenu d'ailleurs tres philosophique, je te laisse apprécier...)

[Fbartolo]

Super c'était bien cela que je cherchais... bravo et merci.

Dernière chose qui ne fonctionne pas c'est l'agrandissement de la fenêtre avec:

Code :

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

pCpp->Align = alClient;

.

J'ai aussi changé le message car "Saucisson" c'est pas bon pour mon régime