Variant和Tstream这间相互转化

所在单元

Variants

function VarArrayLock(const A: Variant): Pointer;

      VarArrayLock锁定给定的变量数组，并返回一个指针数组中存储的数据。锁定时，一个Variant数组不能被调整和任何VarArrayRedim的调用将失败。一旦锁定，一个Variant数组必须使用VarArrayUnlock后来被解锁。如果由一个给定的变种，是不是一个数组，一个EVariantError将引发异常。

返回的指针数组元素，其中最左边的尺寸先增加VarArrayLock点。换句话说，返回的数组指针的尺寸逆转从变异阵列的尺寸。

VarArrayLock一旦被证实，一个Variant数组有正确的边界和尺寸，可用于直接访问阵列中的数据，从而提高性能。

function VarArrayCreate(const Bounds: array of Integer; AVarType: TVarType): Variant;

    VarArrayCreate创建一个变量数组界给予的范围和元素类型由VARTYPE。bounds参数必须包含一个值的偶数，其中每对值指定一个数组的维数的上限和下限。
    注：Bounds_size参数是边界数组中的最后一个值的索引。这是一个比值的总数少。因此，Bounds_size必须始终是一个奇数。
VARTYPE参数数组，元素类型是一个变种类型代码。这必须是在System单元中定义的常量之一。它不能包括的varArray或varByRef位。元素类型，不能varString或自定义的Variant类型。要创建一个字符串变量数组使用的varOleStr类型代码。如果该元素类型是varVariant的，数组中的元素本身的变种，可以在包含变种阵列。
   如果VarArrayCreate是无法创建阵列，一个EVariantArrayCreateError被提出。

  

// 内存流转成 Variant
Function MemoryStreamToVariant(Const Strm: TStream): Variant;
Var
  Data: PByteArray;
Begin
  Result := VarArrayCreate([0, Strm.Size - 1], varByte);
  Data := VarArrayLock(Result);
  Try
    Strm.Position := 0;
    Strm.ReadBuffer(Data^, Strm.Size);
  Finally
    VarArrayUnlock(Result);
  End;
End;
 // variant转为内存
Procedure VariantToMemoryStream(Const OV: Variant; Var OutStream: TStream);
Var
 Data: PByteArray;
 Size: Integer;
Begin
  OutStream := Nil;
  If Not Assigned(OutStream) Then
    OutStream := TMemoryStream.Create;
  OutStream.Position := 0;
  TMemoryStream(OutStream).Clear;
  Size := VarArrayHighBound(OV, 1) - VarArrayLowBound(OV, 1) + 1;
  Data := VarArrayLock(OV);
  Try
    OutStream.WriteBuffer(Data^, Size);
  Finally
    VarArrayUnlock(OV);
  End;
End;