Delphi中variant 和 Stream 的互換
时间：2011-03-07 来源：cntlis
DELPHI中使用COM,COM+时候经常需要用到STREAM和VARIANT类型的转换
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;
相关阅读 更多 +
排行榜 更多 +
