Internet Explorer 編程簡述（十一）實現完美的Inplace Drag & Drop——“超級拖放”

• 拖放網頁鏈接：通常是在新窗口中打開
• 拖放選中的文字：保存文字、作為關鍵字通過搜索引擎搜索網絡、作為Url打開等
• 拖放圖片：通常是保存圖片到指定文件夾
• 當然，還有很關鍵的一點：拖動對象時鼠標指針反饋不同的拖拽效果

• 文字在頁面內與輸入框之間的交互拖放（這一點最為重要）
• 來自外部的文字與網頁輸入框之間的交互拖放
• 拖拽時滾動頁面（這一點是被忽略了）

IDocHostUIHandler::GetDropTarget Method——Called by MSHTML when it is used as a drop target. This method enables the host to supply an alternative IDropTarget interface.

STDMETHODIMP CHtmlControlSite::XDocHostUIHandler::GetDropTarget(

LPDROPTARGET pDropTarget, LPDROPTARGET* ppDropTarget)

{

METHOD_PROLOGUE_EX_(CHtmlControlSite, DocHostUIHandler)

*ppDropTarget = g_pDropTarget;//將自定義的實現告知MSHTML引擎

return S_OK;

}

IHTMLDataTransfer Members

clearData——Removes one or more data formats from the clipboard through dataTransfer or clipboardData object.

dropEffect——Sets or retrieves the type of drag-and-drop operation and the type of cursor to display.

effectAllowed——Sets or retrieves, on the source element, which data transfer operations are allowed for the object.

getData——Retrieves the data in the specified format from the clipboard through the dataTransfer or clipboardData objects.

setData——Assigns data in a specified format to the dataTransfer or clipboardData object.

HRESULT CHtmlDocument2::OnInvoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags,

DISPPARAMS * pdispparams, VARIANT * pvarResult,EXCEPINFO * pexcepinfo,

UINT * puArgErr)

{

......

//如果只是要設置鼠標拖拽效果的話，這個事件可以不處理

case DISPID_HTMLELEMENTEVENTS_ONDRAGSTART :

{

OnDragStart();

break ;

}

//重點在這里

case DISPID_HTMLELEMENTEVENTS_ONDRAGOVER :

{

OnDragOver();

break ;

}

case DISPID_HTMLELEMENTEVENTS_ONDROP :

{

OnDrop();

break ;

}

......

}

 

void CHtmlDocument2::OnDragOver( void )

{

SetDragEffect();               //設置鼠標拖拽效果

}

 

void CHtmlDocument2::SetDragEffect( void )

{

CComQIPtr<IHTMLWindow2>  pWindow;

CComQIPtr<IHTMLEventObj>  pEventObj;

CComQIPtr<IHTMLEventObj2>  pEventObj2;

CComQIPtr<IHTMLElement>  pElement;

 

HRESULT hr = m_spHtmlObj->get_parentWindow( &pWindow );

hr = pWindow->get_event( &pEventObj );

 

//ondragover發生時IE的默認行為是“沒有鼠標拖拽效果”。

//將IHTMLEventObj的返回值設為false即可取消該事件的默認行為，所以執行完下面這句話，拖拽效果就出現了。

AllowDisplayDragCursor(pEventObj, FALSE);  

 

CComBSTR bstrTagName;

pEventObj->get_srcElement(&pElement);    //獲得當前HTML Element

pElement->get_tagName(&bstrTagName);    

if ( IsEditArea(bstrTagName) ) //根據Tag Name判斷是否鼠標位于輸入框，以便設置焦點使得光標隨鼠標移動

{

CComQIPtr<IHTMLElement2>  pElement2;

if ( SUCCEEDED(pElement->QueryInterface(IID_IHTMLElement2, (void **) &pElement2 ))

&& pElement2 )

{

pElement2->focus();

}

//默認情況下，當拖拽文檔到輸入框時，鼠標會變成拖拽的光標，所以這里使用IE的默認行為。

AllowDisplayDragCursor(pEventObj, TRUE);

}

}

 

BOOL CHtmlDocument2::IsEditArea(CComBSTR bstrTagName)

{

return bstrTagName == "INPUT" || bstrTagName == "TEXTAREA";

}

 

void CHtmlDocument2::AllowDisplayDragCursor(CComQIPtr<IHTMLEventObj> pEventObj, BOOL bAllow)

{

VARIANT v;

v.vt = VT_BOOL;

 

v.boolVal = !bAllow ? VARIANT_FALSE : VARIANT_TRUE;

pEventObj->put_returnValue(v);

}

 

void CHtmlDocument2::OnDrop( void )

{

CComQIPtr<IHTMLWindow2>  pWindow;

CComQIPtr<IHTMLEventObj>  pEventObj;

CComQIPtr<IHTMLEventObj2>  pEventObj2;

CComQIPtr<IHTMLElement>  pElement;

CComQIPtr<IHTMLDataTransfer>   pdt; //此處演示如何使用IHTMLDataTransfer

 

HRESULT hr = m_spHtmlObj->get_parentWindow( &pWindow );

hr = pWindow->get_event( &pEventObj );

hr = pEventObj->QueryInterface(IID_IHTMLEventObj2, (void **) &pEventObj2 );

hr = pEventObj2->get_dataTransfer(&pdt);

 

CComBSTR bstrFormat = "URL"; //首先嘗試獲取URL

VARIANT Data;

hr = pdt->getData(bstrFormat, &Data);

if ( Data.vt != VT_NULL )

{     //獲取成功，拖放的對象是Url

DoOpenUrl(CString(Data.bstrVal));

}

else

{     //否則嘗試獲取選中的文本

bstrFormat = "Text";

hr = pdt->getData(bstrFormat, &Data);

if ( Data.vt != VT_NULL )

{     //獲取成功，拖放的內容是文本

CComBSTR bstrTagName;

pEventObj->get_srcElement(&pElement);

pElement->get_tagName(&bstrTagName);

if ( IsEditArea(bstrTagName) )

{

//Drop target是輸入框，不做任何操作，由IE進行默認處理

return ;

}

else

{     //否則我們自己處理文本，或保存，或檢測是否鏈接后打開，等等

DoProcessText(CString(Data.bstrVal));

//Process the text

}

}

else

{     //既不是鏈接，也不是文本，可認為是來自外部（如Windows Shell）的文件拖放

DoOnDropFiles(pdt);

}

}

}

 

//演示如何從IHTMLDataTransfer得到IDataObject

void CHtmlDocument2::DoOnDropFiles(CComQIPtr<IHTMLDataTransfer> pDataTransfer)

{

CComQIPtr<IServiceProvider>  psp;

CComQIPtr<IDataObject>  pdo;

if ( FAILED(pDataTransfer->QueryInterface(IID_IServiceProvider, (void **) &psp)) )

{

return ;

}

if ( FAILED(psp->QueryService(IID_IDataObject, IID_IDataObject, (void **) &pdo)) )

{

return ;

}

 

COleDataObject DataObject;

DataObject.Attach(pdo);

......

}

//構造函數，傳入參數即是從GetDropTarget得到的那個pDropTarget，它是MSHTML的缺省實現

CBrowserDropTarget::CBrowserDropTarget(IDropTarget *pOrginalDropTarget)

:  m_bDragTextToInputBox(FALSE)

//這個布爾變量用來判斷是否正在向InputBox拖拽文字

,  m_pOrginalDropTarget(pOrginalDropTarget)

//m_pOrginalDropTarget用來保存MSHTML的缺省實現

{

}

 

STDMETHODIMP CBrowserDropTarget::DragEnter(/* [unique][in] */IDataObject __RPC_FAR *pDataObj,

/* [in] */ DWORD grfKeyState,

/* [in] */ POINTL pt,

/* [out][in] */ DWORD __RPC_FAR *pdwEffect)

{

//調用缺省的行為

return m_pOrginalDropTarget->DragEnter(pDataObj, grfKeyState, pt, pdwEffect);

}

 

STDMETHODIMP CBrowserDropTarget::DragOver(/* [in] */ DWORD grfKeyState,

/* [in] */ POINTL pt,

/* [out][in] */ DWORD __RPC_FAR *pdwEffect)

{

//在網頁內拖拽文字時這個值是DROPEFFECT_COPY（拖拽的文字不屬于輸入框中）

//或DROPEFFECT_COPY | DROPEFFECT_MOVE（拖拽的文字是輸入框中的文字）

DWORD dwTempEffect = *pdwEffect;

 

//接下來調用IE的缺省行為

HRESULT hr = m_pOrginalDropTarget->DragOver(grfKeyState, pt, pdwEffect);

 

//判斷是否是往輸入框拖拽文字

m_bDragTextToInputBox = IsDragTextToInputBox(dwOldEffect, *pdwEffect);

if ( !m_bDragTextToInputBox )

{

//不是往輸入框拖拽文字，則使用原始的拖拽效果。否則和IE的缺省效果一樣——也就是沒有效果

*pdwEffect = dwTempEffect;

}

return S_OK;

}

 

//根據調用缺省行為前后的Effect值判斷是否是往輸入框拖拽文字

BOOL CBrowserDropTarget::IsDragTextToInputBox(DWORD dwOldEffect, DWORD dwNewEffect)

{

//如果是把非輸入框中文字往輸入框拖動，則dwOldEffect與dwNewEffect相等，都是DROPEFFECT_COPY

BOOL bTextSelectionToInputBox = ( dwOldEffect == DROPEFFECT_COPY )

&& ( dwOldEffect == dwNewEffect );

 

//如果是把文字從一個輸入框拖到另一個輸入框，則dwOldEffect為DROPEFFECT_COPY | DROPEFFECT_MOVE，

//而dwNewEffect的值可能為DROPEFFECT_MOVE（默認情況），也可能為DROPEFFECT_COPY（按下Ctrl鍵時）

BOOL bInputBoxToInputBox = ( dwOldEffect == (DROPEFFECT_COPY | DROPEFFECT_MOVE) )

&& ( dwNewEffect == DROPEFFECT_MOVE || dwNewEffect == DROPEFFECT_COPY );

 

//來自Microsoft Word的拖拽特殊一些，dwOldEffect是所有效果的組合值

BOOL bMSWordToInputBox =

( dwOldEffect == (DROPEFFECT_COPY | DROPEFFECT_MOVE | DROPEFFECT_LINK) )

&& ( dwNewEffect == DROPEFFECT_MOVE || dwNewEffect == DROPEFFECT_COPY );

 

//來自Edit Plus的拖拽過也特殊一些，dwOldEffect是個負數（懷疑是Edit Plus的拖拽實現有問題）

BOOL bEditPlusToInputBox = ( dwOldEffect < 0 )

&& ( dwNewEffect == DROPEFFECT_MOVE || dwNewEffect == DROPEFFECT_COPY );

 

//也許還有些例外，可再添加

......

return bTextSelectionToInputBox || bInputBoxToInputBox || bMSWordToInputBox || bEditPlusToInputBox;

}

 

STDMETHODIMP CBrowserDropTarget::DragLeave()

{

//調用缺省的行為

return m_pOrginalDropTarget->DragLeave();

}

 

STDMETHODIMP CBrowserDropTarget::Drop(/* [unique][in] */ IDataObject __RPC_FAR *pDataObj,

/* [in] */ DWORD grfKeyState,

/* [in] */ POINTL pt,

/* [out][in] */ DWORD __RPC_FAR *pdwEffect)

{

if ( m_bDragTextToInputBox )

{

//是文字拖放，調用IE的缺省行為

return m_pOrginalDropTarget->Drop(pDataObj, grfKeyState, pt, pdwEffect);

}

 

//否則是拖放鏈接、圖片、文件等，按常規的IDataObject處理方式

......

return S_OK;

}

1. 文字在頁面內與輸入框之間能夠交互拖放。
2. 來自外部的文字與網頁輸入框之間也能交互拖放
3. 拖拽時能夠自動滾動頁面

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=677425

posted on 2007-07-29 15:40 旅途 閱讀(973) 評論(0)  編輯 收藏 引用 所屬分類: BHO