Thread: [ASK] Fungsi untuk memanggil SLIDE dari Power Point

Arsip: [ASK] Fungsi untuk memanggil SLIDE dari Power Point

more 15 years ago

RoenZ

Hi para master2 Delphi se-Indonesia...... :wink: Saya mau tanya gimana cara manggil power point dari Delphi ??? Misalnya : Saya ada 3 button : 1. Button 1 --> Membuka Slide 1 2. Button 2 --> Membuka Silde 2 3. Button 3 --> Membuka Slide 3 Oh ya sebelumnya pakai komponen apa yah buat manggil power point tersebut ??? Thx -RoenZ-

more 15 years ago

mas_kofa

di pallete servers (delphi7) ada empat komponen PowerPoint tinggal pake sesuai yg kamu inginkan....

more 15 years ago

RoenZ

wadu ko malahan tambah bingung yah mas kofa ??? bisa dicontohin nga syntax bagaimana ??? Thx yo

more 15 years ago

mas_kofa

http://www.torry.net/vcl/system/appscommunications/tpowpnt.zip

more 15 years ago

mas_kofa

ato 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;

more 11 years ago

slvr

@mas_kofa: http://www.torry.net/vcl/system/appscommunications/tpowpnt.zip

maap, bisa bantu cara install komponennya?

more 11 years ago

madi

@slvr: [quote:c7dfec9478="mas_kofa"]http://www.torry.net/vcl/system/appscommunications/tpowpnt.zip[/quote:c7dfec9478] maap, bisa bantu cara install komponennya?

ladalah, install lom bisa to.. http://delphi.about.com/od/vclusing/ss/installpasvcl_2.htm