Problemi con Timage

Discussioni sui linguaggio Delphi

Moderatore: Toki

Regole del forum
Leggi: IProgrammatori.it - Regolamento Forum
caviccun
New Entry
Messaggi: 7
Iscritto il: 10 nov 2015, 14:40

Problemi con Timage

Messaggioda caviccun » 18 dic 2016, 19:37

Salve a tutti. Ho un problema col riconoscimento tra più oggetti image. Faccio un esempio. Inserisco nella form tre oggeti Timage, li chiamo a-b-c. In a metto una mela, in b una banana, in c la stessa mela (jpg) di a. Se facco il seguente confronto non mi viene riconosciuto:
If a.picture = c.picture then showmessage ('trovati');

lo showmessage non compare.Qualcuno saprebbe dirmi come potrei fare per far riconoscere i Timage identici ad altri?
Grazie.
Avatar utente
FSL
New Entry
Messaggi: 8
Iscritto il: 23 gen 2007, 18:49
Contatta:

Re: Problemi con Timage

Messaggioda FSL » 12 gen 2017, 16:43

Non puoi comparare i due oggetti TPicture; nell'esempio che hai dato compari i due puntatori agli oggetti.
Dovresti compareare le due child TBitmap, oppure usare funzioni tipo:

Codice: Seleziona tutto

function CalcPix( img : TImage) : longint;
var
  s : longint;
  i, j : integer;
begin
  s := 0;

  for i := 0 to img.Height do
  begin
     for j := 0 to img.Width do
        s := s + img.Canvas.Pixels[i, j];
  end;

  Result := S;
end;


che ti torna un numero univoco per immagine da poi comparare.
caviccun
New Entry
Messaggi: 7
Iscritto il: 10 nov 2015, 14:40

Re: Problemi con Timage

Messaggioda caviccun » 12 gen 2017, 20:31

Molte grazie, proverò
Wolfen
New Entry
Messaggi: 13
Iscritto il: 13 gen 2017, 17:14

Re: Problemi con Timage

Messaggioda Wolfen » 13 gen 2017, 17:48

Io farei
if a.Picture.Graphic.Equals(b.Picture.Graphic) then
ShowMessage('Uguale');
W.

Torna a “Delphi”

Chi c’è in linea

Visitano il forum: Bing [Bot] e 1 ospite