祝福，2010年D版的朋友们幸福快乐！(有源码)

[kwer]

type TFunc = class
public
  //...
  //Variant 转换成 Stream 的函数
  class function VariantToMemStream ( const v :olevariant ): TMemoryStream; 
  //Stream 转换成 Variant  的函数
  class function MemStreamToVariant ( Stream : TStream ): OleVariant;

  //...
end;


//Variant 转换成 Stream 的函数
class function TFunc.VariantToMemStream ( const v :olevariant ): TMemoryStream;
var 
  p : pointer; 
  Stream : TMemoryStream;
begin 
  Stream := TMemoryStream.Create;
  Stream.Position := 0; 
  Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound(v, 1) + 1; 
  p := VarArrayLock (v); 
  Stream.Write (p^, Stream.Size); 
  VarArrayUnlock (v); 
  Stream.Position := 0; 
  Result := Stream;
end; 

//Stream 转换成 Variant  的函数
class function TFunc.MemStreamToVariant ( Stream : TStream ): OleVariant;
var 
  p : pointer; 
  v : OleVariant;
begin 
  v := VarArrayCreate ([0, Stream.Size - 1], varByte); 
  p := VarArrayLock (v); 
  Stream.Position := 0; 
  Stream.Read (p^, Stream.Size); 
  VarArrayUnlock (v); 
  Result := v;
end;

[hjkto]

新年快乐

[beifangke]

新年快乐

[chhrsas]

JF

[lhy]

快乐

[fa_ge]

元旦快乐，谢谢楼主

[dinoalex]

jf

[morris88]

[僵哥]

楼主的这个转换太简单了，只能对部分简单的值做处理。还原是一个问题。http://topic.csdn.net/u/20081223/14/cce4727d-0d36-4215-9d41-3f8e42e00372.html第14、15楼贴的代码比这个要处理得全面一些。

[dd_zhouqian]

新年快乐

[YeBinYe]

元旦快乐！

[hemiya]

[kfcoffe]

jf

[CACACACACA]

哈 同乐！

JF

[支持中文哦]

祝福大家的包包鼓鼓的了

[亮剑_]

散分不忘贴代码，好同志

[dinoalex]

jf

[ye091032]

jf 迎接2010

[lonelyriver]

赶在年末接分 happy new year

[iqyely]

元旦快乐

[worddelphi]

新年要更好！