Membuat file dll dengan foxpro

Naa hari ini lagi mood ngetik nih, krn sibuk belajar jadi superman, ok kali ini saya akan memberikan contoh sederhana membuat file .dll, apa itu file .dll, biasa menyebutnya file libary atau dynamically linked library, dll  hanya dipanggil/load bila perlu jadi tidak membebani besaran exe, klo difoxpro file .dll ini isinya cuma class aja yg dibuild ke COM he, ok manfaatnya sih tergantung kebutuhan bisa sebagai proteksi aplikasi jika tidak ditemukan file dllnya walau bisa running tapi jadi versi demo gitu, tp bisa juga sebagai perantara penghubung database dengan aplikasi misalkan memanfaatkan sebagai koneksi🙂, ok saya akan coba membuat function senderhana yg dibungkus dalam file .dll yaitu function tanggal, yg mana outputnya Minggu, 27 Juli 2014  ok ready

1. Buka project manegernya, kemudian bikin baru program (file .prg) , terus isi dengan script berikut


Define Class date_class As Session OlePublic
Function cnamatgl(dtgl As Date) As String
dtgl=Date(Year(dtgl),Month(dtgl),Day(dtgl))
cnmtgl= This.cnamahari(dtgl)+' , '+ This.strtgl(dtgl)
Return cnmtgl
Endfunc
Hidden Function cnamahari(dnmhari As Date) As String
nnohari=Dow(dnmhari)
cnmhari=Substr('MingguSenin SelasaRabu Kamis Jumat Sabtu ',nnohari*6-5,6)
Return allTrim(cnmhari)
Endfunc
Hidden Function strtgl(dstrtgl As Date) As String
cblntgl=Alltrim(Str(Day(dstrtgl)))+' '+ This.cNamaBln(dstrtgl)+' '+Alltrim(Str(Year(dstrtgl)))
Return cblntgl
Endfunc
Protected Function cNamaBln(dNmBln As Date) As String
If Type('dNmBln')="D"
nNmBln=Month(dNmBln)
Endif
cNmBln=Substr('Januari Pebruari Maret April Mei Juni Juli Agustus SeptemberOktober November Desember ',nNmBln*9-8,9)
Return alltrim(cNmBln)
Endfunc
Enddefine

naa Define Class date_class As Session OlePublic  artinya nanti kita akan memanggil dengan nama class date_class , untuk bikin file .dll pastikan asnya session OlePublic, selajutnya itu seperti bikin function biasa he, kemudian simpan terserah namanya apa misal tgldll.prg

2. selanjutkan bikin tgldll jadi set main seperti ini

Untitled

3. kemudian build seperti ini

1

pastikan anda memilih Multi-threaded Com server yang artinya dia akan jalan pada threadnya sediri , kemudian kasih nama misal libdate dan ok prosess komplet,

4. regestrasikan file *.dll tadi melalui run seperti ini regsvr32 “c:\libdate.dll” dan untuk uninstal kasih aja tanda ini \u di akhirnya, jika sukses lanjutkan

5. selanjutnya coba dipanggil dengan seperti ini

222

Ok demikian tesnya he, moga bisa bermanfaat🙂, dan mohon maaf lahir batin yaa

 

 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: