Discussion :

[colorid]

Bonjour,

J'ai développé une DLL qui tourne parfaitement depuis longtemps.
J'y ai ajouté une fonction et la compilation de la DLL s'effectue normalement en appelant l'exécutable cité en paramètre.
Naturellement la fonction est déclarée dans la partie exports du projet DLL.

Dans l'exécutable dans l'unité où je déclare les fonctions de DLL j'ai régulièrement déclaré cette dernière du type :

Code :

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

1
2
3
4
5
function Machin_FaisQuelquechoseOk( BMPPtr: HBitmap;
                                  const Target: TTrucTarget;
                                  const Good: single;
                                  Res: TChosePtr ):Boolean;
                stdCall; external Ma_DLL.dll';

J'ai 7 autres fonctions de la même DLL qui sont appelées dans ma Form principale (dans laquelle mon unité DLL est déclarée en uses) déclarées dans la même unité qui ne posent aucun problème.

A la compilation de l'exécutable si je n'appele pas cette nouvelle et 8ème fonction je n'ai aucun problème et les appels des 7 autres fonctions s'exécutent. Mais si j'ajoute un

Code :

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

 if Machin_FaisQuelquechoseOk(Bmp.Handle, CurTarget, 1.0, @CurChose) then ...

Delphi refuse de compiler et me signale que ma nouvelle fonction est un identifacateur non déclaré.

C'est à ni rien comprendre !!!

Les DLL seraient-elle limitées en nombre de fonctions ?

Si quelqu'un a une idée ?

[Lung]

Tu es sûr que ton exe fait appel à la bonne DLL ?
Je veux dire : tu es sûr que la DLL que tu compiles, est bien celle chargée par l'exe (même répertoire).

Je me suis déjà fait avoir plein de fois ...

[colorid]

Oui !!!

Je viens de vérifier, et si la DLL ne comprenait pas le fonction appelée ce serait un autre message d'erreur du genre absence de point d'appui dans la DLL

[Cl@udius]

Salut

si la DLL ne comprenait pas le fonction appelée ce serait un autre message d'erreur du genre absence de point d'appui dans la DLL

Ca ce serait un message d'erreur à l'exécution.
Mais puisque tu es face à une erreur de compilation, je dirais simplement que la déclaration de ta fonction Machin_FaisQuelquechoseOk n'est pas visible à l'endroit où tu l'appelles. D'où le message d'identificateur non déclaré.

@+ Claudius

[colorid]

Ok mais alors pourquoi les 7 autres fonctions DLL qui se trouvent dans la même unité et sont appelées de la même Form fonctionnent sans problème ?

J'ai même essayé sans succès de déclarer la fonction non plus dans l'unité réservée aux déclarations DLL mais dans la l'unité Form... Message "non décléré"

[Cl@udius]

Montre-nous le code où tu déclares tes fonctions ainsi que l'appel à cette fameuse fonction. On devrait mieux avancer, car là difficile d'apprécier la situation.

@+

[colorid]

Voici deux fonctions déclarées dans l'unité de gestion de la DLL :

Code :

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

1
2
3
4
5
6
7
8
9
10
function PCPrint_ColorGamutFromImage( const BMPPtr:HBitmap;
                          const Color: TColor;
                          const ColorExclude: TColor;
                          const DeValue: single):TPeekGamutSerigraph;
                stdCall; external 'PCPrint_1.dll';
 
function PCPrint_ControlSeriGraphOk( BMPPtr: HBitmap;
                                  const Target: TPeekGamutSerigraph;
                                  const Good: single):TPeekControl12647;
                stdCall; external 'PCPrint_1.dll';

Voici deux appels à ces fonctions à partir de MainForm

Code :

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

1
2
3
4
5
6
7
8
9
10
    BMP:= TBitmap.Create;
    try
     BMP.PixelFormat:= pf24bit;
     BMP.LoadFromFile(ImgFileName);
     GraphGamut:= PCPrint_ColorGamutFromImage(BMP.Handle,C,ShapeExclude.Brush.Color,10);
     ImageWork.Cursor:= crDefault;
     ImageWork.Picture.LoadFromFile('BMP.BMP');
    finally
      BMP.Free;
    end;

et

Code :

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

1
2
3
4
5
6
7
8
9
    BMP:= TBitmap.Create;
    try
      BMP.PixelFormat:= pf24bit;
      BMP.LoadFromFile(ImgFileName);
      CurControl:= PCPrint_ControlGamutOk(BMP.Handle,GraphGamut,1.0);
      Label1.Caption:= FloatToStrF(CurControl.DeltaE2k,ffFixed,5,2);
    finally
      BMP.Free;
    end;

Le premier appel ne pose pas de problème, le second bloque à la ligne CurControl:= ...

[Cl@udius]

Re,

D'un côté tu déclares deux fonctions: PCPrint_ColorGamutFromImage et PCPrint_ControlSeriGraphOk.
De l'autre tu appelles deux fonctions: PCPrint_ColorGamutFromImage (OK) et PCPrint_ControlGamutOk (?).

Là j'ai bien un identificateur non déclaré sur PCPrint_ControlGamutOk. Serait-ce une inattention aussi bête que cela ?

@+

[Paul TOTH]

à la lecture rapide je soupçonne ceci :

l'unité qui déclare les fonctions de la DLL est construite sur ce modèle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
unit udll;
interface
 
procedure proc1;
procedure proc2;
 
implementation
 
procedure proc1; external 'truc.dll';
procedure proc2; external 'truc.dll';
procedure proc3; external 'truc.dll';
end.

les procédures 1 et 2 sont visibles, pas la 3ième

[colorid]

Mille excuses.

En fait j'utilise les unités d'un développement précédent qui se trouvent dans un répertoire différent. Je ne m'en suis pas rendu compte mais les mises à jour que je faisais sur cetaines unités étaient inscrites dans 'unité de même nom mais dans un répetoire différent !

La problème est donc résolu

[Paul TOTH]

Mille excuses.

En fait j'utilise les unités d'un développement précédent qui se trouvent dans un répertoire différent. Je ne m'en suis pas rendu compte mais les mises à jour que je faisais sur cetaines unités étaient inscrites dans 'unité de même nom mais dans un répetoire différent !

La problème est donc résolu

Pour éviter ce genre de blagues, je spécifie toujours le chemin d'accès de toutes les unités du projet dans le fichier .DPR !