Delphi 流与变体之间的转换

  • 函数类型: 自定义函数

  • 函数说明:

流与变体之间的转换


  • 代码如下:



 function StreamToVariant(Stream: TStream): Variant;
var
  p: Pointer;
begin
  Result := VarArrayCreate([0, Stream.Size - 1], varByte);
  p := VarArrayLock(Result);
  try
    Stream.position := 0;
    Stream.Read(p^, Stream.Size)
  finally
    VarArrayUnlock(Result);
  end;
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678