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

 
user image
more 12 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-
user image
more 12 years ago

mas_kofa

di pallete servers (delphi7) ada empat komponen PowerPoint tinggal pake sesuai yg kamu inginkan....
user image
more 12 years ago

RoenZ

wadu ko malahan tambah bingung yah mas kofa ??? bisa dicontohin nga syntax bagaimana ??? Thx yo
user image
more 12 years ago

mas_kofa

http://www.torry.net/vcl/system/appscommunications/tpowpnt.zip
user image
more 12 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;
user image
more 9 years ago

slvr

@mas_kofa: http://www.torry.net/vcl/system/appscommunications/tpowpnt.zip
maap, bisa bantu cara install komponennya?
user image
more 9 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
user image
more 9 years ago

n3o_cybertech

kalo pake versi > delphi 7 sptnya harus buat new->package lalu add unit2nya baru deh diinstall deh..
more ...
  • Pages:
  • 1
Share to

Random Topic

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