traitement des pages web

**udinacer** · 11/08/2013, 17h10

salut tout le monde

svp comment saisir une information dans une page web

par exemple le champ de recherche google

(c++builder xe3)

merci

**cedni** · 11/08/2013, 20h34

Salut

Peut etre çà , pour traiter le script directement

Code :

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

https://www.google.fr/search?q=developpez.com

ou ces liens
http://cpp.developpez.com/faq/bcb/?p...plirformulaire

http://cpp.developpez.com/faq/bcb/?p...webbrowserpost

http://cpp.developpez.com/faq/bcb/?p...plirformulaire

**udinacer** · 14/08/2013, 18h15

Si j'ai le code suivant
Comment remplir le champ de saisie Edit1_web

Code :

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

1
2
3
4
5
6
<html><head>
 
</head><body>
Edit
<INPUT TYPE="TEXT" NAME="Edit1_web"/>
</body></html>

**cedni** · 14/08/2013, 21h55

Code :

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

1
2
3
4
5
 
  WideString url  = "about:<html><head></head><body>";
             url += "<Form name=\"Test\">";
             url += "Edit<INPUT TYPE=\"TEXT\" NAME=\"Edit1_web\">";
  CppWebBrowser1->Navigate( url  , 0, 0, 0, 0);

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
 
void __fastcall TForm1::CppWebBrowser1NavigateComplete2(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
//
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("NamedItem","Test");
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vMyField = vContent.OleFunction("NamedItem","Edit1_web");
   vMyField.OlePropertySet("Value","UnLogin");
 //  vForm.OleProcedure("Submit");
}
}

cette erreur sous bcb6 , 7 64 ou 32 , ie10
IsBound() @ c\bcb\emulvcl\utilcls.h/4249

**udinacer** · 15/08/2013, 12h35

lors de l’exécution j'ai l'erreur suivante :
Assertion failed: Isbound(),file
C:\Builds\Tp\Include\Windows\rtl\utilcls.h,line3563

cette erreur est dans ligne :
Variant vContent = vForms.OlePropertyGet("All");

**cedni** · 15/08/2013, 13h30

oui je sais

tu as ie10 ?

Quelqun aurait une autre version d ie ?

**udinacer** · 15/08/2013, 13h31

oui

**cedni** · 15/08/2013, 13h56

et si tu construis ta page dans l appli , çà fonctionne pas ?

**udinacer** · 15/08/2013, 13h59

non non ça ne fonctionne pas

**cedni** · 15/08/2013, 14h04

Je devais avoir envie de nems hier , lol

Code :

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

1
2
 
url += "<Form neme=\"Test\">";

devient donc

Code :

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

1
2
 
url += "<Form name=\"Test\">";

**udinacer** · 15/08/2013, 14h08

oui j'ai remarquer ça mais ne fonctionne pas

**cedni** · 15/08/2013, 14h22

çà fonctionne chez moi

url ?

**udinacer** · 15/08/2013, 15h08

merci ça marche parfaitement

avant de mattre resolu
si par exemple dans la page j'ai un tchek box ou bien un combo-box
comment les manipuler

**cedni** · 15/08/2013, 15h20

Code :

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

1
2
3
4
  WideString url  = "about:<html><head></head><body>";
             url += "<Form name=\"Test\">";
             url += "<input type=\"checkbox\" name=\"CB\" />";
             url += "Edit<INPUT TYPE=\"TEXT\" NAME=\"Edit1_web\">";

Code :

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

1
2
3
 
   Variant vMyCB = vContent.OleFunction("NamedItem","CB");
   vMyCB.OlePropertySet("checked","checked");

**udinacer** · 15/08/2013, 15h25

merci bq

