Delphi中variant 和 Stream 的互換
摘要：DELPHI中使用COM,COM+时候经常需要用到STREAM和VARIANT类型的转换1procedureVarToStream(varAStm:TStream;varAOvar:Olevariant);2var3p:Pointer;4begin5AStm:=TMemoryStream.Create;6AStm.Position:=0;7p:=VarArrayLock(AOvar);8AStm.Write(p^,VarArrayHighBound(AOvar,1));9VarArrayUnlock(AOvar);10end;1112procedureStreamToVar(varAStm:T
阅读全文
posted @ 2011-03-07 11:22
