Mutual embedding of variant and stream in Delphi

Conversion of stream and variant types is often required when using COM and COM + in Delphi.

 

1 Procedure Vartostream ( VaR ASTM: tstream; VaR Aovar: olevariant );
2 VaR
3 P: pointer;
4 Begin
5 ASTM: = Tmemorystream. Create;
6 ASTM. Position: =   0 ;
7 P: = Vararraylock (aovar );
8 ASTM. Write (P ^, vararrayhighbound (aovar, 1 ));
9 Vararrayunlock (aovar );
10 End ;
11
12 Procedure Streamtovar ( VaR ASTM: tstream; VaR Aovar: olevariant );
13 VaR
14 P: pointer;
15 Begin
16 Aovar: = Vararraycreate ([ 0 , ASTM. Size -   1 ], Varbyte );
17 P: = Vararraylock (aovar );
18 ASTM. readbuffer (P ^, ASTM. size );
19 Vararrayunlock (aovar );
20 End ;