InternetReadFile で web 上のjpgを取り込み (ID:101052)

名前

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

本文

> どこに問題があって、改善したら良いのでしょうか。
VB2005/VB2008 であれば、API を使わずとも、
  My.Computer.Network.DownloadFile(URL, "C:\matsui2.jpg")
とするだけで取得できますよ。

あるいは、System.Net.WebRequest を使って取得することもできます。

> を使って、ファイルに読み込もうとすると、
ByVal/ByRef の使い分けが正しく無いようです。それでは、
VB.NET でも VB6/VBA でも、期待動作とはならないでしょう。

VB.NET であれば、こんな感じ。

'Imports System.Runtime.InteropServices
Private Declare Unicode Function InternetReadFile Lib "wininet" _
  (ByVal hFile As IntPtr, _
   <MarshalAs(UnmanagedType.LPArray)> ByVal lpBuffer() As Byte, _
   ByVal dwNumberOfBytesToRead As UInteger, _
   ByRef lpdwNumberOfBytesRead As UInteger _
  ) As <MarshalAs(UnmanagedType.Bool)> Boolean

VB6/VBA であれば、こんな感じ。

Private Declare Function InternetReadFile Lib "wininet" Alias "InternetReadFileA" _
  (ByVal hFile As Long, _
   ByRef lpBuffer As Byte, _
   ByVal dwNumberOfBytesToRead As Long, _
   ByRef lpdwNumberOfBytesRead As Long _
  ) As Long

> すみません、以下のような処理をしています。
Declare や Const なども一緒に書いてください。(不足情報があると、試すことができませんので)
第三者が貼り付けてそのまま実行できる、『問題を再現可能なコード』を掲載してください。

> FileOpen(FileNumber, FileName, OpenMode.Binary)
この構文は、VB.NET の物ですね。

> call hOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_DIRECT,vbNullString, vbNullString, 0)
実際に使っているコードを掲載してください。提示されたコードでは、
VB.NET/VB6/VBA/VBScript のいずれであっても、構文エラーとなるはずです。

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

戻る