Seit der letzten Umstellung vonxREL brauchst du es bei neuen Einträgen nicht mehr, wenn du den Suchlink so nimmst wie oben beschrieben, geht es mit allen neuen Einträgen.
Bei den älteren nfo
nimmst du dir ein HTMLDocument2 und führst den Link mit innerhtml "NFO ansehen" aus.
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
auch danach hast du die im Quelltext die Nfo als text.
in Delphi sieht es so aus, ev hilft es dir.
Code:var HTMLDocument2: IHTMLDocument2; Element: IHTMLElement; I: Integer; begin Result:= False; HTMLDocument2 := EB.Document as IHTMLDocument2; for I := 0 to HTMLDocument2.Links.Length - 1 do begin Element := HTMLDocument2.Links.Item(I, 0) as IHTMLElement; if TRegEx.IsMatch(Element.GetAttribute('innerText', 0),LinkText,[roIgnoreCase,roSingleLine]) then begin Element.click; Result := True; Break; end; end; end;




Zitieren