Передача структур через OleVariant

[Victor]

День добрый. Вопрос такой. Каким образом, в Делфи возможно передать клиенту из метода COM некую структуру, используя OleVariant в качестве out параметра?
Заранее спасибо.

 

[Barmutik]

Попробуй

Type
TMyRec = Record
String1, String2 : String;
Integer1 : Integer;
End;

MyOleVariant := VarArrayCreate ([0, 3], VarVariant);
MyOleVariant [0] := MyRec.String1;
MyOleVariant[1] := MyRec.String2;
MyOleVariant[2] := MyRec.Integer1;

Ну и можеш передавать ..

Так же прочитай просто VarArrayLock, VarArrayUnlock, VarArrayReDim.. ну и в ту степь ...