| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

nickhilo ©   (2006-12-20 20:46:00) 

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

---

nickhilo   (2006-12-20 20:53:00) [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;

---

Наверх