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

TWebBrowser и *.doc   Найти похожие ветки 

← →
Opryshok   (2005-05-16 20:55) [0]

Привет!

Использую TWebBrowser для просмотра файлов (документов jpg, bmp, pdf, doc, rtf) а програме. WebBrowser открывает в своем окне все эти документы. Мне нужно чтоб они были Read-Only.
Но doc и rtf редактируются когда откррываются word-ом в WebBrowser.
Пробовал запросить в WebBrowser.Documentа интерфейс _Document, но   у него пропертя ReadOnly только для чтения :-)

Подскажите кто сталкивался как реализовать просмотр доков в бровзере.
Спасибо

---

← →
Opryshok   (2005-05-17 11:53) [1]

Сам спросил, сам ответил

var
 lDoc: _Document;
 v1, v2: OleVariant;
begin
 WebBrowser1.Document.QueryInterface(IID__Document, lDoc);
 v2 := EmptyParam;
 v1 := EmptyParam;
 if lDoc <> nil then
 begin
   lDoc.Protect(wdAllowOnlyComments or wdAllowOnlyRevisions, v1, v2);
   lDoc.Saved := True;
 end;
end;


---

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

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



Память: 0.45 MB
Время: 0.026 c