如何使用OLE或者TPowerPointApplication来播放PPT(PPS)格式的文件

[meCAD]

不需要编辑,只需要打开并播放幻灯片即可.能响应上一页下一页的功能即可

[meCAD]

具体的代码怎么写?

[Waiting4you]

用 TOleContainer 把pps文件加载进去可以吗?

[Waiting4you]

不用代码,直接在窗体里放一个TOleContainer,双击它就可以插入pps文件了

[constantine]

用那个webbrowser控件也可以

[meCAD]

to ccrun:
这个需要安装ppt吗?

[day_dreamerabc]

try
{
vPowerPoint = CreateOleObject("PowerPoint.Application");
}
catch(...)
{
ShowMessage("Error...");
}

如果没装ＰＰＴ就会报错

[ljianq]

我也正在使用中，发现TOleContainer加载PowerPoint文档后，
OleContainer的OleObject竟然无效。

[ccrun.com]

OLE专业户来也！！！

用OLE操作PowerPoint

void __fastcall TestPowerPoint(LPSTR lpFileName)
{
Variant vPowerPoint;
try
{
vPowerPoint = CreateOleObject("PowerPoint.Application");
}
catch(...)
{
ShowMessage("Error...");
}
// 使 Powerpoint 界面可视
vPowerPoint.OlePropertySet("Visible", true);
// Powerpoint的版本
String strVersion = vPowerPoint.OlePropertyGet("Version");
// 打开一个剪辑
vPowerPoint.OlePropertyGet("Presentations")
.OleFunction("Open", lpFileName, false, false, true);
// 幻灯片总数
int nSlidesCount = vPowerPoint.OlePropertyGet("ActivePresentation")
.OlePropertyGet("Slides").OlePropertyGet("Count");
// 放映这个剪辑
vPowerPoint.OlePropertyGet("ActivePresentation")
.OlePropertyGet("SlideShowSettings").OleFunction("Run");
// 下一个幻灯片
Variant vSlideShowWin = vPowerPoint.OlePropertyGet("ActivePresentation")
.OlePropertyGet("SlideShowWindow");
vSlideShowWin.OlePropertyGet("View").OleFunction("Next");
// 跳到第二页
vSlideShowWin.OlePropertyGet("View").OleFunction("GoToSlide", 2);
// 返回上一页
vSlideShowWin.OlePropertyGet("View").OleFunction("Previous");
// 跳到最后一页
vSlideShowWin.OlePropertyGet("View").OleFunction("Last");
// 显示当前幻灯名称
String strSlideName = vSlideShowWin.OlePropertyGet("View")
.OlePropertyGet("Slide").OlePropertyGet("Name");
// 运行某个宏
vPowerPoint.OleFunction("Run", "'1.ppt'!Macro1");
// 关闭Powerpoint
vPowerPoint.OleProcedure("Quit");
vPowerPoint = Unassigned;
}