Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 20.04.2011, 12:11   #1
CAID
Новичок
Джуниор
 
Регистрация: 16.01.2011
Сообщений: 1
По умолчанию Delphi. Программа взаимодействия с MS Word выдаёт ошибку "сервер RPC недоступен"

Доброго времени суток
У меня возникла проблема, суть её в том, что запускаю свой проект, он запускается, работает, а после его закрытия выходит вот такая ошибка:"project project1.exe raised exception class EOleException with message "сервер RPC недоступен" .process stoped . use step or run to continue". Помогите советом, возможно, я что-то упустил?!
Вот листинг:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI, OleServer, WordXP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    WordApplication1: TWordApplication;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, nil, '1.doc', nil,nil, SW_SHOWNORMAL);
Application.ProcessMessages;
{Ctrl Key Down}
keybd_Event(VK_CONTROL, 0, 0, 0);
{F Key Down - Drops the menu down}
keybd_Event(ord('F'), 0, 0, 0);
{F Key Up}
keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
{Ctrl Key Up}
keybd_Event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

end.
Благодарю заранее за помощь дельным советом.



___________
1) тема должна адекватно отражать суть задачи или проблемы!

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 20.04.2011 в 12:39.
CAID вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программа выдаёт ошибку brans Microsoft Office Excel 3 24.10.2010 12:55
Как это устранить? ..Win32 Error. Code: 1722. Сервер RPC недоступен viktor982 Общие вопросы Delphi 2 21.11.2009 20:44
Выдаёт ошибку: acos DOMAIN error,полсе нажатия окей,ещё одну ошибку pow OWERFLAW ERROR prikolist Общие вопросы C/C++ 4 10.04.2009 19:27
Сервер RPC недоступен malevich Работа с сетью в Delphi 3 29.02.2008 20:49


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS