Работаю с компонентами закладки Servis

WordApplication1 и WordDocument1

пытаюсь определить открыт или закрыт Word, так

Код

... if not VarIsEmpty(WordApplication1.Application) then ...

но эта строка всегда возвращяет - True

Может, кто знает, как правильно определять запущен Word или нет?

Заранее спасибо за помощь!

попробуй так:

Код

function WordRunning:Boolean; var   temp: Variant; begin   try     temp := GetActiveOleObject('Word.Application');     Result := true;   except     Result := false;  end; end;

в каком модуле лежит GetActiveOleObject();

помоему в ComObj если нет то нажми хэлп по данной ф-ции и посмотри в описании из какого она модуля.

Аналогичная проблема...

Цитата(Albinos_x @ 24.4.2005, 14:49)

Аналогичная проблема...

всмысле? опять получается что Ворд запущен?! может он у тя в процессах висит?!

Я был не прав определяет... Но не совсем так как мне нужно...

обнаружил следующие косяки
1. Word открыт. Запускаем программу. Документ в ней не создаём. закрываем программу. Закрывается до этого открытый документ + ещё и сохраняется
2. Word закрыт. Запускаем программу. создаём в ней документ. Закрываем документ (Word). Программа выдаёт ошибку.

код

Код

procedure TForm1.SpeedButton1Click(Sender: TObject); var SaveChanges, templ:olevariant;     s: string; begin // если Word не закрыт   if WordRunning  then      begin      // определяем название и место сохранения документа      s:=ExtractFilePath(Application.ExeName)+'Temp\отчёт '+ DateToStr(DateTimePicker1.Date);    // если такой файл уже существует      while (FileExists(s+'.doc')) do         begin     // добавляем к названию 'Copy'         s:=s+'Copy';         end;      Templ:=s+'.doc';      // если не сохранен, то      if WordApplication1.ActiveDocument.Saved=false then           // сохраняем         WordApplication1.ActiveDocument.SaveAs(Templ, EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam);      SaveChanges:=false;      // Закрываем документ      //WordApplication1.ActiveDocument.Close(SaveChanges,EmptyParam,EmptyParam);      end; Application.Terminate;

Это сообщение отредактировал(а) Albinos_x - 24.4.2005, 15:49

несовсем понятно что написано..

Цитата(Albinos_x @ 24.4.2005, 16:46)

выдаёт ошибку.

Какую ошибку?

ругается, говорит что операция недоступна.
думаю что WordApplication1 не разъединяется с вордом при его закрытии и пытается его закрыть...

Это сообщение отредактировал(а) Albinos_x - 24.4.2005, 17:21

Кто-нибудь знает как это побороть?

Вот еще один способ:

Код

procedure TForm1.Button1Click(Sender: TObject); var   Unknown: IUnknown;   Result: HResult; begin   Result := GetActiveObject(ProgIDToClassID('Word.Application'), nil, Unknown);   if Result = MK_E_UNAVAILABLE then     ShowMessage('Закрыт')   else     ShowMessage('Открыт') end;

Можно и так
if FindWindow('MsoStdCompMgr',nil)<>0 then caption:='On' else caption:='Off';

Цитата

GetActiveObject(ProgIDToClassID('Word.Application'), nil, Unknown);

подскажите в каком модуле она лежит, а то делфя не понимает её...

А через WordApplication1 можно как-нибудь определить, потому что предлогаемые варианты определяют не только мою сессию, но и другие.

Цитата

обнаружил следующие косяки 1. Word открыт. Запускаем программу. Документ в ней не создаём. закрываем программу. Закрывается до этого открытый документ + ещё и сохраняется 2. Word закрыт. Запускаем программу. создаём в ней документ. Закрываем документ (Word). Программа выдаёт ошибку.

1. определять мне надо ворд (документ) , который создался программой
2. если пользователь закрыл ворд (документ), который создался программой, то предотвратить попытку его закрытия при уничтожении WordApplication1
Добавлено @ 16:46
прошу прощения, если немного неправильно выразился при постановки вопроса

Цитата

подскажите в каком модуле она лежит, а то делфя не понимает её

ActiveX

Это сообщение отредактировал(а) <Spawn> - 25.4.2005, 19:05

спасибо,
но это - всё равно не решает мою проблему полностью...

Решил проблему....

Код

