Delphi-OleContainer-PowerPoint-AutoPlay
||
下午好：-)，在我的应用程序中，我使用OleContainer来查看Microsoft Powerpoint的演示文稿。
我用来加载和运行演示文件的代码：
with oleContainer do begin
Parent := mediaPanel; Left := 0; Top := 0;
Width := mediaPanel.Width; Height := mediaPanel.Height;
CreateObjectFromFile(\'C:\\Users\\Nanik\\Desktop\\Present.ppt\', false);
Iconic := false; Visible := true; Run;
end;
没有找到相关结果
已邀请:
2 个回复
绵扇寸访
procedure TForm2.Button3Click(Sender: TObject); const ppShowTypeSpeaker = 1; ppShowTypeInWindow = 1000; SHOW_FILE = \'C:\\Users\\jcastillo\\Documents\\test.pps\'; var oPPTApp: OleVariant; oPPTPres: OleVariant; screenClasshWnd: HWND; pWidth, pHeight: Integer; function PixelsToPoints(Val: Integer; Vert: Boolean): Integer; begin if Vert then Result := Trunc(Val * 0.75) else Result := Trunc(Val * 0.75); end; begin oPPTApp := CreateOleObject(\'PowerPoint.Application\'); oPPTPres := oPPTApp.Presentations.Open(SHOW_FILE, True, True, False); pWidth := PixelsToPoints(Panel1.Width, False); pHeight := PixelsToPoints(Panel1.Height, True); oPPTPres.SlideShowSettings.ShowType := ppShowTypeSpeaker; oPPTPres.SlideShowSettings.Run.Width := pWidth; oPPTPres.SlideShowSettings.Run.Height := pHeight; screenClasshWnd := FindWindow(\'screenClass\', nil); Windows.SetParent(screenClasshWnd, Panel1.Handle); end;属性中获取演示文稿窗口的Handle，但这对我来说不起作用，因此需要FindWindow调用。捕暑句簿姓
是of4ѭ的方法，它不是特定于任何种类的OLE对象（例如，PowerPoint演示文稿或位图图像）的方法。文档指出“调用运行以确保服务器应用程序正在运行。” 。 您需要调用特定于对象的方法以对其进行操作，请参见《 PowerPoint对象模型参考》。样例代码：procedure TForm1.Button1Click(Sender: TObject); const ppAdvanceOnTime = $00000002; var P: OleVariant; S: OleVariant; i: Integer; begin P := OleContainer1.OleObject.Application.Presentations.Item(1); // below block would not be necessary for a slide show (i.e. a *.pps) for i := 1 to P.Slides.Count do begin P.Slides.Item(i).SlideShowTransition.AdvanceOnTime := True; P.Slides.Item(i).SlideShowTransition.AdvanceTime := 1; end; S := P.SlideShowSettings; S.AdvanceMode := ppAdvanceOnTime; S.Run; end;