Discussion :

[colorid]

Bonjour,

J'ai écrit une fonction qui intervient sur une TImage en changeant quelques pixels de couleur du tyme Function faisQuelqueChose( IMG : TImage;...):boolean;

Cette fonction s'exécute sans problème quand elle est écrite et appelée dans une unité de l'application.

Si je la déplace dans une DLL elle déclenche une erreur du type EInvalidOperation avec le message "Une image ne peut être modifiée que si elle contient un bitmap"

Or elle contient un bitmap !

Quelqu'un peut-il m'expliquer ?

[ShaiLeTroll]

En même temps, un TImage n'a rien à faire dans une DLL, c'est un composant visuel si c'est uniquement du traitement d'image
Un TBitmap serait plus approprié, ou un TPicture pour gérer d'autres formats !

Sinon transmettre des objet VCL entre DLL, je suis obligé de le faire en ce moment, mais c'est vraiment un truc que je n'aime pas, surtout si cet objet est modifié par la DLL alors que c'est l'EXE qui le créé ou inversement.
J'ignore si avec un TImage cela oblige d'avoir ShareMem ou FastShareMem ? Pour le AnsiString c'est obligatoire, pour le reste, je ne suis pas familier de ces pratiques.

[colorid]

Avec le bitmap voici le code principal de la fonction DLL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// BMP est un bitmap adressé en paramètre à la DLL
  for j := 0 to BMP.Height-1 DO
  begin
    row  := BMP.Scanline[j];
    Bar.Position:= J;
    Bar.update;// ProgressBar passé en paramètre
    for i := 0 to BMP.Width-1 do
    begin
//      OK est fonction de quelque chose
      If not OK Row[i]:= ExcludeTriple;// Ce pixel change de couleur
    end;
  end;
end;

Le BMP devrait être changé car OK est à true un grand nombre de fois qui sont comptées dans une varaible retournée
Or le BMP ne change pas si la fonction est dans une DLL si elle est dans une unité de l'application ça marche, mais il faut que cette fonction soit dans une DLL protégée par une clé car confidentielle

[ShaiLeTroll]

Je serais toi !
J'utiliserais un Buffer !
Copie via TImage.Picture.SaveToStream dans un TMemoryStream

Appel Exe

Code :

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

1
2
3
4
 
.Picture.SaveToStream(MemoryStream) 
faisQuelqueChose(MemoryStream.Memory, MemoryStream.Size);
.Picture.LoadFromStream(MemoryStream)

la 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
procdure faisQuelqueChose(Img: Pointer, ImgLen: Integer)
 
MS := TMemoryStream.Create();
try
  MS.Write(Img, ImgLen);
  MS.Seek(0, soFromBeginning);
  B := TBitMap.Create();
  try
    B.LoadFromStream(MS);
 
    //...calcul...
 
    MS.Seek(0, soFromBeginning);
    B.SaveToStream(MS); 
    if ImgLen = MS.Size then     
      Move(MS.Memory, Img, ImgLen);
    else
      result := ben merde alors !
  finally
    B.Free();
  end;
finally
  MS.Free();
end;

certe, il y a plus de mémoire de consommer, puisqu'il y a une copie d'un MemoryStream dans l'Exe, une autre Copie dans la DLL, puis une affectation à un Bitmap (ouch 4 exemplaires)



Faudrait voir avec les Handles de Windows, il est possible, que l'on puisse échanger des Handle


Appel Exe

Code :

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

1
2
3
4
 
Img := Bitmap.Picture.ReleaseHandle();
faisQuelqueChose(Img)
Picture.Bitmap.Handle := Img;

la DLL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procdure faisQuelqueChose(var Img: HBITMAP)
  B := TBitMap.Create();
  try
    B.Handle := HBITMAP;
 
    //...calcul...
 
    Img := B.ReleaseHandle(); // ? faudrait pas qu'il libère l'image, il y a un compteur de référence et tout ça !
  finally
    B.Free();
  end;

[colorid]

A la ligne 2
.Picture.SaveToStream(MemoryStream)
Il génère une erreur "Impossible d'accéder au symbole protected TPicture.SaveToStream"

[ShaiLeTroll]

Ce n'est pas un code prêt à l'emploi, je l'ai tapé directement sur le forum, sans même le testé !

Bon, je suppose que tu avais toi même corrigé entre temps, que c'est le SaveToStream du Bitmap

[colorid]

Avec le handle du bitmap ça marche !

Merci !

je coche résolu