Форум: "Базы";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Вниз

Сервер RPC недоступен   Найти похожие ветки 

← →
Weare   (2005-10-07 15:27) [0]

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

   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 17:48) [1]

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

---

← →
Weare   (2005-10-07 17:51) [2]

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

---

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

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

---

← →
Lexer ©   (2005-10-07 18:03) [4]

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

---

← →
Weare   (2005-10-07 18:03) [5]

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

---

← →
Lexer ©   (2005-10-07 18:04) [6]

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

---

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

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

---

← →
sniknik ©   (2005-10-07 18:17) [8]

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

---

← →
Weare   (2005-10-07 18:22) [9]

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

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

---

← →
Lexer ©   (2005-10-07 18:24) [10]

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

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

---

← →
Lexer ©   (2005-10-07 18:30) [11]

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

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

---

← →
sniknik ©   (2005-10-07 20:22) [12]

>> 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х досчитало... дальше не стал

---

← →
Weare   (2005-10-07 20:59) [13]

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

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

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

Вы sniknik очень часто дельные советы даете, вот хотел бы Вас еще об форматированном тексте спросить, помогите плз. Вот адрес ветки
http://delphimaster.net/view/3-1128610440/.
Может что-то дельное подскажете. Надо всего-то распечатать форматированный текст (вордовский).

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.5 MB
Время: 0.047 c