掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
InternetReadFile で web 上のjpgを取り込み (ID:101051)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません、以下のような処理をしています。 Dim FileName As String Dim FileNumber As Integer Dim hOpen As Long Dim hConnect As Long Dim buf() As Byte Dim dwSize As Long FileNumber = FreeFile() FileOpen(FileNumber, FileName, OpenMode.Binary) call hOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_DIRECT,vbNullString, vbNullString, 0) call hConnect = InternetOpenUrl(hOpen, URL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0) Do '動的配列の大きさを定義 ReDim buf(1024) '配列の先頭要素を渡す InternetReadFile( hConnect, buf(1), 1024, dwSize) 'データ取得サイズを見て終了を判断 If dwSize = 0 Then Exit Do Else '動的配列の大きさを再定義 ReDim Preserve buf(1 To dwSize) 'ファイルへ書き込み FilePutObject(FileNumber, bytArray) End If '配列を消去 Erase buf Loop call InternetCloseHandle hConnect call InternetCloseHandle hOpen FileClose(FileNumber)
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.