Hallo Volker !
Ich habe mich gerade mit deinem Code beschäftigt und etwas damit experimentiert. Abgesehen von einer klitzekleinen Änderung (siehe unten) funktioniert der Code bis an folgender Stelle
AddFFTText (n.nextSibling, s);
sehr gut ! Da gibt es eine
Access violation welche ich derzeit näher auf den Grund gehe. Aber vielen Dank schon mal für deine Hilfe, ich werde mich weiter mit diesem Thema beschäftigen !
Hallo,
Das könnst z. B. Du so machen (das
Exception Handling musst Du halt noch sauber programmieren):
[DELPHI]
uses
MSHTML;
function DOMNodeClassNameIs (const Node : IHTMLDOMNode; const Name : string) : Boolean;
var
e : IHTMLElement;
begin
e := Node as IHTMLElement;
if not Assigned (e) then
Exception.Create ('Fehlermeldung');
Result :=
e.className = Name //richtig ist:
e._className
end;