DragSource Lib for BCB使用说明

如果你想让你的软件可以象WinRAR/WinZip一样支持把文件拖曳到资源管理器里, 或者把图片, 文字拖出到Word里,以增强用户体验, 偶的DragSource Lib 是你很好的选择(怎么有点象广告词?).

在你的线程(注意不是进程)使用DragSource Lib函数之前,都要先调用OleInitialize初始化OLE.

函数:
TDropResult DoDragDrop(char *szText,
  DWORD dwOKEffect=DROPEFFECT_COPY|DROPEFFECT_MOVE); 
开始拖出文本
 szText      指向一个以NULL结尾的字符串
 dwOKEffect  支持哪些操作(默认支持拷贝和移动),可以是以下几种值的组合:
  DROPEFFECT_NONE     什么都不支持
      DROPEFFECT_COPY     支持拷贝
  DROPEFFECT_MOVE     支持移动
  DROPEFFECT_LINK     支持链接
  DROPEFFECT_SCROLL   表示拖放目标窗口正在/将要滚动
 返回值:     拖动结果(TDropResult::Result)和最终拖动类型(TDropResult::Effect)

TDropResult DoDragDropURL(char *URL,
  DWORD dwOKEffect=DROPEFFECT_COPY|DROPEFFECT_MOVE|DROPEFFECT_LINK);
开始拖出网址URL
 URL         网页地址,一个以NULL结尾的字符串.
 dwOKEffect  同上, 默认支持(默认支持拷贝,移动,链接)
 返回值:     同上

TDropResult DoDragDrop(wchar_t *wszText,
  DWORD dwOKEffect=DROPEFFECT_COPY|DROPEFFECT_MOVE);  //Drag Unicode Text
开始拖出Unicode文本
 wszText     以NULL结尾的宽字符串.
 dwOKEffect  同上, 默认支持(默认支持拷贝,移动)
 返回值:     同上

TDropResult DoDragDrop(HBITMAP hBitmap,
  DWORD dwOKEffect=DROPEFFECT_COPY|DROPEFFECT_MOVE);  //Drag Bitmap
开始拖出BMP图片
 hBitmap     HBITMAP类型,你应该知道是什么.
 dwOKEffect  同上, 默认支持(默认支持拷贝,移动)
 返回值:     同上

TDropResult DoDragDrop(const THDROP_Files &files,
  DWORD dwOKEffect=DROPEFFECT_COPY|DROPEFFECT_MOVE|DROPEFFECT_LINK); 
开始拖出文件
 files       THDROP_Files类型, 存放要被拖出的文件名
 dwOKEffect  同上, 默认支持(默认支持拷贝,移动,链接)
 返回值:     同上

TDropResult DoDragDrop(FORMATETC *fmtetc, STGMEDIUM *stgmeds,UINT count=1,
  DWORD dwOKEffect=DROPEFFECT_COPY|DROPEFFECT_MOVE); 
用于同时拖出多种格式,比如拖到资源管理器里表现为文件拖动,拖到Word里表现为文字
 fmtetc      FORMATETC数组(定义查MSDN),指出每个数据的格式类型  
 stgmeds     STGMEDIUM数组(定义查MSDN),存储数据指针
 count       格式种类数,也就是FORMATETC数组和STGMEDIUM数组的大小.
 dwOKEffect  同上.
 返回值:     同上

TDropResult DoDragDrop(CLIPFORMAT ctFormat,DWORD tymed,void *hStorage,
  DWORD dwOKEffect=DROPEFFECT_COPY|DROPEFFECT_MOVE); 
拖出一个自定义格式数据
 ctFormat    CLIPFORMAT(还得查MSDN),CLIPFORMAT常用于表示剪切板里的数据类型.
 tymed       存储媒介类型,是在内存里的还是文件里的? 也可以查MSDN(关键字:TYMED)
 hStorage    存储媒介指针,实际上它是STGMEDIUM里的hGlobal/hBitmap/lpszFileName...项,注意调用后hStorage里的数据将被自动释放
 dwOKEffect  同上.
 返回值:     同上

HANDLE MemToHandle (void *pMem, int nSize);
生成适用于DoDragDrop(CLIPFORMAT ctFormat,DWORD tymed,void *hStorage,dwOKEffect)中hGlobal(hStorage)的内存数据.

类:
TDataObject
IDataObject的实现,主要成员函数:
 void Add(FORMATETC *fmtetc, STGMEDIUM *stgmeds, UINT count);   添加多个数据类型,参考DoDragDrop的定义
 void Add(CLIPFORMAT ctFormat,DWORD tymed,void *hStorage);      添加一个数据类型,参考DoDragDrop的定义
 size_t size();             类型种类数
 bool empty();              是否为空
 void Clear();              清空数据
 void ClearAndRelease();    清空并释放数据
 

TDropSource
IDropSource的实现

TDataObject和TDropSource用于和WINAPI DoDragDrop合作.

THDROP_Files
文件列表类,继承自std::vector<std::string>,用于DoDragDrop(const THDROP_Files &files,dwOKEffect)函数,主要成员函数:
 void *Create_HDROP() const;   根据文件列表生成HDROP数据类型(这可以偶花了一下午时间摸索出来的,偶在MSDN里没查到相关资料,好在比较简单)

 例:
BCB6里新建一工程:

 Form1的OnCreate和OnDestroy分别调用OleInitialize(NULL)和OleUninitialize().
 Form1->OnMouseDown:
 {
  Tag=1;  // Tag=1用来表示鼠标已按下
 }
 Form1->OnMouseUp:
 {
  Tag=0;  // Tag=0用来表示鼠标已松开
 }
 Form1->OnMouseMove:
 {
  if(Tag)
  {
   DoDragDrop("Hello EveryOne!");
   Tag=0;
  }
 } 
编译执行,按住Form1(不是标题栏,是客户区)拖动鼠标到WordPad里试试.

然后把
 DoDragDrop("Hello EveryOne!");
改成:
 DoDragDropURL("http://www.csdn.net");
再拖到IE里试试

再改成
  Graphics::TBitmap *bmp=new Graphics::TBitmap;
                bmp->Width  = Form1->ClientWidth;
                bmp->Height = Form1->ClientHeight;
                Form1->PaintTo(bmp->Canvas,0,0);
                DoDragDrop(bmp->Handle);
  delete bmp;
再拖动到WordPad里试试?

再改一把:
        THDROP_Files files;
        files.push_back(Application->ExeName.c_str());
        files.push_back(ChangeFileExt(Application->ExeName,".cpp").c_str());
     DoDragDrop(files,DROPEFFECT_COPY);
这次请拖到桌面上试试,是不是多了什么? :)

最后再试一个复杂点的(同时支持多种格式):
     TDataObject DataObject;
        TDropSource DropSource;

        THDROP_Files files;
        files.push_back(Application->ExeName.c_str());
        files.push_back(ChangeFileExt(Application->ExeName,".cpp").c_str());

        DataObject.Add(CF_TEXT,TYMED_HGLOBAL,MemToHandle("Hahahaha",8));
        DataObject.Add(CF_HDROP,TYMED_HGLOBAL,files.Create_HDROP());

        DWORD dwEffect;
        DoDragDrop(&DataObject, &DropSource, DROPEFFECT_COPY , &dwEffect);

        DataObject.ClearAndRelease();   //帮我们把MemToHandle和files.Create_HDROP()生成的内存给清理掉

这次要用Word试了, WordPad有时会先处理我们拖进去的文件, 晕~~. 试完Word再试桌面:)

如有更多细节问题或BUG请在Blog上留言.