Discussion :

[Detlev_linux]

Bonjour,
j'ai beau chercher, je ne trouve pas comment faire un programme capable de faire ceci :

Code :

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

1
2
3
4
5
 
If [contenu de image 1]="c:\bonjour.bmp then
begin
 
end;

si quelqu'un peu m'aider...

[Clorish]

Ca n'est pas possible.

Quand tu selectionne une image Via Delphi les donnees de cette image son incorporees en tant que ressource dans le programme. Tu peux supprimer l'original, Ton programme continuera de tourner comme il faut.

Pour la creation dynamique, le principe est le meme. Delphi charge en memoire les donnees et rend le programme independant de l'original.

Je suppose que dans ton cas tu charge dynamiquement plusieurs images dans un meme composant TImage a different moment de l'execution (sinon je vois pas l'interet de la question :/)

Dans ce cas lorsqu'une image est chargee depuis un fichier (via la methode LoadFromFile) met a jour la propriete Tag du composant TImage a une valeur que tu definie.
Exemple :
Tag := 1 <=> c:\image1.bmp
Tag := 2 <=> c:\image2.bmp, etc.

ainsi en testant la propriete tag, tu saura a partir de quel fichier original l'image aura ete chargee.

Definition de la propriete Tag par Delphi :

Stocke une valeur entière dans un composant.

Tag n'a pas de signification prédéfinie.La propriétéTag est fournie pour les besoins des développeurs.Elle est proposée pour stocker une valeur entière ou elle peut être transtypée sur n'importe quelle valeur 32 bits,comme une référence de composant ou un pointeur.

[Detlev_linux]

Merci pour l'info
Je ne connaissait meme pas la propriete "Tag"

[Sub0]

Slt!

On peut aussi imaginer un TStrings pour sauver les noms de fichier. Tu te sert de l'index...

La solution (la plus lourde) serait de réaliser une fonction qui compare les images.
Par exemple:

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
 
{----------------------------------------------------------------}
Function IsThisFile(im:Timage;fn:string):Boolean;
var x,y:integer;fim:TImage;
Begin
 fim:=Timage.Create(Nil);
 fim.Picture.Bitmap.LoadFromFile(fn);
 Result:=True;
 If not((im.Width=fim.Width)and(im.Height=fim.Height))then
  Result:=False else
 For y:=0 to im.Height-1 do
  For x:=0 to im.Width-1 do
   if(im.Picture.Bitmap.Canvas.Pixels[x,y]<>
     fim.Picture.Bitmap.Canvas.Pixels[x,y])then
  Begin Result:=False;Break;End;
 fim.Free;
End;
 
{----------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
if(IsThisFile(Image1,'test.bmp'))then ShowMessage('Image1 is test.bmp');
end;

Bon, là je compare la taille des images, sinon tous les pixels du bitmap.
Mais tu peux alléger la détection suivant ton appli, ou alors utilises plutôt ScanLine.

à+

[Clorish]

Oualalalala !!! C'est pas un peu l'usine a gaz ?!?!?

Le plus facile (et propre) Reste quand meme de trouver un paliatif a cette propriete "Filename" manquante :

Soit par Tag ...
Soit en implementant une Classe TImage2 derivee de la classe TImage avec cette proprietee .... Et pkoi pas surcharger la methode LoadFromFile ?? Comme ca la proprietee (mise en lecture seule pour plus de securite) est automatiquement renseignee ...

[Sub0]

oui bien d'accord, à moins d'avoir des fichiers dont les données peuvent changer...
Mais je suppose que ce n'est pas le cas ici, à+

[Clorish]

Oki ... je m'incline