Download

11/01/2010

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 komentar:

Post a Comment

Newer Post Older Post Home
Aulia DirUt. Powered by Blogger.
 

Blog Archive

Followers

 

Templates by Nano Yulianto | CSS3 by David Walsh | Powered by {N}Code & Blogger