PowerPoint

← →
BOA_KAA (2003-08-26 16:10) [0]

Не подскажите, как подойти к решению такой проблемы.
Нужно запустить файл PowerPoint"а на исполнение (анимация по F5), причем программно. Или хоть копать в какую сторону?

← →
Arm79 (2003-08-26 16:11) [1]

вкладка Servers

← →
Calm (2003-08-26 16:12) [2]

+ запись макросов и внимательное разглядывание получившегося кода

← →
BOA_KAA (2003-08-26 16:17) [3]

> Calm © (26.08.03 16:12) [2]
> + запись макросов и внимательное разглядывание получившегося
> кода

Это особо радует :)

← →
Внук (2003-08-26 16:43) [4]

>>BOA_KAA © (26.08.03 16:17) [3]
Совершенно верно, можно воспользоваться wrapper-ом OLE-объекта с соответствующей вкладки в Delphi. Там все очень просто. Если не понятно - Елманова, Трепалин, Тенцер "Delphi6 и технология COM". Там даже почти готовый пример есть.

← →
BOA_KAA (2003-08-26 17:10) [5]

Всем спасибо, ушел копать

← →
BOA_KAA (2003-08-27 12:07) [6]

После ночи копания возникли следующие вопросы, которые никак пока не удается решить
1. Как законнектиться к презентации с известным именем?

2. Для активной презентации слайды можно запустить
PowerPointApplication1.ActivePresentation.SlideShowSettings.Run;
Но если это делать из оконного приложения, то само окно вылезает поверх слайдов.

3. Если не исполльзовать TPowerPointApplication, а TPowerPointSlide, что мне, собственно и нужно, то вылетаем с ошибкой EOleSysError with message "Класс не зарегистрирован". То же самое получается, если использовать любой другой не Application класс (не TWordApplication, например). Как это понимать?

Извините, если надоел :) Просто книгу от Внук © (26.08.03 16:43) [4] мне сейчас не достать, а сделать надо достаточно оперативно :(

← →
Calm (2003-08-27 12:26) [7]

1. Запустить PowerPOint, начать запись макросов. Открыть нужную презентацию. Внимательно посмотреть на получившийся код.

2. Минимизировать свое приложение не получается?

3. Получи библиотеку типов для PowerPoint"а и смотри чего тебе нужно. А что в закладке Servers, я не смотрел, потому как напрямую работать с Com-объектами офиса вполне приемлемо.

← →
BOA_KAA (2003-08-27 12:51) [8]

1. Через получившийся код сделал следующее:
PowerPointApplication1.Presentations.Open(bla-bla-bla);
Но это работает, если PowerPoint уже открыт. Если нет - вываливаемся with message "Presentations (unknown member)".
AutoConnect тоже не помогает. Неужели сначала нужно просто запускать PowerPoint?

2. Оно просто нагло лезет вперед. Справедливости ради замечу, что это происходит на рабочем компьютере. Дома такого не было :(

3. А где ее получить?

← →
BOA_KAA (2003-08-27 12:57) [9]

2ой пункт снимается - это я сам дурак. Описал все это в OnCreate"е. Кнопку было лень положить :(

← →
Calm (2003-08-27 13:19) [10]

> AutoConnect тоже не помогает

Ну не знаю. Рекомендую все-таки напрямую работать с Com-объектом.

2. Поробуй сделать PowerPoint активным. Каким-то сообщением можно.

3. Файл MSPPT9.OLB. В Delphi меню Components\Install или чего-то в этом роде.

Успехов.

← →
BOA_KAA (2003-08-27 13:30) [11]

> Calm © (27.08.03 13:19) [10]

АААААААААААГРОМНОЕ ТЕБЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!! Практически со всем разобрался, остались одни штришки, с которыми справлюсь сам.

← →
Calm (2003-08-27 14:03) [12]

:-)

PowerPoint Найти похожие ветки