画像タグの取得 (ID:17137)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

おっ、deldel さんに先を越されましたね・・・

ちょっと趣旨が違うかもしれませんが、TWebBrowser では表示しているページのイメージのリンクを列挙することが簡単にできます。相対アドレスが絶対アドレスになってとっても簡単です。

わたしの D6 では以下のソースで

uses
  MSHTML_TLB;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('about:blank');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.sakaki.keiaikai.or.jp/home.asp');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  Document: IHtmlDocument2;
  ImageHref: string;
begin
  for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Document := WebBrowser1.Document as IHtmlDocument2;
    ImageHref := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
    Memo1.Lines.Add(ImageHref);
  end;
end;

起動して Button1 を押すと 「Delphi 広場」のフレームのうちもっとも大きなページを表示します。
そして Button2 を押すと Memo1 に
 
http://www.sakaki.keiaikai.or.jp/images/logo/title.jpg
http://www.sakaki.keiaikai.or.jp/images/counter/3.gif
http://www.sakaki.keiaikai.or.jp/images/counter/4.gif
http://www.sakaki.keiaikai.or.jp/images/counter/2.gif
http://www.sakaki.keiaikai.or.jp/images/counter/6.gif
http://www.sakaki.keiaikai.or.jp/images/counter/0.gif
http://www.sakaki.keiaikai.or.jp/images/counter/5.gif
http://www.sakaki.keiaikai.or.jp/images/logo/link.gif
http://www.sakaki.keiaikai.or.jp/images/animation/mail.gif

と列挙されます。

元ネタはここです。イメージの URL のほかに縦横のサイズやファイルサイズなども分かります。

http://www.swissdelphicenter.ch/en/showcode.php?id=1601

←解決時は質問者本人がここをチェックしてください。

戻る