画像タグの取得 (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