C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: EnumMonitorsの呼出し２回目

分類:[VB.NET/VB2005 以降]　

2011/04/12(Tue) 12:01:24 編集(投稿者)
2011/04/12(Tue) 12:01:18 編集(投稿者)

VB2010でEnumMonitorsの２回目の呼出で、
引数に構造体のポインタを指定するのですが、
その方法がわからないので教えてください。

まずこのように宣言しています。
Private Declare Function EnumMonitors Lib "winspool.drv" Alias "EnumMonitorsA" ( _
ByVal pName As String, _
ByVal Level As Integer, _
ByRef pMonitors As Integer, _
ByVal cbBuf As Integer, _
ByRef pcbNeeded As Integer, _
ByRef pcReturned As Integer) As Integer

１回目の呼出しはこのようにしてpcbNeededにバッファサイズは取得できました。
Call EnumMonitors(Nothing, 1, Nothing, Nothing, pcbNeeded, pcReturned)

２回目の呼出しではpMonitorsの部分にMONITOR_INFO_1構造体配列のポインタを渡さなければならないのですが、
どのようにして渡せば良いのか良いのか教えてください。

２回目の呼出しはこのようにすると値の取得ができることがわかりました。
Dim pPrinterInfo As IntPtr = Marshal.AllocHGlobal(pcbNeeded)
Call EnumMonitors(Nothing, 1, pPrinterInfo, pcbNeeded, pcbNeeded, pcReturned)

ただ、pPrinterInfoからMONITOR_INFO_1構造体配列にはどうすればいいのかはまだわかりません。

■No58531 (KM さん) に返信
> ２回目の呼出しはこのようにすると値の取得ができることがわかりました。
> Dim pPrinterInfo As IntPtr = Marshal.AllocHGlobal(pcbNeeded)
> Call EnumMonitors(Nothing, 1, pPrinterInfo, pcbNeeded, pcbNeeded, pcReturned)
>
> ただ、pPrinterInfoからMONITOR_INFO_1構造体配列にはどうすればいいのかはまだわかりません。
>
MONITOR_INFO_1構造体は文字列１つだけなので、
Marshal.Overloads Public Shared Sub Copy(
ByVal source As IntPtr, _
ByVal destination() As Byte, _
ByVal startIndex As Integer, _
ByVal length As Integer _
)
でbyte配列に一括でコピーして
null(&h0)でデータを区切って各々をEncodingで文字列にすればよいかと思います。（予想ですが）

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: EnumMonitorsの呼出し２回目

過去ログには書き込み不可