Delphi提供了一个TOleStream的类，它实现了对IStream接口的封装。通过它，可以使用
向标准的Delphi流中写数据的相同命令。TOleStream是从TStream继承的，在axctrls单元
里定义，用的时候一定让住要use axctrls.
例子：
var
os:TOleStream;
Is:IStream;
stream:TStream;
begin
.............
os:=TOleStream.Create(Is);
os.CopyFrom(stream) 或 os.assign(stream)
...............
end;
