Cara Membuat dan Menggunakan DLL di Delphi

Dynamic Link Library (DLL) adalah kumpulan rutinitas (program kecil) yang dapat dipanggil oleh aplikasi dan DLL lainnya. Seperti unit, mereka berisi kode atau sumber daya yang dapat dibagi di antara banyak aplikasi.

Konsep DLL adalah inti dari desain arsitektur Windows, dan sebagian besar, Windows hanyalah kumpulan DLL.

Dengan Delphi, Anda dapat menulis dan menggunakan DLL Anda sendiri dan bahkan memanggil fungsi terlepas dari apakah mereka dikembangkan dengan sistem atau pengembang lain, seperti Dasar visual, atau C / C ++.

Beberapa baris berikut akan menunjukkan cara membuat DLL sederhana menggunakan Delphi.

Untuk awal, mulai Delphi dan arahkan ke File> Baru> DLL untuk membangun template DLL baru. Pilih teks default dan ganti dengan ini:

Perpustakaan TestLibrary;

menggunakan SysUtils, Classes, Dialogs;

prosedur Pesan Dll; ekspor;mulai

 ShowMessage ('Halo dunia dari DLL Delphi');

akhir;

ekspor Pesan Dll;

mulai. 

Jika Anda melihat file proyek dari setiap aplikasi Delphi, Anda akan melihat bahwa itu dimulai dengan kata yang dipesan

Di akhir kode sumber adalah ekspor pernyataan yang berisi daftar rutin yang sebenarnya diekspor dari DLL dengan cara yang dapat dipanggil oleh aplikasi lain. Ini artinya Anda dapat memiliki, katakanlah, lima prosedur dalam DLL dan hanya dua di antaranya (tercantum dalam ekspor bagian) dapat dipanggil dari program eksternal (tiga sisanya adalah "sub prosedur").

Untuk menggunakan DLL ini, kita harus mengkompilasinya dengan menekan Ctrl + F9. Ini harus membuat DLL bernama SimpleMessageDLL.DLL di folder proyek Anda.

Akhirnya, mari kita lihat bagaimana memanggil prosedur DllMessage dari DLL yang dimuat secara statis.

Untuk mengimpor prosedur yang terkandung dalam DLL, Anda dapat menggunakan kata kunci luar dalam deklarasi prosedur. Misalnya, mengingat prosedur DllMessage yang ditunjukkan di atas, deklarasi dalam aplikasi panggilan akan terlihat seperti ini:

prosedur Pesan Dll; luar 'SimpleMessageDLL.dll' 

Panggilan sebenarnya ke suatu prosedur tidak lebih dari:

 Pesan Dll; 

Seluruh kode untuk formulir Delphi (nama: Formulir1), dengan TButton (bernama Tombol1) yang memanggil fungsi DLLMessage, terlihat seperti ini:

satuan Unit 1;

antarmuka

menggunakan

 Windows, Pesan, SysUtils, Varian, Kelas,

 Grafik, Kontrol, Bentuk, Dialog, StdCtrls;

Tipe

 TForm1 = kelas (TForm)

 Tombol1: TButton;

prosedur Button1Click (Pengirim: TObject);pribadi{Pernyataan pribadi}publik{Pernyataan publik}akhir;

var

 Form1: TForm1;

prosedur Pesan Dll; luar 'SimpleMessageDLL.dll'

penerapan

{$ R * .dfm}

prosedur TForm1.Button1Click (Pengirim: TObject);mulai

 Pesan Dll;

akhir;

akhir.