чето не выходит(
ABitmap:=TBitmap.Create;
ABitmap.LoadFromFile('D:\тим\шаг\000.bmp');
ADC:=CreateCompatibleDC(0);
ZeroMemory(@ABitmapInfo.bmiHeader, SizeOf(TBitmapInfoHeader));
ABitmapInfo.bmiHeader.biSize:=SizeOf(TBitmapInfoHe ader);
abitmapinfo.bmiHeader.biClrUsed:=24;
abitmapinfo.bmiHeader.biWidth:=1000;
abitmapinfo.bmiHeader.biHeight:=750;
abitmapinfo.bmiHeader.biPlanes:=1;
abitmapinfo.bmiHeader.biSizeImage:=2250000;
abitmapinfo.bmiHeader.biClrImportant:=0;
abitmapinfo.bmiHeader.biXPelsPerMeter:=1000;
abitmapinfo.bmiHeader.biYPelsPerMeter:=750;
SetLength(lpvBits, 2250000);
GetDIBits(ADC, ABitmap.Handle, 0, 750, lpvBits, ABitmapInfo, DIB_RGB_COLORS);
// lpvBits: array [0..ABitmapInfo.bmiHeader.biSizeImage-1] of R, G, B; - условно
DeleteDC(ADC) ;
ABitmap.Free;
чето я наверно не то рками делаю, массив из нулей(((
|