ActiveX Automation Object

本示例演示建立一个 COM 组件，功能是对输入参数进行 MD5 加密。

1、新建工程，类型：“ActiveX Library”，工程名称“TC”。

2、新建对象，“Automation Object”，名称为“Encode”。

3、IEncode 的类型库“Type Library”中添加方法，名称为“MD5Encode”。

4、“Parameters”页填入方法参数：

Name	Type	Modifier	说明
Param1	BSTR	[in]	输入参数，欲加密字符串
Param2	VARIANT *	[out, retval]	输出值，加密后的字符串

5、填入代码

function TEncode.MD5Encode(const Param1: WideString): OleVariant; begin     result:=md5.RivestStr(Param1); end;