... var   Form1: TForm1;   CreaDok: OleVariant; ... CreaDok:=WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ... procedure TForm1.SpeedButton1Click(Sender: TObject); var SaveChanges, templ:olevariant;     s: string; begin WordApplication1.AutoQuit:=false; try // определяю закрытие документа   if not VarIsEmpty(CreaDok) then      begin      s:=ExtractFilePath(Application.ExeName)+'Temp\Отчёт '+ DateToStr(DateTimePicker1.Date);      while (FileExists(s+'.doc')) do         begin         s:=s+' Copy';         end;      Templ:=s+'.doc';      // если не сохранён      if WordApplication1.ActiveDocument.Saved=false then           // сохраняю         WordApplication1.ActiveDocument.SaveAs(Templ, EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam);      SaveChanges:=false;      // закрываю документ      WordApplication1.ActiveDocument.Close(SaveChanges,EmptyParam,EmptyParam);      // закрываю ворд      WordApplication1.Application.Quit(SaveChanges,EmptyParam,EmptyParam);      end; finally  // если произошла ошибка  // а она произойдёт, если пользователь документ закрыл    WordApplication1.AutoConnect:=false;    WordApplication1.Destroy;  Application.Terminate;  end; end; ...

Только в Form1Close(), эта штука не работает. Пришлось BorderIcons отключить полностью

А зачем определять, запущен Word или нет?
Вообще реккомендую закладкой servers не пользоваться. Лучше брать только интерфейсы и создавать объекты в run-time - гораздо меньше происходит неожиданных вещей да и из кода очевидно, что происходит.

Значит ты неправильно его закрываешь
нужно так

Код

Var   Excel:variant; begin ...   Excel.Quit;   Excel := Unassigned;

у меня всё работает

Цитата

Значит ты неправильно его закрываешь нужно так

дело в том что в моём случае ошибка возникает ещё до закрытия и вообще при попытке оперирования с этим документом в программе

Albinos_x
1. тебе Fantasist дельный совет дал.
2. Конструкцией try except end - не стоит пренебригать.
3. А если у пользователя 150 документов в Word-е?

PS: Не забудь создавать(если у тебя её нет) папку "Temp" - Word - за тебя енто не сделает...

Вот код:

Код

uses ComObj; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); const wdFormatDocument = $00000000; var Word,Doc:IDispatch;     pn,s:string;     i:integer; begin  try   Word:=GetActiveOleObject('Word.Application');  except   Word:=nil;  end;  if Word<>nil then   begin    try     Doc:=Variant(Word).ActiveDocument;    except     Doc:=nil;    end;   end;  pn:=ExtractFilePath(ParamStr(0))+'Temp\Отчёт '+DateToStr(Now);  while Doc<>nil do   begin    i:=0;    while (FileExists(pn+' - '+IntToStr(i)+'.doc')) do inc(i);    s:=pn+' - '+IntToStr(i)+'.doc';    try     if Variant(Doc).Saved=false then      Variant(Doc).SaveAs(s,wdFormatDocument,EmptyParam,EmptyParam,EmptyParam,EmptyParam,                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);    except    end;    try     Variant(Doc).Close(false,EmptyParam,EmptyParam);     Doc:=Variant(Word).ActiveDocument;    except     Doc:=nil;    end;   end;  if Word<>nil then   begin    try     Variant(Word).Application.Quit(false,EmptyParam,EmptyParam);    except    end;   end; end;

PS2: При запуске кода из под Delphi - могут выдаваться ошибки - но не при обычном запуске проги.

Особо... не отлаживал - так что теоретически... могут быть ошибки в коде.

И самое главное... так как ентот код ты хочеш засунуть в OnClose - не забудь выдавать для пользователя какое-нить сообщение... типо "Подождите пожалуйста"...

Удачи.

Это сообщение отредактировал(а) Girder - 7.5.2005, 13:25

Girder у нас же описания интерфейсов есть - зачем нам с Dispatcheм мучаться.

Я бы переписал это так:

