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

  • Автор темы Crucian
  • Дата начала
C

Crucian

#1
Здравствуйте.
Работал ли кто - нибудь с 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

Well-known member
17.06.2009
344
4
#2
попробуйте
Код:
uses
ActiveX;
var
IST: IStream;
ST : TMemoryStream;
begin
ST := TMemoryStream.Create;
IST := TStreamAdapter.Create(ST, soReference) as IStream;
// кидаем в IST картинку, обрабатываем ST итд...
//...
end;