制作简单的 COM 范例 (for Delphi)
2020-03-05 07:05
1236 查看
制作简单的 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()
类接口(不能声明工程) |
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
十一. 结果展示
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- 制作简单的 COM 范例 (for Delphi)
- 保存delphiBBS.com上贴子的简单方法.
- Delphi制作简单下载者(不可自行定制)
- 根据牛腩老师的mono for android 视频,用xamarin for android 写的一个简单程序范例
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像
- Delphi 使用帮助提示(Hint)制作简单即时的系统帮助
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像
- 简单的delphi停泊窗口制作
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像
- 用 QUICKREPORT FOR DELPHI 制作报表(转)
- 一个简单组件的制作过程——delphi教程
- SAP Query Reproting的制作(简单范例-非常好的学习资料)
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像
- InstallShield Express for delphi制作安装程序定制BDE引擎
- InstallShield Express for delphi制作安装程序定制BDE引擎
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像
- [控件][IrDA, USB, bluetooth COM ports]nrComm Lib Pro 8.30 for Delphi & C++ Builder
- Java continue break 制作简单聊天室程序,屏蔽不文明语言,显示每句话聊天时间 for(;;) SimpleDateFormat("yyyy-MM-dd hh:mm:ss") equalsIgnoreCase
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像