比较难的问题：关于从dll返回的SAFEARRAY怎么取得数据？

Question

VB写的activex dll中申明pet类
Public lpet(138, 48) As SinglePublic Property Get gwqArrayPet() As Single()
  gwqArrayPet = lpet
End Property在delphi中调用时可以
var
dilpet:pSafeArray ;  //gwqArrayPet() 属性返回pSafeArray
begin
dilpet:=pet1.gwqArrayPet;  //pet1为引入的activex dll的类的实例
end;
我要得到VB中lpet(138, 48)的数据
接下去怎么写？

Answer 1

定义一个和ｌｐｅｔ结构一样的数组mydilpet
CopyMemory(mydilpet,dilpet,Length(ArrValueYCYX)*SizeOf(Single));