![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Как работать с Powerpoint через OLEDelphi , Технологии , OLE Automation MSOfficeАвтор: http://www.swissdelphicenter.ch uses comobj; procedure TForm1.Button2Click(Sender: TObject); var PowerPointApp: OLEVariant; begin try PowerPointApp := CreateOleObject('PowerPoint.Application'); except ShowMessage('Error...'); Exit; end; // Make Powerpoint visible PowerPointApp.Visible := True; // Show powerpoint version ShowMessage(Format('Powerpoint version: %s', [PowerPointApp.Version])); // Open a presentation PowerPointApp.Presentations.Open('c:\MyPresentation.ppt', False, False, True); // Show number of slides ShowMessage(Format('%s slides.', [PowerPointApp.ActivePresentation.Slides.Count])); // Run the presentation PowerPointApp.ActivePresentation.SlideShowSettings.Run; // Go to next slide PowerPointApp.ActivePresentation.SlideShowWindow.View.Next; // Go to slide 2 PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(2); // Go to previous slide PowerPointApp.ActivePresentation.SlideShowWindow.View.Previous; // Go to last slide PowerPointApp.ActivePresentation.SlideShowWindow.View.Last; // Show current slide name ShowMessage(Format('Current slidename: %s', [PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name])); // Close Powerpoint PowerPointApp.Quit; PowerPointApp := UnAssigned; end; Код, предоставленный в примере, является примером использования OLE (Object Linking and Embedding) для взаимодействия с Microsoft PowerPoint из приложения Delphi. Вот разбивка того, что код делает:
Некоторые примечания:
Альтернативное решение - использовать третьестороннюю библиотеку, которая предоставляет более robust и удобный способ взаимодействия с PowerPoint из Delphi. Некоторые примеры включают:
Статья описывает способ работы с Microsoft PowerPoint через объектно-ориентированный связующий интерфейс (OLE) в Delphi, демонстрируя пример кода на языке Pascal для взаимодействия с приложением PowerPoint. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |