Bildschirm nach bestimmten Bitmap absuchen

[Fredyy]

hi,

ich suche eine Funktion, die den Desktop nach einem bestimmten Bitmap absucht und die Koordinaten zurück gibt, wo es gefunden wurde habe bis jetzt leider nur Möglichkeiten für AutoIt gefunden, nun brauche ich eine für Delphi.

Danke schon einmal für eure hilfe,

gruß,
fredyy

[rollstuhlfahrer]

HI,

1.) wie sieht die Möglichkeit für AutoIT aus? Vllt. kann man die ja umschreiben.
2.) 2 Schleifen und dann den Desktop systematisch absuchen.

Bernhard

[Fredyy]

Das ist die Funktion + Beschreibung und dazu wird noch eine DLL benötigt, hängt im Anhang.

Danke,
Fredyy

Code:

;===============================================================================
;
; Description:      Find the position of an image on the desktop
; Syntax:           _ImageSearchArea, _ImageSearch
; Parameter(s):     
;                   $findImage - the image to locate on the desktop
;                   $tolerance - 0 for no tolerance (0-255). Needed when colors of 
;                                image differ from desktop. e.g GIF
;                   $resultPosition - Set where the returned x,y location of the image is.
;                                     1 for centre of image, 0 for top left of image
;                   $x $y - Return the x and y location of the image
;
; Return Value(s):  On Success - Returns 1
;                   On Failure - Returns 0 
;
; Note: Use _ImageSearch to search the entire desktop, _ImageSearchArea to specify
;       a desktop region to search
;
;===============================================================================
Func _ImageSearch($findImage,$resultPosition,ByRef $x, ByRef $y,$tolerance)
   return _ImageSearchArea($findImage,$resultPosition,0,0,@DesktopWidth,@DesktopHeight,$x,$y,$tolerance)
EndFunc

Func _ImageSearchArea($findImage,$resultPosition,$x1,$y1,$right,$bottom,ByRef $x, ByRef $y, $tolerance)
   ;MsgBox(0,"asd","" & $x1 & " " & $y1 & " " & $right & " " & $bottom)
   if $tolerance>0 then $findImage = "*" & $tolerance & " " & $findImage
   $result = DllCall("ImageSearchDLL.dll","str","ImageSearch","int",$x1,"int",$y1,"int",$right,"int",$bottom,"str",$findImage)

   ; If error exit
    if $result[0]="0" then return 0
   
   ; Otherwise get the x,y location of the match and the size of the image to
   ; compute the centre of search
   $array = StringSplit($result[0],"|")
   
   $x=Int(Number($array[2]))
   $y=Int(Number($array[3]))
   if $resultPosition=1 then
      $x=$x + Int(Number($array[4])/2)
      $y=$y + Int(Number($array[5])/2)
   endif
   return 1
EndFunc

[Matze]

Je nachdem, was genau in der Registry steht (evtl. der Dateiname), kannst du dir dieses Thema näher ansehen und auch Luckies Links zu seinem Tool: Windows Desktop Icons - Position auslesen/verändern.

Ob du die Koordinaten in Pixeln bekommst oder nur eine fortlaufende Nummer, die du dann umrechnen musst, kann ich dir nicht sagen.

[Fredyy]

Zitat:

Zitat von Matze

Je nachdem, was genau in der Registry steht (evtl. der Dateiname), kannst du dir dieses Thema näher ansehen und auch Luckies Links zu seinem Tool: Windows Desktop Icons - Position auslesen/verändern.

Ob du die Koordinaten in Pixeln bekommst oder nur eine fortlaufende Nummer, die du dann umrechnen musst, kann ich dir nicht sagen.

sry, hatte mich da wohl etwas ungenau ausgedrückt, meine nicht nur Desktop, sondern gesamte Anzeige auf dem Bildschirm.



zwischenstand:

Suche gerade eine Möglichkeit die DLL aufzurufen, wie hier via DllCall und verstehe die Sektion mit der tolerance noch nicht wirklich..

[Fredyy]

habe mir jetzt ne menge zum implementieren und bekomme es irgendwie nicht hin, leigt es evtl dran, dass die dll in c++ geschrieben ist?

also im source dll ist die funktion die ich brauche mit

Code:

ImageSearch(int aLeft, int aTop, int aRight, int aBottom, char *aImageFile)

definiert und genau die funktion brauche ich so in delphi, am besten ohne die riesige dll von Hand zu konvertieren :D

Habe nochmal den Source der DLL angehängt, evtl hilfts weiter.

danke an alle die hier mal lesen und überlegen.

gruß,
fredyy

[rollstuhlfahrer]

also, wenn du die DLL benutzen willst, brauchst du sie nicht zu konvertieren. Eine DLL ist kompilierter Quelltext, der immer und jederzeit ausführbar ist, egal, wer/was die DLL aufruft.

je nach Delphi-Version sieht die Einbindung einer DLL anders aus. Guck doch mal in der Hilfe. Für D7 würde das dann heißen:

Delphi-Quellcode:

function ImageSearch(aLeft: Integer; aTop: Integer; aRight: Integer; aBottom: Integer; aImageFile: PChar): PChar; stdcall; external 'Datname.dll';

wobei ich mir beim Ergebnis nicht so sicher bin.

Bernhard

[Fredyy]

Super, dass scheint schonmal zu funktionieren, jedoch funktioniert die Rückgabe der Koordianten x und y noch nicht richtig, habe die Variablen Global definiert, jedoch bleiben sie leer.
Hier meine erweiterte Funktion:

Delphi-Quellcode:

function _ImageSearch(findImage: string; tolerance: Integer): Boolean;
var
  ergebnis : PChar;
begin
  if (tolerance > 0) then findImage := '*' + inttostr(tolerance) + ' ' + findImage;

  ergebnis := ImageSearch(0,0,Screen.Width,Screen.Height,PCHAR(findImage));

  if ergebnis[0]  = '1' then
  begin
  showmessage('found' + inttostr(x) + ' ' + inttostr(y));
  result := true;
  end
  else
  begin
  result := false
  end;

end;

Danke schon einmal für die Super Hilfe.

gruß,
Fredyy

[mkinzler]

Gebe diese besser in Var/Out Parametern zurück

[Fredyy]

Kannst du mir zufällig ein kleines Beispiel geben, weil so wie ich es bis jetzt gesehen habe muss ich das in die Funktionsdeklaration aus der DLL eingefügt werden, doch wie geht das genau?

[mkinzler]

Delphi-Quellcode:

function _ImageSearch(afindImage: string; atolerance: Integer; var ax, ay: Integer): Boolean;

[Medium]

Du musst deinen Variablen die Werte schon selbst zuweisen. Woher soll die DLL wissen wohin damit? Die DLL gibt sie ja lediglich als Strings in der Rückgabe, hinter der "1" zurück. Den müsstest du dir dann selbst wieder auseinanderfriemeln. Ich bin zudem nicht ganz davon überzeugt, dass das mit der DLL so super ist. Die Aufgabe selbst ist an sich doch relativ simpel, und in der DLL wird auch nichts anderes gemacht als sich den DC vom Desktop abzuholen.

Zitat:

meine nicht nur Desktop, sondern gesamte Anzeige auf dem Bildschirm.

Der Desktop IST der gesamte Bildschirminhalt.


Edit: In dieser Zeile wird die Rückgabe zusammengebastelt:

sprintf_s(answer,"1|%d|%d|%d|%d",locx,locy,image_w idth,image_height);

Den resultieren String müsstest du wieder zerpflücken. An die Parameter wird hier nichts zurückgegeben, also wird eine by reference Übergabe hier eher knallen als denn eine Lösung sein. Dass das verdammt unelegant ist brauche ich glaube ich nicht zu erwähnen :)

[Fredyy]

Ah, vielen vielen Dank euch allen, hatte voll verpeilt, dass der Rückgabe String ja die ganzen Daten hinter einander enthält, habe den jetzt gesplittet und es funktioniert bestens.

Hatte den Abschluss in dem AutoIt Aufruf nicht beachtet, weil ich den als zusatz ansah, wenn man die Mitte des Fundortes haben will.

