第四十五讲-吉林大学网络教育学院课件.ppt

1、吉林大学远程教育课件Windows A P I编 程主讲人主讲人 : 翟慧杰翟慧杰学学 时：时：48(第四十五讲第四十五讲)函数 BroadcastTransaction是一个自定义的函数，在例13-2中的具体定义如下： 在上述程序段中，函数DdeQueryNextServer用于获得连接列表中的下一个连接句柄。其函数原型定义如下： 如果函数 DdeQueryNextServer返回值不为空，则程序将进入一个 while循环，在 while循环体中定义了一个计数器，用于记录服务器的个数。同时循环体通过函数DdeClientTransaction来开始一个客户事务处理， DdeClientTra

2、nsaction函数的原型定义如下： 如果服务器不能对客户方的事务进行处理，程序中通过调用函数 DdeAbandonTransaction放弃事务处理并回收所有的资源。函数DdeAbandonTransaction的原型定义如下： 在主窗口的消息处理函数MainwindProc中，处理WM_TIMER消息时还用到了一个DdePostAdvise函数，这个函数将使系统发送一条XTYP_ADVREQ消息给DDE回调函数，DdePostAdvise函数的原型定义如下： 例132的核心是 DDE回调函数，本例中定义的回调函数如下： 回调函数参数表中的wType参数用于指定回调类型；hszTopic参数

3、用于指定主题名：参数hszItem比m用于指定主题中的某一项的名称。不难看出，上面的回调函数和消息处理函数有几分相似。 当服务器处理完XTYP_CONNECT事务并返回TRUE时，DDE会话也就开始了。服务器和客户之间的通信实际上都是借助上述的事务类型来实现的。当客户向服务器发送一个请求时，DDE管理库就会用相应的事务类型调用服务器的回调函数。 回调函数接收的事务确定于应用程序在DdeInitialize中指定的回调过滤标志，以及应用程序是否是客户或服务器，还是二者兼是。DDE事务类型如表 132所示。例13-2的源程序#include #include #include #include #

4、ifdef UNICODE#define STRICMP wcsicmp#define ITOA(c, sz, b) (itoa(sizeof(szA), szA, b), mbstowcs(sz, szA, b), sz)#else#define STRICMP stricmp#define ITOA itoa#endif /函数声明HDDEDATA CALLBACK DdeCallback(WORD wType, WORD wFmt, HCONV hConv, HSZ hszTopic,HSZ hszItem, HDDEDATA hData, DWORD lData1, DWORD lDa

5、ta2);VOID PaintDemo(HWND hwnd);LONG APIENTRY MainWndProc(HWND hwnd, UINT message, WPARAM wParam, LONG lParam);VOID BroadcastTransaction(PBYTE pSrc,DWORD cbData,UINT fmt,UINT xtyp);#define BASE_TIMEOUT 100BOOL fActive; /标识数据是否正在被改变DWORD idInst = 0; / DDEML对象HANDLE hInst; /应用程序句柄HCONVLIST hConvList =

6、0; /连接列表HSZ hszAppName = 0; /应用程序名HWND hwndMain; /主窗口句柄TCHAR szT20; /用于重绘的静态缓冲区句柄#ifdef UNICODECHAR szA20; /用于UNICODE 转化缓冲区TCHAR szTitle = TEXT(DDEmo (U);#elseTCHAR szTitle = TEXT(DDEmo);#endifTCHAR szApp = TEXT(DDEmo); / DDE服务名TCHAR szPause = TEXT(PAUSE); / DDE可执行命令TCHAR szResume = TEXT(RESUME);/ D

7、DE可执行命令UINT OurFormat; /定制的格式int InCount = 0; /输入数据缓冲区int cConvs = 0; / 激活的conversations数int count = 0; /输出数据int cyText, cxText, cyTitle; /重绘区域/函数：WinMain/作用：程序入口int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,INT nCmdShow) MSG msg; WNDCLASS wc; TEXTMETRIC metrics; HDC

