Discussion :

[colorid]

Bonjour,


Dans la DLL j'écrie la procédure :

Code :

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

1
2
3
4
5
 
procedure DLL_ModifieCanvas( Canvas: TCanvas );
begin
  Canvas.Rectangle(40,40,100,100);
end;

Dans mon application je déclare la procédure de la DLL tel que

Code :

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

1
2
 
procedure DLL_ModifieCanvas( Canvas: TCanvas );stdCall; external 'MaDLL.dll';

Sur un Timage de mon application je charge une image dans un fichier par la procedure TimageLoadFromFile()

Comment dois-je écrire la procédure
procedure TForm.Button1Click(Sender: TObject);
pour que le rectangle déssiné dans la DLL apparaisse sur le Timage ?

J'ai essayé pas mal de combinaisons aucune ne fonctionne !!!

[Paul TOTH]

c'est tout comme le Bitmap, pour dialoguer avec une DLL il faut passer par des Handle Windows.

TBitmap.Handle nous donne un HBitmap
TCanvas.Handle nous donne un HDC

tout comme on peut utiliser un TBitmap dans la DLL à partir du HBitmap, on peux utiliser un TCanvas dans la DLL à partir d'un HDC

Code :

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

1
2
3
4
5
6
7
 
begin
  Canvas := TCanvas.Create;
  Canvas.Handle := HDC;
  Canvas.Rectangle(40,40,100,100);
  Canvas.Free;
end;