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

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

Помогите с запуском WordApplication и RPC сервер не доступен


Wadimka ©   (2012-06-27 08:40:00) 

Ребят такой глюк, не пойму куда копать.
Когда была XP стоял 2007 офис, такого бага небыло
Сейчас 7-ка но офис тож 2007 но какой-то другой релиз.
Вообщем код такой:
WordApp - компонент на форме TWordApplication
with WordApp do
begin
Connect;
ConnectKind:=ckRunningOrNew;
AutoQuit:=false;
         
Options.CheckSpellingAsYouType:=true;//íå ïðîâåðÿåì ñèíòàêñèñ
Options.CheckGrammarAsYouType:=true; //íå ïðîâåðÿåì ãðàììàòèêó
Visible:=true; //âèäíî ëè Word
//=====Открываем файл doc из FileNm
Documents.Open(FileNm,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam);

//========Сохраняем eго как html
  flFormat:=wdFormatHTML;//   ActiveDocument.SaveAs(FileNm,flFormat,EmptyParam,EmptyParam,EmptyParam,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Disconnect;
Quit;//
end;

Запустив программу, выбираю файл doc все нормально, не закрывая программы, выбираю следующий файл doc и вылетает ошибка, RPC сервер недоступен.
После перезагрузки проги, все гут до второго файла.
Кто подскажет как лечить?


Wadimka   (2012-06-27 08:58:00) [1]

Благодарю вопрос решен, видимо мои ручки шаловливые все-таки в код залезли и поменяли местами
Disconnect и Quit;


Наверх

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