Delphi Ile Flash Obje Oynatmak

Ekleyen: esentepeli
Dersleri: 2
İlk Dersi

C# derslerinde C# için olanını yapmışlar Delphi nin C# dan ne eksiği var dedim bende Delphi için olanını yaptım :D

Anlatım Delphi 7 ye göre yapılmıştır...

Component Menüsünden "Import ActiveX Control" e tıklayalım açılan pencereden
Shockwave Flash (version 1.0) ı bulun ve seçin pencerenin en altında Install buttonuna tıklayın ve artık bileşenimiz ActiveX sekmesinde hazır halde bizi bekliyor...
Formumuza ...
1 adet activeX sekmesinden ShockwaveFlash1 ekleyelim
1 adette button koyalım

button un OnClick olayına aşağıdaki kodu yazalım ...
kullanımı :

ShockwaveFlash1.Movie :='SWF dosyasının yolu'; ShockwaveFlash1.Base :='swf dosyasının yolu'; ShockwaveFlash1.Play;

eğer exe ile swf dosyası aynı klasörde ise aşağıdaki kod da size yardımcı olablilir..

ShockwaveFlash1.Movie :=ExtractFilePath(Application.ExeName)+'dosya_adı.swf'; ShockwaveFlash1.Base :=ExtractFilePath(Application.ExeName)+'dosya_adı.swf'; ShockwaveFlash1.Play;

kolay gelsin ...