急求答案 LoadFromStream(const Stream: IUnknown); 如何调用？

[par]

JMAIL 里的 IMessage直接读入邮件只有这个函数，原型是：LoadFromStream(const Stream: IUnknown); safecall;

我现有一个.eml邮件文件需要读入到 IMessage 对象里。
我先定义了一个 s:TMemoryStream;
s:=TMemoryStream.Create;
s.LoadFromFile('c:\\abcd.eml');

但因为IMessage.LoadFromStream(const Stream: IUnknown); 里的参数 Stream 类型为IUnknown 所以那个 s 不能直接代入。需要对 s 进入类型转换处理，那么怎样把s进行类型转换可放入
IMessage1.LoadFromStream();里作参数呢？

[par]

谢谢了。给分

[阿发伯]

var
s: TMemoryStream;
Adapter: TStreamAdapter;
IMessage1: IMessage;
begin
s := TMemoryStream.Create;
Adapter := TStreamAdapter.Create(s, soOwned);
IMessage1.LoadFromStream(Adapter);
end;

[阿发伯]

var
s: TMemoryStream;
Adapter: TStreamAdapter;
// IMessage1: IMessage;
begin
s := TMemoryStream.Create;
s.LoadFromFile('c:\\abcd.eml');
Adapter := TStreamAdapter.Create(s, soOwned);
IMessage1.LoadFromStream(Adapter);
end;