Saat ini, ketika Flash begitu populer, pernahkah Anda berpikir untuk menambahkan beberapa bagian Flash ke program Anda untuk dipamerkan? Mari kita coba. Premisnya adalah Anda harus menginstal perangkat lunak pemutaran flash (IE Anda dapat menampilkan flash). Alasan mengapa IE dapat menampilkan flash adalah karena kontrol swflash.ocx diinstal, disediakan oleh Macromedia, Inc., kami juga menggunakan itu Ya, win98 berada di bawah $WindowsSystemMacromedFlash, dan win2k berada di bawah $WinntSystem32MacromedFlash. Kontrol ActiveX umum di Windows, dan tentu saja Delphi juga mendukungnya. Buka Delphi Anda dan mari kita mulai. Pilih menu Component --> Import ActiveX Control, pilih file SWFlash.OCX, dan install. Setelah selesai, kontrol TShockwaveFlash akan muncul di panel ActiveX. Ini adalah enkapsulasi delphi dari SWFlash.OCX untuk memutar flash. Seret satu ke atas dan letakkan di formulir, tentukan atribut Filmnya sebagai d: est.SWF, tekan F9, dan semuanya OK. Pemrograman Delphi sangat mudah dan nyaman.
Properti utama TShockwaveFlash, metode, peristiwa
milik:
ReadyState - Keadaan saat membaca file flash. 0=Memuat, 1=Tidak diinisialisasi, 2=Dimuat, 3=Interaktif, 4=Selesai.
TotalFrames - Total frame, hanya dapat diakses ketika ReadyState = 4.
FrameNum - Bingkai yang sedang diputar.
Memutar - Memutar atau menjeda flash.
Kualitas - Menentukan kualitas rendering saat ini, 0=Rendah, 1=Tinggi, 2=RendahOtomatis, 3=TinggiOtomatis
ScaleMode - Mode skala, 0=Tampilkan Semua, 1= Tanpa Batas, 2 = ExactFit.
AlignMode - Mode perataan, Kiri=+1, Kanan=+2, Atas=+4, Bawah=+8.
BackgroundColor - warna latar belakang, merah*65536+hijau*256+biru, -1 adalah warna default.
Loop - Apakah akan mengulang.
Film - menentukan jalur file flash yang akan diputar, yang dapat berupa URL.
metode:
Play() - Mulai memutar animasi.
Stop() - Menghentikan animasi.
Back() - Memutar frame animasi sebelumnya.
Forward() - Memutar frame animasi berikutnya.
Rewind() - Memutar frame animasi pertama.
SetZoomRect(int kiri, int atas, int kanan, int bawah) - Mengatur area zoom
Zoom(int persen) - Memperbesar berdasarkan persentase.
Pan(int x, int y, int mode) - Memperbesar panel pemutaran. Modusnya adalah: 0 berdasarkan jumlah piksel, 1 berdasarkan persentase jendela
peristiwa:
OnPRogress(int persen) - dipicu saat membaca flash.
OnReadyStateChange(int state) - Diaktifkan saat status berubah. statusnya bisa 0=Memuat, 1=Tidak diinisialisasi, 2=Dimuat, 3=Interaktif, 4=Selesai.
Untuk bantuan khusus, silakan lihat http://www.macromedia.com/support/flash/
Ini adalah karya saya yang iseng, mohon koreksi jika ada kekurangan. Siapapun yang berminat dipersilakan berdiskusi bersama ([email protected]).