Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WordApplication 
V
    Опции темы
Exai1e
Дата 5.6.2008, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 30
Здрасти, возникла такая проблема:

Есть код:
Код

procedure CreateDoc;
begin
  if WordApp = nil then begin
    WordApp := TWordApplication.Create(Application);
    WordApp.ConnectKind := ckNewInstance;
    WordApp.Connect;
    WordApp.AutoQuit := true;
  end;

  DocFileName := ExePatch + 'templates\testdoc.doc';
  ImageFileName := ExePatch + 'templates\_image\_1.bmp';
end;

procedure OpenDoc;
begin
  WordApp.Documents.OpenOld(DocFileName,EmptyParam,EmptyParam,EmptyParam,
                            EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                            EmptyParam,EmptyParam);
  WordApp.Selection.InlineShapes.AddPicture(ImageFileName,EmptyParam,EmptyParam,EmptyParam);
end;

procedure DestroyDoc;
begin
  if WordApp <> nil then
  begin
    WordApp.Disconnect;
    WordApp.Free;
  end;
end;


Использую:
Код

procedure TfrmDayWeekStat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DestroyDoc;
end;

procedure TfrmDayWeekStat.ToolButton2Click(Sender: TObject);
var
  i: Integer;
begin
  Chart1.SaveToBitmapFile(ExePatch + 'templates\_image\_1.bmp');
  CreateDoc;
  OpenDoc;
end;


Проблема в том что документ открывается только после второго нажатия на кнопку, а при закрытии формы не уничтожается, вылезает ошибка "Сервер RPC недоступен"

мб, создавать и уничтожать документ надо както иначе ?
Спасибо
зы. с wordapplication не сталкивался толком, вроде статейку прочел, но походу делать чтото не так...


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Exai1e
Дата 5.6.2008, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 30
А если создавать так
Код

procedure CreateDoc;
begin
  WordApp := TWordApplication.Create(Application);
  WordApp.ConnectKind := ckNewInstance;
  WordApp.Connect;
  WordApp.AutoQuit := true;

  DocFileName := ExePatch + 'templates\testdoc.doc';
  ImageFileName := ExePatch + 'templates\_image\_1.bmp';
end;


то документ открывается после первого клика, но если запущен процесс winword
но при закрытии приложения всеравно выдается ошибка "Сервер RPC недоступен", да и процессы winword в диспетчере накапливаются...


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Exai1e
Дата 5.6.2008, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 30
Вопрос решен, всем спасибо.


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Albinos_x
Дата 5.6.2008, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
поиск... хотя  тут тема вверху раздела закреплена и далеко идти не надо: http://forum.vingrad.ru/forum/topic-84634.html


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1446 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.