XProfan

- page 3 -

qui Doku qui je en supplément fand beinhaltete lediglich den bereits dessus einkopierten Aufruf avec Parametern - habe rien so droite trouvé et deswegen aussi qui Solution avec reinem XProfan erstellt. (quelle deutlich plus rapide comme qui DLL travailler sollte/pourrait.)

Thomas
Freier

chez mir finissez qui pixelSearch.exe sich juste beim Starten.

Screen.png	10 kB

Hochgeladen:	25.02.2009

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

un SS.BMP liegt im Pfad?

Thomas
Freier

non, J'avais oublié. eh bien ca va et droite zügig (17.5MB). Würde cependant den ersten weissen Pixel à anderer Stelle vermuten, z.B.: chez den Sonnenschirmen. Verkleinertes Beispiel. Fundort ist identique x=609, y=398.

Screen-SS.png	1.203 kB

Hochgeladen:	25.02.2009

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Christian
Schneider

RGH

Salut,

sur quoi beziehen sich qui Koordinaten, dans denen gesucht wird? Beziehen qui sich sur den Desktop, irgenein la fenêtre, irgenmdeine Bitmap, ou bien quoi entier d'autre?

je vermute la fois sur den Desktop. Zwar gibt es dans AutoIt selbst chez qui Funktion une optionalen paramètre pour un Handle, cependant steht cet dans qui .dll scheinbar pas zur Disposition (zumindest pas dans qui Funktion selbst / Hinweise sur une Einstellmöglichkeit per anderer Funktion konnte je également pas trouver).

RGH

là qui DLL, comment dessus geschrieben steht, offensichtlich initialisiert volonté doit, muss vous naturellement aussi zuallererst avec UseDLL dans den grenier geladen volonté. Ist vous ca pas, serait vous zwar beim Aufruf qui Init-Funktion dans den den grenier geladen, qui Funktion fonctionnement, mais anschließend tout de suite wieder entladen werde. ensuite wäre qui initialisation pour qui Katz!

je muss gestehen cela était mir bisher pas bewusst. Habe déjà un peu sur cette la base herumprobiert, cependant avec dem gleichen Ergebnis comment bisher.

RGH

je serait vermuten, dass avant dem Aufruf de AU3_PixelSearch seulement autre Aufrufe avoir lieu doit, avec cela quoi voilà, dans dem gesucht volonté peux.

comment dessus geschrieben konnte je puis keinen Hinweis trouver. Zwar gibt es quelques Optionen qui on per AutoItSetOption mettons pourrait, cependant rien quoi wirklich passt. Aussi ist toujours un Default-Wert vorhanden.

XProfan 11| Vista(64) SP2

je hatte oublier qc une Code [...]

trop posten.

03.03.2009 ▲

Christian
Schneider

merci. juste la fois einlesen.

XProfan 11| Vista(64) SP2

04.03.2009 ▲

Christian
Schneider

qui Code fonctionne chez mir im Originalzustand sans Probleme.

eh bien ca va mir tout autor plusieurs Farbvorkommen pour trouver (si vorhanden). mais c'est pas cela eigentliche Problem. peux mir quelqu'un begreiflich faire pourquoi qui folgende 1. Code fonctionne et qui 2. pas?

1:
Kompilieren Marque Séparation

CLS
var HPIC&=CREATE(hNewPic,1024,1024,0)
var X&=RND(1024)
var Y&=RND(1024)
var COL&=$00FF00
STARTPAINT HPIC&
SETPIXEL X&,Y&,COL&
ENDPAINT
Declare SOMEPOS&
SOMEPOS&=HPIC.PIXELSEARCH(HPIC&,COL&,1024,1024)
SOMEPOS&=HPIC.PIXELSEARCH(HPIC&,COL&,1024,1024)
PRINT X&,Y&
PRINT HIWORD(SOMEPOS&),LOWORD(SOMEPOS&)
WAITINPUT
END

