Discussion :

[idaram]

bonjour;
j'ai une dll qui contienne une fiche dans laquelle il y a une image
j'ai une fonction dans la dll qui est la suivante:

Code :

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

1
2
3
4
5
 
function getimage : TPicture;
beghin
Result := Form1.Image1.Picture; // Form1 de la dll
end;

le probleme c'est que j'arrive pas a afficher l'image dans l'application sous la forme de ceci :

Code :

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

1
2
 
Form1.Image1.Picture := getimage;  // Form1 de l'application

et cela ne marche pas;
Donc je cherche a afficher l'image "Image1" situé dans la fiche de la dll dans la fiche de mon l'application , comment le faire? et merci.

[ShaiLeTroll]

Pour que l'objet TPicture soit compatible entre EXE et DLL, il faut utiliser les paquets d'exécution !
Cela implique de livrer les BPL avec l'EXE et la DLL !

Sinon, ton image faudra l'insérer comme une ressource, il y a un tutoriel pour faire des DLL de ressources
ainsi que de sujets comme Restitution de ressources images encapsulées dans une DLL

[chekkal]

voici une methode d'appel d'une 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
 
 var
  Handle: THandle;
  nserie:Tserie;
  s:shortstring;
begin
      Handle := LoadLibrary('pro001.dll');
      if Handle <> 0 then
      begin
            @nserie:= GetProcAddress(Handle, 'nserie');
            if @nserie <> nil then
            s:=nserie(1); ///appel de la procedure serie
             FreeLibrary(Handle);
      end;