Discussion :

[xenos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[xenos]

Après avoir encore cherché, j'ai enfin trouvé la solution !!!

En gros, avant j'arrivais à obtenir l'ensemble des liens de la fenêtre, mais pas le chemin des images ...

Il suffit tout simplement de mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Word;
  Largeur, Hauteur: Integer;
  Infobulle, Poids, URLImage: string;
begin
  for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Largeur := WebBrowser1.OleObject.Document.Images.Item(i).Width;
    Hauteur := WebBrowser1.OleObject.Document.Images.Item(i).Height;
    Poids := WebBrowser1.OleObject.Document.Images.Item(i).FileSize;
    URLImage := WebBrowser1.OleObject.Document.Images.Item(i).Href;
    Infobulle := WebBrowser1.OleObject.Document.Images.Item(i).alt;
    Memo1.Lines.Add(Format('%s : %d x %d Pixels; %s octets; %s',
    [URLImage, Largeur, Hauteur, poids, InfoBulle]));
  end;
end;

J'ai aussi rajouté d'autres informations que l'on pouvait trouver avec cette méthode.

A plus