Discussion :

[colorid]

Bonjour à tous,

Dans une fonction développée avec ExpertDLL j'ai besoin de créer provisoirement une image bitmap
Voici le type de fonction

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
 
function ModifieCanvas( Canvas: TCanvas; CanRect: TRect ): Integer;
var
  W,H: Integer;
  BMP:TBitmap;
begin
  W:= CanRect.Right-CanRect.Left;
  H:= CanRect.Bottom-CanRect.Top;
  BMP:= TBitmap.Create;
  try
//  faitquelquechose;
  finally
    BMP.Free;
  end;
  result:= W*H;
end;

Le code source de la DLL ne reconnait pas Tbitmap.Create
J'utilise TBitmap car j'ai besoin d'utiliser la fonction ScanLine sui n'existe pas dans TCanvas

Quelqu'un a-t'il une idée ?

Bon apres midi à tous

[Andnotor]

Ajoute Graphics au uses.

[colorid]

Graphics est déjà déclaré dans les uses

D'ailleurs dans cette DLL j'ai déclaré d'autres fonctions qui travaillent sur des paramètres TCanvas sasn poser aucun problème.

D'ailleurs la déclaration dans Var de BMP: TBitmap ne me signale aucune erreur alors que sur la ligne BMP:= Tbitmap.Create; la fonction .create est soulignée en rouge avec à la compilation l'erreur "E2003 : Identificateur non déclaré : 'Create'"

As-tu une autre idée ?

[Andnotor]

Alors c'est que tu as un type record déclaré comme... TBitmap:

Code :

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

1
2
3
4
type
  TBitmap = record
    ...
  end;

Passe ta souris dessus pour voir où il est déclaré.
Ensuite, si tu es responsable , renomme-le! Sinon modifie l'ordre des uses.

[colorid]

sur la TBitmap de la déclaration dans var

tagTBIMAPtype
TBitmap - =Windows.tagBITMAP

sur la ligne TBitmap.Create

identificateur TBitmap non déclaré

[Andnotor]

Comme je te dis, change l'ordre du uses.
C'est le type trouvé dans la dernière unité déclarée qui est utilisé.

Code :

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

1
2
3
4
5
6
 
//Juste
uses Windows, Graphics;
 
//Faux
uses Graphics, Windows;

[Aka Guymelef]

Dans ce genre de cas, mieux vaut préfixer le nom du type par le nom de l'unité :

Code :

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

1
2
3
var
  W,H: Integer;
  BMP:Graphics.TBitmap;

[colorid]

Windows était dans le uses de l'implantation et Graphics dans le uses de l'interface.
J'ai donc déplacé windows dans le uses de l'interface en prenant soin de le placer avant Graphics :
Pas de changement, même problème !

J'ai essayé en déclarant ma variable par Graphics.Tbitmap :
Pas de changement, même problème !

Toujours même problème je n'ai pas d'erreur à la déclaration mais elle se situe à l'utilisation d'une méthode du type comme create ou Free

[Andnotor]

Difficile de t'aider beaucoup plus (c'est la seule explication )

Si tu veux essayer ce que te propose Aka, tu dois préfixer toutes les lignes contenant TBitmap:

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
function ModifieCanvas( Canvas: TCanvas; CanRect: TRect ): Integer;
var
  W,H: Integer;
  BMP:Graphics.TBitmap;
begin
  W:= CanRect.Right-CanRect.Left;
  H:= CanRect.Bottom-CanRect.Top;
  BMP:= Graphics.TBitmap.Create;
  try
//  faitquelquechose;
  finally
    BMP.Free;
  end;
  result:= W*H;
end;

[colorid]

Enfin ça marche mais en réécrivant la fonction sour un autre nom, l'ancienne écriture pose toujours le problème !!! A n'y rien comprendre

Merci à tous