Чтение
Чтение данных из хранилища производится так же, как и чтение из стандартного потока Delphi. Все, что для этого требуется, это создать объект TOleStream с использованием возвращаемого функцией IStorage.OpenStorage значения stm:
procedure TForm1.Button2Click (Sender: TObject); var Stg:IStorage; Strm:IStream; OS:TOleStream; S:String; begin OleCheck (StgOpenStorage ('Testing.stg',nil,STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil,0,Stg)); OleCheck (Stg.OpenStream ('Testing',0,STGM_READWRITE or STGM_SHARE_EXCLUSIVE,0,Strm)); OS:=TOleStream.Create (Strm); try SetLength (S,OS.Size); OS.ReadBuffer (Pointer (S)^,OS.Size); Edit1.Text:=S; finally OS.free; Strm:=nil; Stg:=nil; end; end;После выполнения этого кода мы увидим в Edit1ранее записанное нами: "This is the test".
