Discussion :

[portu]

bonjour a tous , voila , j'ai un probleme qui me prend la tete et bien , je ne sais pas pq voila :

Code :

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

1
2
3
4
5
6
7
8
9
 
function dessiner : tbitmap;
var
bmp : tbitmap;
begin
bmp := tbitmap.create;
//code
result := bmp;
bmp.free; // et c'est ici que tout foire, je ne sais pas pq il ne veut pas liberer la memoire.

merci d'avance a+

[Pierre Castelain]

Pourquoi veut-tu libérer un objet que tu retourne en résultat de ta fonction ? Si tu veux conserver une fonction, fais en sorte que ce soit le code appelant qui libère l'objet.

[MD Software]

Pourquoi veut-tu libérer un objet que tu retourne en résultat de ta fonction ?

Je pense que Delphi parre ce problème en clonnant l'objet.

Je pense que si ça plante c'est parce qu'il doit détruire son objet précédemment dans son code.

[Laurent GAUDILLIER]

Bonjour,

Tout à fait d'accord avec Pierre ce que tu fais n'est pas logique.

Essaie plutôt ceci alors:

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
 
procedure Dessiner(var B: TBitmap); 
begin 
   with B do
   begin
       // Ton code ici...
   end;
end;
 
Procedure MaProc;
var
   Bitmap: TBitmap;
begin
    Bitmap:= TBitmap.Create;
    Bitmap.Height:= 100;
    Bitmap.Width:= 100;
    Dessiner(Bitmap);
   /// Code supplémentaire ici...
    Bitmap.Free;
end;

Cordialement Laurent

[portu]

heu oui, franchement, j'aurais dû penser directement a cela, merci
a tous.
a+

[MD Software]

Pense à ajouter le tag [RESOLU]

[Denis69]

Portu, je ne devrais pas avoir à te dire ça : LIS MA SIGNATURE !!!

[Nono40]

La méthode de Laurent est effectivement à suivre dans ce cas. Juste que c'est inutile de passer le Bitmap par référence. Car comme tous les Objet TBitMap est un pointeur, donc la modification des propriétés sera bien sur l'objet lui-même et non une copie.

Code :

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

1
2
3
4
5
6
7
procedure Dessiner(B: TBitmap); 
begin 
   with B do 
   begin 
       // Ton code ici... 
   end; 
end;