Problemi con Timage

di il
3 risposte

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

  • 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.
  • Re: Problemi con Timage

    Molte grazie, proverò
  • 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