Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#5

Re: tWebbrowser prüfen ob element vorhanden ist ...

  Alt 12. Apr 2008, 19:45
Zitat von n000b:
Danke für die antwort leider habe ich es nicht geschafft die paar codes die ich dort gefunden habe zum arbeiten zu bringen^^
  if FormItem.Item(iItems).Name = FeldName then kannst du mir bitte weiter helfen? vll etwas mit "assignet"?
Mfg
ungetestet:

if WB_SubmitFormByElement(Webbrowser1, 'submit') then // "submit" gefunden, abgeschickt;
Delphi-Quellcode:
uses
  MSHTML;

function WB_SubmitFormByElement(WB: TWebbrowser; ElementName: string): boolean;
var
  IDoc3: IHTMLDocument3;
  Inputs: IHTMLElementCollection;
  IElement: IHTMLElement;
begin
  if Assigned(WB.Document) and
    (Succeeded(WB.Document.QueryInterface(IHTMLDocument3, IDoc3))) then
  begin
    Inputs := IDoc3.getElementsByName(ElementName);
    if Assigned(Inputs) then
    begin
      IElement:= Inputs.item(0, '') as IHTMLElement;
      if Assigned(IElement) then
        (IElement as IHTMLInputElement).click;
    end;
  end;
end;
Thomas
  Mit Zitat antworten Zitat