Mmmmm... dll-ovi, paketi, plug-in-ovi... moja omiljena tema
Evo jednog prostog dll-a koji ce imati jednu funkciju:
Code:
library SimpleDll;
function Operation(X, Y: Integer): Integer; stdcall;
begin
Result := X + Y;
end;
exports
Operation;
begin
end.
Pisanje pocinje kljuconm recju
library sto znaci da pisemo dll.
Zatim pisemo funkcije. One koje ce programi moci da pozivaju treba da imaju definisanu konvenciju poziva. Standardno je da se koristi
stdcall. Ovo se pise jer drugacije konvencije poziva drugacije prosledjuju parametre.
Kada zavrsimo sa pisanjem funkcija ide
exports deo u kojem pisemo koje sve funkcije dozoljavamo programima da pozivaju.
Na kraju, izmedju
begin i
end mozemo staviti kod koji ce se pozvati prilikom ucitavanja dll-a.
Program koji koristi ovaj dll bi mogao ovako da izgleda:
Code:
program SimpleApplication;
{$APPTYPE CONSOLE}
{$DEFINE USE_LOADLIBRARY}
{$DEFINE USE_EXTERNAL}
uses
Windows;
{$IFDEF USE_EXTERNAL}
function OperationExternal(X, Y: Integer): Integer; stdcall;
external 'SimpleDll.dll' name 'Operation';
{$ENDIF}
var
{$IFDEF USE_LOADLIBRARY}
Module: HModule;
OperationProc: function(X, Y: Integer): Integer; stdcall;
{$ENDIF}
X, Y: Integer;
begin
Write('Unesite X: ');
ReadLn(X);
Write('Unesite Y: ');
ReadLn(Y);
{$IFDEF USE_EXTERNAL}
WriteLn('Rezultat operacije je: ', OperationExternal(X, Y));
{$ENDIF}
{$IFDEF USE_LOADLIBRARY}
WriteLn('Ucitavam funkciju iz dll-a');
Module := LoadLibrary('SimpleDll.dll');
if Module <> 0 then
begin
OperationProc := GetProcAddress(Module, 'Operation');
if Assigned(OperationProc) then
WriteLn('Rezultat operacije je: ', OperationProc(X, Y))
else
WriteLn('Funkcija nije nadjena');
FreeLibrary(Module);
end
else
WriteLn('Dll nije nadjen');
{$ENDIF}
ReadLn;
end.
Napravio sam par kompajlerskih direktiva da bi bilo lakse da probate razlicite nacine ucitavanja funkcije iz dll-a.
Postoje dva nacina. Koriscenje rezervisane reci
external i rucnim ucitavanjem dll-a i funkcije.
Kada se koristi
external rezervisana rec program jednostavno nece hteti da se pokrene ako dll ili funkcija u dll-u ne postoji, dok prilikom rucnog ucitavanja mozete nastaviti sa izvrsavanjem programa uz obavestenje da nije uspelo ucitavanje funkcije.
Eto... to je ukratko to.
DirectX na srpskom |
GLScene na srpskom
There are only 10 types of people in this world; those who understand binary and those who don't.
Registrovani: 111 ( crazy018, shunjalo, james1234, blackwater800115, A.M., P_e_r_a, stole86, Neven Blazic, lm741, plava_motorola, ilijag, ŽIKI, nesazip, meokusnice, dusans64, vidan kv, Binary Mind, emranonline, saka, perutina, Milan86, bachi, Jovan 1988, sokko, dobar_decko, mist, beogradpc, optix, selters, a1200, hybridkg, the_tosic, mulaz, prolovicm, sorrow, daywalkerzr, aleksandarmitrovic, nakroman, Flash411, iobst1, jooly, igispasic, easyyu, frigo servis bata, Kovacevic Vladimir, michaelk, mersedbosna, denter, mali genije, Slobodan Milivojevic, galet@world, euripyd, EmilijaV, maric1, jorganwd, SLOJ.1973, DakSrbija, zguzvan mozak, SlobaBgd, stdugisa, DusanSukovic, milutin.petkovic, muscorp, Skandy, valter_no1, Eurora3D Team, Mikelly, bacia, G.Feri, antic85, stanisav, Milan Gligorijevic, spektrum, macedo, Bojan Basic, acaradio, Nikola M, PedjaZ, x-master, todorl, sirob, arandjele, buco22, Brkic, Mark93, dolars, starasovic, perun85, _eSkImO_, D@RkLoRd, Dimitar_Wega, ikovac, GM_X, VladimirJakovljevic, RVP, skorohaker, laraa, Nocni, tox master, Ha-Nocri, djordje1979, žutokljunac, pera72, labicko1, xigma, Marenović Slaviša, smeshko, zwerstvo, Miso Kovacevic, component, sofrenic )
Dinamičke biblioteke DLL - ovi iz perspektive Delphi-ja?!!!
Re: Dinamičke biblioteke DLL - ovi iz perspektive Delphi-ja?!!!
Isprobaću tvoj primer... Pa javim ako nešto ne bude išlo....
Re: Dinamičke biblioteke DLL - ovi iz perspektive Delphi-ja?!!!
)?