Minggu, 31 Agustus 2008

Menggunakan Active Form

Kita akan mempraktekan bagaimana membangun aplikasi yang dijalankan dihalaman web browser. Untuk itu kita menggunakan ActiveForm. Di Delphi, sebuah ActiveForm adalah ActiveX control yang diencapsul di form Delphi.

Membuat form ActiveX
Didalam delphi fasilitas untuk membangun ActiveForm sudah disediakan oleh Delphi hanya tinggal menggunakannya saja.
Untuk membuat ActiveX baru (ActiveForm), klik menu File|New, dan pilih tab ActiveX kemudian double klik ikon Active Form. Karena ini hanya contoh biarkan dalam kondisi default, kemudian klik OK.


Kode Baris
Didalam ActiveForm yang sudah terbentuk, tambahkan komponen Edit dan Button.

Isikan kode berikut pada event OnClick pada Button:

procedure TActiveFormX.Button1Click(Sender: TObject);
begin
ShowMessage(Edit1.text);
end;

Web Deploy
Untuk menggunakan ActiveForm kedalam halaman web, kita harus menggunakan Web Deploy option. Untuk membangun ActiveForm, Web Deploy option harus disetting dengan tepat, dan project harus dikompile. Pilih Project| Web Deployment options untuk membuka kotak dialog Web Deploy option.

Jika kita meletakkan file HTML (HTML dir) dan file OCX (Target dir) didirectory yang sama, maka Target URL harus diisi dengan “./”.
Sekarang pilih Project|Web Deploy untuk mengkompile. Hasil dari kompilasi tersebut akan membentuk dua buah file yaitu file halaman HTML yang berisi refrensi dari ActiveX dan file OCX. File tersebut harus dibuat dan ditransfer ke Web Server.

Menjalankan

Akhirnya kita bisa melihat ActiveForm yang kita bangun berjalan atau tidak. Buka web browser (mis. Internet Expoler) dan isi Address dengan letak file HTML di web server.


Catatan: Supaya berjalan pada browser, Internet Explorer properties harus disetting default. Karena user harus mengijinkan menjalankan ActiveX.

Read more...