嵌入分析和总结.docxVIP

紧急求救：Delphi7 紧急求救：Delphi7 如何实现在自己开发的窗体中播放PPT（Office2007）？ 因为是用的 因为是用的 Office2007，Delphi 自带 Servers 组件中的 PowerPointApplication 已经不能使用了，目前我采用了两种方法去实现，但都不能彻底解决问题，敬请各位大虾帮忙出 出主意！ 方法一：使用 WebBrowser 控件，WebBrowser.Navigate(sample.pps); 目前无法解决的问题是：右边会出现滚动条，点击滚动条可以翻到上一页或下一页。 方法二：使用 方法二：使用 OleContainer 控件，代码如下： OleCon := TOleContainerEx.Create(nil); OleCon.Parent := Panel1; OleCon.Parent := Panel1; OleCon.Align := OleCon.Align := alClient; OleCon.allowactivedoc := true; OleCon.allowactivedoc := true; OleCon.AllowInPlace := True; OleCon.AllowInPlace := True; OleCon.AutoActivate := aaGetFocus; OleCon.AutoActivate := aaGetFocus; OleCon.Anchors := OleCon.Anchors := [akTop,akLeft,akRight,akBottom]; OleCon.Visible := OleCon.Visible := True; OleCon.SizeMode := smClip; OleCon.SizeMode := smClip; OleCon.CreateObjectFromFile(sample.pps,False); OleCon.CreateObjectFromFile(sample.pps,False); OleCon.Run; OleCon.Run; OleCon.SetFocus; OleCon.SetFocus; 目前无法解决的问题是：只能显示PPT 的第一页，没办法自动播放或点击播放PPT 内容。 问题很棘手，也很急，只需要能打开 问题很棘手，也很急，只需要能打开PPT 并播放就行，不需要做其它控制，麻烦各位帮帮手，谢谢！ VBA 是这样的： appppt.ActivePresentation.SlideShowSettings .ShowType = ppShowTypeSpeaker .ShowType = ppShowTypeSpeaker .LoopUntilStopped .LoopUntilStopped = msoFalse .ShowWithNarration .ShowWithNarration = msoTrue .ShowWithAnimation .ShowWithAnimation = msoTrue .RangeType .RangeType = ppShowAll .AdvanceMode = ppSlideShowUseSlideTimings .AdvanceMode = ppSlideShowUseSlideTimings .PointerColor.RGB = RGB(Red:=255, Green:=0, .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) .Run .Run end end with 搞了半天，发现 搞了半天，发现OleContainer 只能显示第一页哈。无法操作。不知道这样可以不可以。 把 POWPOINT 嵌入到你的panel 上面，相当于用户直接在你的程序里面玩PowPoint。这样的话，他想怎么用就怎么用，完全就是在用Powpoint,和你程序无关联。 嵌入代码如下： 楼主的问题你可以这样解决:Delphi/Pascal code 楼主的问题你可以这样解决: Delphi/Pascal code procedure TForm1.Button1Click(Sender: TObject); var olePpt: OLEVariant; begin Delphi/Pascal code? procedure TForm1.button1onclick(sender:tobject); var p:olevariant; s:string; h:hwnd; begin P := createoleobject(Powerpoint.Application); P.v