bcb ole拖拽功能的实现
最近项目中用到了OLE 拖拽功能
和BCB 一个Form的Drag 不同的是,只有实现了OLE 拖拽才能,从其他程序拖拽数据到Form
下面的代码实现了,同HTML网页拖拽到Form时,Form获得HTML数据
其核心思想是,
1,要实现 COM的 IDropTarget 接口
2,RegisterDragDrop(handle,this); 注册窗口的拖拽
3,窗口类构造 OleInitialize(NULL);
4,窗口类析构时 OleUninitialize();
5,在下面的代码中,我将IDropTarget 接口封装为类TOleDragAndDrop
//--------------------------------------------------------------------------- #include <vcl.h>
#pragma hdrstop #include "Unit1.h"
#include <OLEIDL.h>
#include <SysUtils.hpp>
#include <ObjIdl.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1; /*实现IDropTarget COM接口*/
class TOleDragAndDrop :
public TObject,
public IDropTarget,
public IUnknown
{
private:
HANDLE d_handle;//注册的窗体句柄
volatile LONG d_ref; //引用计数器
public:
//构造是注册OLEDragDrop
TOleDragAndDrop(HANDLE handle)
{
d_ref = ;
d_handle = handle;
RegisterDragDrop(handle,this);
}
//必须虚函数,以调用父类的析构
__fastcall ~TOleDragAndDrop()
{
RevokeDragDrop(d_handle);
//调用父类的析构
} //实现COM要求的QueryInterface
HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, void ** ppvObject)
{
HRESULT result=S_OK;
if (GetInterface(iid,ppvObject))
result=S_OK;
else
result=E_NOINTERFACE;
return result;
}
//实现COM要求的引用计数器
ULONG STDMETHODCALLTYPE AddRef(void)
{
ULONG result = InterlockedDecrement(&d_ref);
return result;
}
//实现COM要求的释放接口
ULONG STDMETHODCALLTYPE Release(void)
{
ULONG result = InterlockedDecrement(&d_ref);
return result;
}
//实现IDropTarget 中的DragOver
HRESULT STDMETHODCALLTYPE DragOver(DWORD grfKeyState,
POINTL pt,DWORD *pdwEffect)
{
//ShowMessage("drag over");
return S_OK;
}
//实现IDropTarget 中的DragEnter
HRESULT STDMETHODCALLTYPE DragEnter(IDataObject * pDataObject,
DWORD grfKeyState, POINTL pt,DWORD * pdwEffect)
{
//ShowMessage("drag enter");
return S_OK;
}
//实现IDropTarget 中的DragLeave
HRESULT STDMETHODCALLTYPE DragLeave(void)
{
//ShowMessage("drag leave");
return S_OK;
}
//实现IDropTarget 中的Drop
HRESULT STDMETHODCALLTYPE Drop(IDataObject *pDataObj,DWORD grfKeyState,
POINTL pt,DWORD __RPC_FAR *pdwEffect)
{
AnsiString retStr;
FORMATETC format;
int cf_html = RegisterClipboardFormat("HTML Format");
FORMATETC cFmt = {(CLIPFORMAT) CF_TEXT, NULL, DVASPECT_CONTENT, -, TYMED_HGLOBAL};
cFmt.cfFormat = cf_html;
STGMEDIUM stgMedium;
pDataObj->GetData(&cFmt, &stgMedium);
if(stgMedium.tymed == TYMED_HGLOBAL)
{
char* html = (char*)GlobalLock(stgMedium.hGlobal);
ShowMessage(Utf8ToAnsi(html));
//剩下的就是把<img>。。。</img> 通过XML解析出来
} return S_OK;
}
};
//---------------------------------------------------------------------------
static TOleDragAndDrop* d_poledragDrop = NULL; __fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
OleInitialize(NULL);
d_poledragDrop = new TOleDragAndDrop(Memo1->Handle);
}
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete d_poledragDrop;
d_poledragDrop = NULL;
OleUninitialize();
}
//---------------------------------------------------------------------------
bcb ole拖拽功能的实现的更多相关文章
- RCP:拖拽功能的实现 Drag and Drop
SWT中的拖拽是使用的org.eclipse.swt.dnd. 有三个需要密切注意的类: 1.DragSource 2.DropTarget 3.Transfer DragSource封装了需要被拖拽 ...
- js实现登陆页面的拖拽功能
<!DOCTYPE html><html> <head> <meta charset="UTF-8"> <title>登 ...
- duilib中控件拖拽功能的实现方法(附源码)
转载请说明原出处,谢谢~~:http://blog.csdn.net/zhuhongshu/article/details/41144283 duilib库中原本没有显示的对控件增加拖拽的功能,而实际 ...
- React Editor 应用编辑器(1) - 拖拽功能剖析
这是可视化编辑器 Gaea-Editor 的第一篇连载分析文章,希望我能在有限的篇幅讲清楚制作这个网页编辑器的动机,以及可能带来的美好使用前景(画大饼).它会具有如下几个特征: 运行在网页 文档流布局 ...
- WinForm实现简单的拖拽功能(C#)(2)
首先创建一个winform应用程序,添加listbox1与listbox2,拖拽listbox1的项到listbox2上去. 具体代码如下 namespace OLE拖拽{ public partia ...
- DIV 实现可拖拽 功能(留档)
//可拖拽 功能 $.fn.extend({ //用法:$(element).jqDrag(); //element需要具备定位属性,需要手动调整层叠样式,这里只是修改鼠标拖动效果 ...
- 使用NGUI实现拖拽功能(拼图小游戏)
上一次用UGUI实现了拼图小游戏,这次,我们来用NGUI来实现 实现原理 NGUI中提供了拖拽的基类UIDragDropItem,所以我们要做的就是在要拖拽的图片上加一个继承于该类的脚本,并实现其中的 ...
- 使用UGUI实现拖拽功能(拼图小游戏)
实现方式 1.引入UGUI自带的事件系统 UnityEngine.EventSystems 2.为我们的类添加接口 IBeginDragHandler, IDragHandler, IEndDragH ...
- JQuery UI的拖拽功能
JQuery UI是JQuery官方支持的WebUI 代码库,包含底层交互.动画.特效等API,并且封装了一些Web小部件(Widget).同时,JQuery UI继承了jquery的插件支持,有大量 ...
随机推荐
- 高级UI-RecyclerView头部和尾部添加
在ListView中,可以添加头部和尾部,其添加方法也是十分的简单,直接调用listview.addHeaderView(view);和listview.addFooterView(view);即可, ...
- Mac10.14.6安装并破解PyCharm
之前安装了PyCharm的Community版本, 用了半天之后发现好多功能都没有, 于是准备安装专业版然后破解. 安装包直接去官网下载, 不多说. 破解补丁的下载地址如下: 链接:https://p ...
- Mui 沉浸模式以及状态栏颜色改变
手机的顶部状态栏,也就是信号.电量那条,有4种状态,分别是正常.变色.透明(也称沉浸式状态栏).消失(也就是全屏).后3种特殊用法,具体见下: 这些都是真机运行不生效,需提交App云端打包后才生效: ...
- Word 双栏排版最后多一页空白页删不掉、左栏文字没写完就到右栏了
1. 问题 问题:Word双栏排版,最后多一页空白页,删不掉.如图: 原因分析:删不掉是因为末尾文字处其实有个下一页分节符,只不过可能看不到. 如何清晰的看到? 视图 > 大纲,就可以看到了.如 ...
- windows安装redis并为php5.4添加redis扩展
第一步 安装包下载 首先下载php5.4对应版本的php_igbinary.dll,php_redis.dll扩展.(php7以后可不需要php_igbinary.dl这个文件了) 链接:https: ...
- django_视图相关
使用通用视图(返回静态页面) from django.conf.urls.defaults import * from django.views.generic.simple import direc ...
- WUSTOJ 1290: 01字串(Java)
题目链接:
- CentOS7 服务器连接超时自动断开问题解决
背景 现在的客户们都开始使用云服务器了,还要通过堡垒机才给访问权限,这种方式访问方式以前都是银行的"专利",不过也间接说明其他行业的信息化也越来越普及了.今天主要是因为分配给我的这 ...
- (六)Hibernate的增删改查操作(3)
一.在Hibernate中使用原生SQL语句 sql语句面向的是数据库,所以sql语句中对应的不再是bean了,比如sql="select * from user" 在hql中 ...
- (五)Hibernate的增删改查操作(2)
接上一章节 HQL的预编译语句 HIbernate中的预编译与Spring的预编译的处理差不多. 1:使用标准的? 2:使用命名参数 2.1:使用名称逐个设置. 2.2:使用Map(k ...