Delphi COM编程技术四自动化技术
2016-04-26 09:54
573 查看
一、自动化技术的基础
1、 自动化名称介绍:1>、自动化: 是一种从应用程序的内部自动控制另一个应用程序的方法。
2>、自动化对象: 指的是实现了IDispatch接口的COM对象,IDispatch接口是自动化对象的一个重要标志。因此,可以通过QuereyInterface()函数查询组件是否包含此接口,来确定该组件是否是自动化对象。自动化对象包括属性和方法,其属性只能被读取不能被写入。
3>、自动化组件:除了定义自动化对象外,还将内部可编程对象展现给自动化客户,而自动化客户则对这些暴露的自动化对象进行操作。
4>、早期连接/接口(early binding):早期连接是指对接口方法的所有调用在编译时检查参数是否正确;
5>、后期连接/Variants (late binding):后期连接指连接意味着方法调用直到运行时才被实现;Variant不是对象指针;对象的调用方法是后期连接;编写快速、简单的客户应用程序不用费力去输入一个类型库;
6>、派遣接口(DispInterface) :在接口和Variant中间的某个地方就是派遣接口;与接口有很多类似; 只是方便客户而设定的; 并没有在服务器上实现派遣接口;是服务器上实现了接口;假设服务器的COM对象也支持IDispatch接口,客户应用程序可以使用Variants或派遣接口;
7>、双重接口(Dual Interface):支持早期连接(接口)和后期连接(Variants);使用delphi创建的任何任何自动化服务器将自动支持双重接口;
2、使用自动化技术的目的:
1>、使用自动化技术的一个主要目的就是对COM的一些底层操作进行简化,包括自动化组件(用于定义自动化对象)和自动化客户(用于使用自动化对象)两方面的内容。
2>、通过自动化操作类型库。
3>、从应用程序的内部自动控制另一个应用程序的方法。
4>、客户通过使用接口、Variants派遣接口和双重接口创建并使用自动化服务器;
二、IDispatch接口:自动化对象的标志
1、IDispatch接口的定义:IDispatch接口直接从IUnknown接口派生,接口定义如下:
interface IDispatch : IUnknown { virtual HRESULT GetTypeInfoCount(UINT* pctinfo) = 0; virtual HRESULT GetTypeInfo(UINT itinfo, LCID lcid, ITypeInfo** pptinfo) = 0; virtual HRESULT GetIDsOfNames (REFIID riid, LPOLESTR* rgszNames, UINT cNames, LCID lcid, DISPID* rgdispid) = 0; virtual HRESULT Invoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARMS* pdispparams, VARIANT* pvarResult, EXCEPINFO* pexcepinfo, UINT* puArgErr ) = 0; } |
1>、GetTypeInfoCount()成员函数:用于获取自动化组件支持的ITypeInfo接口的数目
2>、GetTypeInfo()成员函数:用于获取指针ITypeInfo接口的指针,通过该指针将能够判断自动化服务程序所提供的自动化支持。
3>、GetIDsOfNames()成员函数:将读取一个函数的名称并返回其调度ID(DISPID),DISPID只是一个long类型的数据,对于IDispatch的一个特定实现,此DISPID值应该是唯一的。
riid:为保留参数,必须设置为IID_NULL,
rgszNames:指定了成员的函数名及其参数,
cNames:标识了名字的个数,
lcid:参数用于指定本地化标识,如:GetUserDefaultLCID()
rgdispid:得到的DISPID 将保存到rgdispid中。
4>、Invoke()成员函数:提供了访问自动化对象暴露出来的方法和属性的方法。
dispidMember: 可以将DISPID作为函数指针数组的索引传入dispidMember参数,Invoke()将实现一组按此索引来访问的函数。
riid和lcid: 的含义与在GetIDsOfNames()中的定义相同,分别为保留参数和本地化标识。
WFlags: 指定了要访问的是接口的属性还是方法,
pdispparams: 包括了方法和属性调用的参数数组、DISPID数组以及数组中参数个数等信息。
pvarResult: 保存有返回值信息,可以使用NULL。
pexcepinfo: 指向一个有效的异常信息结构,可以使用NULL。
puArgErr: 参数包含了第一个产生错误的参数指针。可以使用NULL。
通过GetIDsOfNames()和Invoke()的结合使用,将可以根据函数名称对方法和属性进行调用。这样,函数地址、AddRef()、Release()以及接口指针等细节问题将无需考虑。
3、IDispatch接口的使用实例(C++代码):
// 从ProgID得到CLSID wchar_t progid[] = L"MSCAL.Calendar.7"; CLSID clsid; if (FAILED(::CLSIDFromProgID(progid, &clsid)))// Calendar组件的ProgID转换为CLSID return; // 得到IDispatch接口指针 IDispatch* pIDispatch = NULL; //创建CLSID相应的组件并从输出IDispatch接口的指针 if (FAILED(::CoCreateInstance(clsid, NULL, CLSCTX_INPROC_SERVER, IID_IDispatch, (void**)&pIDispatch))) return; // 得到DISPID DISPID dispid; OLECHAR* func = L"Today"; if (FAILED(pIDispatch->GetIDsOfNames(IID_NULL, &func, 1, GetUserDefaultLCID(), &dispid))) return; // 通过DISPID使用Today方法 DISPPARAMS dispparams = {NULL}; if (FAILED(pIDispatch->Invoke(dispid, IID_NULL, GetUserDefaultLCID(), DISPATCH_METHOD, &dispparams, NULL, NULL, NULL))) return; // 将日期移动到今天 AfxMessageBox("日期成功移动到今天"); |
三、获取自动化服务器COM对象的方法
1、自动化服务器1>、在本身应作为独立服务器应用程序的情况下,使用进程外自动化服务器非常好;
2>、自动服务器中的所有方法必须返回一个HResult,暗示是成功还是失败;
3>、所有其他参数必须在out参数中返回;
4>、访问自动化服务器的方法:通过接口、派遣接口、Variants(可使用的类名,CreateOleObject)、回调接口来控制此服务器;
l 派遣接口(DispInterface): 为事件提供了更好的支持;与VB兼容;实现事件是最兼容的方法、
l 接口(Interface): 不与VB兼容;但速度比派遣接口稍快;
l 回调接口(CallBack Interface):除非有极重要的原因否则不要使用;服务器做大量的工作,而刻户端不需要太多的工作;接口中定义回调方法,而不是使用派遣接口把事件送回到客户端; 回调接口在服务器中定义,但在客户中实现; 如果知道服务器和客户提供的接口,回调接口更有效;
2、 进程内自动化服务器
进程中的服务器是作为动态连接库(DLL)实现的,这意味着该服务器在运行时被动态地放进你的进程中。COM服务器将成为你应用中的一部分,而COM操作在应用的线程中进行。事实上,许多的COM对象都是以这种方式实现的,因为性能很好。一个COM函数调用的系统开销很小,但你可以得到COM所有的设计和重用的好处。COM自动处理载入和卸下该DLL。
CreateOleObject函数:总是创建特定服务器的新实例;
GetActiveOleObject函数: 用来获取正在内存中运行的服务器的引用;
例如:创建并使用进程内自动化服务器;
Procedure StartOrLinkToWord;
var
v: Variant;
begin
try
v := GetActiveOleObject('Word.Basic'); //判断是否Word已启动;
except
v := CreateOleObject('Word.Basic'); //否则启动Word; 通常自动化服务器启动是隐藏的;
v.AppShow; //显示Word应用程序;
end;
V.FileNew; //创建一个新的文档;
v.Insert('Automation is easy!');
end;
3、 进程外自动化服务器
一个进程外的服务器令客户和服务端的区分更明显。该类服务器作为一个独立的可执行(EXE)程序运行,因此处在一个私有的进程空间中。EXE服务器的启动和停止在Windows中服务管理器中进行(SCM)。COM接口的调用通过内部的进程通信技术来处理。服务器可以运行在本地的机器,或者在一个远程的计算机上。如果服务器在一个远程的计算机上,我们称它为“Distributed COM,分布式的COM”,或者DCOM。
四、 自动化ADO: Microsoft最新的数据库技术;
1、主要组件:Connection、RecordSet、Command; 1>、Connection对象: 用于连接到一个本地或远处的数据库;连接数据库:Connection.Open();
2>、RecordSet对象: 提供了一个记录集的连接;打开记录集:RecordSet.Open()
3>、Command对象: 向数据库发出命令,应使用Command对象(与Parameter一起工作);
4>、访问字段值:访问Field对象的值: RecordSet.Fields.Item[FieldNo].Value;
5>、访问字段名称:RecordSet.Fields.Item[FieldNo].Name;
6>、数据库错误处理:Error对象,该对象提供任何错误的详细代码;
相关文章推荐
- Delphi COM编程技术三类型库
- Delphi COM编程技术二(COM接口和COM组件)
- Delphi COM编程技术一(COM编程基础知识)
- Delphi 编写COM+组件的知识和样例
- delphi 代码学习笔记
- Java Webservice 取数据库图片,图片以数组方式传递到Delphi前台显示
- Delphi 10.1说明
- 关于Delphi中多线程传递参数的简单问题
- delphi 提取字符中的数字
- [iOS] Delphi for iOS 版本需求
- Delphi安装组件的几种方式
- delphi 基础书籍推荐
- Delphi加密组件TurboPower Lockbox
- Delphi命令行输出组件DOSCommand及Widnows 命令解释使用说明
- 相当无聊之Delphi截取字符串123-456-7,得到123,456,7
- 死亡历险,DELPHI以string方式传递图片到JAVA的WEBSERVICE保存
- 死亡历险,DELPHI以TByteDynArray(Bytes)方式传递图片到JAVA的WEBSERVICE保存
- RAD Studio, Delphi and C++Builder 10.1 Berlin 新版本功能介绍 - 首场在线教学
- Delphi快捷键
- delphi学习_安装