[Zalm]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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;

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