Arsip: Buat program untuk menampilkan slide show file ppt

 
user image
more 9 years ago

h4de5

dear all ada tidak cara untuk buat form untuk menampilkan slide show file ppt mohon bantuannya
user image
more 9 years ago

aandrie77

Banyak yang dibahas kok di om google... coba pake code seperti ini ....
Begin try PowerPointApp := CreateOleObject('PowerPoint.Application') except Exit; end; PowerPointApp.Presentations.open(c:\myfile.ppt, False, False, false); ppl := PowerPointApp.Presentations.Item(1).Slides.Count; // Check number of pages in this one there are 3 pages PowerPointApp.Presentations.Item(1).SlideShowSettings.Run; //Then I set a timer to check if its the last page timer1.enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var pl, fld : string; begin pl := PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name; if pl = 'Slide' + inttostr(ppl) then begin timer1.enabled := false; timer2.interval := 5000; timer2.enabled := true; end; end; procedure TForm1.ppTimer2Timer(Sender: TObject); begin try PowerPointApp.Quit; except end; timer3.enabled := true; // loop back and check what to display next end;
user image
more 9 years ago

xgooooogle

@aandrie77: Banyak yang dibahas kok di om google... coba pake code seperti ini ....
Begin try PowerPointApp := CreateOleObject('PowerPoint.Application') except Exit; end; PowerPointApp.Presentations.open(c:\myfile.ppt, False, False, false); ppl := PowerPointApp.Presentations.Item(1).Slides.Count; // Check number of pages in this one there are 3 pages PowerPointApp.Presentations.Item(1).SlideShowSettings.Run; //Then I set a timer to check if its the last page timer1.enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var pl, fld : string; begin pl := PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name; if pl = 'Slide' + inttostr(ppl) then begin timer1.enabled := false; timer2.interval := 5000; timer2.enabled := true; end; end; procedure TForm1.ppTimer2Timer(Sender: TObject); begin try PowerPointApp.Quit; except end; timer3.enabled := true; // loop back and check what to display next end;
thanks ya om....
user image
more 9 years ago

slvr

@aandrie77: Banyak yang dibahas kok di om google... coba pake code seperti ini ....
Begin try PowerPointApp := CreateOleObject('PowerPoint.Application') except Exit; end; PowerPointApp.Presentations.open(c:\myfile.ppt, False, False, false); ppl := PowerPointApp.Presentations.Item(1).Slides.Count; // Check number of pages in this one there are 3 pages PowerPointApp.Presentations.Item(1).SlideShowSettings.Run; //Then I set a timer to check if its the last page timer1.enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var pl, fld : string; begin pl := PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name; if pl = 'Slide' + inttostr(ppl) then begin timer1.enabled := false; timer2.interval := 5000; timer2.enabled := true; end; end; procedure TForm1.ppTimer2Timer(Sender: TObject); begin try PowerPointApp.Quit; except end; timer3.enabled := true; // loop back and check what to display next end;
apakah code diatas menggunakan olecontainer? untuk code di atas, perlu komponen apa saja? apa bisa menampilkan ke secondary monitor? mohon bantuannya.. maaf kalo ternyata sudah ada thread untuk topik yg saya tanyakan, tlg bagi linknya saya cari lewat fasilitas search di forum, dengan keyword "slideshow powerpoint in delphi secondary monitor", dapat hasilnya 4366 items.. terima kasih
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com