Discussion :

[Noddles]

Bonjour, j'ai trouvé un code delphi pour activer le click sur un bouton dans une page web avec du javascript. Mais j'ai pas trouvé la même chose pour cocher une checkbox. Si quelqu'un peut m'aider . D'avance merci.

Voici la fonction pour le bouton à cliquer :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
function ClickOnWebButton(WebBrowser : TWebBrowser ; URL,
                          ButtonID : string ) : boolean;
var
  doc         : ihtmldocument2;
  Collection  : IHTMLElementCollection;
  IDP         : IDispatch;
  i           : integer;
  InputButton : HTMLInputButtonElement ;
 
begin
  Result := False;
 
  try
 
    //showmessage('attendez la fin de chargement de la page avant de continuer');
 
    doc := (WebBrowser.document as ihtmldocument2);
 
    if Assigned(doc) then
    begin
 
      IDP := Doc.all.tags('input');
      if Assigned(IDP) then
      begin
        IDP.QueryInterface(IHTMLElementCollection, Collection);
 
        if Assigned(Collection) then
        begin
 
          for i := 1 to Collection.Get_length do
          begin
            IDP:= Collection.item(pred(i), 0);
            IDP.QueryInterface(HTMLInputButtonElement, InputButton);
 
            if Assigned(InputButton) then
            begin
 
              { CHANGEZ ICI : Il y'a 2 possibilités d'appel.
                Name fait référence à l'ID du bouton dans le code source de la page Web.
                Value, c'est sa caption. }
              if  InputButton.name  = ButtonID then {InputButton.Value = ButtonID}
              begin
                //showmessage('le bouton a été trouvé, on va cliquer dessus');
                Result := True;
                InputButton.click;
              end;
 
            end;
 
          end;
 
        end;
 
      end;
 
  end;
  finally
 
  end;

Puis on passe :

Code :

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

ClickOnWebButton(webbrowser1,'url','id du bouton' );

Merci pour votre aide.

[ShaiLeTroll]

Pense à la Balise [ Code], c'est la Bouton # du Menu

Voir http://www.cryer.co.uk/brian/delphi/...etValueOfField

[Noddles]

merci pour le lien, mais je ne vois pas comment ça peut m'aider. La page web avec la checkbox affiche ceci :

Code :

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

<a href="#" class="checkbox_G" title="Pour s&eacute;lectionner cliquer" id="1G_flip" onClick="choixChvx('1G'); return false;"></a>

j'ai l'ID de la checkbox (ici '1G_flip'). Mais pas de name ou value. Dans le script plus haut : InputBoutton peut prendre name, value, id (Par ex : InputBoutton.id).

Je ne vois pas comment cocher cette foutue checkbox. Et la page est remplie de javascript. Avec le script de dessus j'avais réussi à cliquer sur un bouton de cette page, mais pour cocher la checkbox...

Si quelqu'un peut m'aider...

[Andnotor]

Et il est où ton checkbox ?

Un checkbox s'écrit <input type=checkbox ...>. Là, tu nous montre un lien <a>.
Si tu veux remplir ce lien, ce sera plutôt quelque chose comme:

Code :

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

document.getElementById('1G_flip').innerHTML := 'X';

[Noddles]

merci pour l'aide. Il me semble que le code est du javascipt ? non ?
En fait j'ai trouvé la solution delphi à mon pb ici : http://www.delphidabbler.com/tips/56 . Pour ceux que ça interresse ...

Avec la fonction GetElementById et en passant ensuite un Elem.click avec l'id comme paramètre.

[Paul TOTH]

excusez moi de vous demander pardon, mais c'est quoi l'intérêt de passer par WebBrowser pour effectuer une requête Web ?