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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 20.04.2011, 13:11   #1
CAID
Новичок
 
Регистрация: 16.01.2011
Сообщений: 1
Репутация: 10
По умолчанию 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 в 13:39.
CAID вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


04:14.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.