Felder ein ASP Seite befüllen

[Cosamia]

Ja, ich schon wieder.

Ich bin nun ein Schritt weiter und stehe aber schon wieder vor einem neuen Problem.

Ich fülle mit folgendem Code Felder in einer ASP Seite. Jezt fehlt mir nur noch die Idee wie ich ein Button auf der ASP Seite anspreche.

Delphi-Quellcode:

procedure TForm1.PastebtnClick(Sender: TObject);
var iDoc: IHtmlDocument2;
  i: integer;
  ov: OleVariant;
  iDisp: IDispatch;
  iColl: IHTMLElementCollection;
  iInputElement: IHTMLInputElement;
  begin
WebBrowser2.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
  if not assigned(iDoc) then begin
    ShowMessage(' !!!???');
    Exit;
  end;
  ov := 'INPUT';
  IDisp := iDoc.all.tags(ov);
  if assigned(IDisp) then begin
    IDisp.QueryInterface(IHTMLElementCollection, iColl);
    if assigned(iColl) then begin
      for i := 1 to iColl.Get_length do begin
        iDisp := iColl.item(pred(i), 0);
        iDisp.QueryInterface(IHTMLInputElement, iInputElement);
        if assigned(iInputElement) then begin
          if iInputElement.Get_name = 'WARTUNGSGRUPPE'
           {Wartungsgruppe einfügen}
          then iInputElement.Set_value('Hans Damp');
          if iInputElement.Get_name = 'NAME'
           {Name einfügen}
          then iInputElement.Set_value('Huhu');
           {Button.click}
          if iInputElement.Get_name = 'insert' {und hier sollte der Button Insert angesprochen werden}
            then iInputElement.Get_form.submit;


        end;
      end;
    end;
  end;
end;