■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5710-0画像をダウンロードする方法匿名57101999-12-15(水) 17:38
     #5732-0RE#5710:画像をダウンロードする方法たまお1999-12-16(木) 03:15
     #5757-0お礼#5732:画像をダウンロードする方法匿名57571999-12-16(木) 15:02
#5710-0
画像をダウンロードする方法
はじめまして、いろいろまわっていたら辿りつきました。
VBでURLから画像を保存する方法を探しております。
Inetコントロールのプロパティなどで探していますが、ちんぷんかんぷんです。
わかるかたいましたら教えてください。
よろしくお願いします。
#5732-0
RE#5710:画像をダウンロードする方法
> はじめまして、いろいろまわっていたら辿りつきました。
> VBでURLから画像を保存する方法を探しております。
> Inetコントロールのプロパティなどで探していますが、ちんぷんかんぷんです。
> わかるかたいましたら教えてください。
> よろしくお願いします。

VB5、Books Onlineの「インターネットトランスファコントロール(Inet)
の使い方」に載っていた方法を試してみました。一応ダウンロードできました
が、私もいまいち理解できてません(^^;。よかったら試してみて下さい。

Private Sub Form_Load()

Dim PicData() As Byte '画像ファイルのデータを格納
Dim FileNumber As Integer '空きファイル番号

'画像ファイルをバイナリデータとして取得
PicData() = Inet1.OpenURL("画像ファイルのURL", icByteArray)
                                              ~~~~~~~~~~~
'取得したデータをファイルに保存
FileNumber = FreeFile
Open "保存するパス" For Binary Access Write As #FileNumber
Put #intfile, , PicData()
Close #intfile
end
End Sub

ちなみに、DLした画像ファイルはコレ↓
http://www.microsoft.com/japan/ie/images/ieget_animated.gif
#5757-0
お礼#5732:画像をダウンロードする方法
たまおさんお答えいただきありがとうございます。
うまく保存することができました。ありがとうございました。
このページと関連する記事:
#15501-0ファイルの表示について。2001-04-09(月) 17:53
#1670-2VBでファイルをダウンロードするには?2002-07-13(土) 14:20
#19438-0バイナリデータでオープンする方法2001-03-08(木) 15:10
#21161-0VBでMP3ファイルを保存する方法2001-05-31(木) 21:00
#7941-0Inetコントロールなんですが・・・・2000-05-06(土) 12:35
#26049-0画像データの表示2000-07-19(水) 11:35
#21239-0ユーザー定義型について2002-06-21(金) 19:58
#699-1iniファイルからの読み込みが上手く来ません2004-01-05(月) 14:28
#711-1バイナリーデータの読み込み、書き込み2002-09-06(金) 14:11
#47247-0画像ファイルをOracleデータベースに保存したい2001-09-27(木) 18:03
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)