AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

2 TImages mit einander vergleichen

Ein Thema von Mikro · begonnen am 4. Jul 2007 · letzter Beitrag vom 5. Jul 2007
Antwort Antwort
Seite 1 von 2  1 2      
Mikro

Registriert seit: 28. Jun 2007
43 Beiträge
 
#1

2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:19
Hi,

wenn 2 ausgewählte Imgaes gleich sind, soll etwas passieren. Ich hab mir das zusammengedacht:
if image1.picture=image3.picture then edit1.text:=inttostr(strtoint(edit1.text)+ 1); das funktioniert aber nicht, zeigt mir immer ne 0 (Startwert) im edit-Feld an.

Wie funktioniert das ganze bei TRichEdit, da klappt es bei mir auch nicht... BItte um Hilfe!!!
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#2

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:23
Zitat von Mikro:
if image1.picture=image3.picture
Du vergleichst hier Referenzen auf Objekte. Um die Grafiken an sich miteinander zu vergleichen, wirst Du um einen Pixelvergleich nicht herumkommen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Mikro

Registriert seit: 28. Jun 2007
43 Beiträge
 
#3

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:34
Kann ich nicht einfach den Pfad vergleichen, denn der ist von mir festgegeben. Ist gibt 4 verschiedene Bilder, d.h. 4 verschiedene, aber fest vergebene Dateipfade, wenn ein Dateipfad mit dem gesuchten übereinstimmt, soll was passieren, das geht nicht??
Wie kann ich sonst prüfen, ob das Bild das Gleiche ist, wenn ich weiß, dass es nur eins von 4 sein kann???
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#4

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:37
Lädts Du die Bilder mit LoadFromFile? Dann merk Dir doch einfach den Pfad je Image.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:41
Der Bildpfad wird norgendwo gespeichert, entweder machst du das selbst oder diese Möglichkeit funktioniert nicht. Du könntest versuchen,. bei den Bildern z.B. die linken oberen Pixel miteinander zu vergleichen. Das geht so:
if image1.canvas.pixels[0,0]=image2.canvas.pixels[0,0] then edit: Fehler korrigiert
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#6

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:42
@Apollonius: Das ist jetzt nicht Dein Ernst, oder? Dann würden ja alle Grafiken matchen, die zufällig in der linken oberen Ecke die gleiche Farbe haben.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Mikro

Registriert seit: 28. Jun 2007
43 Beiträge
 
#7

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:50
nur ein Pixel zu vergleichen würde nicht klappen, die Bilder haben sehr ähnliche Hintergründe...

Ich weiße die Bilder schon vorher zu, also nicht über LoadFromFile, irgendwo muss doch der Pfad von dem Bild hinterlegt sein. Denn wenn ich nen leeres TImage (Image2) nehme und schreibe:
image2.picture:=image1.picture nimmt das das Bild des ersten Image an. Also muss das auch wissen, was es drin hat

bye
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#8

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:52
Zitat von Mikro:
Ich weiße die Bilder schon vorher zu
Und wie?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Mikro

Registriert seit: 28. Jun 2007
43 Beiträge
 
#9

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:54
doppelt auf TImage klicken, dann auf Laden, Pfad wählen, ok... Eben vor dem compilieren...
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#10

Re: 2 TImages mit einander vergleichen

  Alt 4. Jul 2007, 21:59
Dann hast Du die Bilder fest in den Ressourcen. Nimm doch eine TImageList, lade Deine 4 Bilder da hinein und weise den Images die Grafiken zur Laufzeit zu.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz