Форум "Delphi"

Паскаль, Делфи

#0 Ru © 21.11.03 15:00:13 - 05.07.06 15:42:22

Моя новая "любимая" тема: WordApplication, WordDocument

У меня есть функцийка:

var
fname,...:OleVariant;
begin
WA.Documents.Open(fname,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  WD.ConnectTo(WA.ActiveDocument);
  replace:=1;
  oldStr:='@1';
  newStr:=somestr;
  WD.Range.Find.Execute(oldStr,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,newStr,replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
...

я её вызываю из другой функцийки. После отработки этой я делаю:
fname:=Data.SD.FileName;
WD.SaveAs(fname);
WD.Close;

При выходе я получаю ошибку:
"Сервер RPC недоступен"

Вообще можно ли делать подобный вызов (теоретически да, а практически)?

#1 Crazy 21.12.03 13:56:42

В конце процедуры укажи wd.disconect

#2 YurikGL © 23.04.05 18:30:11

Для начала, почитай вот здесь

Ошибка "Сервер RPC недоступен" возникает, как правило, тогда, когда не было корректно завершено подключение к Word.
Кстати, помимо #1 Crazy советую каждый раз перед подосоединением освобождать объект и создавать его заново.

wd.free
wd:=TWordApplication.create(from1);

#3 Marser © 23.04.05 18:57:07

>#2 YurikGL © 23.04.05 18:30:11
Автор уже год как нигде не появлялся.

#4 таня 29.06.06 17:44:40

Deep

: спам

#5 ника 05.07.06 15:42:22

Отмодерировал:

Deep

Написать ответ