Создание потока Istream

[Crucian]

Здравствуйте.
Работал ли кто - нибудь с IStream.

Делаю примерно следующее:
IST:IStream;

CreateStreamOnHGlobal(0, TRUE, IST);
Кидаю в IST картинку...

OST:=TOleStream.Create(IST);
OST.Position:=0;
ST:=TMemoryStream.Create;
ST.LoadFromStream(OST);

после обработки ST...

OST.Free;
ST.Free;
IST._Release;

При последующей попытке создать IStream:

CreateStreamOnHGlobal(0, TRUE, IST);

Вижу сообщение типа нет привилегий ...

Может кто-нибудь сталкивался с подобным.

 

[sinkopa]

попробуйте

uses
ActiveX;
var
IST: IStream;
ST : TMemoryStream;
begin
ST := TMemoryStream.Create;
IST := TStreamAdapter.Create(ST, soReference) as IStream;
// кидаем в IST картинку, обрабатываем ST итд...
//...
end;