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 cntlis 阅读(1091) 评论(1) 推荐(1) 编辑
