Seperti kita ketahui bersama, teknologi asp merupakan teknologi utama untuk program web kita yang berbasis platform internet/intranet, pada aplikasi asp umumnya kita menggunakan dua bahasa scripting: vbscripts dan javascripts. Namun, bahasa scripting adalah bahasa yang tidak dikompilasi, dan program web yang dikembangkan olehnya memiliki masalah yang melekat dalam hal keamanan, efisiensi eksekusi, dan skalabilitas badan eksekusi, dan kemudian menggunakan skrip untuk Bahasa tersebut berfungsi sebagai kode koneksi untuk memanggil badan eksekusi asp untuk melakukan akses. Dalam hal ini, sejak teknologi ASP diperkenalkan oleh Microsoft, kita umumnya menggunakan VB atau VC, lalu bagaimana programmer Delphi dapat mencapainya?
Sehubungan dengan hal tersebut, penulis baru-baru ini merealisasikan pemrograman web teknologi ASP di lingkungan Delphi melalui informasi dari inrpisre. Berikut pengantarnya sebagai berikut:
1. Buat proyek DLL acdiveX PRoject1 baru di lingkungan delphi, lalu buat objek ASP melalui Objek Server Aktif delphi, dan isi nama objek yang dibuat MyAspObject di coClassName-nya.
2. Gunakan tipe Library untuk membuat metode MyAspRequest untuk objek MyAspObject yang baru dibuat yang akan dipanggil dengan bahasa skrip.
3. Karena objek ASP yang baru dibuat mewarisi dari TASPObject, maka kita bisa langsung menggunakan objek asp dalam pembuatan metode. Sekarang isi kode objek Asp yang kita buat seperti berikut:
menghasilkan TMyAspObject.MyAspRequest;
mulai
repsonse.write('<p>Nama Anda:');
repsonse.write(permintaan.form.item['Nama']);
repsonse.write('</p>');//Baca nama pengguna dari halaman web yang akan dibuat//
repsonse.write('<p>Tugas Anda adalah:');
repsonse.write(permintaan.form.item['pekerjaan']);
repsonse.write('</p>');//Membaca karya pengguna dari halaman web yang akan dibuat//
repsonse.write('<p>Alat pengembangan yang Anda gunakan:');
if(permintaan.form.item['delphi'].count>0)
repsonse.write('delphi');
if(permintaan.form.item['bcb'].count>0)
repsonse.write('c++ Builder');//Menentukan alat pengembangan yang digunakan oleh pengguna//
repsonse.write('</p>');
repsonse.write('<p>Identitas Anda:');
repsonse.write(permintaan.form.item['Identitas']);
repsonse.write('</p>');//Baca identitas pengguna//
akhir;
4. Kompilasi program dan daftarkan sebagai file PMyAspObject.dll di delphi.
5. Tulis file bahasa skrip ASP MyAsp.asp untuk koneksi
<%@bahasa=jscript %>
<HTML>
<TUBUH>
<title>Ini adalah objek ASP yang dibuat dengan delphi</title>
<center><h3>Isi yang Anda isi adalah sebagai berikut</h3></center>
<%
var myasp;
myasp=server.createobject(PMyAspObject.MyAspObject);
//Buat objek koneksi//
myasp.MyAspRequest();//Panggil objek ASP yang Anda tentukan sendiri//
%>
</tubuh>
</HTML>
6. Buat halaman web Myhtm.htm untuk ditampilkan
<form action='localHost/shd/myasp.asp' method='post">
<h1 align='center">Silahkan pilih</h1>
<P>Nama: <input type='text' size=33 nama="nama"></p>
<P>Pekerjaan: <input type='text' size=33 name="work"></p>
<P>Alat pengembangan: <input type='checkbox' name='delphi' value="on">delphi
<input type='checkbox'name='bcb'value="on">Pembuat c++</p>
<p>Identitas Anda:</p>
<p><pilih nama="identitas" size="1">
<option>Siswa</option>
<option>Teknisi</option>
</pilih></p>
<p><input type="kirim" nama="kiriman saya" value="Kirim">
</bentuk>
7. Kemudian letakkan Myhtm.htm dan myasp.asp di direktori shd server web pribadi Anda untuk menelusuri dan menguji.
Render halaman web
rendering ASP
Program di atas diterapkan di pwin98 ME dan delphi5.0 Enterprise.