VPF::отображать документ word с картинками и таблицами

Savior

Дата 12.10.2009, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.5.2009

Репутация: нет
Всего: нет

Нужно отобразить в Дельфи документ *.doc.
- Если открывать с помощью RichEdit, картинки и таблицы не отображаются.
- Можно отображать с помощью WebBrowser, но там он, во-первых, выдаёт окно типа сохранить или открыть, но это ещё ладно, но после нажатия открыть, он показывает ненужные панели инструментов (линейки и т.д.), к тому же документ можно изменять, что мне не надо, а на WebBrowser readonly не поставишь
- OleContainer показывает часть документа, а как делать полосу прокрутки я так и не понял.
Если это можно сделать как-то с помощью вышеуказанных компонентов (или как-то иначе), буду очень благодарен.

Hexel

Дата 22.10.2009, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 30.10.2007
Где: UA

Репутация: нет
Всего: нет

WebBrowser
Word, кажется, умеет сохранять в ХТМЛ

zhefran

Дата 18.12.2009, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет

Savior,
Я делал так, прятал панели, поверх окна ставил прозрачную форму (она у меня появлялась когда в урл была строчка .doc)!
Что бы не было окна открыть/сохранить пошамань в ИЕ, где-то оно должно отключаться. Все зависти правда от движка. Для ИЕ7 и 8 есть специальный рег файл которые это убирает.
При перемещении мышки по окну делал скролл. Если человек водит по окну, то поменять он ничего не сможет!
Панели можна прятать с помощью VB!

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Teleport

Дата 18.12.2009, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

Через OleContainer делал так:

Код


procedure TForm1.Button1Click(Sender: TObject);

var
  ev: OleVariant;
  i: integer;
begin
  OleContainer1.CreateObjectFromFile(GetCurrentDir() + '\my_file.doc', False);
  OleContainer1.DoVerb(ovShow); { Активизируем OLE объект, причем методом Show }
  ev := 2; { <--- степень защиты OLE - объекта, "только чтение" }

  // Проходим по всем тулбарам связанного с контейнером приложения
  // и устанавливаем всем невидимость, чтоб не мешали ...
  for i:=1 to OleContainer1.OleObject.CommandBars.Count do
      if OleContainer1.OleObject.CommandBars.Item[i].Visible= true then
        OleContainer1.OleObject.CommandBars.Item[i].Visible:=False;

    // Ну, и наконец - устанавливаем желаемый уровень защиты
    OleContainer1.OleObject.Protect(ev);
    OleContainer1.OleObject.ActiveWindow.ActivePane.DisplayRulers := false;

end;

Это сообщение отредактировал(а) Teleport - 18.12.2009, 17:45

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »