Передача бинарных данных через COM

//***********
// Код на стороне отправителя информации
//***********
.....
HANDLE hMapFile = NULL;
HANDLE hMem = NULL;
LPVOID hShrMem = NULL;
 
// С созданием файла на диске
// hMapFile = CreateMapFile('Уникальное имя.расширение');
// В качастве уникального имени можно использовать GUID.
 
// Без создания файла на диске - только в памяти!!!
hMapFile = (HANDLE) 0xFFFFFFFF;
 
// ForMyClient - может быть также GUID'ом
hMem = CreateMap(hMapFile, 'ForMyClient', MaxSize);
pShrMem = MapView(hMem, MaxSize);
if (pShrMem != NULL)
{
// Очистим расшаренную память
memset(pShrMem, 0, MaxSize);
// Запишем туда что-нибудь
strcat((char*)pShrMem, 'Привет, мой любимый клиент!');
// Отправим уведомление клиенту, что для него есть сообщение
SendMessage(hwndMyClient, ID_MY_MESSAGE, (WPARAM)MaxSize, 0);
// hwndMyClient я искал при помощи FindWindow, а если не находил, то запускал копию самостоятельно
}
 
// Избавимся от расшаренной памяти
if (pShrMem != NULL)
{
UnmapViewOfFile(pShrMem);
}
if (hMem != NULL)
{
CloseHandle(hMem);
}
 
//Закроем File, если таковой был создан
if (hMapFile && (hMapFile != INVALID_HANDLE_VALUE))
{
CloseHandle(hMapFile);
}
....
 
//*******
// Код на стороне клиента в обработчике ID_MY_MESSAGE 
//*******
....
HANDLE hMem = OpenMap('ForMyClient');
if (hMem != NULL)
{
long MaxSize = (long)wParam;
LPVOID pShrMem = MapView(hMem, MaxSize);
AfxMessageBox((LPCTSTR)pShrMem);
UnmapViewOfFile(pShrMem);
}
CloseHandle(hMem);
...