Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=584309 Thu, 20 Jan 2005 15:13:39 +0000 Delphi убивает WinWord!!! Клич о помощи https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=584309 Guderian Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=584239 Thu, 20 Jan 2005 14:29:43 +0000 Delphi убивает WinWord!!! Клич о помощи https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=584239
Цитата Shadowy @

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 недоступен".
]]> Dynamic Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=584023 Thu, 20 Jan 2005 12:20:04 +0000 Delphi убивает WinWord!!! Клич о помощи https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=584023 puncher Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=583667 Thu, 20 Jan 2005 08:45:32 +0000 Delphi убивает WinWord!!! Клич о помощи https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=583667 Цитата tomsksmile @
Shadowy, меня насторожили вот эти строки
    WordApplication.Documents.Open(fwname,EmptyParam,
            fwReadonly, EmptyParam, EmptyParam, EmptyParam,
            EmptyParam, EmptyParam, EmptyParam, EmptyParam,
            EmptyParam, EmptyParam, EmptyParam, EmptyParam,
            EmptyParam);                                
          WordDocument.ConnectTo(WordApplication.ActiveDocument);

А чем именно они настораживают?]]> Shadowy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=583400 Thu, 20 Jan 2005 03:21:57 +0000 Delphi убивает WinWord!!! Клич о помощи https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=583400
    WordApplication.Documents.Open(fwname,EmptyParam,
            fwReadonly, EmptyParam, EmptyParam, EmptyParam,
            EmptyParam, EmptyParam, EmptyParam, EmptyParam,
            EmptyParam, EmptyParam, EmptyParam, EmptyParam,
            EmptyParam);                                
          WordDocument.ConnectTo(WordApplication.ActiveDocument);
]]> tomsksmile Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=583338 Wed, 19 Jan 2005 23:30:51 +0000 Delphi убивает WinWord!!! Клич о помощи https://forum.sources.ru/index.php?showtopic=80108&view=findpost&p=583338 правильно_, не отлавливая оставшихся процессов :blink: и не добавляя использованную пямть в кучу руками :D :blink: ? Ах да, еще. При попытке работать с документом повторно, не перезапуская программу(мою), выдается сообщение об ошибке "Сервер RPC недоступен". Как бороться с этим?

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

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

    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 Delphi: Общие вопросы