Discussion :

[manworms2]

Bonjour
j'ai trouver dans la faq de c++ builder la procédure pour remplir un formulaire automatique.
je souhaiterais me loguer sur un site automatique .
j'ai donc mis cette procédure dans un timer à 5s ( le temps de charger la page)
cela fonctionne mais ce message d'erreur apparais au bout de 10s.


ps : lorsque j’exécute cette procédure à partir d'un bouton , je n'ai pas d'erreur.
mais je souhaiterais le faire automatiquement.

quelqu'un pourrais t'il m'aider

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
 
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
WideString source = Memo1->Lines->Text;
CppWebBrowser1->Navigate(source, 0, 0, 0, 0);
}
 
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
Variant vDocument = CppWebBrowser1 ->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("NamedItem","ident");
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vLoginField = vContent.OleFunction("NamedItem","LOGIN");
   Variant vPassField = vContent.OleFunction("NamedItem","PASSWORD");
   vLoginField.OlePropertySet("Value","monlogin");
   vPassField.OlePropertySet("Value","monpassword");
   vForm.OleProcedure("Submit");
 
}
}

merci

[blondelle]

Salut manworms2
Tu n'arrete pas ton Timer quand dans

void __fastcall TForm1::Timer1Timer(TObject *Sender)

Je ferais ceci

Code :

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

1
2
3
4
5
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Enabled = false;
Variant vDocument = CppWebBrowser1 ->ControlInterface->Document;

Il y a aussi la possibilite d'attendre que la page se charge avec ( ReadyState )
Voici un bout de code l'appel est different mais le fonctionnement est le meme mais sans Timer

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
#include <utilcls.h> // <----- ne pas oublier
#include <ComObj.hpp> // <----- utile dans certains cas
// demarrer IE
 // Cree un objet unique non initialisé de la classe spécifiée
 // par le paramètre 'InternetExplorer.Application'
 try
  {
   vMSIEApp = Variant::GetActiveObject("InternetExplorer.Application");
  }
 catch(...)
  {
   vMSIEApp = Variant::CreateObject("InternetExplorer.Application");
  }
 //Rends l'application IE visible
 vMSIEApp.OlePropertySet("Visible", true);
 // permet d'attendre le chargement de la page
 while(vMSIEApp.OlePropertyGet("ReadyState") != READYSTATE_COMPLETE)
 
// ici tu ajoute ton code
 
 //Fermer IE
 vMSIEApp.OleFunction("Quit");
 // on libere les Variants
 vMSIEApp = Unassigned;

[manworms2]

merci et merci pour l'astuce
je bloque sur un autre problème , je souhaite passer le login et password
par une variable , je l'ai déclaré en AnsiString mais apparemment ça ne convient pas .

[blondelle]

Ansistring et Variant ne font pas bon menage, si ce sont des variables fixes declare les directement en Variant, si non " MaVariable.c_str() "
tu peut voir aussi du cote de " StringToOleStr " ou " WideString "

[manworms2]

merci resolu