[TWebBrowser] Comment trouver tous les liens dans une page ?
Salut,
Lorsque je lance une page internet avec TWebBrowser j'aimerais trouver l'ensemble des liens qui s'y trouvent.
J'ai bien trouvé une réponse qui s'y rapproche dans la FAQ Delphi : http://delphi.developpez.com/faq/?pa...owser#listlink.
Code:
1
2
3
4
5
6
| var
i : Integer;
begin
for i:=0 to MyWebbrowser.OleObject.Document.Links.Length-1 do
MyMemo.Lines.Add(MyWebbrowser.OleObject.Document.Links.Item(i));
end; |
Cependant, certains liens ne sont pas pris en compte par ce système :(
Entre autre le lien Image.jpg, dans l'exemple qui suit, n'est pas pris en compte ...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| [...]
</script><noscript></noscript></div><br /><img src="/images/clear.gif" width="120" height="1" border="0" alt="" />
</td>
<td id="content">
<div class="contentMargin">
<div id="scalewarning" style="display: none; padding-bottom: 4px;">
</div>
<img id="thepic" onClick="scaleImg();" src="http://site.com/Image.jpg"
[...] |
J'aimerais donc avoir un autre système ou pouvoir améliorer celui ci pour me permettre d'obtenir tous les liens d'une page internet.
D'avance merci :D
