[D7]IHtmlDocument --> WebBrowser

Bonjour

Voici un exemple

Code:

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:

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