DLL Yaratmaq

[AliZairov]

Hamıya salam. Mən Delphi 7-də .dll yaratmaq istəyirəm. Yerini bilirəm hardan yaradılır. File/New/Other/DLL WIzard Mən elə etmək istəyirəm ki, Tutaq ki, 1 proyekt hazırladım. Onun Haqqında menyusu vahid .exe də deyil ayrı faylda .dll olsun. Yəni About.dll faylında. Bilən varsa paylaşsın.

[saka-muka]

ne duzeltmek isteyirsen?

[Ʌüsal]

movzuda qeyd edibki ne isteyir

[Guest _XULİQAN_]

hmmm

[AliZairov]

Saytdakı 4CD-lik türkçə dərslik var. 3CD-də var. DLL yaratmaq və onlarla işləmək. Deməli orda əsas budur.

 

1-ci deyirki, DLL yarat sonra Project/Add to project daxil ol və Unit seç. Unit bilməyənlər unit yəni siz yeni proyekt açırsınız Delphi-də onun kodlarının yerləşdiyi fayldı. Standart olaraq Unit1.pas yaradır. Amma istəyən adını dəyişə bilər. Ordan tutaq uAbout.pas adında haqqında formu yaradmısınız. Onun Kodlarını DLL proyektinə əlavə edin deyir. Sonra DLL proyektində bu ardıcılığda kodlar olur.

 

library Project1;

 

{ Important note about DLL memory management: ShareMem must be the

first unit in your library's USES clause AND your project's (select

Project-View Source) USES clause if your DLL exports any procedures or

functions that pass strings as parameters or function results. This

applies to all strings passed to and from your DLL--even those that

are nested in records and classes. ShareMem is the interface unit to

the BORLNDMM.DLL shared memory manager, which must be deployed along

with your DLL. To avoid using BORLNDMM.DLL, pass string information

using PChar or ShortString parameters. }

 

uses

SysUtils,

Classes,

Forms,

uAbout in 'uAbout.pas' {About}; // Uniti əlavə edəndə bura unvanı yazır

 

{$R *.res}

 

exports

About; // Unit-dəki Formun adı yazılmalıdır

 

begin

end.

 

 

 

2-ci isə uAbout.pas unit-inə bu kodları yazın.

 

var

about: TAbout;

 

altına bu kodu

 

procedure About; export;

 

 

{$R *.dfm}

 

altına bu kodu

 

procedure About; export;

begin

Application.CreateForm(TAbout, About);

try

About.ShowModal;

finally

FreeAndNil(About);

end;

end;

 

Run etdiktə nədənsə səhv verir.

 

Normal proyektdən hazırladığımız .dll açmaq üçün bu kodu button-a əlavə etməlyik.

 

procedure TMain.Button1Click(Sender: TObject);

var

DLLHandle: Thandle;

Main: procedure;

begin

DLLHandle := LoadLibrary('about.dll'); // Dll adı yazılmalıdır

if DLLHandle <> 0 then

try

Main := GetProcAddress(DllHandle, 'Main');

Main;

finally

FreeLibrary(DLLHandle);

end;

end;

 

Bu qədər. Problemi tapan olsa bizimlə paylaşsın.

 

 

 

[Ʌüsal]

Men bir az arasdirma etdim ve daha asandini tapdim.ama sen dediyine benzer bir seydi.

DLL fayli ile toplama emeliyyati aparmaq.Delphi XE ile hazirlanir.sabah derslik ahzirlayib yerlesdirerem

[saka-muka]

Ʌüsal imumuilkde deyirdim.

[AliZairov]

Vüsal salam. Mən Delphi XE2 yazmışam. İçində 2 aktivasiya var amma aktiv edirəm zibili çıxır. Açmır. Error olur. Nə edim? Birdə mən istədiyim funksiyanı daşıyan dll lazımdı.

[Ʌüsal]

men XE isledirem helelki.yeni yuklemsiem aktiv.Senin istediyin dll bir az ferqlidir.yenede baxaram.eger nese alinsa sene deyerem.

[AliZairov]

Vüsal ok. Tşk.