Delphi - 需要COM/OLE启动示例

Question

自从我使用COM/OLE以来已经过了10年,我忘记了90%.现在我们需要创建一个COM对象来访问PHP/Python中的一些数据(这是特定的事情,php ODBC不能访问DataBase的输出参数 - 比如存储过程输出),而我的想法是我实现了最小化一个方法的对象,PHP/Python可以调用它来获取输出...

procedure ExecSQL(Config, IP, Port, DBName, SQL, IDFieldName : variant) : output
output is [IDValue, ErrorMsg, HResult] 

请帮我一个很小的例子,如何启动它？我只需要这个,但我对调色板中的许多ActiveX/COM感到困惑.我需要用什么来制作一个简单的COM DLL,以及如何用这个DLL注册我的COM对象？

谢谢:dd

Answer 1

1. 选择File\New\ActiveX Library - 这将创建ActiveX DLL项目
2. 选择File\New\Automation Object - 这将创建类型库和实现
3. 使用类型库编辑器,向接口添加方法/属性
4. 编写实现代码
5. 选择Run\Register ActiveX Server - 这将注册COM服务器DLL

Answer 2

对于Delphi中的COM相关应用程序,此链接非常有用http://www.techvanguards.com/