在Midas做的delphi COM组件中，如何传递结构在VC中调用

[kukafei]

Equip103DefStruct = packed record
Name: array[0..29] of Shortint;
Unit_: array[0..9] of Shortint;
OnMean: array[0..29] of Shortint;
OffMean: array[0..14] of Shortint;
Format: Smallint;
Attrib: Shortint;
Equip103DefStruct_DUMMY: SYSINT;
end;


function TPPofis.GetEquipDetail(m_sStationID, m_bEquipID,
m_GroupID: Integer): OleVariant;
var
V: ARRAY OF ^Equip103DefStruct;
// V : ^Equip103DefStruct;
//rec : OleVariant;
begin
SetLength(V,20) ;
StrCopy(@(V[0].Name),'hello');
StrCopy(@(V[0].Unit_),'unit1');
StrCopy(@(V[0].OnMean),'test');
StrCopy(@(V[1].Name),'array1');
StrCopy(@(V[1].Unit_),'arrayunit1');
StrCopy(@(V[1].OnMean),'arrayt1');
Result := V;
end;
我想把这个结构数组指针传递给VC++调用，请问在C++中如何调用

[天限天空]

BYTE *

[xiaohedou]

同意!