Flash files displays with dephi 2007

iseng-iseng mau coba-coba untuk membuat animasi dalam form dengan delphi, akhirnya pilihan jatuh pada file flash (swf), oprek sana oprek sini nggak nemu nemu juga komponen(VCL) yang pas, ribet-puyeng tiba-tiba jadi ingat gimana kalau coba import component yang ada diwindows siapa tahu bisa hehehehe, akhirnya coba-coba ternyata berhasil dan ternyata nggak begitu sulit juga hehhehe oke kita lanjutkan lagi deh, tapi maaf lo nggak seberapa lengkap tapi cukup mewakili lah untuk artikel ini

langkah-langkah nya yang pertama kita coba import ActiveX untuk Flash, untuk referensi yang lebih lengkap teman-teman dapat merujuk ke alamat ini adapun activeX yang perlu kita import nanti nya adalah shockwaveflash dan pallete sesuai pilihan teman-teman, sebetulnya ada beberapa VCL yang memang telah disediakan untuk menangani flash ini teman-teman mungkin pernah mendengar yang namanya smartFlash yang dapat di unduh disini (kebetulan nemu link hehehe), tapi untuk kali ini kita coba pakai ActiveX yang memang sudah disediakan ya.

Setelah prosedur import activeX diatas kita kerjakan selanjutnya kita tinggal uji coba jalankan file flash(swf) diform delphi, coba kita buat project kecil kemudian dari form yang sekarang aktif, coba kita geser(drag) komponen tshockwaveflash ke dalam form kemudian lanjutkan dengan mengatur properties sesuai selera, sedangkan untuk menampilkan file flash kita coba dengan pengkodean sederhana, coba kita tambahkan kembali sebuah speedbutton kemudian dalam even onclick silahkan isi dengan kode berikut :

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
      ShockwaveFlash1.Movie:=Application.ExeName+'namafileflash.swf'; // sebagai contoh ya
      ShockwaveFlash1.Play;
end;

Sederhana bukan , mudah-mudahan trik sederhana ini dapat memberikan tambahan referensi teman-teman dan mohon maaf kalau artikel ini masih jauh dari sempurna.

Import Excell to Access with Delphi

Hari ini dapat telpon dari teman yang kebetulan berada dirantau, kebetulan sahabat saya ini sedang kesulitan dalam mengimport file excell yang dimilikinya ke database lain, pikir-pikir iseng mau coba bikin program import dengan menggunakan delphi.

Sebetulnya tidak terlalu sulit untuk membuat program sederhana ini, penulis mencoba menggunakan koneksi yang menggunakan ODBC sebagai penghubung yang diterapkan melalui metode "ADO nya Delphi".

langkah-langkah yang perlu diterapkan hanyanya membuat 2 buah AdoConnection, yang pertama adalah AdoConnection yang digunakan untuk menghubungkan ke file Excell sedangkan AdoConnection yang kedua digunakan untuk menghubungkan ke database yang kita inginkan, semisal penulis coba dengan menggunakan Access sebagai media untuk koneksi ke dua ini.

selanjutnya kita buat Dua buah AdoQuery, untuk query pertama dihubungkan dengan AdoConnection yang pertama , sedangkan AdoQuery yang kedua dihubungkan ke AdoConnection yang ke dua.

selanjutnya jangan lupa kita tinggal membuat sintax program untuk menjalankan dan mengimport data dari Excell ke database tujuan tersebut, sebagai contoh penulis membuat sintax sederhana sebagai berikut :

with AdoQuery1 do
begin
disablecontrols;close;sql.clear;
sql.add('select * from [Sheet1$] ORDER BY F9');
open;enablecontrols;
end;

with AdoQuery2 do
begin
disablecontrols;close;sql.clear;
sql.add('select * from tabel1 order by Id');
open;enablecontrols;
end;

with AdoQuery1 do
begin
first;
while not eof do
begin
with AdoQuery2 do
begin
Append;
Fields[4].AsString:=trim(AdoQuery1.Fields[4].AsString);
Post;
end;
next;
end;

end;


semoga dengan trik singkat ini dapat membantu teman-teman yang membutuhkan , terimakasih