Код

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var     unk:IUnknown;     Word:_Application;     Doc:_Document;     pn,s:string;     i:integer; begin  GetActiveObject(CLASS_WordApplication,0,unk);  if unk=nil then exit;  unk.QueryInterface(_Application,Word);  if Word<>nil then  begin    try      Doc:=Word.ActiveDocument;      pn:=ExtractFilePath(ParamStr(0))+'Temp\Îò÷¸ò '+DateToStr(Now);      while Doc<>nil do      begin        i:=0;        while (FileExists(pn+' - '+IntToStr(i)+'.doc')) do inc(i);        s:=pn+' - '+IntToStr(i)+'.doc';        try         if Doc.Saved=false then           Doc.SaveAs(s,wdFormatDocument,EmptyParam,EmptyParam,EmptyParam,EmptyParam,                     EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);         Doc.Close(false,EmptyParam,EmptyParam);        except        end;        Doc:=Word.ActiveDocument;      end;    except    end;    try      Word.Quit(false,EmptyParam,EmptyParam);    except    end;  end; end;

Обработка ошибок, конечно, выглядит не очень, но пойдет.
Добавлено @ 19:08

Цитата(Girder @ 7.5.2005, 10:22)

3. А если у пользователя 150 документов в Word-е?

Тогда компутер у него сдохнет еще до запуска этой программы.

Это сообщение отредактировал(а) Fantasist - 7.5.2005, 19:08

Цитата

2. Конструкцией try except end - не стоит пренебригать.

не пренебрегаю... (см. мой вариант)

Цитата

3. А если у пользователя 150 документов в Word-е?

Проверял на 5 одновременно открытых документах - закрывается тот который нужен. (в моём варианте)

Цитата

PS: Не забудь создавать(если у тебя её нет) папку "Temp" - Word - за тебя енто не сделает...

и такое есть...

Цитата

PS2: При запуске кода из под Delphi - могут выдаваться ошибки - но не при обычном запуске проги.

знаю, но всё равно, спасибо за предупреждение...
----------------------------------------------

Цитата

Тогда компутер у него сдохнет еще до запуска этой программы.

PS: ваши варианты пока не проверял...

Цитата

Вообще рекомендую закладкой servers не пользоваться. Лучше брать только интерфейсы и создавать объекты в run-time - гораздо меньше происходит неожиданных вещей да и из кода очевидно, что происходит.

Когда это понял, уже было поздно переделывать прогу...На тот момент уже около 5 тыс. строк... Даже с коментариями очень сложно осуществлять навигацию... Сейчас прежде чем, чего-то туда вставить, приходится сначала делать оттельно и уже рабочий вариант кода туда вставлять и даже с таким подходом возникают иногда проблеммы (сегодня неожиданно одна процедура, в которую вставлял новую функцию, стала выдавать переполнение стека...)

Спасибо всем за помощь!!!

Цитата

PS: ваши варианты пока не проверял...

Предложенные варианты хорошие, но работают не совсем так как я хотел...

моё конечное решение:

Код

... var   Form1: TForm1;   OpenDoc:boolean = false; ... // при создании  документа WordDocument1.ConnectTo(WordApplication1.ActiveDocument);  OpenDoc:=true; ... procedure TForm1.WordDocument1Close(Sender: TObject); begin OpenDoc:=false; WordDocument1.Disconnect; WordApplication1.Disconnect; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var s :string;     SaveChanges, templ : olevariant; begin if OpenDoc then    begin    s:=ExtractFilePath(Application.ExeName)+'Temp\отчёт '+ DateToStr(DateTimePicker1.Date);    while (FileExists(s+'.doc')) do         begin         Application.ProcessMessages;         s:=s+' Copy';         end;        Templ:=s+'.doc';      // если не сохранен, то      if WordApplication1.ActiveDocument.Saved=false then           // сохраняем           begin          WordApplication1.ActiveDocument.SaveAs(Templ, EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam);           end;      SaveChanges:=false;      WordApplication1.ActiveDocument.Close(SaveChanges,EmptyParam,EmptyParam);    end; end; ...

работает на ура и никаких ошибок не возникает...

еще раз всем спасибо за участие и дельные советы

Это сообщение отредактировал(а) Albinos_x - 19.7.2005, 17:38

При раннем связывании всё работает быстрее и проверка типов и ошибок происходит уже на стадии компилирования
Хотя при позднем связывании тоже есть свои прелести

Обнаружил, что при некоторых настройках винды, событие FormClose почему-то не обрабатывается... Поэтому приведённый выше код запихнул в событие FormDestroy(Sender: TObject). Тогда проблем не возникнет...