> Menarik sekali, sepertinya pas dgn apa yg saya bayangkan.
> Apakah pemanggilan fungsi/procedures dari dan ke .bpl dilakukan seperti
> standar call function di .dll atau bisa menggunakan objek yg ada di .bpl
> langsung setelah create?
>
spt layaknya aplikasi biasa, asal objek sudah di-create bisa dipanggil...
misalnya :
BPLHandle := LoadPackage(ExternalProgram);
if BPLHandle <> 0 then
begin
ShowChild := GetProcAddress(BPLHandle, SSHOWCHILD); //salah satu
fungsi dalam *.bpl
if Assigned(ShowChild) then
ChildForm := ShowChild(Param); //ShowChild sekaligus
mengembalikan object TForm
ChildForm.Tag := integer(ChildParam); //Kita bisa mengkases
properties dlm ChildForm spt biasa
end else
MessageDlg(S_PROG_NOT_FOUND, mtError, [mbOk], 0);
jangan lupa di unload handle nya kalau sudah ngak dipakai :
UnloadPackage(BPLHandle);
BPLHandle := 0;
isi dari function ShowChild pada unit dalam *.bpl yg dipanggil kira2 :
function ShowChild(Param: TShowChildParam): TForm;
begin
AlarmData := Param;
Result := TAlarmDlg.Create(Application); //Ini loh form nya dicreate dulu
AlarmDlg := TAlarmDlg(Result);
end;
jangan lupa juga tambahkan export pada unit ybs :
exports
ShowChild;
> Mas Bbs, bisa saya minta sample aplikasi yg sederhana saja untuk contoh
> penggunaan modul .bpl. Selama ini .bpl saya peroleh cuma kalo
mengkompilasi
> .dpk (vcl package).
>
Biasanya saya buat project biasa dulu, untuk mencoba2 suatu form, jika sudah
running dg baik, baru di-create package (File, New, Package) dan tinggal
di-include unit2 yg diinginkan ke runtime package tsb.. trus compile
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
