PHP DM Gate v0.9 » Powerpoint OleContainer <span class="vd">[Delphi, Windows]</span>

Alexey (27.07.09 14:14) [0]

Подскажите, пожалуйста, как работать с powerpoint в delphi через Olecontainer?

Мне нужно, чтоб на форме запустилась презентация, и слайды сами менялись.

Я уже написал частично код, но у меня появляется только первый слайд в верхнем левом углу контейнера. И не сменяется следующим.

procedure TForm1.N21Click(Sender: TObject);
begin
{ PowerPoint := CreateOleObject('PowerPoint.Application');
PowerPoint.Visible := True;
PowerPoint.Presentations.Open('c:\pr.ppt', False, False, True);
PowerPoint.ActivePresentation.SlideShowSettings.Ru n;
PowerPoint.ActivePresentation.SlideShowWindow.View .Next;}
OleContainer1.Visible := true;
OleContainer1.CreateObjectFromFile('c:\pr.ppt',fal se);
OleContainer1.DoVerb(ovShow);
// OleContainer1.CreateObject('PowerPoint.Show',false );
OleContainer1.Run;
Edit1.Text:=OleContainer1.OleClassName;
ComboBox1.Items:=OleContainer1.ObjectVerbs;
end;

Заранее спасибо!

<Цитата>