Hallo Marabu,
danke für dein Beispiel, magst du mir evtl. ein paar Kommentare dazuschreiben?
Insbesondere zu diesem Teil:
Delphi-Quellcode:
procedure ShowIt(doc: IHTMLDocument2; s: TStrings);
const
MARKER = '
showit(';
var
i, iLeft, iRight: Integer;
ec: IHTMLElementCollection;
e: IHTMLElement;
value:
string;
begin
ec := doc.all.tags('
a')
as IHTMLElementCollection;
for i := 0
to Pred(
ec.length)
do
begin
e :=
ec.item(i, null)
as IHTMLElement;
value := e.getAttribute('
onclick', 0);
iLeft := Pos(marker, Lowercase(value)) + Length(marker);
iRight := LastDelimiter('
)', value);
if iLeft > Length(marker)
then value := Copy(value, iLeft, iRight- iLeft)
else value := '
';
s.QuoteChar := '
''
';
s.DelimitedText := value;
end;
end;
Viele Grüße
Aaron