Discussion :

[cach]

Bonjour,

Pour pouvoir remplir des champs automatiquement via le webBrowser je suis apparement obligé d'utiliser un objet des classe IHtmlDocument2, IHTMLElementCollection et IHTMLInputElement.

Mais je ne trouve pas comment les utiliser voici ce que je fais :

Code :

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

1
2
3
4
 
var iDoc: IHtmlDocument2;
  iColl: IHTMLElementCollection;
  iInputElement: IHTMLInputElement;

J'ais un message d'erreur instruction non défini?

Merci,

[Pascal Jankowski]

Bonjour

Voici un exemple

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
procedure TForm1.ToolButtonFillClick(Sender: TObject); 
var 
 aHTMLDoc : IHTMLDocument2; 
 vWebForm : OleVariant; 
 aEC : IHTMLElementCollection; 
 i : Integer; 
 vControl : OleVariant; 
begin 
 if not VarIsEmpty(WebBrowser1.Document) then 
 begin 
   aHTMLDoc := WebBrowser1.Document as IHTMlDocument2; 
   vWebForm := aHTMLDoc.Forms.Item('WebFormName', 0); 
   aEC := IDispatch(vWebForm.all) as IHTMLElementCollection; 
   for i := 0 to aEC.Length - 1 do 
   begin 
     vControl := aEC.Item(i, 0); 
     if not VarIsEmpty(vControl) and vControl.isTextEdit then 
     begin 
       Memo1.Lines.Add(Format('TagName: %s; Name: %s; Value: %s', 
                       [vControl.TagName, vControl.Name, vControl.Value])); 
       if vControl.Name = 'T1' then 
         vControl.Value := 'value'; 
       if vControl.Name = 'B1' then 
         vControl.Click; 
     end; 
   end; 
 end; 
end;

Comme tu peux le remarquer tu as besoin de connaître le nom du formulaire Web.


Second exemple

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
uses MSHTML_TLB, ComObj;
 
procedure SelectBoxInput(Browser:TWebBrowser; ElementName: string; Index: integer);
var
  WebDoc : IHTMLDocument2;
  pDispatch : IDISPATCH;
  elements : IHTMLElementCollection;
  Input: IHTMLSelectElement;
begin
  OleCheck(Browser.Document.QueryInterface(IID_IHTMLDocument2, WebDoc));
  elements := WebDoc.Get_all;
  pDispatch := elements.item(ElementName, 0);
  OleCheck(pDispatch.QueryInterface(IID_IHTMLSelectElement, Input));
  Input.selectedIndex := Index;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SelectBoxInput(WebBrowser1, 'valeur_Select_Name', 1);
end;

Cordialement