CreateOleObject后,调用函数传递字节数组,报错,不支持此接口
坎坷家族 2010-06-09 04:23:44 代码如下:
var
aclass : Variant;
suz : string;
sz : Variant;
begin
aclass := CreateOleObject('Network.Crypto');
sz:=aClass.Encrypt3DES('0123456789','omXqC1jl1U9mUTmJomXqC1jl');
suz := aclass.ToBase64(sz);
Memo1.Lines.Add(suz);
end;
上面aClass.Encrypt3DES返回一个byte数组,sz:array of byte
aclass.ToBase64参数也是一个字节数组,执行到这里后,就报不支持此接口,这是怎么回事?