Delphi - 需要 COM/OLE 启动示例

Question

自从我使用 COM/OLE 以来已经过去了 10 年，其中 90% 我都忘记了。现在我们需要创建一个 COM 对象来访问来自 PHP/Python 的一些数据(这是特定的事情，php ODBC 不访问数据库的输出参数 - 就像存储过程输出)，我的想法是我实现了一个最小的具有一种方法的对象，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. 使用类型库编辑器，向接口(interface)添加方法/属性
4. 编写实现代码
5. 选择运行\注册 ActiveX 服务器 - 这将注册 COM 服务器 DLL