开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
ATLASYNC.H
资源名称：MSDN_VC98.zip　[点击查看]
上传用户：bangxh
上传日期：2007-01-31
资源大小：42235k
文件大小：5k
源码类别：

Windows编程

开发平台：

Visual C++

ATLASYNC.H：源码内容
  1. // ATLAsync.h : Declaration of the CATLAsync
  2. //
  3. // This is a part of the Active Template Library.
  4. // Copyright (C) 1996-1998 Microsoft Corporation
  5. // All rights reserved.
  6. //
  7. // This source code is only intended as a supplement to the
  8. // Active Template Library Reference and related
  9. // electronic documentation provided with the library.
  10. // See these sources for detailed information regarding the
  11. // Active Template Library product.
  13. #include "resource.h"       // main symbols
  16. /////////////////////////////////////////////////////////////////////////////
  17. // CATLAsync
  18. class CATLAsync :
  19. public CComObjectRoot,
  20. public CComCoClass<CATLAsync, &CLSID_CATLAsync>,
  21. public CComControl<CATLAsync>,
  22. public IDispatchImpl<IATLAsync, &IID_IATLAsync, &LIBID_ASYNCLib>,
  23. public IProvideClassInfo2Impl<&CLSID_CATLAsync, NULL, &LIBID_ASYNCLib>,
  24. public IPersistStreamInitImpl<CATLAsync>,
  25. public IPersistStorageImpl<CATLAsync>,
  26. public IQuickActivateImpl<CATLAsync>,
  27. public IOleControlImpl<CATLAsync>,
  28. public IOleObjectImpl<CATLAsync>,
  29. public IOleInPlaceActiveObjectImpl<CATLAsync>,
  30. public IViewObjectExImpl<CATLAsync>,
  31. public IOleInPlaceObjectWindowlessImpl<CATLAsync>,
  32. public IDataObjectImpl<CATLAsync>,
  33. public IPersistPropertyBagImpl<CATLAsync>,
  34. public IPerPropertyBrowsingImpl<CATLAsync>,
  35. public IObjectSafetyImpl<CATLAsync, INTERFACESAFE_FOR_UNTRUSTED_CALLER>
  36. {
  37. public:
  38. CContainedWindow m_EditCtrl;
  40. CATLAsync() : m_EditCtrl(_T("EDIT"), this, 1)
  41. {
  42. m_bWindowOnly = TRUE;
  43. }
  45. DECLARE_REGISTRY_RESOURCEID(IDR_ATLAsync)
  48. BEGIN_COM_MAP(CATLAsync)
  49. COM_INTERFACE_ENTRY(IATLAsync)
  50. COM_INTERFACE_ENTRY(IDispatch)
  51. COM_INTERFACE_ENTRY(IObjectSafety)
  52. COM_INTERFACE_ENTRY_IMPL(IViewObjectEx)
  53. COM_INTERFACE_ENTRY_IMPL_IID(IID_IViewObject2, IViewObjectEx)
  54. COM_INTERFACE_ENTRY_IMPL_IID(IID_IViewObject, IViewObjectEx)
  55. COM_INTERFACE_ENTRY_IMPL(IOleInPlaceObjectWindowless)
  56. COM_INTERFACE_ENTRY_IMPL_IID(IID_IOleInPlaceObject, IOleInPlaceObjectWindowless)
  57. COM_INTERFACE_ENTRY_IMPL_IID(IID_IOleWindow, IOleInPlaceObjectWindowless)
  58. COM_INTERFACE_ENTRY_IMPL(IOleInPlaceActiveObject)
  59. COM_INTERFACE_ENTRY_IMPL(IOleControl)
  60. COM_INTERFACE_ENTRY_IMPL(IOleObject)
  61. COM_INTERFACE_ENTRY_IMPL(IQuickActivate)
  62. COM_INTERFACE_ENTRY_IMPL(IPersistStorage)
  63. COM_INTERFACE_ENTRY_IMPL(IPersistStreamInit)
  64. COM_INTERFACE_ENTRY_IMPL_IID(IID_IPersist, IPersistPropertyBag)
  65. COM_INTERFACE_ENTRY_IMPL(IPersistPropertyBag)
  66. COM_INTERFACE_ENTRY_IMPL(IDataObject)
  67. COM_INTERFACE_ENTRY(IProvideClassInfo)
  68. COM_INTERFACE_ENTRY(IProvideClassInfo2)
  69. END_COM_MAP()
  71. BEGIN_PROPERTY_MAP(CATLAsync)
  72. PROP_ENTRY("URL", 0, CLSID_NULL)
  73. END_PROPERTY_MAP()
  76. BEGIN_MSG_MAP(CATLAsync)
  77. MESSAGE_HANDLER(WM_CREATE, OnCreate)
  78. ALT_MSG_MAP(1)
  79. MESSAGE_HANDLER(WM_LBUTTONDBLCLK, OnDoubleClick)
  80. END_MSG_MAP()
  82. // IATLAsync
  83. public:
  85. HRESULT OnDraw(ATL_DRAWINFO&)
  86. {
  87. return 0;
  88. }
  89. LRESULT OnDoubleClick(UINT, WPARAM wParam, LPARAM lParam, BOOL& bHandled)
  90. {
  91. put_URL(CComBSTR(_T("http://www.microsoft.com")));
  93. return 0;
  94. }
  95. LRESULT OnCreate(UINT, WPARAM wParam, LPARAM lParam, BOOL& bHandled)
  96. {
  97. RECT rc;
  98. GetWindowRect(&rc);
  99. rc.right -= rc.left;
  100. rc.bottom -= rc.top;
  101. rc.top = rc.left = 0;
  102. USES_CONVERSION;
  103. m_EditCtrl.Create(m_hWnd, rc, OLE2CT((BSTR)m_bstrText), WS_CHILD | WS_VISIBLE | ES_MULTILINE | ES_AUTOVSCROLL);
  104. ::SendMessage(m_EditCtrl.m_hWnd, WM_SETTEXT, 0,  (LPARAM)_T("Double click on this window or set the URL property to initiate download."));
  105. return 0;
  106. }
  107. STDMETHOD(SetObjectRects)(LPCRECT prcPos,LPCRECT prcClip)
  108. {
  109. IOleInPlaceObjectWindowlessImpl<CATLAsync>::SetObjectRects(prcPos, prcClip);
  110. int cx, cy;
  111. cx = prcPos->right - prcPos->left;
  112. cy = prcPos->bottom - prcPos->top;
  113. ::SetWindowPos(m_EditCtrl.m_hWnd, NULL, 0,
  114.  0, cx, cy, SWP_NOZORDER | SWP_NOACTIVATE);
  115. return S_OK;
  116. }
  118. CComBSTR m_bstrText;    //holds data received from the URL
  120. //OnData will be used as a callback functin by the CBindStatusCallback object.
  121. //OnData will be called periodically with data from the asynchronous transfer
  122. void OnData(CBindStatusCallback<CATLAsync>* pbsc, BYTE* pBytes, DWORD dwSize)
  123. {
  124. ATLTRACE(_T("OnData calledn"));
  125. m_bstrText.Append((LPCSTR)pBytes);
  126. if (::IsWindow(m_EditCtrl.m_hWnd))
  127. {
  128. USES_CONVERSION;
  129. ::SendMessage(m_EditCtrl.m_hWnd, WM_SETTEXT, 0,  (LPARAM)OLE2CT((BSTR)m_bstrText));
  130. }
  131. }
  133. //put_URL is the put method for the URL property.
  134. //Calling this function starts the URL transfer.
  135. STDMETHOD(put_URL)(BSTR strURL)
  136. {
  137. USES_CONVERSION;
  138. ATLTRACE(_T("IATLAsync::put_URLn"));
  139. m_bstrURL = strURL;
  140. if (::IsWindow(m_EditCtrl.m_hWnd))
  141. {
  142. USES_CONVERSION;
  143. ::SendMessage(m_EditCtrl.m_hWnd, WM_SETTEXT, 0,  (LPARAM)_T(""));
  144. CBindStatusCallback<CATLAsync>::Download(this, OnData, m_bstrURL, m_spClientSite, FALSE);
  145. }
  146. return S_OK;
  147. }
  148. STDMETHOD(get_URL)(BSTR* pstrURL)
  149. {
  150. ATLTRACE(_T("IATLAsync::get_URLn"));
  151. *pstrURL = m_bstrURL.Copy();
  152. return S_OK;
  153. }
  154. CComBSTR m_bstrURL; //string representing a URL
  155. };