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

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

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

Weare ©   (2005-10-07 15:27:00) 

Подскажите, плз. При повторном запуске появляется данной сообщение. Где я чего-то не высвободил.
Делаю

   WordApplication1.Connect;
   WordApplication1.Documents.Open(FileName,EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam);
   WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
...
  WordApplication1.Quit;

и при повторном выполнении выдает ошибку на вторую строчку

---

Weare   (2005-10-07 20:59:00) [1]

>to sniknik ©   (07.10.05 20:22) [12]

ОГРОМНОЕ СПАСИБО, ЗАРАБОТАЛО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Не понятно только почему после WordApplication1.Quit необходимо делать WordApplication1.Disconnect, но именно из-за этой последней строчки у меня и не отрабатывало.

Вы sniknik очень часто дельные советы даете, вот хотел бы Вас еще об форматированном тексте спросить, помогите плз. Вот адрес ветки
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1128610440&n=1.
Может что-то дельное подскажете. Надо всего-то распечатать форматированный текст (вордовский).

---

sniknik   (2005-10-07 20:22:00) [2]

>> to sniknik ©   (07.10.05 18:17) [8]
> попробовал, все тоже самое

>> sniknik ©   (07.10.05 18:17) [8]
>>если есть Connect то должен быть и Disconnect гдето.

> Дисконнект не помогает, сам сталкивался с этим.
чудеса. а у меня почемуто с первого раза "завелось"
procedure TForm1.Button1Click(Sender: TObject);
var
 FileName: OleVariant;
begin
 FileName:= 'D:\Äîêóìåíò.rtf';

 WordApplication1.Connect;
 WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
 WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
 WordDocument1.Disconnect;
 WordApplication1.Quit;
 WordApplication1.Disconnect;

 Label1.Caption:= IntToStr(StrToIntDef(Label1.Caption, 0)+1);
end;

на Old не обращайте внимания, это от 2003 офиса. ну и естественно я не разбирался что там нужно не нужно, просто ляпнул в код дистконекты...

до 4х досчитало... дальше не стал

---

Lexer   (2005-10-07 18:30:00) [3]

Я использую компоненту TWorldApplication c закладки Servers, и эта компонента не поддерживает Unassigned

Зато OleVariant поддерживает.

---

Lexer   (2005-10-07 18:24:00) [4]

> sniknik ©   (07.10.05 18:17) [8]
>если есть Connect то должен быть и Disconnect гдето.

Дисконнект не помогает, сам сталкивался с этим.

---

Weare   (2005-10-07 18:22:00) [5]

> to sniknik ©   (07.10.05 18:17) [8]

попробовал, все тоже самое

---

sniknik   (2005-10-07 18:17:00) [6]

если есть Connect то должен быть и Disconnect гдето.

---

Weare   (2005-10-07 18:06:00) [7]

Я использую компоненту TWorldApplication c закладки Servers, и эта компонента не поддерживает Unassigned

---

Lexer   (2005-10-07 18:04:00) [8]

При этом подходе [4] можешь заменить
WordApplication1.Documents.Open(FileName,EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam);
на
WordApplication1.Documents.Open(FileName);

---

Lexer   (2005-10-07 18:03:00) [9]

var
WordApplication1: OleVariant;
begin
 WordApplication1 := CreateOleObject('Word.Application');
 .........
 .........
 WordApplication1 := Unassigned;
end;

---

Weare   (2005-10-07 18:03:00) [10]

Причем тут вирусы, тут где-то ресурсы не высвобождаются

---

Клеенка (Бумага)   (2005-10-07 17:54:00) [11]

Попробуй "подлечить" компьютер.
clrav.exe тебе в помощь...

---

Weare   (2005-10-07 17:51:00) [12]

Что точно никто не знает???

---

Weare   (2005-10-07 17:48:00) [13]

Неужели ни у кого подобной проблемы не было??? Да-аа, видно я один такой "грамотный"

---

Наверх