Appel dll un peu particulier

**sp2308** · 15/12/2014, 15h00

Bonjour

Ce qui suit va faire crier les puristes car un dll n a pas vocation a etre mie en resources mais ça m evite une install et protege mon appli...dumoins si j'y parviens...

J ai une dll en resource dans mon exe.
dans le on create,j extrais cette ressource et la save dans c:\windows (ça ne fonctionne pas avec le repertoire system !) sous un nom generé à chaque ouverture de l appli de maniere aleatoire.(je l efface dans le close query)

j aimerai savoir comment appeller cette dll.

quand j apelle une dll j utilise, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NomDLL = '123456.dll';
 
function nom_fonction(): Integer; stdcall; external NomDLL;

mais il m est impossible de declarer cela en debut de code...puisque je ne connais pas le nom de ma dll...et que de toutes les façons, au premier lancement elle n existe pas, quelque soit son mon...

Auriez vous une piste ?

Merci de votre aide

stephane

Invité · 15/12/2014, 15h29

Je pense qu'il est possible d'avoir le nom de ta DLL dans une virable (globale ?) que tu modifies quand tu exporte ta DLL sur le disque.
Ensuite pour l'appel, il fraudais utiliser cette variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure Dll_Test(Cnx : TSQLConnection;);
var
   MaDLL : THandle;
   MaFonction : procedure (Cnx : TSQLConnection); stdcall;
begin
   MaDLL := LoadLibrary(PChar(NomDLL));
   if MaDLL = 0 then
      raise Exception.Create('Le fichier ' + NomDLL + ' est introuvable.');
 
   @MaFonction := GetProcAddress(MaDLL, 'MaFonction');
   if @MaFonction = nil then
      raise Exception.Create('Le fichier ' + NomDLL + ' ne contient pas la fonction demandée.');
 
   try
      MaFonction(Cnx);
   finally
      FreeLibrary(MaDLL);
   end;
end;

**sp2308** · 15/12/2014, 15h59

merci d avoir pris le temps de me repondre.

Je comprends l idee mais ai un pb en declarant ma fonction à la place de

MaFonction : procedure (Cnx : TSQLConnection); stdcall;

ma fonction dans la dll est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function answer(): Integer; stdcall;
begin
  Result := random(20);
end;

donc je procede ainsi mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaFonction : function answer(): Integer; stdcall;

de plus answer n est pas reconnu dans le try...

Donc comment declarer ma fonction ?

merci de ton aide

**anapurna** · 15/12/2014, 16h26

je vois pas bien le probleme ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
type
   TanswerFunc = function  : integer; stdcall;
 var
   dllHandle : cardinal;
   answerFunc : TanswerFunc;
   ires : integer;
 begin
   dllHandle := LoadLibrary('ma.dll') ;
   if dllHandle <> 0 then
   begin
     @answerFunc := GetProcAddress(dllHandle, 'answer') ;
     if Assigned (answerFunc) then
       Ires := answerFunc; //call the function
     else
       ShowMessage('"answer" function not found') ;
     FreeLibrary(dllHandle) ;
   end   else   begin
     ShowMessage('ma.dll not found / not loaded') ;
   end;
 end;