proc HPIC.BGR2STRING

    PARAMETERS H&,_WIDTH&,_HEIGHT&
    var SZ&=( (_WIDTH&*328-1) | 3 +1) * ABS(_HEIGHT&)
    DECLARE MEM#
    DIM MEM#,BITMAPINFOHEADER

    WITH MEM#

        .BISIZE&=SIZEOF(MEM#)
        .BIWIDTH&=_WIDTH&
        .BIHEIGHT&=_HEIGHT&
        .BIPLANES%=1
        .BIBITCOUNT%=32
        .BICOMPRESSION&=0
        .BISIZEIMAGE&=SZ&

    ENDWITH

    DECLARE DATA#
    DIM DATA#,SZ&
    var RET$=

    IF ~GetDIBits(%HDC,H&,0,_HEIGHT&,DATA#,MEM#,0)

        RET$=CHAR$(DATA#,0,SZ&)

    ENDIF

    DISPOSE DATA#
    DISPOSE MEM#
    RETURN +RET$

endproc

proc HPIC.PIXELSEARCH

    PARAMETERS H&,COLORTOFIND&,_WIDTH&,_HEIGHT&
    var RAWDATA$=HPIC.BGR2STRING(H&,_WIDTH&,_HEIGHT&)
    var _FND&=HPIC.FINDCOLORINRAWDATA(COLORTOFIND&,RAWDATA$)

    IF _FND&=-1

        RETURN _FND&

    ENDIF

    var X&=_FND& MOD _WIDTH&
    var Y&=0

    IF _FND& > 0

        Y&=_FND&\_WIDTH&

    ENDIF

    RETURN X&*65536+(_HEIGHT&-Y&-1)

endproc

proc HPIC.FINDCOLORINRAWDATA

    PARAMETERS COL&,DATA$
    var C&=1
    var P&=0
    var SCOL$=CHR$(GETBVALUE(COL&))+CHR$(GETGVALUE(COL&))+CHR$(GETRVALUE(COL&))

    WHILE 1

        P&=INSTR(SCOL$,DATA$,C&)

        IFNOT P&

            BREAK

        ENDIF

        IFNOT (P&-1) MOD 4

            RETURN P&*0.25

        ENDIF

        C&=P&+1

    ENDWHILE

    RETURN -span class=s2>1

endproc

2:
Kompilieren Marque Séparation

 $H windows.ph
STRUCT BITMAPINFOHEADER=BISIZE&,BIWIDTH&,BIHEIGHT&,BIPLANES%,BIBITCOUNT%,BICOMPRESSION&,BISIZEIMAGE&,BIXPELSPERMETER&,BIYPELSPERMETER&,BICLRUSED&,BICLRIMPORTANT&
RANDOMIZE
CLS
var HPIC&=CREATE(hNewPic,1024,1024,0)
var X&=RND(1024)
var Y&=RND(1024)
var COL&=$00FF00
STARTPAINT HPIC&
SETPIXEL X&,Y&,COL&
ENDPAINT
Déclarer SOMEPOS&

Whileloop 2

    SOMEPOS&=HPIC.PIXELSEARCH(HPIC&,COL&,1024,1024)

Endwhile

PRINT X&,Y&
PRINT HIWORD(SOMEPOS&),LOWORD(SOMEPOS&)
WAITINPUT
FIN

proc HPIC.BGR2STRING

    PARAMETERS H&,_WIDTH&,_HEIGHT&
    var SZ&=( (_WIDTH&*328-1) | 3 +1) * ABS(_HEIGHT&)
    DECLARE MEM#
    DIM MEM#,BITMAPINFOHEADER

    WITH MEM#

        .BISIZE&=SIZEOF(MEM#)
        .BIWIDTH&=_WIDTH&
        .BIHEIGHT&=_HEIGHT&
        .BIPLANES%=1
        .BIBITCOUNT%=32
        .BICOMPRESSION&=0
        .BISIZEIMAGE&=SZ&

    ENDWITH

    DECLARE DATA#
    DIM DATA#,SZ&
    var RET$=

    IF ~GetDIBits(%HDC,H&,0,_HEIGHT&,DATA#,MEM#,0)

        RET$=CHAR$(DATA#,0,SZ&)

    ENDIF

    DISPOSE DATA#
    DISPOSE MEM#
    RETOUR +RET$

endproc

proc HPIC.PIXELSEARCH

    PARAMETERS H&,COLORTOFIND&,_WIDTH&,_HEIGHT&
    var RAWDATA$=HPIC.BGR2STRING(H&,_WIDTH&,_HEIGHT&)
    var _FND&=HPIC.FINDCOLORINRAWDATA(COLORTOFIND&,RAWDATA$)

    IF _FND&=-1

        RETOUR _FND&

    ENDIF

    var X&=_FND& MOD _WIDTH&
    var Y&=0

    IF _FND& > 0

        Y&=_FND&\_WIDTH&

    ENDIF

    RETOUR X&*65536+(_HEIGHT&-Y&-1)

endproc

proc HPIC.FINDCOLORINRAWDATA

    PARAMETERS COL&,DATA$
    var C&=1
    var P&=0
    var SCOL$=CHR$(GETBVALUE(COL&))+CHR$(GETGVALUE(COL&))+CHR$(GETRVALUE(COL&))

    WHILE 1

        P&=INSTR(SCOL$,DATA$,C&)

        IFNOT P&

            BREAK

        ENDIF

        IFNOT (P&-1) MOD 4

            RETOUR P&*0.25

        ENDIF

        C&=P&+1

    ENDWHILE

    RETOUR -1

endproc

qui Unterschied liegt y cela im 1. Beispiel qui Suchfunktion 2x aufgerufen wird
Kompilieren Marque Séparation

SOMEPOS&=HPIC.PIXELSEARCH(HPIC&,COL&,1024,1024)
SOMEPOS&=HPIC.PIXELSEARCH(HPIC&,COL&,1024,1024)

et im 2. Beispiel également, allerdings per Whileloop
Kompilieren Marque Séparation

Whileloop 2

    SOMEPOS&=HPIC.PIXELSEARCH(HPIC&,COL&,1024,1024)

Endwhile

Im 2. Beispiel werde je puis hingewiesen cela Scol$ pas deklariert sei, quoique vom Verständnis her cela Gleiche passer sollte. Bien sûr pouvoir qui doppelte Aufruf keinen Sinn. cet Varianten sommes lediglich zur Fehlersuche entstanden.

XProfan 11| Vista(64) SP2

04.03.2009 ▲

si es ensuite später ums trouver mehrerer Pixel allez serait je hPic.bgr2String seulement einmalig appel.

j'ai getestet 2 la fois aufzurufen + klappt. sur qui Schnelle konnte je dans Deinem Beispiel den faute pas erkennen.
Kompilieren Marque Séparation

 {$cleq}
 {$runtime c:xprofan11}
randomize
const xx=1024
const yy=1024
cls
long hPic=create(hNewPic,xx,yy,0)
long x=rnd(xx),y=rnd(yy)
long col=$00FF00
startPaint hPic
setPixel x,y,col
endPaint
long somePos=hPic.PixelSearch(hPic,col,xx,yy)
print x,y
print hiWord(somePos),loWord(somePos)
x=rnd(xx)
y=rnd(yy)
startPaint hPic
cls
setPixel x,y,col
endPaint
somePos=hPic.PixelSearch(hPic,col,xx,yy)
locate 3,1
print x,y
print hiWord(somePos),loWord(somePos)
waitInput
end

string hPic.bgr2String(long h,_width,_height){

    long sz=( (_width*328-1) | 3 +1) * abs(_height)
    mem mem=bitmapInfoHeader

    with mem

        .biSize&        = sizeof(mem)
        .biWidth&       = _width
        .biHeight&      = _height
        .biPlanes%      = 1
        .biBitCount%    = 32
        .biCompression& = BI_RGB
        .biSizeImage&   = sz

    endwith

    mem data=sz
    string ret=error
    case ~getDIBits(hDC,h,,_height,data,mem,) : ret=char$(data,0,sz)
    dispose data
    dispose mem
    return ret

}

long hPic.PixelSearch(long h,colorToFind,_width,_height){

    string rawData=hPic.bgr2String(h,_width,_height)
    long _fnd=hPic.findColorInRawData(colorToFind,rawData)
    case _fnd==-1 : return _fnd
    long x=_fnd mod _width,y
    case _fnd > 0 : y=_fnd\_width
    return x*65536+(_height-y-1)

}

long hPic.findColorInRawData(long col,string data){

    long c=1,p
    string sCol=chr$(getBValue(col))+chr$(getGValue(col))+chr$(getRValue(col))

    do {

        p=instr(sCol,data,c)
        casenot p : break
        casenot (p-1) mod 4 : return p*0.25
        c=p+1

    }

    return

span class=s2>-1 }

04.03.2009 ▲