Warum ich die DLL nutze? weil es für mich als einfachste und effizienteste Lösung in Frage kam ohne, alles selber zu machen bzw schon vorhandenes zu nutzen.

Das gesamte Problem hat sich damit nun gelöst.

Wünsche euch allen noch einen Schönen Tag und ein großes Danke, wenn es noch optimierungs-Vorschläge oder sonstige Anmerkungen gibt immer her damit.

guß,
Fredyy

[110110]

anscheinend gibts ja hier ne lösung, wie funktioniert das jetzt? auseinander nehmen is ja kein prob aber wie bind ich dll function ein und ruf die auf dass er mir dann auch die koords zurück gibt? thx ;)

edit: hab jetzt ma bisschen zusammengebastelt aber iwie blick ich da noch nicht ganz durch also wenn wer so freundlich wär und mir helfen würde dann bitte =)

Delphi-Quellcode:

function ImageSearch(afindImage: string; atolerance: Integer; aresultPosition:integer; var ax, ay: Integer): Boolean;
stdcall; external 'ImageSearchDLL.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  ax, ay:integer;
begin                    //0-255
ImageSearch('image.bmp', 50, 1, ax, ay);
Showmessage(InttoStr(ax) + ' ' +InttoStr(ay));
end;

[110110]

sry fürs pushen aber is wichtig, würde heute gern en stück weiter kommen..

[110110]

*PUSH* kann keiner helfen? :(

[110110]

*PUSH* helft doch mal bitte =)

[Kanne]

Hi,
war auf der Suche nach einem BITMAP-Vergleich und bin dabei auf diesen (etwas älteren !) Eintrag gestoßen.
Habe mir einen DLL-Source von der ImageSearchDLL besorgt und konnte das in Delphi XE2 wie folgt zum Laufen bekommen:

Bei Delphi XE2 wurde im Vergleich zu V7 gerade bei den Strings viel geändert, so dass man die externe DLL anders aufrufen muss:

Delphi-Quellcode:

function ImageSearch(aLeft: Integer; aTop: Integer; aRight: Integer; aBottom: Integer; aImageFile: PAnsiChar): 
PAnsiChar; stdcall; external 'ImageSearchDLL.dll';

Aufruf (ALLE (!) Vorkommen der gesuchten Grafik in Schleife suchen):

Delphi-Quellcode:

procedure TBOT_Form.FindAllGraphics(pStartX,pStarty,pEndeX,pEndeY:integer);
var
  pPosX,pPosY,pSizeX,pSizeY,pRetC : integer;
  sRet        : AnsiString;
  pFileName   : AnsiString;
  sText       : AnsiString;
  sStringList : TStringList;
Begin
  sStringList := TStringList.Create;
  sStringList.Delimiter := '|';
  sStringList.StrictDelimiter := true;
  pFileName := '*50 z:\ImageSearch.bmp';
  sText := '';
  sRet := ImageSearch(pStartX, pStarty, pEndeX, pEndeY, PAnsiChar(pFileName));
  while (LeftStr(sRet,1) = '1') do begin
    sText := sText + sRet + #13#10;
    sStringList.DelimitedText := sRet;
    pRetC  := StrToInt(sStringList.Strings[0]);
    pPosX  := StrToInt(sStringList.Strings[1]);
    pPosY  := StrToInt(sStringList.Strings[2]);
    pSizeX := StrToInt(sStringList.Strings[3]);
    pSizeY := StrToInt(sStringList.Strings[4]);
    sRet := ImageSearch(pPosX+1, pPosY, pEndeX, pEndeY, PAnsiChar(pFileName)); {nächste rechts}
    if LeftStr(sRet,1) = '0' then begin {kein Vorkommen mehr => links Anfangen nach unten}
    sRet := ImageSearch(pStartX, pPosY+1, pEndeX, pEndeY, PAnsiChar(pFileName)); {nach rechts}
    end;
  end;
  sStringList.Free;
  memo1.Clear;
  memo1.lines.Add(TimeToStr(now()) + ' Capture ' + Format(' %d x %d y ... %d x %d y',[xPosStart, yPosStart, xPosEnd, yPosEnd]));
  memo1.lines.Add(sText);

