Delphi убивает WinWord!!! Клич о помощи , При работе с MS Word иногда умирает сам Ворд. HELP

Перейдем сразу к сабжу. Моя программа для перевода .doc в .htm (не в стиле той, что из FAQ, а гораздо сложнее -- с исправлением, дописыванием итд) почти готова. Но! После отработки программы в памяти остается процесс WINWORD.exe . Причем иногда после второго/третьего запуска программы он дублируется, иногда нет. А самое главное, что вроде бы я закрываю все правильно... с виду. Посему это будет первый вопрос -- как завершить работу с Word _правильно_, не отлавливая оставшихся процессов и не добавляя использованную пямть в кучу руками ? Ах да, еще. При попытке работать с документом повторно, не перезапуская программу(мою), выдается сообщение об ошибке "Сервер RPC недоступен". Как бороться с этим?

Но главной проблемой является другое. Иногда Ворд просто перестает нормально работать! Причем в результате работы программы То есть Ворд запускается, документ в нем открывается... и ВСЁ. Более ничего с ним следать невозможно. Все опции меню, тулбаров и пр. серые. Доступна только команда "Открыть"... Лечится исключительно удалением и установкой заново офиса. Причем сам документ в полном порядке, после восстановления офиса его можно опять открыть -- все будет нормально. Вопрос: из-за чего такое может случаться?

Ах да, я использую раннее связывание. Переходить на позднее сейчас уже нереально, да и скорее всего решение есть более простое.

type
    WordApplication: TWordApplication;
    WordDocument: TWordDocument;
 
procedure TForm1.btnConvertClick(Sender: TObject);
var
  fwname, fwReadonly:OleVariant;
  i, max_pars, pColor, redflag:Integer;
  paragraph_current:Paragraph;
BEGIN
  fwname:=pathDoc.text;
  try
    begin
      WordApplication.Connect;
      fwReadonly:=True;
      WordApplication.Documents.Open(fwname,EmptyParam,
        fwReadonly, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam);                                
      WordDocument.ConnectTo(WordApplication.ActiveDocument);
      WordApplication.Visible := False;
        
(Обработка текста документа; записей в документ и вообще каких-либо изменений в нем не делается)
 
      WordDocument.Close;
      WordDocument.Disconnect;
      WordApplication.Quit;            
      WordApplication.Disconnect;
    end;
 
    except
      on E: Exception do begin
        ShowMessage(E.Message+IntToStr(E.HelpContext));
        WordDocument.Close;
        WordApplication.Quit;            
      end;

Спасибо.
Вик.

Сообщение отредактировано: Shadowy - 19.01.05, 23:34

Shadowy, меня насторожили вот эти строки

WordApplication.Documents.Open(fwname,EmptyParam,
        fwReadonly, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam);                                
      WordDocument.ConnectTo(WordApplication.ActiveDocument);

Цитата tomsksmile @ 20.01.05, 03:21

Shadowy, меня насторожили вот эти строки

WordApplication.Documents.Open(fwname,EmptyParam,
        fwReadonly, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam);                                
      WordDocument.ConnectTo(WordApplication.ActiveDocument);

А чем именно они настораживают?

Обычно Word остается в памяти и перестает открываться, если в процессе отладки произошло ненормальное завершение. Надо убить его менеджером задач, и при новом запуске программы и все будет ОК.

Попробуй так (или проверь, как у тебя). Вместо этого:

Цитата Shadowy @ 19.01.05, 23:30

WordDocument.Close;
WordDocument.Disconnect;
WordApplication.Quit;
WordApplication.Disconnect;

напиши

var f: OleVariant;
.........
     f := false;
     WordDocument1.Close(f, EmptyParam,EmptyParam);
     WordApplication.Disconnect;

и в ИО для WordApplication:
AutoConnect = false
AutoQuit = True
ConnectKind = ckNewInstance

для WordDocument:
AutoConnect = false
ConnectKind = ckAttachToInterface

У меня именно так работает, до этого тоже ловил

Цитата

"Сервер RPC недоступен".

Крайне рекомендуется все com-объектам (WordApplication, WordDocument) присваивать nil по выходу. Оные присваивания вместе с Close, Quit, Disconnect лучше размещать в блоке finally. Тогда не будет необходимости дублировать их при нормальном выполнении и catch.