制作简单的 COM 范例 (for Delphi)

原创 2001年07月13日 14:16:00
 

 

制作简单的 COM 范例 (for Delphi)

一.              打开 Delphi 5.0 程序

二.              关闭所有单元

三.              单击“File”在菜单下的“New”子菜单,弹出“New Item”对话框,选择“ActiveX”下的“ActiveX Library”,单击“OK”。(此操作,创建一个“库工程”)

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

四.              把“此工程”另存为“ComProgramExaP”。

五.              单击“File”在菜单下的“New”子菜单,弹出“New Item”对话框,选择“ActiveX”下的“COM Object”,单击“OK”。(此操作,创建一个“COM 对象”)

 

弹出,“COM Object Wizard”对话框,

输入类(Class)名称—“z_ComProExaCLA”,单击“OK”。

 

弹出,“ComProgramExaP.Tlb”对话框,

选择“Iz_ComProExaCLA,在此下面添加, “属性,方法”, 添加“方法1”—“z_MethodAdd

 

 

 

 

给此“z_MethodAdd”方法,输入参数

刷新

参数完成,单击刷新。

添加,方法的内容,

方法内容

 

 

 

 

最后,给COM 注册,

注册

 

六.              制作结束。

 

应用(for Delphi

一.              新建一个工程

二.              加入界面

三.              单击“Project”在菜单下的“Import Type Library”子菜单,弹出“Import Type Library”对话框,选中“ComProgramExaP Library,单击“Create Unit”按钮。

 

四.              uses ComProgramExaP_TLB;”单元

五.              制作应用程序

应用程序

六.              结果展示

 

应用(for VB

七.              新建一个工程

八.              加入界面

九.              单击“Project”在菜单下的“references”子菜单,弹出“references-project1.vbp”对话框,选中“ComProgramExaP Library,单击“OK”按钮。

 

十.              制作应用程序

Private Sub Command1_Click()

类接口(不能声明工程)

  ' 声明-< Com 接口 >-变量

  Dim z_comTest As New z_ComProExaCLA

  Dim a, b As Integer

  ' 应用

  a = Text1

  b = Text2

  Text3 = z_comTest.z_MethodAdd(a, b)

End Sub

十一.   结果展示

 

Delphi 编写COM+组件的知识和样例

一、COM组件的基础知识介绍: 1、什么是COM          COM是微软定的一种组件编写的规范,目的是为了实现组件的重用,不管你是用C、DELPHI、VB什么语言写的,只要遵守这种规范就是...
  • zang141588761
  • zang141588761
  • 2016年04月26日 09:19
  • 1218

Unity3D 创建一个简单的2D游戏

http://www.cnblogs.com/sunxun/p/4889462.html 开始研究Unity3d 中的2D游戏。 首先创建出一个项目: 然后创建出一个场景...
  • y13156556538
  • y13156556538
  • 2016年10月02日 12:36
  • 3642

VS2010 简单ATL COM开发(下)

前面一章介绍了怎么创建ATL COM组件及注册,下面简单介绍如何调用COM组件。 1、在MFC中调用有一种很方便的方法,就是通过ClassWizard利用类型库生成包装类,不过有个前提就是com...
  • wangwenjing90
  • wangwenjing90
  • 2013年04月08日 15:11
  • 12919

Delphi中多线程应用的简单范例

  • 2002年12月09日 00:00
  • 8KB
  • 下载

COM口控件comport for Delphi和C++ Builder(支持XE XE2 XE3 XE4 XE5 XE6 XE7 XE8)

  • 2016年03月24日 13:06
  • 717KB
  • 下载

DirectX 9.0 for Delphi 声明档及范例

  • 2006年01月13日 09:51
  • 14.26MB
  • 下载

DirectX 9.0 for Delphi 声明档及范例

  • 2006年01月13日 09:51
  • 14.26MB
  • 下载

用Delphi开发一个简单Windows NT Service的范例

  • 2007年11月24日 18:42
  • 216KB
  • 下载

xamarin for android 简单的button计数器代码范例

  • 2017年12月26日 20:37
  • 29.76MB
  • 下载

Raknet for Delphi 简单封装2

  • 2013年11月11日 14:25
  • 4.58MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:制作简单的 COM 范例 (for Delphi)
举报原因:
原因补充:

(最多只允许输入30个字)