Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

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

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

  Alt 13. Apr 2008, 05:35
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;
Thomas
  Mit Zitat antworten Zitat