[Zalm]

Здравствуйте. Пытаюсь разбираться с IStorage. Читал в интернете статьи, но все они почти одинаковые. Создавать хранилище и записывать в него файл довольно просто:

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 Stg:IStorage;
 Strm:IStream;
 OS:TOleStream;
 st : TFileStream;
begin
 OleCheck (StgCreateDocfile ('Testing.stg',STGM_READWRITE or STGM_SHARE_EXCLUSIVE,0,Stg));
 OleCheck (Stg.CreateStream ('Testing',STGM_READWRITE or STGM_SHARE_EXCLUSIVE,0,0,Strm));
 OS:=TOleStream.Create (Strm);
 try
  st:=TFileStream.Create('D:\IStorage.exe',fmOpenRead);
  OS.CopyFrom(st,st.Size);
 finally
  OS.free;
  Strm:=nil;
  Stg:=nil;
 end;
end;

А вот как достать из хранилища нужный файл? Это никак не получается, и в интернете примеров найти не удалось Подскажите пожалуйста как это сделать