delphi 调用打开powerpoint

johnshen0211 2003-05-07 08:56:40

请问在delphi中，如何通过程序实现打开powerpoint文件。

...全文

155 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

d0347 2003-05-25

打赏
举报

学习

888888888888 2003-05-11

打赏
举报

关注

tfp 2003-05-10

打赏
举报

那如何响应PPT的事件呢

是要捕获系统的消息,还是怎么去做???

qxj 2003-05-07

打赏
举报

法一:用OLE
法二:用SERVER上的控件
uses comobj
var
pptA: TPowerPointApplication;
pptP: TPowerPointPresentation;
ssSet: SlideShowSettings;
ssWin: SlideShowWindow;

procedure TForm1.FormCreate(Sender: TObject);
begin
pptA := TPowerPointApplication.Create(self);
pptA.Visible := msoTrue;
PPtP.ConnectTo(pptA.Presentations.Open('h:\php.pps', msoFalse, msoFalse, msoTrue));
ssSet := PPtP.SlideShowSettings;
ssSet.LoopUntilStopped := msoFalse;
ssSet.ShowType := ppShowTypeSpeaker;
ssSet.Run;
ssWin := PPtP.SlideShowWindow;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
sswin.View.next;//下一页
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
pptA.Disconnect;
pptA.Quit;
if assigned(pptA) then pptA.Free;
except
showmessage('PowerPoint has already closed!');
end;
end;

1.使用WPS软件的二次开发实现word对PDF转换，具体转换程序及参考内容放在下面的链接里。程序下载链接：http://download.csdn.net/download/lqw_6/9982719其他excel及ppt方法可根据二次开发手册添加。WPS二次开发帮助文档下载（需中文环境才能看到）：程序实现运行另需要现安装好WPS软件：先在电脑中安装WPS软件（我安装的是最新版的2016专业版...

DELPHI控制PowerPoint 有一大批PPT文件，想对每一个PPT文件采集其中一页，转换成Jpg或Gif文件，这样可以通过图像浏览软件迅速找到想要的PPT文件，也可以做成相册之类的集中直观地浏览这些PPT文件。大概是这个想法。所以查了一些资料，用DELPHI控制PowerPoint，打开某个PPT文件，然后用程序自动提取其中的一页，转换成图像文件。发现还是比较容易的

作者:原创方案: 将PowerPoint程序创建到自己程序的一个面板A中来确定PPT播放区以外区域的大小,主要是为移动并隐藏这些不必要的区域做准备移动PowerPoint程序主窗口并调整其大小,以便将PowerPoint主窗口的边框,菜单,工具条,滚动条,状态条等不必要的区域隐藏到面板A的可视范围以外这样在面板A的范围内就只剩下PPT播放区了,就好像PPT是在自己的程序内容播放一样,如下

有些时候在使用delphi的WebBrowser控件编写显示PPT(Microsoft PowerPoint)文档的时候（假设你欲显示的PPT已经设置成自动进行幻灯片切换），会出现WebBrowser只播放了前两页就停在那里不动了的情况。这时如果你用鼠标点一下WebBrowser右面的滚动条下方的箭头，会继续播放，如果你把PPT设置成了循环播放，也会顺利播放下去。这个问题产生的原因尚不知晓，也许是

Delphi_Doc or Wps文档转PDF 来源：http://anbangs.blog.163.com/blog/static/32182782009764348248/ 1、简单调用 function doc2pdf(strdoc,strpdf :string) :boolean; var wpsapp,wpsdoc :OleVariant; begin