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/