tWebbrowser prüfen ob element vorhanden ist ...

[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;