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

markieren

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

Hallo, z.B per getElementsByName

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

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

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;

zusammenfalten · markieren

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;

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*

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

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:

zusammenfalten · markieren

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;