tWebbrowser prüfen ob element vorhanden ist ...

[n000b]

Hallo,
Ich möchte gerne prüfen ob im Browser der Element vorhanden ist...
also sowas in der art

Delphi-Quellcode:

if MainWebbrowser.OleObject.document.forms.item(0).elements.item('submit')=1 { (exist)} then
MainWebbrowser.OleObject.document.forms.item(0).elements.item('submit').click;

wie prüfe ich das? Danke leute, habe bei der Suche sowas nicht gefunden obwohl ich sicher bin es ist da, bloß ich weiß nicht wie man nach sowas sucht =)

Mfg

[toms]

Hallo, z.B per getElementsByName

[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

[Der.Kaktus]

Hallo,
Schau Dir doch mal das Programm Winspy 2008 beta von toms an..vielleicht hilft es Dir ja

[toms]

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;

[n000b]

Wow wie macht ihr das?! ich lese die ganzen tutorials duch alles lesen lesen lesen doch am ende kann ich nix...
ich würde aber auch gerne form ausfühlen ich suchte eigentlich nach einer funktion welche mir sagt ob es dieses element gibt oder nicht...
also halt boolean 1 oder 0

gibt es nicht sowas wie
if assignet(MainWebbrowser.OleObject.document.forms.i tem(0).elements.item('Submit'))
oder if MainWebbrowser.OleObject.document.forms.item(0).el ements.item('Submit')=found
...if ElementPruefen(Mainbrowser,'form1')=1 then blabla.elemnts.items('form1').value:='text zum ausfüllen';

Vielen Dank, was wäre wenn es euch nich gäbe *schleim*

[Der.Kaktus]

Bissl Eigeninitiative..Versuche..Debugger..etc..und es gelingt..glaub mir!!!

[toms]

Zitat von n000b:

Wow wie macht ihr das?! ich lese die ganzen tutorials duch alles lesen lesen lesen doch am ende kann ich nix...
ich würde aber auch gerne form ausfühlen ich suchte eigentlich nach einer funktion welche mir sagt ob es dieses element gibt oder nicht...
also halt boolean 1 oder 0

gibt es nicht sowas wie
if assignet(MainWebbrowser.OleObject.document.forms.i tem(0).elements.item('Submit'))
oder if MainWebbrowser.OleObject.document.forms.item(0).el ements.item('Submit')=found
...if ElementPruefen(Mainbrowser,'form1')=1 then blabla.elemnts.items('form1').value:='text zum ausfüllen';

Vielen Dank, was wäre wenn es euch nich gäbe *schleim*

Meine Funktion zuvor machte ja in in etwa genau das.
Noch ein bisschen umgeschrieben:

Delphi-Quellcode:

function WB_HTMLElementExists(WB: TWebbrowser; ElementName: string): boolean; 
// Funktioniert nicht bei Frames
var 
  IDoc3: IHTMLDocument3; 
  Inputs: IHTMLElementCollection; 
  IElement: IHTMLElement; 
begin 
  Result := False;
  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; 
      Result := Assigned(IElement);
    end; 
  end; 
end;