Как открыть в Delphi compound файл?

← →
o_viz2000 © (2003-03-19 12:42) [0]

Может кто помочь с проблемой чтения в Delphi compound файла
(Технология Active Document)

← →
Alex Konshin © (2003-03-20 08:35) [1]

Это то, что structured storage или это уже что-то другое?

← →
most (2003-03-20 09:23) [2]

Можно сделать так:
function TMD_FILE.OpenFile(FileName: WideString): HRESULT;
begin
Result:=StgIsStorageFile(PWideChar(FileName));
if Result=S_OK then
Result:=StgOpenStorage(PWideChar(FileName), nil, STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil, 0, FRootStorage)
else
Exit;
end;

где FRootStorage: IStorage

Смотри здесь:
http://www.rmarshsj.fsnet.co.uk/other.html
там - "CompDocs for Delphi"
или здесь -
http://dagpages.virtualave.net/md/links.html
Все четко и ясно.

Как открыть в Delphi compound файл? Найти похожие ветки