OleContainer.LoadFromStream()出错！急急急！(100分)

var
mystream:TMemoryStream;
begin
mystream:=TMemoryStream.Create;
OleContainer1.SaveToStream(mystream);
OleContainer2.LoadFromStream(mystream);
mystream.free;
end;
提示说 read stream error！
这有什么错误吗，我是想知道LoadFromStream()怎么用，所有这么写的。本是把数据库中blob数据放入
olecontainer中。

Olecontainer2.loadFromstream(mystream,blob);
看一下,行不行

谢谢 m_f_j
通不过编译

mystream.position :=0

有问题再跟我联系！ cwg_delphi@263.net

用Mystream.LoadFromFile()将文件保存到流中！
用Mystream.SavetoFile()将流保存到文件中！

给你一个读OleVariant内容到TMemoryStream的函数！
function OleVariantToMemoryStream(OV: OleVariant): TMemoryStream;
var
Data: PByteArray;
Size: integer;
begin
Result := TMemoryStream.Create;
try
Size := VarArrayHighBound(OV, 1) - VarArrayLowBound
(OV, 1) + 1;
Data := VarArrayLock(OV);
try
Result.Position := 0;
Result.WriteBuffer(Data^, Size);
finally
VarArrayUnlock(OV);
end;
except
Result.Free;
Result := nil;
end;
end;

多人接受答案了。