Bildschirm nach bestimmten Bitmap absuchen

[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 -
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 !