Hallo,
ich such jetzt schon mehrere Tage, aber irgendwie find ich die Lösung nicht.
Ich rufe mit dem TWebbrowser bzw. TEmbeddedWeb eine Webseite auf. Und ich möchte nun an verschiede Attribute der Elemente kommen. Beispielsweise an das Attribut "Value" bei einem Button.
Dazu kann ich ja mit IHTMLElement.getattributes('value') dran kommen. Das funktioniert auch soweit. Aber: Wie komme ich denn an ALLE Attribute eines Elements? Der Sourcecode hier unten bringt mir auch Attribute, aber z.B. "Value" ist nie dabei
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure getallattributes(element: IHTMLElement; var liste : TStringList);
VAR domnode : IHTMLDomNode;
col : IHTMLAttributeCollection;
att : IHTMLDOMAttribute2;
i : Integer;
begin
domnode:=element as IHTMLDomNode;
col:=domnode.attributes as IHTMLAttributeCollection;
for i := 0 to col.length - 1 do begin
att:=col.item(i) as IHTMLDomAttribute2;
if (att.value <> '') and (att.value <> 'null') then liste.Add(att.name + '=' + att.value);
end;
end; |
Hat irgendjemand eine Ahnung?
Danke !!!
Viele Grüße
- Sascha -
