Saat ini, sebagian besar pengembangan sistem dilakukan secara kolaboratif dengan kombinasi beberapa orang atau lebih, yang juga memudahkan perkembangan sistem yang pesat.
Metode DLL adalah yang paling nyaman. Saya telah mengumpulkan beberapa informasi di bidang ini, berharap dapat membantu beberapa siswa yang membutuhkan (saya ingat ketika saya pertama kali mulai belajar, meminta nasihat adalah hal yang tidak terpikirkan). //(Salin buku sumber)
1. Cara menulis prosedur fungsi:
perpustakaanPERTAMALL;
kegunaan
sistemUtils,
Kelas;
{$R *.RES}
// 1. Tentukan proses spesifik dan mode antarmuka keluaran dari fungsi tersebut
//--------------------------------
// fungsi 1
// Fungsi: 3x fungsi amplifikasi data
//--------------------------------
fungsi BBnToSSnn(SourceResult:Integer):Integer;stdCall;
mulai
jika SourceResult>0 maka
Hasil:=SourceResult+3 //Hasilnya disimpan di Result
kalau tidak
Hasil:=SourceResult;
akhir;
ekspor
BBnToSSnn; //2. Definisi port keluaran fungsi
akhir.
==
==
2. Buat Formulir di DLL
========
1. Dalam satu langkah, buat proyek DLL dan tambahkan kumpulan Formulir
perpustakaan MGRPERSN;
kegunaan
sistemUtils,
Kelas,
MGRPERFM di 'MGRPERFM.pas' {FormPERSON};//1.Kode formulir (sama dengan Formulir biasa)
{$R *.RES}
ekspor
ShowPerSN;//2. Definisi port keluaran fungsi
mulai
akhir.
2. Pengaturan Form yang diatur di DLL
==============
satuan MGRPERFM;
antarmuka
kegunaan
Windows, Pesan, SysUtils, Kelas, Grafik, Kontrol, Formulir, Dialog,
ComCtrls, ToolWin, ImgList;
jenis
TFormPERSON = kelas(TForm)
Pribadi
{Deklarasi pribadi}
publik
{Pernyataan publik}
akhir;
//Variabel di tempat tersebut sudah tidak terpakai lagi, ubah ke tempat lain, seperti berikut (ganti satu)
//var
// FormulirPERSON: TFormPERSON;
{Umumkan keluar fungsi Formulir}//Ubah 2
fungsi ShowPerSN(AHandle: THandle; ACaption: String):BOOL;
pelaksanaan
{$R *.DFM}
//fungsi definisi proses data
fungsi ShowPerSN(AHandle: THandle; ACaption: String):BOOL;
var
FormPERSON: TFormPERSON; //Tentukan kelas formulir (yang di atas ditempatkan di sini)
mulai
//Salin pegangan aplikasi ke objek program DLL yang sesuai
aplikasi.Handle := AHandle;
FormPERSON := TFormPERSON.Create(Application);//Buat kontrol TForm
mencoba
FormulirPERSON.Caption := ACaption;
FormPERSON.ShowModal;//Tunjukkan Formulir ini
Hasil := Salah; //mengembalikan nilai keberhasilan
Akhirnya
FormulirPERSON.Gratis;
akhir;
akhir;
3. Memanggil fungsi dan form di DLL
===========
1. Panggil metode satu
---------------
implementasi // Di bawah ini, tulis DLL yang memanggil fungsi tersebut
{$R *.DFM}
//Panggilan fungsi dalam DLL
fungsi BBnToSSnn(SourceResult:Integer):Integer;
StdCall eksternal 'PERTAMA.DLL';
........
2. Panggil metode kedua
==============
ketik //Buat kelas fungsi di sini
// 1 -----------------------------------
TShowPerSN = fungsi (AHandle: THandle; ACaption: String): BOOL;
EDLLLoadError = class(Exception); //Buat kelas catatan kesalahan pada saat yang sama
// 1 -----------------------------------
TMAINCLTR = class(TForm) //Tidak ada perubahan di sini, sistem secara otomatis membuatnya
...
prosedur TMAINCLTR.ToolButton1Click(Pengirim: TObject);
var //Acara pemanggilan tombol: proses pemanggilan
LibHandle: Pegangan;
TampilkanPerSN: TShowPerSN;
mulai
Application.Title:='Program pengujian file DLL sistem manajemen sumber daya manusia';
{Mencoba memuat file DLL. Mencoba memuat file DLL}
LibHandle := LoadLibrary('MGRPERSN.DLL');
mencoba
jika LibHandle = 0 maka
raise EDLLLoadError.Create('Tidak berhasil memuat MGRPERSN.DLL');
@ShowPerSN := GetProcAddress(LibHandle, 'ShowPerSN');
jika tidak (@ShowPerSN = nihil) maka
ShowPerSN(Application.Handle, 'Manajemen Informasi Personalia')//Panggil formulir
kalau tidak
NaikkanLastWin32Error;
Akhirnya
FreeLibrary(LibHandle); // Bongkar DLL.
akhir;
akhir;
============== SELESAI ===
Blog Penulis: http://blog.csdn.net/dgc/