Cara Membuat dan Menggunakan DLL di Delphi 7


Selamat sore agan-agan.Akhirnya posting lagi , kangen banget membagi ilmu kepada agan-agan semua , :capedes.Okay , pada postingan kali ini saya akan membahas mengenai Cara Membuat dan Menggunakan DLL di Delphi 7.DLL (Dynamic Library Link) adalah sumberdaya/library file exe yang memungkinkan program untuk berbagi kode dan sumber daya lain yang diperlukan untuk melakukan tugas tertentu.Misalnya , kita bisa menyimpan procedure atau function di sebuah DLL , lalu kita panggil procedure atau function tersebut di aplikasi yang kita buat.Caranya !? Maka dari itu , segera buka borland delphi 7 anda.

Lalu , klik file -> new -> Other , lalu akan muncul dialog berikut.




Pilih DLL Wizard dan anda akan melihat source code standar library.Simpan file tersebut dengan nama test_dll.Kita akan menyimpan procedure untuk menampilkan pesan yang nantinya akan di panggil di file exe.Untuk itu , hapus semua code yang ada di editor , dan ganti dengan kode berikut ::

  1. library test_dll;  
  2.   
  3. uses  
  4.   SysUtils,  
  5.   Classes,  
  6.   Dialogs; //library untuk menggunakan dialog  
  7.   
  8. {$R *.res}  
  9.   
  10. procedure DllMessage; export;  
  11.  begin  
  12.    ShowMessage('Saya adalah message yang di simpan di DLL') ;//pesan  
  13. end;  
  14. exports DllMessage; //export procedure  
  15. begin  
  16. end.  

Simpan file tersebut lalu tekan ctrl + f9.Bila tidak ada kesalahan , harusnya sekarang muncul file bernama test_dll.dll di folder tempat anda menyimpan dll tadi.Nah sekarang , saatnya membuat aplikasi yang bertugas memanggil procedure tadi.Klik file -> new -> application lalu simpan di folder yang sama dengan file dll.Simpan file project dengan nama TestLibrary , dan Unit dengan nama Uutama.Tambahkan kode berikut setelah klausa Var


  1. procedure DllMessage; external 'test_dll.dll'  

Sekarang , tambahkan component TButton , lalu double-klik dan ketikan kode berikut

view plainprint?
  1. DllMessage; //dllmessage di panggil  

Berikut kode lengkapnya

view plainprint?
  1. unit Uutama;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, StdCtrls;  
  8.   
  9. type  
  10.   TForm1 = class(TForm)  
  11.     Button1: TButton;  
  12.     procedure Button1Click(Sender: TObject);  
  13.   private  
  14.     { Private declarations }  
  15.   public  
  16.     { Public declarations }  
  17.   end;  
  18.   
  19. var  
  20.   Form1: TForm1;  
  21.    procedure DllMessage; external 'test_dll.dll'  
  22.   
  23. implementation  
  24.   
  25. {$R *.dfm}  
  26.   
  27. procedure TForm1.Button1Click(Sender: TObject);  
  28. begin  
  29.    DllMessage;  
  30. end;  
  31.   
  32. end.  

Jalankan program anda dan coba klik button1.Harusnya , akan muncul kotak dialog sesuai yang terdapat pada file DLL.Sekian tutorial kali ini , semoga bermanfaat :)

0 Response to " Cara Membuat dan Menggunakan DLL di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!