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;
Nerden
İş/Hobiler
Lakap
Salı Ara. 08, 2009 5:06 pm