Discussion :

[yendre]

J'ai 20 images différentes avec des caractéristiques (attributs) différentes que j'enregistre dans ma table de base de données constituée de 4 champs, dès l'exécution du programme. Le code est le suivant pour trois images. J'utilise Delphi7 et paradox7.

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
25
26
27
28
29
30
31
32
33
 
Procedure TForm1.FormCreate(Sender:TObjet);
var redisotrop1,redisotrop2,redisotrop3: string ;
var rilk, rilca, rilsc:String;
var image1,image2,image3 :TBitmap;
begin
// Initialisation des chaînes de caractères consttituant les noms des images
redisotrop1:='redisotrop1';
redisotrop2:='redisotrop2';
redisotrop3:='redisotrop3';
 
{Initialisation des chaînes de caractères constituant les étiquettes des images}
 
rilk:='rilk';
rilca:='rilca';
rilsc:='rilsc';
 
// Enregistrer les enregistrements dans la base de données
 
 
image1:=TBitmap.create;
image1.LoadfromFile('\redisotrop1.bmp');
Table1.InsertRecord([redisotrop1,rilk,image1,1]);
 
image2:=TBitmap.create;
image2.LoadfromFile('\redisotrop2.bmp');
Table1.InsertRecord([redisotrop2,rilca,image2,2]);
 
image3:=TBitmap.create;
image3.LoadfromFile('\redisotrop3.bmp');
Table1.InsertRecord([redisotrop3,rilsc,image3,3]);
 
end;

Je rappelle que j'ai au total 20 images, donc 20 enregistrements au total. A la fin des enregistrements et par visualisation de toutes les images dans mon application via la base créée, je me rends compte que les images enregistrées dans ma base sont toutes les mêmes alors qu'elles sont différentes.

Ce qui me vient en tête, c'est que compte tenu du nombre d'image et l'utilisation repetitif de Bitmap fait qu'il ya des problème de memoire. Faut il liberer des mémoires? Je ne sais pas.

Quelqu'ul peut bien m'aider. Merci d'avance.

[ShaiLeTroll]

Déjà tu peux faire ceci (quelqu'un l'avait déjà proposé pour réduire ton code dans un autre sujet)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
ObjBitmap := TBitmap.Create;
try
  ObjBitmap .LoadfromFile('\redisotrop1.bmp');
  Table1.InsertRecord([redisotrop1,rilk,ObjBitmap ,1]);
 
  ObjBitmap.LoadfromFile('\redisotrop2.bmp');
  Table1.InsertRecord([redisotrop2,rilca,ObjBitmap ,2]);
 
  ObjBitmap.LoadfromFile('\redisotrop3.bmp');
  Table1.InsertRecord([redisotrop3,rilsc,ObjBitmap ,3]);
finally
  ObjBitmap.Free();
end;

Chaque Create doit avoir son Free ... c'est la base de l'objet en delphi

Ensuite, la même image à chaque fois avec trois objets différents, ce n'est pas normal ... es-tu sur de ta procédure de lecture ...

ensuite, comme je te l'avais conseillé, tu ferais mieux de stocker l'image dans le un sous répertoire des tables, et de stocker le nom de l'image ... tes tables seront plus robustes dans le temps ... sinon c'est pour moi un suicide ...