Re: Api Windows

Posté par do_mi_ni_que@hotmail.com le 15/12/2005 17:37:53

Avez vous trouve la solution , j'ai beau chercher moi aussi , je trouve pas !

BITMAPINFOHEADER est une structure
biSize est un entier //Type C : DWORD
biWidth est un entier //Type C : LONG
biHeight est un entier //Type C : LONG

biPlanes est un entier sur 2 octets sans signe //Type C : WORD
biBitCount est un entier sur 2 octets sans signe//Type C : WORD

biCompression est un entier //Type C : DWORD
biSizeImage est un entier //Type C : DWORD
biXPelsPerMeter est un entier //Type C : LONG
biYPelsPerMeter est un entier //Type C : LONG
biClrUsed est un entier //Type C : DWORD
biClrImportant est un entier //Type C : DWORD
FIN

RGBQUAD est une structure
// rgbBlue est un caractère
// rgbGreen est un caractère //Type C : BYTE
// rgbRed est un caractère //Type C : BYTE
// rgbReserved est un caractère //Type C : BYTE
FIN

bmiHeader est un BITMAPINFOHEADER //BITMAPINFOHEADER est une autre structure
bmiColors est un tableau de 90000 RGBQUAD //RGBQUAD est une autre structure


bmiHeader:biSize = Dimension(bmiHeader)
bmiHeader:biHeight = 300
bmiHeader:biWidth = 300
bmiHeader:biPlanes = 1
bmiHeader:biBitCount = 32

RetourFonction est un entier // Type C :INT

hImage1 est un entier = Handle("IMAGE2")
hdc est un entier = AppelDLL32("user32", "GetDC",hImage1)

RetourFonction=AppelDLL32("GDI32","GetDIBits",hdc,hImage1,1,100,&bmiColors,&bmiHeader,0)

Trace(bmiHeader:biSizeImage)