Probleme pour remplir un formulaire..

Version imprimable

bonjour,

Je dois remplir un formulaire donc, j'ai regarder la FAQ parlant de cela. mais j'y arrive pas.

voici un bout de code que j'ai utiliser :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Web->Navigate((WideString)"http://localhost:7144/html/en/broadcast.html"); Sleep(10000); Variant vDocument =Web->ControlInterface->Document; if (((IDispatch *)vDocument) != NULL) { ShowMessage("coucou"); Variant vForms = vDocument.OlePropertyGet("Forms"); Variant vForm; Variant vContent = vForm.OlePropertyGet("All"); Variant vUrlField = vContent.OleFunction("NamedItem","url"); Variant vNameField = vContent.OleFunction("NamedItem","name"); vUrlField.OlePropertySet("Value","127.0.0.1:1234"); vNameField.OlePropertySet("Value","FlowTv"); vForms.OleProcedure("Submit"); } }
j'ai mis un ShowMessage pour un but de debug et apparement il y passe jamais :(.

Pourriez vous m'aider ?
Merci d'avance

ps : j'ai mis en piece jointe la page avec laquelle je travaille

28/12/2006, 17h33
Flow_75

bon. j'ai mis toutes les lignes sauf la premiere dans une methode buttonclick.
maintenant ca me met une exception sur cette ligne :

Code:

Variant vContent = vForm.OlePropertyGet("All");

voila.
Merci de votre aide
28/12/2006, 18h11
kmaniche

Pour t'aider, dite nous quel genre d'exception, et le message obtenu.
28/12/2006, 18h27
Flow_75

voila le message qui se trouve en piece jointe. :)
28/12/2006, 18h39
blondelle

Salut Flob91:
Pour trouver l'erreur il faut executer en mode pas a pas ton programme, (les messages d'erreurs te seront d'aucune aide, ils sont incompréensibles) tu verifie tes Variants pour savoir s'ils passent quelque chose, par exemple si "vDocument" passe quelque chose tu doit avoir "{{ }}" si tu a quelque chose comme "{{????}}" la il y a une erreur, car le Variant passe soit aucune valeur soit une valeur erronee.
Dans ton programme la ligne ci dessous te provoquera une erreur

Citation:

Variant vContent = vForm.OlePropertyGet("All");

car vForm n'est pas defini, dans l'exemple de la FAQ il y a ceci

Citation:

Variant vForm = vForms.OleFunction("NamedItem","connection");
28/12/2006, 18h48
Flow_75

salut

En faite, depuis le post j'avais rectifié le script.
sinon pour le pas a pas.
J'ai fait lorque je passe les 2 premieres initialisations (de Forms et Form) ca va, ca affiche bien {{}}. mais dès que ca passe sur la troisieme initialisation. pouf, ca plante
28/12/2006, 19h24
blondelle

Quand tu est en mode pas a pas, quand tu est arrete sur la ligne juste avant l'erreur tu point le curseur sur toutes variables, juste une ou deux secondes tu va pouvoir voir si tu a des valeurs erronees ou null, dans une fenetre qui s'affiche
28/12/2006, 19h33
Flow_75

voila les valeurs que j'ai lorsque je suis a la ligne ou j'initialise Form et que je passe a la ligne suivante (avec F4), ca crash.
28/12/2006, 21h59
blondelle

J'ai teste le programme tel quel la premiere fois il dit que la page n'est pas accessible mais ne provoque pas d'erreur, donc Document est NULL, la deuxieme fois il provoque l'erreur apparemment c'est la valeur de Document qui n'est pas bonne?
28/12/2006, 22h07
Flow_75

merci,

Ce que je comprend pas c'est que c'est bien le composant cppwebbrowser qui est representé par la variable brwInt ?

J'ai essaye ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
//CppWebBrowser1->Navigate((WideString)"<a href="http://localhost:7144/html/en/broadcast.html" target="_blank">http://localhost:7144/html/en/broadcast.html</a>");
WideString WEB="<a href="http://perso.club-internet.fr/glouise/guitare/guitare.html" target="_blank">http://perso.club-internet.fr/glouis...e/guitare.html</a>";
CppWebBrowser1->Navigate(WEB);
// Sleep(10000);
 Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
        ShowMessage("coucou");
   Variant vForms = vDocument.OlePropertyGet("Forms");
Variant vForm = vForms.OleFunction("NamedItem","connection");
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vUrlField = vContent.OleFunction("NamedItem","url");
   Variant vNameField = vContent.OleFunction("NamedItem","name");
   vUrlField.OlePropertySet("Value","127.0.0.1:1234");
   vNameField.OlePropertySet("Value","FlowTv");
   vForms.OleProcedure("Submit");
}
}

J'ouvre bien une page et Document passe une Valeur ca plante au meme endroit mais comme ce n'est pas un formulaire? est tu sur de ton adresse "http://localhost:7144/html/en/broadcast.html", car je n'ai pas reussi a l'ouvrir?

28/12/2006, 22h32
Flow_75

en faite, c'est une page générer par un programme (PeerCast).
Mais pour la page, je l'ai mise dans mon premier post
28/12/2006, 22h45
blondelle

Les testes tu les fait donc sur ton propre poste en chargeant cette page dans internet exploreur?
voila l'adresse que j'obtient si je le charge dans exploreur

Citation:

C:\Documents and Settings\blondelle\Local Settings\Temporary Internet Files\Content.IE5\I1KXS507\broadcast[1].html
28/12/2006, 22h58
Flow_75

en fait tu enregistres (clic gauche) sur ton disque le fichier html (fait gaffe qu'il soit bien en html)
apres, tu spécifies l'adresse du fichier au lieu de l'URL. et ca apparait.
tu as la page tel que ca apparaitrait chez moi (sauf sans images).
28/12/2006, 23h37
blondelle
J'ai reussi a afficher la page c'est bien un probleme de chemin.
Code:

1 2 CppWebBrowser1->Navigate((WideString)"C:\\Documents and Settings\\blondelle\\Mes documents\\broadcast.html");
L'erreur sur la ligne:

Citation:

Variant vContent = vForm.OlePropertyGet("All");

je pense qu'elle se produit parceque l'on a pas defini sur la ligne precedente

Citation:

Variant vForm = vForms.OleFunction("NamedItem","connection");

la variable "connection" je ne sais pas a ce que cela correspond il faut aussi definir "url", "name", "FlowTv" sinon ca provoquera a chaque fois une erreur
29/12/2006, 11h40
Flow_75

salut Blondelle.

Bon j'ai presque résolu mon probleme ( un peu en partie grace a l'équipe HTML du forum ).

En fait, le formulaire n'avait simplement pas de nom....
c'est pour cela que ca ne marchait pas.
J'ai modifier la page pour que ca marche et c'est bon.
Reste juste un petit probleme au niveau du submit. mais je vais voir cela cette apremidi.

Je laisse le sujet en non résolu, j'attend de trouvé la solution du probleme (il reste une ligne a trouvé).

enfin, Merci beaucoup de ton aide, ainsi qu'a Kmanich et passés de bonnes Fetes

Edit : bon j'ai trouvé le probleme, j'avais mis Forms au lieu de Form dans la derniere ligne de code.
Bonne Année
29/12/2006, 12h25
blondelle

Je suis content pour toi que cela marche.
A+
29/12/2006, 12h59
Flow_75

un petit bout de code pour ceux qui auraient des problemes :

Code:

vField.OlePropertySet("Value",flux.nom.c_str());

le deuxieme champ n'accepte pas d'AnsiString et fait monter une exception