XProfan

Español

Mit GetDiBits y SetDiBits puede ser BMP-Bilder en el Speicher rápidamente manipulieren.
Grobe Descripción :
Kompilieren Marca Separación

bild_h& = Create(hPic, -1, test.bmp)

> se en el Speicher gelesen
Kompilieren Marca Separación

~GetDIBits(%hdc,bild_h&,0,bmi#.biHeight&,bildxy#,bmi#,0)

> Bild se en un Bereichsvariable gepackt
Kompilieren Marca Separación

whileloop 128*4*10

    byte bildxy#,&loop=255

endwhil

Bild se manipuliert con 128 weißen Pixeln (1 Punkt besteht de 4 Bytes > RGBA). Der 1.Punkt es unten links ,1. Reihe. El Reihen fangen siempre links a. Am besten es, si al BMP-Bild 128x128 Pixel macht, entonces puede ser bien sehen, como unteren 10 Reihen de weißen Pixeln bestehen.
Kompilieren Marca Separación

~setDIBits(%hdc,bild_h&,0,bmi#.biHeight&,bildxy#,bmi#,0)

> El Bereichsvaribale se otra vez en el Handle : bild_h& gesetzt
Kompilieren Marca Separación

drawpic bild_h&,10,10,0

> Se puede ahora el veränderte Bild en el Ventana sehen.

Mit XPIA/ASM ha uno otra vez viele möglichkeiten a Manipulierung
Oder wer el DEV C++ ha y ASM no mag, una schnelle DLL-Solución herstellen en el Zona a verändern.

El Demo :
Kompilieren Marca Separación

 $H Windows.ph
declarar bild1$
declarar hWin&
Ventana 20,20-600,450
Cls @RGB(220,220,220)
bild1$=auto.bmp
erzeugebild(bild1$)
var ende%=1

WHILE ende%

    sleep 1
    waitkey

ENDWHILE

proc erzeugebild

    parámetros namebild$
    declarar width%,height%
    declarar bild_h&,a&
    declarar bmi#,bildxy#
    mcls 0,0,0
    startpaint -1
    mloadbmp namebild$,0,0
    endpaint
    height%=%bmpy
    width%=%bmpx
    def &BI_RGB 0
    def &DIB_RGB_COLORS 0
    struct BITMAPINFOHEADER =
    biSize&, biWidth&, biHeight&, biPlanes%, biBitCount%, biCompression&,
    biSizeImage&, biXPelsPerMeter&, biYPelsPerMeter&, biClrUsed&, biClrImportant&
    dim bmi#,BITMAPINFOHEADER
    clear bmi#

    with bmi#

        .biSize&        = sizeof(bmi#)
        .biWidth&       = width%
        .biHeight&      = height%
        .biPlanes%      = 1
        .biBitCount%    = 32
        .biCompression& = &BI_RGB
        .biSizeImage&   = ((.biWidth& * .biBitCount%  8 - 1) | 3 + 1) * abs(.biHeight&)

    endwith

    bild_h& = Crear(hPic, -1, namebild$)
    drawpic bild_h&,10,10,0
    a&=bmi#.biSizeImage&
    dim bildxy#,a&
    ~GetDIBits(%hdc,bild_h&,0,bmi#.biHeight&,bildxy#,bmi#,0)

    whileloop 128*4*10

        byte bildxy#,&bucle=255

    endwhile

    ~setDIBits(%hdc,bild_h&,0,bmi#.biHeight&,bildxy#,bmi#,0)
    drawpic bild_h&,10,150,0
    disponer bmi#
    disponer bildxy#

ENDPROC