com-хранилища:подпольная файловая система.

← →
nickhilo © (2006-12-20 20:46) [0]

Доброе время суток!
Подскажите,пожалуйста,инфу по доставанию из файла хранилища файлов.Просто строку string достаю,а вот уже rtf не могу...

← →
nickhilo © (2006-12-20 20:53) [1]

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;//А если файл rtf???
finally
OS.free;
Strm:=nil;
Stg:=nil;
end;
end;

com-хранилища:подпольная файловая система. Найти похожие ветки