Jika Anda ingin melepaskan diri dari level peminat ASP, maka Anda harus belajar menulis komponen untuk ASP. Saya mencari di Google dan menemukan bahwa hanya ada sedikit artikel tentang menulis komponen asp di Delphi, jadi hari ini saya menulis artikel dasar tentang menulis komponen asp di Delphi, semoga bermanfaat bagi para pemula.
Untuk memulai, mari kita tulis contoh "halo dunia!" Saya menggunakan Delphi 7 di sini.
1.File->Baru->Lainnya->ActiveX->ActiveX Library, lalu simpan sebagai showdll.dpr
2. Sekali lagi, buka File->New->Others->ActiveX->ActiveX Server Object, isi CoClassName: showhello, biarkan semuanya tidak berubah, dan klik OK.
3. Sekarang mulailah menulis program dan tambahkan metodenya terlebih dahulu. Pilih Ishowhello->klik kanan->Baru->Metode dan isi nama metode: sayworld.
4. Sekarang mulailah menulis programnya, simpan Unit1 sebagai show.pas, lalu tambahkan kode metode sayworld 
Keseluruhan kode show.pas adalah sebagai berikut:
unit show;
{$PERINGATAN SYMBOL_PLATFORM MATI}
antarmuka
menggunakan
ComObj, ActiveX, AspTlb, showdll_TLB, StdVcl;
ketik
Tshowhello = class(TASPObject, Ishowhello)
proseduryang dilindungi
OnEndPage; safecall
; procedure OnStartPage(const AScriptingContext: IUnknown
procedure sayworld
;
pelaksanaan
menggunakan ComServ;
prosedur Tshowhello.OnEndPage;
mulai
mewarisiakhir
OnEndPage
;
procedure
Tshowhello.OnStartPage(
constAScriptingContext
:
IUnknown
)
;
di dalamnya Ditulis dengan cara yang sama, hanya diringkas di sini.
akhir;
inisialisasi
TAutoObjectFactory.Create(ComServer, Tshowhello, Class_showhello,
ciMultiInstance
,
tmApartment);
Klik Jalankan untuk mengkompilasinya menjadi dll dan mendaftarkannya secara otomatis. Saat ini ia akan meminta:
Biarkan Anda menjalankannya di server web. Oke, sekarang tulis file asp dan beri nama. Perhatikan bahwa Delphi telah membuat file asp. Kita tinggal mengubah metode pemanggilannya.
Kode showhello.asp yang dimodifikasi adalah sebagai berikut:
<HTML>
<BODY>
<TITLE> Menguji Delphi ASP </TITLE>
<CENTER>
<H3> Anda akan melihat hasil metode Delphi Active Server Anda di bawah </H3>
</ CENTER >
<HR>
<% Set DelphiASPObj = Server.CreateObject("showdll.showhello")
DelphiASPObj.sayworld
%>
<HR>
</BODY>
</HTML>
Jalankan di situs iis untuk melihat efeknya: 
5. Lainnya:
Untuk komponen yang ditulis dalam Delphi, setelah mendaftar dengan layanan komponen win2000, Anda dapat melihat metode antarmuka komponen tersebut.
6． Ada juga parameter yang diteruskan antara halaman asp dan komponen. Faktanya, parameter diteruskan ke metode yang dipanggil (fungsi). Perhatikan bahwa ketika didefinisikan dalam Delphi, parameter tersebut harus konsisten dengan tipe data vbs. Lebih baik bagi semua orang untuk lebih sering mempraktikkannya. Tujuan utamanya di sini adalah agar semua orang mempelajari cara merangkum kode inti asp, dan berfungsi sebagai titik awal.
Tidak banyak kata untuk menulis ini, tetapi mengambil tangkapan layar agak merepotkan. Level saya terbatas. Jika saya melakukan kesalahan, mohon tampar dengan lembut! ! ! !
Satu angin dan satu
awan2004-10-18