Hallo Gemeinde
Ich verwende die ImageSearchDLL.dll, um ein Bild in einem Image zu suchen.
Das gesuchte Bild kann mehrfach vorkommen.
Dafür erzeuge ich zur Laufzeit einen Screenshot (test.bmp), bei dem ich jeweils das gefundene Bild mit einem roten Rechteck übermale,
das Image abspeicher, wieder lade und dann den Suchlauf nochmals starte, bis alles gefunden wurde und die Suchfunktion abbricht.
Das Problem ist, es wird nur beim ersten mal ein rotes Rechteck gezeichnet, aber selbst das wird dann so behandelt,
als ob es gar nicht da wäre.
Loop durch das Bild...
Delphi-Quellcode:
while imgtest = true do // Suchbild kann ?-mal vorkommen
begin
Form2.Image.Picture.LoadFromFile('test.bmp'); // Image (erneut) laden
_ImageSearch(FImagepath + 'bluespot.png', strtoint(Form1.lbledt1.Text)); // Aufruf Suchfunktion
Form2.Image.Picture.SaveToFile('test.bmp'); // Abspeichern mit rotem Rechteck
Form2.Image.Picture.Assign(nil); // <--- auch damit funktioniert es nicht
end;
Suchfunktion...
Delphi-Quellcode:
ergebnis := ImageSearch(0, 0, Screen.Width, Screen.Height, PCHAR(findImage));
try
Split('|', ergebnis, A) ;
if A[0] = '1' then
begin
Rec.x := A[1]; // Rec ist ein Record für weitere Verwendung
Rec.y := A[2];
Form2.DrawRedRectangle(strtoint(Rec.x), strtoint(Rec.y));
imgtest := true;
end
In DrawRedRectangle steht...
Delphi-Quellcode:
procedure TForm2.DrawRedRectangle(X,Y: integer);
begin
Image.Canvas.Pen.Color := clRed;
Image.Canvas.Brush.Color := clRed;
Image.Canvas.Rectangle(X, Y, X+17, Y+9);
Image.Update;
Application.ProcessMessages;
end;
Es wird wie gesagt nur beim allerersten Lauf ein Rechteck gezeichnet, das dann auch beim 1. Abspeichern vorhanden ist, nach
jedem weiteren laden wird kein weiteres Rechteck mehr gezeichnet.
Die Suchfunktion ignoriert selbst dieses Rechteck völlig, als ob es gar nicht da wäre und findet immer wieder das gleiche Suchbild
an der gleichen Position, obwohl es übermalt wurde.
Mit Grafiken hab ich relativ wenig zu tun, von daher stehe ich da wie der Ochs vorm Berg und bin auf
euch Grafikprofis angewiesen.
Danke schon mal recht herzlich für eure Tips!