Einzelnen Beitrag anzeigen

Benutzerbild von Cosamia
Cosamia

Registriert seit: 27. Feb 2007
Ort: Emmendingen
221 Beiträge
 
Delphi 2007 Professional
 
#1

Felder ein ASP Seite befüllen

  Alt 19. Feb 2008, 13:10
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;
  Mit Zitat antworten Zitat