Discussion :

[yanChose]

Bonjour,

Connaissez vous une méthode afin de pouvoir simuler un clique sur un bouton d'une page HTML en utilisant le composant "tcppwebbrowser".

Par exemple sur un forum, je voudrais utiliser la page recherché.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Variant vDocument = WebBrowser->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("item",0,0);
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vSearchField = vContent.OleFunction("NamedItem","search"); //Je cherche le champ recherché
   vSearchField.OlePropertySet("Value","Le mot-clé à recherché"); // Je rentre le mot-clé que je veux recherché
    ??  // Fonction permettant de simuler un clique sur un bouton
 
}

Merci d'avance

[ShaiLeTroll]

Regarde autour de GetElementById, cela te renvoi une interface vers l'éléments, tu as théorique un IHTMLElement que tu peux caster IHTMLInputElement (voir MSHTML.hpp)
Si la Propriété Type est égale à "button", tu peux invoquer la méthode "click"
En Delphi, cela se fait automatiquement avec le LateBiding des OleVariant
En C++Builder, je suppose que OleFunction devrait permettre d'y parvenir

Click correspond au OnClick du JavaScript
Sinon, il faut récupérer la propriété Form qui est un IHTMLFormElement qui possède une méthode submit !

[yanChose]

Regarde autour de GetElementById, cela te renvoi une interface vers l'éléments, tu as théorique un IHTMLElement que tu peux caster IHTMLInputElement (voir MSHTML.hpp)
Si la Propriété Type est égale à "button", tu peux invoquer la méthode "click"
En Delphi, cela se fait automatiquement avec le LateBiding des OleVariant
En C++Builder, je suppose que OleFunction devrait permettre d'y parvenir

Click correspond au OnClick du JavaScript
Sinon, il faut récupérer la propriété Form qui est un IHTMLFormElement qui possède une méthode submit !

Merci pour ta réponse,
Je vois pas comment faire
Pour la méthode avec "submit" j'ai essayé avec le code que j'ai mis au début, il me met bien la valeur dans les champs mais ça me rafraichis la page.

Code :

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

1
2
3
4
5
6
7
8
9
10
Variant vDocument = WebBrowser->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("item",0,0);
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vSearchField = vContent.OleFunction("NamedItem","search"); //Je cherche le champ recherché
   vSearchField.OlePropertySet("Value","Le mot-clé à recherché"); // Je rentre le mot-clé que je veux recherché
    vForm.OleProcedure("Submit");
}

[Pierre-Longueuil]

Variant vForms = vDocument.OlePropertyGet("All");
Variant vBouton = vForms.OleFunction("NamedItem",WideString("nom du bouton").c_bstr());
if (vBouton.VUnknown == NULL)
{
ShowMessage ("Problème avec le nom du bouton!");
return;
}
vBouton.OleFunction("click");

[ShaiLeTroll]

Merci pour l'extrait de code qui traduisait mes propos sur l'utilisation en Late Binding des OleVariant, il est juste 7 mois en retard