Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.028 c