Discussion :

[xenos]

Bonjour,

Je programme avec Delphi 2006 sous WinXP.

J'ai créé une dll qui est utilisé par mon logiciel. Dans la dll, je crée un composant et j'essaie de le détruire avec :

Code :

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

Composant.Free;

Ensuite je l'appel dans mon logiciel de la manière suivante :

Code :

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

  Function Recherche(R : String): String; external 'DLL_345';

Tout fonctionne correctement lors de l'exécution du logiciel. Le problème survient lorsque je ferme l'application. La form disparait mais l'application continue toujours à tourner.

J'ai essayé différentes approches, mais j'arrive pas à faire en sorte que lorsqu'on ferme l'application, elle s'arrête complètement ...

Si vous avez une idée, elle est la bien venue

[MD Software]

Evite de passer des string, passe plutôt des PChar

[xenos]

Merci pour ta réponse MD Software.

Premièrement, j'ai réussi à faire en sorte que le logiciel se ferme totalement, lorsque je le lui demande. Mais j'aimerais avoir votre avis sur la procédure ... est-ce qu'il y a de mieux ? Procédure que j'ai rajouté en plus du reste.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  h : THandle;
 
begin
  h := loadLibrary('DLL_345.dll');
  FreeLibrary(h);
end;

Deuxièmement, pour le type d'informations transmises entre la dll et le programme, à savoir le String. J'ai bien essayé de changer le format, mais le compilateur me lance un message d'erreur :

W1035 Return value of function 'Recherche' might be undefined

De plus, dans le logiciel comment puis je transformer le PChar en un string ?

D'avance merci pour vos réponses.

[xenos]

Salut,

En définitif, je vais prendre l'exemple de la FAQ http://delphi.developpez.com/faq/?pa...pelfonctiondll. Cependant, le problème c'est qu'à chaque fois que je devrai appuyer sur un boutton pour appeler une fonction de la DLL, il faudra à nouveau recharger et revider ...

N'y a t'il pas moyen de le faire une fois pour toute pour le logiciel et libérer l'ensemble lorsqu'on ferme le sof ?

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
procedure TForm1.Button4Click(Sender: TObject);
var
  HandleDLL: THandle;
  Recherche : Function (R : String): String;
 
begin
  Recherche := nil;
  HandleDLL := LoadLibrary(pAnsiChar('DLL_345.dll'));
 
  If HandleDLL = 0 then Exit;
 
  Recherche := GetProcAddress(HandleDLL, pAnsiChar('Recherche'));
 
  If Assigned(Recherche) then
    begin
      ShowMessage (Recherche(Edit1.Text));
    end;
 
  FreeLibrary(HandleDLL);
end;

D'avance merci pour vos réponses.

[neilbgr]

N'y a t'il pas moyen de le faire une fois pour toute pour le logiciel et libérer l'ensemble lorsqu'on ferme le soft ?

Et bien en déclarant la fonction comme suit :

Code :

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

Function Recherche(R : String): String; external 'DLL_345.dll';

Ensuite, pour le coup du type string en paramètre, ce n'est pas un soucis, il suffit de faire le uses dans la dll ET dans le programme de l'unité FastShareMem

[xenos]

Et bien en déclarant la fonction comme suit :

Code :

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

Function Recherche(R : String): String; external 'DLL_345.dll';

Le problème c'est que c'est comme ça que je le faisais tout au début, mais j'ai essayé de trouver un autre système, vu que je n'arrivais pas à libérer la DLL.

En utilisant donc ce système, comment dois je faire pour libérer la dll ? Car en utilisant FreeLibrary, malgré ce que j'ai écris plus haut, ça ne permet pas de libérer la dll et donc, le soft continue à tourner quand on le ferme.

Ensuite, pour le coup du type string en paramètre, ce n'est pas un soucis, il suffit de faire le uses dans la dll ET dans le programme de l'unité FastShareMem

Actuellement j'utilise ShareMem, qu'elle est la différence avec FastShareMem ?