Flash diproduksi oleh Macromedia dan digunakan untuk shockwave dinamis dan interaktif di Internet. -nya
Keunggulannya adalah ukurannya yang kecil dan dapat dimainkan sambil diunduh, sehingga pengguna tidak perlu menunggu lama.
FLASH dapat digunakan untuk menghasilkan animasi dan menambahkan suara ke halaman web. Dengan cara ini Anda dapat menghasilkan grafik dan antarmuka multimedia sambil menjaga ukuran file tetap kecil.
Meskipun FLASH tidak dapat diprogram seperti suatu bahasa, FLASH dapat menggunakan pernyataan bawaannya yang dikombinasikan dengan
Dengan javaSCRipE, Anda juga dapat membuat beranda yang sangat interaktif.
Fitur lain dari FLASH adalah plug-in PLUG-IN harus diinstal agar dapat diterima oleh browser! Tentu saja ini juga
Hindari perbedaan antar browser dan perlakukan secara setara!
Tapi tahukah Anda? Di Delphi, Anda dapat langsung membuka animasi flash dan mengontrolnya untuk memutar dan menghentikannya. Kamu masih
Bisakah saya mendapatkan jumlah total framenya? Tahukah Anda cara mencapainya? tolong ikuti saya.
Pilih "Shockwave" di Komponen|Impor Kontrol ActiveX... di delphi
Flash (Versi 1.0)" dan klik Instal, jendela instalasi akan muncul.
Jika Anda ingin menambahkannya ke paket yang sudah ada, di kotak dialog "ke dalam paket yang ada".
Pilih jalur yang ingin Anda instal di jendela "Nama file:" dan klik "OK"; kotak dialog konfirmasi akan muncul.
Tanyakan kepada Anda "Paket dclusr50.bpl akan dibangun kembali. Lanjutkan?", klik "Ya";
Cukup klik "install" dan plug-in akan diinstal.
Jika Anda ingin menambahkannya ke paket baru, klik "File" di kotak dialog "ke dalam paket baru".
nama:" jendela, pilih jalur yang ingin Anda instal, dan buat paket baru, jika diberi nama tes, dan klik "OK"; itu
Tanya anda “Paket test.bpl akan dibuat. Lanjutkan?”, klik “Yes”. Pesan di jendela pop-up
Klik "install" dan plug-in diinstal.
Saat ini, Anda akan menemukan kontrol baru di bawah ActiveX di bilah kontrol bernama ShockwaveFlash.
Klik dan masukkan ke dalam formulir, masukkan kontrol OpenDialog dan panel ke dalam formulir, dan masukkan
Empat tombol, atribut keterangannya masing-masing diberi nama "Openfile", "Play", "Stop", "Close".
panel1, properti Align dari ShockwaveFlash masing-masing adalah Alleft dan AlClient;
Tulis kode berikut di acara OnClick Button:
Prosedur TForm1.Button1Click(Pengirim: TObject);
mulai
jika OpenDialog1.Jalankan lalu
ShockwaveFlash1.Film:=
OpenDialog1.Nama File;
akhir;
procedure TForm1.Button2Click(Pengirim: TObject);
mulai
ShockwaveFlash1.Mainkan;
akhir;
prosedur TForm1.Button3Click(Pengirim: TObject);
mulai
ShockwaveFlash1.StopPlay;
akhir;
prosedur TForm1.Button4Click(Pengirim: TObject);
mulai
ShockwaveFlash1.GratisSaat Dirilis;
menutup;
akhir;
Anda bisa mendapatkan jumlah total frame dari gambar flash yang dibuka, menambahkan label pada panel1, dan menambahkan label pada form1
Tulis kode berikut di acara OnClick
prosedur TForm1.FormCreate(Pengirim: TObject);
mulai
label1.caption:=shockwaveflash.totalframes;
akhir;
Anda juga dapat mengontrol gambar flash yang dibuka untuk mulai diputar dari bingkai itu.
Tambahkan tombol dan kontrol Edit pada panel1,
Tambahkan kode berikut ke acara OnClick tombol.
jika ShockwaveFlash1.playing kemudian
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Mainkan;
Isi bingkai yang ingin Anda lompati dalam pengeditan dan klik tombol untuk menerapkan fungsi ini.
Bagaimana, coba saja, efeknya lumayan bagus kan?