Discussion :

[Coussati]

bonjour

en faisant une recherche sur le forum je suis tombé sur ce sujet :

http://www.developpez.net/forums/d22...onction-celle/

apparemment il n'a jamais été résolue et maintenant j'ai le même besoin

j'ai recréé un sujet vu que c'est interdit de remonter un sujet trop vieux

pour info, je débute dans les ressources / dll et je me suis inspiré de tuto et d'exemples pour créer mes 2 fichiers (exe et dll)

voici ma dll :

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
22
23
24
25
 
library Project2;
 
uses
  SysUtils,
  Classes;
 
{$R *.res}
{$R MonFichier.RES}
 
 
 
function Somme(A, B: Integer): Integer; stdcall;
begin
  Result := A + B;
end;
 
 
exports
  Somme; //Sans précision, le nom d'exportation sera "Somme" et l'index 1
 
 
 
begin
end.

en gros elle contient : un fichier ressource (le bitmap) et une fonction (qui ne servira à rien dans mon programme, c'était juste pour apprendre à utiliser une fonction se trouvant dans une dll)

et voilà un apperçu de mon exe :

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
 
var
  Form1: TForm1;
 
 
  function Somme(A, B: Integer): Integer; stdcall; external 'Project2.dll';
 
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(inttostr(Somme(1,2)))
end;

d'après ce que j'ai trouvé sur le net, je sais juste que si la ressource se trouvant dans l'exe et non dans la dll j'aurai utilisé le bitmap (dans un Timage1 par ex) de manière suivante :

Code :

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

1
2
 
  Image1.Picture.Bitmap.Handle:=LoadBitmap(HInstance, PChar('bmp1'));

P.S 1 : les 2 fichiers se trouvent évidement dans le même répertoire (exe + dll)

P.S 2 : 'bmp1' est l'identificateur du bitmap en ressource

j'espère avoir bien détaillé le problème

[rsc]

As-tu essayé

Code :

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

1
2
HndDll := LoadLibrary('MADLL.DLL');
Image1.Picture.Bitmap.Handle:=LoadBitmap(HdnDLL, PChar('bmp1'));

[guillemouze]

tu peux aussi faire un

Code :

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

Image1.Picture.Bitmap.LoadFromResourceName(hndDll, PChar('bmp1'));

[Coussati]

merci à vous 2 ça fonctionne

comme quoi c'était juste un truc simple à connaitre