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

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

Запретить редактирование Word в TWebbrowser


Кевларвестов Семен ©   (2007-02-16 15:03:00) 

Вот собственно такая проблема: в TWebbrowser отображается документ Word, но его там можно редактировать чего не требуется. Можно как нить избавиться от этого?


Кевларвестов Семен   (2007-02-17 22:23:00) [1]

Было найдено (на www.delphikingdom.ru) подходящее решение в виде вытаскивания интерфейса документа и потом над ним издевательства

var
 FWordDoc: WordDocument;
begin
 FWebBrowser.Navigate(AFileName);
 Application.ProcessMessages;
 FWebBrowser.Document.QueryInterface(WordDocument, FWordDoc);
 if Assigned(FWordDoc) then FWordDoc.Protect(3, EmptyParam, EmptyParam);
end;

Проблема теперь заключается в том, что на тестовом приложении, когда TWebBrowser лежит на форме и документ в него грузится прямой строкой в событии ONCreate все это безобразие отрабатывает замечательно, а в боевых условиях - т.е. в целевом приложении WebBrowser создается в RunTime. он срабатывает только при повторной загрузке документа. Причем такое поведение, несовместимое с нормами социалистичекой морали наблюдается уже неоднократно. Как с этим бороться, товарищи?


Наверх

Титульная страница Поиск, карта сайта Написать письмо