Frage zu analysen

[Wadim]

hi,

habe mal eine frage:

kann man delphi beibringen, das er z.b wenn man einen weißen streifen hat und dort 5 grüne und ein roter punkte drauf ist- das er erkannen kann welcher der rote ist?

ist nur mal eine frage ob das mit delphi möglich ist- oder geht das schon in die künstliche intiligenz rein.

danke für die antworten

[Sanchez]

Wo hat man die Streifen mit den Punkten, in einem Image?

Wenn du weisst wo (an welcher Position im Image) die Punkte sind kannst du Farbe relativ einfach auswerten.
Möglich ist es auf alle Fälle mit Delphi. Vor kurzem hab ich ein bisschen versucht über eine Webcam Werte, die eine LCD-Anzeige anzeigt auszuwerten. Dazu hab ich jeweils 3 Punkte pro Segment definiert und über die Farbe überprüft, ob das Segment angesteuert ist.

grüße, daniel

[Wadim]

Zitat von Sanchez0815:

Wo hat man die Streifen mit den Punkten, in einem Image?

Wenn du weisst wo (an welcher Position im Image) die Punkte sind kannst du Farbe relativ einfach auswerten.
Möglich ist es auf alle Fälle mit Delphi. Vor kurzem hab ich ein bisschen versucht über eine Webcam Werte, die eine LCD-Anzeige anzeigt auszuwerten. Dazu hab ich jeweils 3 Punkte pro Segment definiert und über die Farbe überprüft, ob das Segment angesteuert ist.

grüße, daniel

ja in einem bild- ich habe ein bild das hat 5 30x30 pixel große quadrate die alle rot sind- eins davon ist grün- nun will ich wissen ob delphi das bild analysieren kann und mir dann die position sagen oder erkennen kann wo das quadrat ist?- wenn das geht, ist das schwer sowas zu proggen?

[czapie]

Nein,

das ist nicht sehr schwer, du kannst jeden Pixel eines Image einzeln, ansprechen und Informationen über diesen Erhalten, wie das geht ist in der Delphihilfe beschrieben.
Dannmußt du nur noch eine Funktion schreiben, die das ganze Bilde durchgeht, das ist ja auch nicht mehr sehr schwe, wenn du sogar weißt wie groß das Bild ist.

Czapie.

[Wadim]

Zitat von czapie:

Nein,

das ist nicht sehr schwer, du kannst jeden Pixel eines Image einzeln, ansprechen und Informationen über diesen Erhalten, wie das geht ist in der Delphihilfe beschrieben.
Dannmußt du nur noch eine Funktion schreiben, die das ganze Bilde durchgeht, das ist ja auch nicht mehr sehr schwe, wenn du sogar weißt wie groß das Bild ist.

Czapie.

ich weiß wie groß das bild ist und auch woe die quadrate liegen- was mus ich als suchbegriff eingeben um darüber was zu kriegen

danke

[Snoop007]

canvas.Pixels sollte dir weiterhelfen, du kannst damit einen pixel setzen oder lesen
klar kann man das ganze bild durchsuchen, aber guck dir mal die such algosan vielleicht kannst du was für dich umsetzen

[Sanchez]

Du sagst du weisst immer wo die Punkte sind, du weisst wahrscheinlich auch wie Groß diese Punkte sind. Angenommen, du definierst z.B. 3 Pixel pro Punkt, von denen du weisst, dass sie am Punkt liegen und eine Farbschwelle um Grün bzw. Rot erkennen zu können. Dann musst du eigentlich nur noch die 3 Pixel durchgehen und auf die Farbe hin überprüfen.

[Tonic1024]

Moin...

Ist das Bild eher wie ein Morse-Code aufgebaut oder wie ein Barcode? Ein Barcode wäre da wohl noch einfacher, da du quasi nur eine Zeile einlesen musst.

Interessanter ist da glaube ich schon die Frage wo das Bild herkommt. Wenn du es einscannst oder sowas, dann musst du Toleranzen schaffen, und das wird dann der wohl schwirigste Teil des Progs werden...

Ansonsten kann ich den Anderen nur beipflichten, ist nicht tragisch. Und selbst die Geschichte mit der KI kann man unter delphi realisieren...

Bis denne.

[Wadim]

Zitat von Sanchez0815:

Du sagst du weisst immer wo die Punkte sind, du weisst wahrscheinlich auch wie Groß diese Punkte sind. Angenommen, du definierst z.B. 3 Pixel pro Punkt, von denen du weisst, dass sie am Punkt liegen und eine Farbschwelle um Grün bzw. Rot erkennen zu können. Dann musst du eigentlich nur noch die 3 Pixel durchgehen und auf die Farbe hin überprüfen.

genau das will ich machen- prüfen welcher der punkte rot ist und welcher grün ist- mehr nicht

[Wadim]

So benutze diesen code- der funktioniert auch aber wie kann ich die farbe (im hex) in einem label anzeien lassen?

procedure TForm1.Button1Click(Sender: TObject);
var
dc: hDc;
begin
dc := GetDC(0);
Color := GetPixel(dc, x, y); //statt x und y, bitte Integer eingeben
ReleaseDC(0, dc);

end;