Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Просмотр документа Word

Автор: JOHN_PROFF 30.10.2004, 13:34

Необходимо каким либо образом просматривать документы word без возможности редактирования

Автор: Sergey89 30.10.2004, 13:51

Используй OLEConteiner ;-)

Автор: JOHN_PROFF 30.10.2004, 14:05

Sergey89 Пробывал, но отображается только первая страница

Автор: Vorona 30.10.2004, 15:37

JOHN_PROFF
Если без возможности редактирования, то сохраняй их как html и потом загружай в WebBrowser. Правда эти html будут много места занимать

Автор: JOHN_PROFF 30.10.2004, 16:16

Люба Надо именно DOC

Автор: ~FoX~ 30.10.2004, 17:46

JOHN_PROFF
COM, OLE :exclamation

Ищите на форуме!

Автор: JOHN_PROFF 1.11.2004, 10:07

~FoX~ Искал, нету (того что надо)

Автор: ~FoX~ 1.11.2004, 10:26

JOHN_PROFF
Гык.......
Ну в чем проблема то, олеконтейнер отображает только первую страницу?

Код

SizeMode:=smAutoSize;

Автор: JOHN_PROFF 1.11.2004, 11:16

~FoX~ А ты сам пробывал так сделать? :angry:

Автор: ~FoX~ 1.11.2004, 13:13

JOHN_PROFF
Ой.....сори :stena

Эт я не тот документ открывал.
Щаз че нить помыслим.

Автор: JOHN_PROFF 1.11.2004, 14:51

~FoX~ Буду ждать с нетерпением.

Автор: ~FoX~ 2.11.2004, 10:25

Код


OleContainer1.CreateObjectFromFile('c:\1.doc',false);
  if OleContainer1.State <> osEmpty then
     OleContainer1.DoVerb(ovShow);

О как!
Токьлко оне еще и кнопы вордовские показывает, но навреное с этим св-вом DoVerb(ovShow) побаловться надо!

Автор: JOHN_PROFF 2.11.2004, 10:38

~FoX~ Открываю я так

Код


  OleContainer1.LoadFromStream(ms);
  OleContainer1.DoVerb(ovShow);
  for i:=1 to OleContainer1.OleObject.CommandBars.Count do
  if OleContainer1.OleObject.CommandBars.Item[i].Visible then
  OleContainer1.OleObject.CommandBars.Item[i].Visible:=False;

Надо запретить редактирование.

Автор: Medved 2.11.2004, 12:17

Модератор: Постите темы в соответствующий раздел! Буду снижать репутацию!

Автор: JOHN_PROFF 4.11.2004, 09:24

Pegas Sorry :stena

Автор: Artem2005 16.12.2004, 18:39

А вордовские формулы будут так отображаться? smile