Problemi con Timage

di
caviccun
il
3 risposte
C
caviccun
Pochi posts
Iscritto da
nov, 2015
Messaggi:
38

Problemi con Timage

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.

3 Risposte

  • F
    FSL
    Pochi posts
    Iscritto da
    gen, 2007
    Messaggi:
    8

    Re: Problemi con Timage

    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:
    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.
  • C
    caviccun
    Pochi posts
    Iscritto da
    nov, 2015
    Messaggi:
    38

    Re: Problemi con Timage

    Molte grazie, proverò
  • W
    Wolfen
    Utente Attivo
    Iscritto da
    gen, 2017
    Messaggi:
    79

    Re: Problemi con Timage

    Io farei
    if a.Picture.Graphic.Equals(b.Picture.Graphic) then
    ShowMessage('Uguale');
    W.
Devi accedere o registrarti per scrivere nel forum
3 risposte