Сервер 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]

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

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

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

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

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

>> 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/.
Может что-то дельное подскажете. Надо всего-то распечатать форматированный текст (вордовский).

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