8、 hdc;/窗口初始化 wc.style = 0; wc.lpfnWndProc = MainWndProc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hInstance = hInstance; wc.hIcon = NULL; wc.hCursor = LoadCursor(NULL, IDC_ARROW); wc.hbrBackground = NULL; wc.lpszMenuName = NULL; wc.lpszClassName = szTitle; if (!RegisterClass(&wc) return(FALSE);/DDE初始

9、化 if (DdeInitialize(&idInst,(PFNCALLBACK)MakeProcInstance(FARPROC)DdeCallback, hInstance), APPCMD_FILTERINITS |CBF_SKIP_CONNECT_CONFIRMS |CBF_FAIL_SELFCONNECTIONS |CBF_FAIL_POKES,0) return(FALSE); hInst = hInstance;/创建窗口 hwndMain = CreateWindow( szTitle, szTitle, WS_CAPTION | WS_BORDER | WS_SYSMENU,

10、 CW_USEDEFAULT, CW_USEDEFAULT, 0, 0, NULL, NULL, hInstance, NULL); if (!hwndMain) DdeUninitialize(idInst);/结束DDE return(FALSE); hdc = GetDC(hwndMain); GetTextMetrics(hdc, &metrics);/获取当前所用字体 cyText = metrics.tmHeight + metrics.tmExternalLeading; cxText = metrics.tmMaxCharWidth * 8; cyTitle = GetSyst

11、emMetrics(SM_CYCAPTION); ReleaseDC(hwndMain, hdc);/创建字符串句柄 hszAppName = DdeCreateStringHandle(idInst, szApp, 0); /注册自定义数据格式OurFormat = RegisterClipboardFormat(szApp); /注册服务器名DdeNameService(idInst, hszAppName, 0, DNS_REGISTER);/建立DDE会话列表hConvList = DdeConnectList(idInst, hszAppName, hszAppName, hConv

12、List, NULL);/向所有的服务器广播事务 BroadcastTransaction(NULL, 0, OurFormat, XTYP_ADVSTART); SetWindowPos(hwndMain, 0, 0, 0, cxText, (cyText * (cConvs + 1) + cyTitle, SWP_NOMOVE | SWP_NOZORDER); ShowWindow(hwndMain, nCmdShow); UpdateWindow(hwndMain);/消息循环 while (GetMessage(&msg, 0, 0, 0) TranslateMessage(&msg)

13、; DispatchMessage(&msg); DestroyWindow(hwndMain); UnregisterClass(szTitle, hInstance); return(FALSE);/函数：BroadcastTransaction/作用：向所有服务器广播客户的事务请求VOID BroadcastTransaction(PBYTE pSrc,DWORD cbData,UINT fmt,UINT xtyp) HCONV hConv; DWORD dwResult; int cConvsOrg; cConvsOrg = cConvs; cConvs = 0;/初始化连接数为0 i

14、f (hConvList) /下一个会话句柄hConv = DdeQueryNextServer(hConvList, 0); while (hConv) cConvs+; /处理客户事务if (DdeClientTransaction(pSrc, cbData, hConv, hszAppName, fmt, xtyp, TIMEOUT_ASYNC, &dwResult) /放弃客户事务DdeAbandonTransaction(idInst, hConv, dwResult); hConv = DdeQueryNextServer(hConvList, hConv); if (cConvs

15、 != cConvsOrg) /重绘窗口InvalidateRect(hwndMain, NULL, TRUE); /函数：MyProcessKey/作用：处理键盘消息VOID MyProcessKey(TCHAR tchCode,LONG lKeyData) switch (tchCode) case TEXT(B):case TEXT(b):*(PBYTE)(-1) = 0; break;/函数：MainWndProc/作用：主窗口消息循环LONG APIENTRY MainWndProc(HWND hwnd,UINT message,WPARAM wParam,LONG lParam)

16、RECT rc; switch (message) case WM_CREATE:/创建窗口fActive = FALSE;break;case WM_RBUTTONDOWN: /按下鼠标右键if (GetKeyState(VK_CONTROL) & 0 x8000) /判断控制键的状态/广播事务处理BroadcastTransaction(PBYTE)szPause, sizeof(szPause), 0, XTYP_EXECUTE);MessageBeep(0);KillTimer(hwndMain, 1);/销毁定时器fActive = FALSE;InvalidateRect(hwnd

17、, NULL, TRUE);/重绘窗口UpdateWindow(hwnd);break;case WM_LBUTTONDOWN: /按下鼠标左键if (GetKeyState(VK_CONTROL) & 0 x8000) /判断控制键状态/广播事务处理BroadcastTransaction(PBYTE)szResume, sizeof(szResume), 0, XTYP_EXECUTE);MessageBeep(0); /发出蜂鸣声/设置定时器SetTimer(hwndMain, 1, BASE_TIMEOUT + (rand() & 0 xff), NULL);fActive = TRU

18、E;InvalidateRect(hwnd, NULL, TRUE);/重绘窗口UpdateWindow(hwnd);break;case WM_CHAR:/键盘消息MyProcessKey(TCHAR)wParam, lParam);break;case WM_TIMER:/定时器消息count+;/发送XTYP_ADVREQ事务给服务器的回调函数DdePostAdvise(idInst, hszAppName, hszAppName);SetRect(&rc, 0, 0, cxText, cyText);InvalidateRect(hwndMain, &rc, TRUE);/重绘窗口Up

19、dateWindow(hwndMain);break;case WM_PAINT:/绘制窗口PaintDemo(hwnd);break;case WM_CLOSE:/结束应用程序KillTimer(hwnd, 1);DdeDisconnectList(hConvList);/断开DDE会话/撤消已注册的服务器名DdeNameService(idInst, 0, 0, DNS_UNREGISTER);/销毁字符串句柄DdeFreeStringHandle(idInst, hszAppName);DdeUninitialize(idInst);/结束DDE会话PostQuitMessage(0);

20、break;default:/其他消息return (DefWindowProc(hwnd, message, wParam, lParam); return(0); /函数：PaintDemo/作用：绘制窗口VOID PaintDemo(HWND hwnd) PAINTSTRUCT ps; RECT rc; HCONV hConv; CONVINFO ci; int cConvsOrg = cConvs; BeginPaint(hwnd, &ps);/开始绘制 SetRect(&rc, 0, 0, cxText, cyText);/设定矩形区域 SetBkMode(ps.hdc, TRANS

21、PARENT);/设置背景模式 SetTextColor(ps.hdc, 0 x00FFFFFF); /文本颜色为白色 /填充矩形区域FillRect(ps.hdc, &rc, (HBRUSH)GetStockObject(fActive ? BLACK_BRUSH : GRAY_BRUSH);/输出文本DrawText(ps.hdc, ITOA(count, szT, 10), -1, &rc, DT_CENTER | DT_VCENTER); if (hConvList) OffsetRect(&rc, 0, cyText); SetTextColor(ps.hdc, 0); /设定文本颜

22、色为黑色 cConvs = 0;/查询下一个服务器 hConv = DdeQueryNextServer(hConvList, 0); while (hConv) cConvs+;ci.cb = sizeof(CONVINFO); /获取DDE会话信息DdeQueryConvInfo(hConv, QID_SYNC, &ci);FillRect(ps.hdc,&rc, (HBRUSH)GetStockObject(WHITE_BRUSH); / 例13-2的源程序色背景/输出文本DrawText(ps.hdc, ITOA(ci.hUser, szT, 10), -1, &rc,DT_CENTE

23、R | DT_VCENTER);OffsetRect(&rc, 0, cyText);hConv = DdeQueryNextServer(hConvList, hConv); EndPaint(hwnd, &ps);/结束绘制 if (cConvsOrg != cConvs) SetWindowPos(hwndMain, 0, 0, 0, cxText, (cyText * (cConvs + 1) + cyTitle,SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE); /函数：DdeCallback/作用：DDE回调函数HDDEDATA CALLBAC

24、K DdeCallback(WORD wType,WORD wFmt,HCONV hConv,HSZ hszTopic,HSZ hszItem,HDDEDATA hData,DWORD lData1,DWORD lData2)LPTSTR pszExec; switch (wType) case XTYP_CONNECT:/处理XTYP_CONNECT事务return(HDDEDATA)TRUE);case XTYP_ADVREQ:case XTYP_REQUEST:/创建数据句柄return(DdeCreateDataHandle(idInst,(PBYTE)&count, sizeof(c

25、ount), 0, hszAppName, OurFormat, 0);case XTYP_ADVSTART:return(HDDEDATA) (UINT)wFmt = OurFormat & hszItem = hszAppName);case XTYP_ADVDATA:if (DdeGetData(hData, (PBYTE)&InCount, sizeof(InCount), 0) /设置用户句柄DdeSetUserHandle(hConv, QID_SYNC, InCount);InvalidateRect(hwndMain, NULL, TRUE);return(HDDEDATA)D

26、DE_FACK);case XTYP_EXECUTE:/访问DDE数据pszExec = (LPTSTR)DdeAccessData(hData, NULL);if (pszExec) if (fActive & !STRICMP(szPause, pszExec) /消息定时器KillTimer(hwndMain, 1);fActive = FALSE;InvalidateRect(hwndMain, NULL, TRUE);UpdateWindow(hwndMain); else if (!fActive & !STRICMP(szResume, pszExec) /设定定时器SetTim

27、er(hwndMain, 1, BASE_TIMEOUT + (rand() & 0 xff), NULL);fActive = TRUE;InvalidateRect(hwndMain, NULL, TRUE);UpdateWindow(hwndMain);MessageBeep(0);break;case XTYP_DISCONNECT:InvalidateRect(hwndMain, NULL, TRUE);break;case XTYP_REGISTER:/向服务器广播事务 BroadcastTransaction( NULL, 0, OurFormat, XTYP_ADVSTOP )

28、; hConvList = DdeConnectList(idInst, hszItem, hszAppName, hConvList, NULL);BroadcastTransaction(NULL, 0, OurFormat, XTYP_ADVSTART);SetWindowPos(hwndMain, 0, 0, 0, cxText,(cyText * (cConvs + 1) + cyTitle, SWP_NOMOVE | SWP_NOZORDER);UpdateWindow(hwndMain);return(HDDEDATA)TRUE);return(0);例13-2的执行结果如图13

29、-2所示。 133对象链接与嵌入基础知识对象链接与嵌入基础知识 对象链接与嵌入实际上包括链接和嵌入对象、观察对象和编辑对象等涉及的所有技术。1131对象链接与嵌入对象链接与嵌入在这里一个对象被定义为任何一个文本中显示的并且可以被最终用户修改的数据。对象范围可从小到一个电子表格单元大到一个完整的文本，当一个对象归属于一个文本时，它与创建它的应用程序保持着一种联系。当一个对象被嵌入到其他对象之中时，不仅相关的数据被嵌入，而且相应的数据规则也被嵌入，这样用户不必返回该源应用程序就可以对一个对象进行编辑和修改。 当一个OLE文本包含了以各种不同格式表示的数据时，它就被称为一个复合文本。如果没有实现OL

30、E技术，则每一种不同的数据类型都能够被最终用户修改。最终用户不得不在不同的应用程序中取得不同的编辑工具；如果应用程序实现了OLE技术，在同一环境下就可以实现对不同格式的数据进行编辑和修改。OLE技术给予了最终用户一个以文本为中心的参照框架系统，而不是一个以应用程序为中心的参照框架系统。 复合文本使用应用程序的许多特性来修改包含在其中的数据类型，任何一种数据均可以包含在一个复合文本之中。最终用户可以不必知道哪些数据格式与其他的数据格式相兼容，最终用户也不必知道怎样寻找创建该数据的其他应用程序。当用户在一个文本的一个部分里工作时，负责那个部分的应用程序合自动地开始工作。OLE的好处在于：文件的链接对象可以动态地加以改变；当前的应用程序可以对未来的数据格式进行扩展，因为一个对 象的内容与包含它的文本无关；文本文件可以更加紧凑，这是因为对一个对象的链接使得该文 本使用了该对象， 而不必存储该对象的数据；一个应用程序可以很好地、专业化地做某项工作；最终用户面向的是个以文本为中心的用户系统；实现了OLE协议就可以利用多种多样不同类型的对象优点。