.NET Framework4.0からメモリマップドファイルがサポートされたみたいですが、実務で4.0ってまだあまり使われてないよね。多分。

で、実際仕事で.NET Framework2.0でメモリマップドファイル使う事になって、ちょっと手こずったのでメモ。
言語はVBだけど、C#でも同じようにできます。

---

前置き。
今回の仕事はVC++で作られた（まだ開発中だけど）のサービスプロセスの状態をモニタしたりするツールをVB2005で作ることになった。
実行環境はWindowsServer2008で、サービスプロセスはユーザ権限の子プロセスを作って、そのなかで共有メモリを作るんだけど、その辺は別の機会に。
前置き終わり。

で、まぁ今回はモニタするだけなので、ロックとかイベントとかは使いません。
サービスプロセス側でCreateFileMappingで確保したメモリマップドファイルをモニタツールから見るだけです。

まずはWin32APIを使うためにDllImportします。
あ、下記ソース中の< は全角の＜で書いてるので注意。
WordPressが勝手に閉じタグ書いちゃうのはどうにかならんものか・・・

＜DllImport ("kernel32.dll", EntryPoint:="CreateFileMapping")> _
Private Shared Function CreateFileMapping( _
ByVal hFile As IntPtr, _
ByVal lpFileMappingAttributes As IntPtr, _
ByVal flProtect As UInt32, _
ByVal dwMaximumSizeHigh As UInt32, _
ByVal dwMaximumSizeLow As UInt32, _
ByVal lpName As String) As IntPtr
End Function

＜DllImport("kernel32.dll", EntryPoint:="OpenFileMapping")> _
Private Shared Function OpenFileMapping( _
ByVal flProtect As UInt32, _
ByVal bInheritHandle As Boolean, _
ByVal lpName As String) As IntPtr
End Function

＜DllImport("kernel32.dll", EntryPoint:="MapViewOfFile")> _
Private Shared Function MapViewOfFile( _
ByVal hMap As IntPtr, _
ByVal AccessMode As UInt32, _
ByVal OffsetHigh As UInt32, _
ByVal OffsetLow As UInt32, _
ByVal MapSize As UInt32) As IntPtr
End Function

＜DllImport("kernel32.dll", EntryPoint:="UnmapViewOfFile")> _
Private Shared Function UnmapViewOfFile( _
ByVal hMap As IntPtr _
) As Boolean
End Function

＜DllImport("kernel32.dll", EntryPoint:="CloseHandle")> _
Private Shared Function CloseHandle( _
ByVal hHandle As IntPtr _
) As Boolean
End Function

今回モニタツールは、サービスプロセスが作ったメモリマップドファイルを見るだけなので、CreateFileMappingを使うことはないんだけど、一応おまけで書いておいた。
Privateなのは気にしないで。

で、実際使う場合だけど、

Private m_Handle As IntPtr
Private m_Map As IntPtr

Public Sub OpenMappedMemory(ByVal strObjectName As String)
m_Handle = IntPtr.Zero
m_Map = IntPtr.Zero
m_Handle = OpenFileMapping(FILE_MAP_READ, False , "Global" + strObjectName)
m_Map = MapViewOfFile(m_Handle, FILE_MAP_READ, 0, 0, 0)
End Sub

Public Sub CloseMappedMemory()
If m_Map <> IntPtr.Zero Then
UnmapViewOfFile(m_Map)
m_Map = IntPtr.Zero
End If
If m_Handle <> IntPtr.Zero Then
CloseHandle(m_Handle)
m_Handle = IntPtr.Zero
End If
End Sub

こんな感じかな。
OpenFileMappingの第３引数に”Global”を付けてるのは、相手がサービスプロセスだから。
普通のプログラム同士だったら付けなくていいっぽい。

今回は、サービスプロセスが起動済みで、メモリマップドファイルもサービスプロセスが作ってくれるからOpenFileMappingでいいんだけど、もし自分でメモリマップドファイルを作るなら、OpenFileMappingのとこが

Dim hFile As IntPtr = DirectCast(&HFFFFFFFF, IntPtr)
m_Handle = CreateFileMapping(hFile, Nothing, _
PAGE_READONLY, 0, size, "Global" + strObjectName)

とかになってるかな。

---

で、値の取得はMarshalクラスを使って色々するんだけど、今回は構造体の配列として取得します。
C++の定義で

typedef struct {
DWORD dwStatus; //状態
CHAR chName[64]; //名称
} S_SERVICE_STAT;


こんな感じの構造体が定義してあったとして、コレの配列をメモリマップドファイルに書き込んでたとすると、VB側は


＜Structlayout (LayoutKind.Sequential)> _
Private Structure S_SERVICE_STAT
＜Marshalas (UnmanagedType.U4)> _
Public dwStatus As UInt32
＜Marshalas (UnmanagedType.ByValArray, SizeConst:=64)> _
Public chName() As Byte
End Structure

こんな感じで構造体を定義しておいて

Public Function GetStatusList() As S_SERVICE_STAT()
Dim lst As New List(Of S_SERVICE_STAT)
If m_Map = IntPtr.Zero Then
'共有メモリアクセス失敗
Return Nothing
End If
Dim buff() As Byte = New Byte(64 + 4) {}
For i As Integer = 0 To 32
Dim ptrNext As IntPtr = New IntPtr(m_Map.ToInt32 + (i * (64 + 4)))
Dim _stat As S_SERVICE_STAT = _
DirectCast(Marshal.PtrToStructure(ptrNext, GetType(S_SERVICE_STAT)), S_SERVICE_STAT)
If _stat.dwStatus = 0 Then
’データがある場合はサービスプロセスによってdwStatus に0以外が書き込まれてる仕様
Exit For
End If
lst.Add(_stat)
Next

Return lst.ToArray()
End Function

こんな感じ。
ポイントは

Dim ptrNext As IntPtr = New IntPtr(m_Map.ToInt32 + (i * (64 + 4)))

この部分かな。
コレはC言語のポインタ演算みたいな方法でアクセスしてみた例。

この例ではchNameがByte配列なので、このままだとVBでは使いづらいので、実際には

System.Text.Encoding.GetEncoding("Shift_JIS").GetString(_stat.chName)

とかを挟んで文字列化します。
サービスプロセス側が文字列をUnicode使ってくれるなら、chNameはByte配列じゃなくて

＜Marshalas (UnmanagedType.BStr, SizeConst:=64)> _
Public chQueName() As String

とかで行けるっぽい。

---

もし書き込みもやりたい場合は、OpenFileMappingやMapViewOfFileにFILE_MAP_ALL_ACCESS指定して、
Marshal.StructureToPtrでも使えばいけるんじゃないかと思うけど試してない。

ロックやイベントも同時に使うことになるだろうけど、ソレも調べてないので、機会があったら調べてみよう。