[Kanne]

P.S.:

deine Deklaration hat vollkommen falsche Parameter, ähnlich den Aufrufen von AutoID,
die wohl Anlass für Auslagerung der Codeteile von AutoHotKey in eine DLL waren !

zB: "resultPosition" gibt es in der DLL gar nicht, wird bei 1(Center) durch AutoID über die Rückgaben berechnet (Pos + Größe /2)
dafür sind in der o.g. Deklaration keine Eingrenzungen des Bereichs möglich, was die DLL aber kann und für Performance auch wichtig ist !
Das hat AutoID nun wieder über eine 2. Funktion ImageSearchArea gelöst:

Code:

===============================================================================
Einbindung AutoID (.au3)
===============================================================================
 ;===============================================================================
 ;
 ; Description:     Find the position of an image on the desktop
 ; Syntax:          _ImageSearchArea, _ImageSearch
 ; Parameter(s):    
 ;                  $findImage - the image to locate on the desktop
 ;                  $tolerance - 0 for no tolerance (0-255). Needed when colors of 
 ;                               image differ from desktop. e.g GIF
 ;                  $resultPosition - Set where the returned x,y location of the image is.
 ;                                    1 for centre of image, 0 for top left of image
 ;                  $x $y - Return the x and y location of the image
 ;
 ; Return Value(s): On Success - Returns 1
 ;                  On Failure - Returns 0 
 ;
 ; Note: Use _ImageSearch to search the entire desktop, _ImageSearchArea to specify
 ;      a desktop region to search
 ;
 ;===============================================================================
  
 Func _ImageSearch($findImage,$resultPosition,ByRef $x, ByRef $y,$tolerance)
    return _ImageSearchArea($findImage,$resultPosition,0,0,@DesktopWidth,@DesktopHeight,$x,$y,$tolerance)
 EndFunc
        
 Func _ImageSearchArea($findImage,$resultPosition,$x1,$y1,$right,$bottom,ByRef $x, ByRef $y, $tolerance)
    ;MsgBox(0,"asd","" & $x1 & " " & $y1 & " " & $right & " " & $bottom)
    if $tolerance>0 then $findImage = "*" & $tolerance & " " & $findImage
    $result = DllCall("ImageSearchDLL.dll","str","ImageSearch","int",$x1,"int",$y1,"int",$right,"int",$bottom,"str",$findImage)

    ; If error exit
     if $result[0]="0" then return 0
    
    ; Otherwise get the x,y location of the match and the size of the image to
    ; compute the centre of search
    $array = StringSplit($result[0],"|")
    
    $x=Int(Number($array[2]))
    $y=Int(Number($array[3]))
    if $resultPosition=1 then
       $x=$x + Int(Number($array[4])/2)
       $y=$y + Int(Number($array[5])/2)
    endif
    return 1
 EndFunc

Wichtig ist der DLL-Aufruf:
DllCall("ImageSearchDLL.dll","str","ImageSearch"," int",$x1,"int",$y1,"int",$right,"int",$bottom,"str ",$findImage)
Dies entspricht meiner Deklaration in Delphi - Rückgabe ist ein String mit verketteten Werten (siehe meinen Delphi-Source)

[Kanne]

bin dabei einen Kartenbot für Doppelkopf zu programmieren - was schon geht:
- Aufziehen eines "Beobachte"-Frame auf dem ganzen Bildschirm
- Kopieren des Frames in ein Image-Control (entspricht letztlich einem Hardcopy-Programm);
mehr zum Testen, ob das mit dem Frame klappt - evtl. nützlich um die Suchgrafik zu definieren/speichern
- Automatische Beobachtung über Timer, wie oft eine Such-Bitmap im Frame auftaucht

Leider ist in der Hardcopy der Beobachtungsframe nicht drauf :cry: -
denke mal, weil das eine Zeichnung auf einem fremden Canvas ist.

Durch Verschiebung der Windows-Fotoanzeige wird jedenfalls immer alle Vorkommen innerhalb des Such-Frames ausgegeben !