296 lines
7.2 KiB
C
296 lines
7.2 KiB
C
|
/****************************** Module Header ******************************\
|
||
|
|
* Module Name: DMGMON.C
|
||
|
|
*
|
||
|
|
* This module contains functions used for DDE monitor control.
|
||
|
|
*
|
||
|
|
* Created: 8/2/88 sanfords
|
||
|
|
*
|
||
|
|
* Copyright (c) 1988, 1989 Microsoft Corporation
|
||
|
|
\***************************************************************************/
|
||
|
|
#include "ddemlp.h"
|
||
|
|
|
||
|
|
|
||
|
|
long EXPENTRY DdeSendHookProc(
|
||
|
|
int nCode,
|
||
|
|
WORD wParam,
|
||
|
|
LPHMSTRUCT lParam)
|
||
|
|
{
|
||
|
|
HDDEDATA hData;
|
||
|
|
MONMSGSTRUCT FAR *pmsgs;
|
||
|
|
|
||
|
|
if (cMonitor && lParam &&
|
||
|
|
lParam->wMsg >= WM_DDE_FIRST && lParam->wMsg <= WM_DDE_LAST) {
|
||
|
|
if (hData = allocMonBuf(sizeof(MONMSGSTRUCT), HIWORD(MF_SENDMSGS))) {
|
||
|
|
pmsgs = (MONMSGSTRUCT FAR *)GlobalLock(HIWORD(hData));
|
||
|
|
pmsgs->cb = sizeof(MONMSGSTRUCT);
|
||
|
|
pmsgs->dwTime = GetCurrentTime();
|
||
|
|
pmsgs->hwndTo = lParam->hWnd;
|
||
|
|
pmsgs->hTask = GetWindowTask(lParam->hWnd);
|
||
|
|
pmsgs->wMsg = lParam->wMsg;
|
||
|
|
pmsgs->wParam = lParam->wParam;
|
||
|
|
pmsgs->lParam = *(DWORD FAR *)&lParam->hlParam;
|
||
|
|
MonitorBroadcast(hData, HIWORD(MF_SENDMSGS));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return DefHookProc(nCode, wParam, (DWORD)lParam, &prevCallHook);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
long EXPENTRY DdePostHookProc(nCode, wParam, lParam)
|
||
|
|
int nCode;
|
||
|
|
WORD wParam;
|
||
|
|
LPMSG lParam;
|
||
|
|
{
|
||
|
|
HDDEDATA hData;
|
||
|
|
MONMSGSTRUCT FAR *pmsgs;
|
||
|
|
|
||
|
|
if (cMonitor && lParam &&
|
||
|
|
lParam->message >= WM_DDE_FIRST && lParam->message <= WM_DDE_LAST) {
|
||
|
|
if (hData = allocMonBuf(sizeof(MONMSGSTRUCT), HIWORD(MF_POSTMSGS))) {
|
||
|
|
pmsgs = (MONMSGSTRUCT FAR *)GlobalLock(HIWORD(hData));
|
||
|
|
pmsgs->cb = sizeof(MONMSGSTRUCT);
|
||
|
|
pmsgs->dwTime = lParam->time;
|
||
|
|
pmsgs->hwndTo = lParam->hwnd;
|
||
|
|
pmsgs->hTask = GetWindowTask(lParam->hwnd);
|
||
|
|
pmsgs->wMsg = lParam->message;
|
||
|
|
pmsgs->wParam = lParam->wParam;
|
||
|
|
pmsgs->lParam = lParam->lParam;
|
||
|
|
MonitorBroadcast(hData, HIWORD(MF_POSTMSGS));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return DefHookProc(nCode, wParam, (DWORD)lParam, &prevMsgHook);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
VOID MonBrdcastCB(
|
||
|
|
PAPPINFO pai,
|
||
|
|
WORD wType,
|
||
|
|
WORD wFmt,
|
||
|
|
HCONV hConv,
|
||
|
|
HSZ hszTopic,
|
||
|
|
HSZ hszItem,
|
||
|
|
HDDEDATA hData,
|
||
|
|
DWORD dwData1,
|
||
|
|
DWORD dwData2,
|
||
|
|
DWORD dwRet)
|
||
|
|
{
|
||
|
|
MONCBSTRUCT FAR *pcbs;
|
||
|
|
HDDEDATA hDataBuf;
|
||
|
|
|
||
|
|
SEMCHECKOUT();
|
||
|
|
SEMENTER();
|
||
|
|
if (pai) {
|
||
|
|
if (hDataBuf = allocMonBuf(sizeof(MONCBSTRUCT), HIWORD(MF_CALLBACKS))) {
|
||
|
|
pcbs = (MONCBSTRUCT FAR *)GlobalLock(HIWORD(hDataBuf));
|
||
|
|
pcbs->cb = sizeof(MONCBSTRUCT);
|
||
|
|
pcbs->dwTime = GetCurrentTime();
|
||
|
|
pcbs->hTask = pai->hTask;
|
||
|
|
pcbs->dwRet = dwRet;
|
||
|
|
pcbs->wType = wType;
|
||
|
|
pcbs->wFmt = wFmt;
|
||
|
|
pcbs->hConv = hConv;
|
||
|
|
pcbs->hsz1 = hszTopic;
|
||
|
|
pcbs->hsz2 = hszItem;
|
||
|
|
pcbs->hData = hData;
|
||
|
|
pcbs->dwData1 = dwData1;
|
||
|
|
pcbs->dwData2 = dwData2;
|
||
|
|
MonitorBroadcast(hDataBuf, HIWORD(MF_CALLBACKS));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
SEMLEAVE();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
void MonHsz(
|
||
|
|
ATOM a,
|
||
|
|
WORD fsAction,
|
||
|
|
HANDLE hTask)
|
||
|
|
{
|
||
|
|
MONHSZSTRUCT FAR *phszs;
|
||
|
|
HDDEDATA hData;
|
||
|
|
WORD cb;
|
||
|
|
|
||
|
|
if (hData = allocMonBuf(sizeof(MONHSZSTRUCT) + (cb = QueryHszLength((HSZ)a)),
|
||
|
|
HIWORD(MF_HSZ_INFO))) {
|
||
|
|
phszs = (MONHSZSTRUCT FAR *)GlobalLock(HIWORD(hData));
|
||
|
|
phszs->cb = sizeof(MONHSZSTRUCT) + cb + 1;
|
||
|
|
phszs->dwTime = GetCurrentTime();
|
||
|
|
phszs->hTask = hTask;
|
||
|
|
phszs->fsAction = fsAction;
|
||
|
|
phszs->hsz = (HSZ)a;
|
||
|
|
QueryHszName((HSZ)a, phszs->str, ++cb);
|
||
|
|
MonitorBroadcast(hData, HIWORD(MF_HSZ_INFO));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
WORD MonError(
|
||
|
|
PAPPINFO pai,
|
||
|
|
WORD error)
|
||
|
|
{
|
||
|
|
MONERRSTRUCT FAR *perrs;
|
||
|
|
HDDEDATA hData;
|
||
|
|
|
||
|
|
if (error) {
|
||
|
|
if (hData = allocMonBuf(sizeof(MONERRSTRUCT), HIWORD(MF_ERRORS))) {
|
||
|
|
perrs = (MONERRSTRUCT FAR *)GlobalLock(HIWORD(hData));
|
||
|
|
perrs->cb = sizeof(MONERRSTRUCT);
|
||
|
|
perrs->dwTime = GetCurrentTime();
|
||
|
|
perrs->hTask = pai->hTask;
|
||
|
|
perrs->wLastError = error;
|
||
|
|
MonitorBroadcast(hData, HIWORD(MF_ERRORS));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
pai->LastError = error;
|
||
|
|
return(error);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
VOID MonLink(
|
||
|
|
PAPPINFO pai,
|
||
|
|
BOOL fEstablished,
|
||
|
|
BOOL fNoData,
|
||
|
|
HSZ hszSvc,
|
||
|
|
HSZ hszTopic,
|
||
|
|
HSZ hszItem,
|
||
|
|
WORD wFmt,
|
||
|
|
BOOL fServer,
|
||
|
|
HCONV hConvServer,
|
||
|
|
HCONV hConvClient)
|
||
|
|
{
|
||
|
|
MONLINKSTRUCT FAR *plink;
|
||
|
|
HDDEDATA hData;
|
||
|
|
|
||
|
|
if (hData = allocMonBuf(sizeof(MONLINKSTRUCT), HIWORD(MF_LINKS))) {
|
||
|
|
plink = (MONLINKSTRUCT FAR *)GlobalLock(HIWORD(hData));
|
||
|
|
plink->cb = sizeof(MONLINKSTRUCT);
|
||
|
|
plink->dwTime = GetCurrentTime();
|
||
|
|
plink->hTask = pai->hTask;
|
||
|
|
plink->fEstablished = fEstablished;
|
||
|
|
plink->fNoData = fNoData;
|
||
|
|
plink->hszSvc = hszSvc;
|
||
|
|
plink->hszTopic = hszTopic;
|
||
|
|
plink->hszItem = hszItem;
|
||
|
|
plink->wFmt = wFmt;
|
||
|
|
plink->fServer = fServer;
|
||
|
|
plink->hConvServer = hConvServer;
|
||
|
|
plink->hConvClient = hConvClient;
|
||
|
|
|
||
|
|
MonitorBroadcast(hData, HIWORD(MF_LINKS));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
VOID MonConn(
|
||
|
|
PAPPINFO pai,
|
||
|
|
ATOM aApp,
|
||
|
|
ATOM aTopic,
|
||
|
|
HWND hwndClient,
|
||
|
|
HWND hwndServer,
|
||
|
|
BOOL fConnect)
|
||
|
|
{
|
||
|
|
MONCONVSTRUCT FAR *pconv;
|
||
|
|
HDDEDATA hData;
|
||
|
|
|
||
|
|
if (hData = allocMonBuf(sizeof(MONCONVSTRUCT), HIWORD(MF_CONV))) {
|
||
|
|
pconv = (MONCONVSTRUCT FAR *)GlobalLock(HIWORD(hData));
|
||
|
|
pconv->cb = sizeof(MONCONVSTRUCT);
|
||
|
|
pconv->dwTime = GetCurrentTime();
|
||
|
|
pconv->hTask = pai->hTask;
|
||
|
|
pconv->hszSvc = (HSZ)aApp;
|
||
|
|
pconv->hszTopic = (HSZ)aTopic;
|
||
|
|
pconv->hConvClient = MAKEHCONV(hwndClient);
|
||
|
|
pconv->hConvServer = MAKEHCONV(hwndServer);
|
||
|
|
pconv->fConnect = fConnect;
|
||
|
|
|
||
|
|
MonitorBroadcast(hData, HIWORD(MF_CONV));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* This guy sends a UM_MONITOR to all the monitor windows who's filters accept
|
||
|
|
* the callback.
|
||
|
|
*/
|
||
|
|
void MonitorBroadcast(
|
||
|
|
HDDEDATA hData,
|
||
|
|
WORD filterClass) // set to class of filter or 0
|
||
|
|
{
|
||
|
|
PAPPINFO pai;
|
||
|
|
register WORD i = 0;
|
||
|
|
|
||
|
|
SEMCHECKOUT();
|
||
|
|
SEMENTER();
|
||
|
|
pai = pAppInfoList;
|
||
|
|
while (pai && (i < cMonitor)) {
|
||
|
|
if (pai->hwndMonitor) {
|
||
|
|
if (filterClass & HIWORD(pai->afCmd)) {
|
||
|
|
SendMessage(pai->hwndMonitor, UM_MONITOR, filterClass, hData);
|
||
|
|
}
|
||
|
|
i++;
|
||
|
|
}
|
||
|
|
pai = pai->next;
|
||
|
|
}
|
||
|
|
SEMLEAVE();
|
||
|
|
GlobalUnlock(HIWORD(hData));
|
||
|
|
GLOBALFREE(HIWORD(hData));
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
HDDEDATA allocMonBuf(
|
||
|
|
WORD cb,
|
||
|
|
WORD filter)
|
||
|
|
{
|
||
|
|
PAPPINFO pai;
|
||
|
|
register WORD i;
|
||
|
|
|
||
|
|
SEMENTER();
|
||
|
|
if (cMonitor == 0)
|
||
|
|
return(FALSE);
|
||
|
|
pai = pAppInfoList;
|
||
|
|
i = 0;
|
||
|
|
while (pai && i < cMonitor) {
|
||
|
|
if (HIWORD(pai->afCmd) & filter)
|
||
|
|
return(MAKELONG(HDATA_EXEC, AllocDDESel(0, 0, cb)));
|
||
|
|
if (pai->afCmd & APPCLASS_MONITOR)
|
||
|
|
i++;
|
||
|
|
pai = pai->next;
|
||
|
|
}
|
||
|
|
return(NULL);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
long EXPENTRY MonitorWndProc(hwnd, msg, wP, lP)
|
||
|
|
HWND hwnd;
|
||
|
|
WORD msg;
|
||
|
|
WORD wP;
|
||
|
|
register DWORD lP;
|
||
|
|
{
|
||
|
|
switch (msg) {
|
||
|
|
case WM_CREATE:
|
||
|
|
SetWindowWord(hwnd, GWW_PAI, (WORD)LPCREATESTRUCT_GETPAI(lP));
|
||
|
|
break;
|
||
|
|
|
||
|
|
case UM_MONITOR:
|
||
|
|
/*
|
||
|
|
* lP = hData
|
||
|
|
* wP = HIWORD(MF_)
|
||
|
|
*/
|
||
|
|
DoCallback((PAPPINFO)GetWindowWord(hwnd, GWW_PAI), 0, 0L, 0L, 0, XTYP_MONITOR, lP, 0L, (DWORD)wP << 16);
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
return(DefWindowProc(hwnd, msg, wP, lP));
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|