**cedni** · 15/08/2013, 15h34

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  WideString url  = "about:<html><head></head><body>";
             url += "<Form name=\"Test\">";
             url += "<input type=\"checkbox\" name=\"CB\" />";
             url += "&nbsp\;";
             url += "<select name=\"list\">";
             url += "<option value=\"1\">Option 1</option> ";
             url += "<option value=\"2\">Option 2</option> ";
             url += "<option value=\"3\">Option 3</option> ";
             url += "</select>";
             url += "&nbsp\;";
             url += "Edit<INPUT TYPE=\"TEXT\" NAME=\"Edit1_web\">";

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
 
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("NamedItem","Test");
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vMyField = vContent.OleFunction("NamedItem","Edit1_web");
   vMyField.OlePropertySet("Value","UnLogin");
   Variant vMyCB = vContent.OleFunction("NamedItem","CB");
   vMyCB.OlePropertySet("checked","checked");
   Variant vMyList = vContent.OleFunction("NamedItem","list");
   vMyList.OlePropertySet("value","3");
 //  vForm.OleProcedure("Submit");
 
}

**udinacer** · 15/08/2013, 21h24

tu peut essai ça pour moi stp

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
<html><head>
<script language="JavaScript">
function chk_len(event)
{
var admin = document.tool_admin;
var password = admin.uiViewTools_Password.value;
if (password.length >= 31) {
}
</script>
</head><body>
<Form name="Test">
<INPUT TYPE="PASSWORD" NAME="uiViewTools_Password" SIZE="50" 
 
MAXLENGTH="31" VALUE="" onKeyPress="chk_len(event)">
</body></html>

avec le 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
void __fastcall TForm1::CppWebBrowser1NavigateComplete2(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
//
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("NamedItem","Test");
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vMyField = vContent.OleFunction("NamedItem","uiViewTools_Password");
   vMyField.OlePropertySet("Value","UnLogin");
 
}
}

la même erreur se produit (Assertion failed: Isbound(),file
C:\Builds\Tp\Include\Windows\rtl\utilcls.h,line3563)

Car dans le code html il existe un script (java script)

**cedni** · 17/08/2013, 11h59

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
WideString url ;
 
url  = "about:<html><head>";
url += "<script language=\"JavaScript\">";
url += "function chk_len(event)";
url += "{";
url += "var admin = document.tool_admin;";
url += "var password = admin.uiViewTools_Password.value;";
url += "if (password.length >= 31) {";
url += "}";
url += "</script>";
url += "</head><body>";
url += "<Form name=\"Test\">";
url += "<INPUT TYPE=\"PASSWORD\" NAME=\"uiViewTools_Password\" SIZE=\"50\"";
url += "MAXLENGTH=\"31\" VALUE=\"\" onKeyPress=\"chk_len(event)\">";
url += "</body></html>";
 
CppWebBrowser1->Navigate( url  , 0, 0, 0, 0);

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Variant vDocument = CppWebBrowser1->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
   Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("NamedItem","Test");
   Variant vContent = vForm.OlePropertyGet("All");
   Variant vMyField = vContent.OleFunction("NamedItem","uiViewTools_Password");
   vMyField.OlePropertySet("Value","UnLogin");
}

executer dans un bouton , çà fonctionne
dans l evenement NavigateComplete2 , non
dans l evenement DocumentComplete , oui mais il y a une fenetre pour demander si on veut executer le code javascript .

Pour la fermer automatiquement , ajoutes un timer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
HWND hwnd;
if (hwnd = FindWindow(NULL,"Erreur de script") )// != NULL)
      {
      SetForegroundWindow(hwnd);
      ::Sleep(1000);
      keybd_event(0x0d,0,0,0);
      keybd_event(0x0d,0,KEYEVENTF_KEYUP,0);
      }
}

**udinacer** · 17/08/2013, 12h46

merci cedni
la fenêtre de javascript s’exécute car
tu as oublier dans la ligne 10 un }

j'ai un buttons dans le code html comment l'exécuter ?

Code :

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

<INPUT TYPE="BUTTON" NAME="SaveBtn" VALUE="SAVE" onClick="uiSave()">

**cedni** · 17/08/2013, 13h11

tu veux soumettre un formulaire ?
Pk pas remplir l url avec les variables ?

traitement des pages web [Web/Reseaux]

C++Builder

Discussions similaires

Partager

Partager