Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1772 / 2272 ツリー ←次へ | 前へ→

【5365】ネット上にあるJPEG画像をフォームに表示 うさこ 05/6/12(日) 18:25 質問[未読]
【5368】Re:ネット上にあるJPEG画像をフォームに表... 小僧 05/6/13(月) 12:01 発言[未読]
【5374】Re:ネット上にあるJPEG画像をフォームに表示 YU-TANG 05/6/14(火) 13:34 回答[未読]

【5365】ネット上にあるJPEG画像をフォームに表示
質問  うさこ  - 05/6/12(日) 18:25 -

引用なし
パスワード
   いつもお世話様です。(Windows2000:Access2000 です)

こんなことができるかどうかもわからなくて悩んでいます。

ネット上にあるJPEG画像を検索して、最大10枚を
ひとつのフォーム上に表示したいのです。
そんなことができますか?教えて下さい。
よろしくお願いしますm(_ _)m

【5368】Re:ネット上にあるJPEG画像をフォームに表...
発言  小僧  - 05/6/13(月) 12:01 -

引用なし
パスワード
   ▼うさこ さん:
こんにちは。

YU-TANG さんのサイトに「Web ページをダウンロードする方法」がありますので
リンクを紹介させていただきます。

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaXMLHTTP.html

これを使用させて頂き、HTMLソースを取得して

1) 画像(.jpg、.gif等)をInstr関数で探し

2) 「"」が出るまで1文字ずつ戻って画像のパスを取得

3) 相対パスを絶対パスに置換

4) WebBrowserコントロールの「Navigate」を使用して画像を表示

で行けると思われます。

とはいえかなり効率の悪い方法だと思われますので、識者の方の回答をお待ちしています。

【5374】Re:ネット上にあるJPEG画像をフォームに表...
回答  YU-TANG WEB  - 05/6/14(火) 13:34 -

引用なし
パスワード
   こんばんは、YU-TANG です。

> ネット上にあるJPEG画像を検索して、最大10枚を
> ひとつのフォーム上に表示したいのです。
> そんなことができますか?教えて下さい。

出来ますが、Web 開発の基礎が無いと相当苦労すると思います。

小僧さんのレスが正攻法になると思われますが、一応手抜き案。

たとえば Goo で画像検索をすると、URL にパラメータが埋め込まれている
ことが分かると思います。
これを応用して、任意の条件で合成した URL を WebBrowser コントロール
に渡せば、検索結果がそのまま表示されます。
以下は検索キーワード「MS-Access Web」検索した結果を 10 画像/頁で表示
した場合の URL です。

http://bsearch.goo.ne.jp/image.jsp?MT=MS-Access+Web&DC=10&QGA=1&QGR=1&FT=jpg&SM=MC&FILTER=1&IMGSZ=&IMGC=&CK=0&OCR=1

主なパラメータを見ていくと…

MT パラメータの後ろが検索語句。
DC パラメータの後ろが表示画像数/ページ。
FT パラメータの後ろが画像の種類(jpg)。

これはたまたま Goo の場合の話ですが、他のポータルサイトも似たような
ものなので、URL を見ればだいたい構成が分かるでしょう。

難点はポータルサイトの検索結果をそのまま出しているだけというのが
バレバレなところですが、お手軽さという点では一考の価値有りかとは
思います。

ちなみに DHTML を操作すると、ポータルサイトであることを分からなく
出来ますが、話が Access から完全に逸れるので、興味があれば DHTML を
勉強してみてください。

1772 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078259
(SS)C-BOARD v3.8 is Free