本示例演示建立一个 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; |