我只知道VB中的CreateObject(strObjName)
转换为DELPHI是:CreateOleObject(strObjName)
但GetObject(strObjName)函数转换为DELPHI却不知道了。
请高手帮忙。谢谢
转换为DELPHI是:CreateOleObject(strObjName)
但GetObject(strObjName)函数转换为DELPHI却不知道了。
请高手帮忙。谢谢
解决方案 »
- 超强打印预览控件,提供源代码
- combobox问题
- 帮忙啊!请进!怎样把数据导入到Excel打印并自动换页???◆
- 请问VBA.COMMAND是做什么用的,怎么用?举个例子,谢谢!
- 一个能自动关掉Msgbox提示框的代码,但还是无法屏蔽http://mark.yalaso.net/mark_post1.asp提示框
- vb图像计数
- 如何自动切换输入法?IMEMODE属性除外。求解
- 怎么让屏蔽键盘事件!!!急!!!
- 关于floodfill
- 窗体关闭时出现的问题,怪!!!!!sos可持续加分
- 请高手指路:如何得到记录集RS当前记录的记录数,高手一定要显身说法!!
- 怎样在程序中建立ODBC的连接? 在线等!急急!!
---------------------
CLSIDFromProgID
CoCreateInstance
QueryInterface to get IDispatch interface.
GetObject (filename, ProgID)
-----------------------------
CLSIDFromProgID
CoCreateInstance
QueryInterface for IPersistFile interface.
Load on IPersistFile interface.
QueryInterface to get IDispatch interface.
GetObject (filename)
-------------------
CreateBindCtx creates the bind context for the subsequent functions.
MkParseDisplayName returns a moniker handle for BindMoniker.
BindMoniker returns a pointer to the IDispatch interface.
Release on moniker handle.
Release on context.
GetObject (ProgID)
-----------------
CLSIDFromProgID
GetActiveObject on class ID.
QueryInterface to get IDispatch interface.
Dim x As New interface
-----------------------
Find CLSID for interface.
CoCreateInstance
QueryInterface