9-Laboratoriya: Borland C++ Builderda funksiya va protseduralarga doir dastur tuzish

YAratilishi
DLL yaratish uchun maxsus Library suzi ishlatiladi. 
DLL e‟lonlar bulimi Exports suzidan boshlanib, eksport kilinayetgan podprogrammalar ro‟yxatini 
o‟z ichiga oladi: 
Library MyLibrary; 
Function MyFunc (...):...; 
begin 
end; 
Procedure MyProc; 
begin 
end; 
Exports 
MyFunc, MyProc; 

---

begin 
end. 
Podprogramma nomidan tashqari DLL ga uning tartib nomeri joylashtiriladi: birinchi 
podprogramma nomeri 0, keyingisi - 1 va xokazo. Dasturchi bu indeksatsiyani o‟zgartirishi va 0 
dan 32767 gacha nomer qo‟yishi mumkin: 
Expots 
MyFunc index 1, MyProc index 2; 
Dasturchi eksport qilinayotgan podprogramma uchun tashqi nom berishi mumkin: 
Exports 
MyFunc index I name 'NEWFUNC'; 
CHaqirayotgan dastur eksport qilinayotgan podprogramma tashqi nomi yoki indeksi bo‟yicha 
chaqirishi mumkin. 
Misol 
Misol tariqasida cmplx modulini kuramiz. 
Library Cmplx; 
uses 
SysUtils, Classes; 
{$R *.RES}
type 
TComplex = record Re, Im: Real; 
end; 
function AddC(x, y: TComplex): TComplex; stdcall; 
begin 
Result.Im := x.Im + y.Im; 
Result.Re := x.Re + y.Re end; 

---

function SubC(x, y: TComplex): TComplex; 
stdcall; 
begin 
Result.Im := x.Im - y.Im; 
Result.Re := x.Re - y.Re 
end; 
function MulC(x, u: TComplex): TComplex; 
stdcall; 
begin 
Result.Re 
:= 
x.Re * y.Re + x.Im * y.Im; 
Result.Im 
:= 
x.Re * y.Im - x.Im * y.Re 
end; 
function DivC(x, y: TComplex): TComplex; 
stdcall; 
var 
z: Real; 
begin 
z := sqr(y.Re) + sqr(y.Im); 
try 
Result.Re := (x.Re * y.Re + x.Im * y.Im)/z; 
Result.Im := (x.Re * y.Im - x.Im * y.Re)/z 
except 
Result.Re := le+309; 
Result.Im := le+309 
end 

---

end; 
Exports 
AddC index 1 name 'ADDC' resident, 
SubC index 2, 
MulC index 3, 
DivC index 4; 
begin 
end. 
Bu yerda stdcall bu DLL ga Delphi dan boshqa tillardan murojaat qilishga imkon beradi. Agar 
bibliotekaga fakat Delphi tilidagi dasturdan murojaat qilinsa bu so‟zning keragi yo‟q. 
Podprogrammalarga murojaat qilish uchun ularni kuyidagicha e‟lon qilish lozim: 
Procedure MyProc; External 'MyDLL'; 
Agar indeks bo‟yicha chaqirish lozim bulsa: 
Procedure MyProc; External 'MyDLL' index 2; 
Bundan tashqari dasturchi tashqi nomni o‟zgartirishi xam mumkin: 
Procedure MyProc; External 'MyDLL' Name 'ExtName'; 
Foydalanish
Statik 
yuklash
 
Dasturda Smpix bibliotekasi quyidagicha e‟lon qilinishi lozim. 
type 
TComplex = record Re, Im: Real; 
end; 
function ADDC(x, y: TComplex): TComplex; stdcall; External 'Cmplx' ; 
function SubC(x, y: TComplex): TComplex; stdcall; External 'Cmplx' ; 
function MulC(x, y: TComplex): TComplex; stdcall; External 'Cmplx' ; 

---

function DivC(x, y: TComplex): TComplex; stdcall; External 'Cmplx'; 
Interfeysli modul 
DLL-podprogrammalarni chaqirishda yozuv kabi murakkab turdagi ma‟lumotlarni uzatishga 
to‟g‟ri kelishi mumkin. Agar biror DLL ga kup murojaat qilinsa murakkab tur e‟lon kilingan 
interfeysli moduldan foydalanish qulaydir. Masalan: 
Unit Complx; 
Interface 
type 
TComplex = record Re, Im: Real; 
end; 
function AddC(x, y: TComplex): TComplex; stdcall; 
External 'Cmplx' index 1; 
function SubC(x, y: TComplex): TComplex; stdcall; 
External 'Cmplx' index 2; 
function MulC(x, y: TComplex): TComplex; stdcall; 
External 'Cmplx' index 3; 
function DivC(x, y: TComplex): TComplex; stdcall; 
External 'Cmplx' index 4; 
Implementation end. 
Boshqa tilda yozilgan DLL protseduralariga murojaat qilinganda ularning tashqi nomi Delphi 
qoidasiga to‟g‟ri kelmasligi mumkin. Masalan C++ tili identifikatorlarda “@” simvolidan 
foydalanishga ruxsat beradi. Bu xolda Delphi qoidasiga mos nom berib name suzidan sung asl 
nomini ko‟rsatish kerak. Masalan: 
function MyFunction: WordBool; stdcall; 
external 'MyDLL' name '_MyFunction@12' 
Fayllar bilan ishlash 
funksiya va protseduralari
 
Kiritiladigan va chiqariladigan ma‟lumotlar soni ko‟p miqdorda bo‟lsa ularni faylda saqlash 
dasturda qulaylik tug‟diradi. Bu ma‟lumotlar oddiy matn (tekst) fayllarida saqlanadi. Fayl 
o‟zgaruvchisi dastur bosh qismida e‟lon qilinadi, ya‟ni 
Type f=text; 

---

Var 
fx:f; 
bu yerda f -fayl tipi, oddiy matn faylni bildiradi; 
fx-fayl o‟zgaruvchisi. 
Kerakli fayldan ma‟lumotlarni o‟qishga tayyorlash uchun Assign va Reset funksiyalari ishlatiladi. 
Topshiriqlar: 
1.
Dastur ishini tuxtatuvchi va mavjud xatolar tugrisida ma‟lumot beruvchi protsedurani 
kurib chiqing :
2.
2. Yuqoridagi C: diskdagi AA katalogdagi AB fayldagi ma‟lumotlarni A va B massivlarga 
o‟qib shu massiv mos elementlarini qo‟shib S massivni tashkil qiling va A,B,C 
massivlarini ABC nomli faylga joylashtiring. 
3.
C: diskdagi AA katalogdagi AB fayldagi ma‟lumotlarni o‟qib A va B massivlarga 
joylashtiring. Fayl ma‟lumotlari strukturasi quyidagicha.