Форум программистов [Powered by Invision Power Board]

Цитата

Функция SetDIBitsToDevice устанавливает пиксели в заданном прямоугольнике устройства, которое связано с целевым контекстом устройства, используя данные о цвете из аппаратно-независимого растрового формата (DIB).

Windows 98/Me, Windows 2000/XP: SetDIBitsToDevice была дополнена, чтобы дать возможность формат изображения JPEG или PNG передавать как источниковое изображение.

Синтаксис

Код


int SetDIBitsToDevice(
  HDC hdc,                 // дескриптор DC
  int XDest,               // x-коорд. верхнего левого угла приемника
  int YDest,               // y-коорд. верхнего левого угла приемника
  DWORD dwWidth,           // ширина прямоугольника источника
  DWORD dwHeight,          // высота прямоугольника источника
  int XSrc,                // x-коорд. нижнего левого угла источника
  int YSrc,                // y-коорд. нижнего левого угла источника
  UINT uStartScan,         // первая строка развертки в массиве
  UINT cScanLines,         // число строк развертки
  CONST VOID *lpvBits,     // массив битов DIB
  CONST BITMAPINFO *lpbmi, // информация о точечном рисунке
  UINT fuColorUse          // RGB или индексы палитры
);

Параметры

hdc
[in] Дескриптор контекста устройства.

XDest
[in] Определяет x-координату верхнего левого угла приемного прямоугольника, в логических единицах измерения.

YDest
[in] Определяет y-координату верхнего левого угла приемного прямоугольника, в логических единицах измерения.

dwWidth
[in] Определяет ширину секции DIB, в логических единицах измерения.

dwHeight
[in] Определяет высоту секции DIB, в логических единицах измерения.

XSrc
[in] Определяет x-координату нижнего левого угла DIB, в логических единицах измерения.

YSrc
[in] Определяет y-координату нижнего левого угла DIB, в логических единицах измерения.

uStartScan
[in] Определяет начальную строку развертки DIB.

cScanLines
[in] Определяет число строк развертки DIB, содержащиеся в  массиве, на который указывает параметр lpvBits.

lpvBits
[in] Указатель на данные о цвете формата (DIB), сохраненные как массив байтов. Подробную информацию см. ниже в разделе Замечания.

lpbmi
[in] Указатель на структуру BITMAPINFO, которая содержит информацию о  DIB.

fuColorUse
[in] Определяет, содержит ли член bmiColors структуры BITMAPINFO значения (RGB) чистого красного, зеленого, синего цветов  или индексы палитры. Подробную информацию, см. ниже в разделе Замечания.

Параметр fuColorUse  должен быть одним из нижеперечисленных значений.

Значение  Предназначение
DIB_PAL_COLORS  Таблица цветов состоит из массива 16-битовых индексов текущей выбранной логической палитры.
DIB_RGB_COLORS  Таблица цветов содержит значения  констант RGB.

Возвращаемые значения

Если функция завершается успешно, возвращаемое значение - число установленных строк развертки.

Если функция завершается с ошибкой, величина возвращаемого значения - нуль.

Цитата

Структура BITMAPINFO - это набор двух структур. Она объявлена в файле wingdi.h,

typedef struct tagBITMAPINFO {
    BITMAPINFOHEADER    bmiHeader;
    RGBQUAD             bmiColors[1];
} BITMAPINFO, FAR *LPBITMAPINFO, *PBITMAPINFO;

Итак, первая структура у нас это BITMAPINFOHEADER, она содержит информацию о растре и вот её содержание.

typedef struct tagBITMAPINFOHEADER{
        DWORD      biSize;
        LONG       biWidth;
        LONG       biHeight;
        WORD       biPlanes;
        WORD       biBitCount;
        DWORD      biCompression;
        DWORD      biSizeImage;
        LONG       biXPelsPerMeter;
        LONG       biYPelsPerMeter;
        DWORD      biClrUsed;
        DWORD      biClrImportant;
} BITMAPINFOHEADER, FAR *LPBITMAPINFOHEADER, *PBITMAPINFOHEADER;

biSize - размер структуры в байтах и должен быть равен 40 байтам.

biWidth & biHeight - содержат высоту и ширину растра в байтах.

biPlanes - смысл непонятен, так как здесь всегда 1.

biBitCount - число битов на пиксель может быть разное и зависит от типа палитры. Могут быть числа 1,2,4,8,24

biCompression - алгоритм сжатия, вот значения:

0 нет
1 RLE-8
2 RLE-4

biSizeImage - размер растра в байтах и бывает нужно только для сжатых растров.

biXPelsPerMeter & biYPelsPerMeter - показывают сколько пикселей на метр, обычно 0 smile

biClrUsed & biClrImportant - количество используемых цветов и количество значимых цветов. Обычно 0 :-)

Следующая структура - это RGBQUAD описанная в файле wingdi.h. Это не одна структура, а набор структур, которые представляют из себя паритру.

typedef struct tagRGBQUAD {
        BYTE    rgbBlue;
        BYTE    rgbGreen;
        BYTE    rgbRed;
        BYTE    rgbReserved;
} RGBQUAD;

Кто знаком с понятием цветов, то это набор цветов RGB, то есть интенсивности составляющей красной, зеленой и синей. Количество структур зависит от типа растра. Если растр на 256 цветов, то и структур будет 256. Цветовая таблица вообще отсутсвует в растрах с 24 битным изображением Hi Color.

Код


#include <vcl.h>
#pragma hdrstop

#include "Unit1effectSetDIBitsToDevice.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
unsigned int masim[4000000];
tagBITMAPINFO* bi= new tagBITMAPINFO;
void* p;
unsigned int  DestX1, DestY1, Width1, Height1, SrcX1, SrcY1, StartScan, NumScans,
  X1,X2,Y1,Y2;
HDC D;
unsigned int mas1ht[4];
unsigned int mas2Yj[4];
unsigned int mas3i[4];
unsigned int mas4_4[4];
unsigned int mas5m[4];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->BorderStyle=bsNone;
Form1->WindowState=wsMaximized;
bi->bmiHeader.biSize=sizeof(bi->bmiHeader);
bi->bmiHeader.biWidth=1024;
bi->bmiHeader.biHeight=768;
bi->bmiHeader.biPlanes=1;
bi->bmiHeader.biCompression=0;
bi->bmiHeader.biBitCount=32;
bi->bmiHeader.biSizeImage=1024*768*4;
bi->bmiColors->rgbBlue=0;
bi->bmiColors->rgbGreen=0;
bi->bmiColors->rgbRed=0;
bi->bmiColors->rgbReserved=0;
DestX1=0;
DestY1=0;
Width1=1024;
Height1=768;
SrcX1=0;
SrcY1=0;
StartScan=0;
NumScans=1024;
p=masim;
D=GetDC(Form1->Handle);
//D=CreateDC("DISPLAY",0,0,0);
mas4_4[0]=4;
mas4_4[1]=4;
mas4_4[2]=4;
mas4_4[3]=4;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
unsigned int x,y,i,j,c,r,Yj;
SrcY1=0;
DestY1=0;
asm{
mov esi,X;
mov edi,Y;
mov ecx,0;
mov j,768;
@c2:cmp j,0;
jz @2;
mov i,0;
mov eax,edi;
sub eax,j;
imul eax;
mov Yj,eax;
@c1:cmp i,1024;
jz @3;
mov eax,esi;
sub eax,i;
imul eax;
add eax,Yj;
shl eax,8;
mov masim+ecx*4,eax;
inc ecx;
inc i;
jmp @c1;
@3:dec j;
jmp @c2;
@2:
};
SetDIBitsToDevice(D,DestX1,DestY1,Width1,Height1,SrcX1,SrcY1,StartScan,NumScans,p,bi,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
unsigned int x,y,i,j,c,r,ht,ht1,c1,Yj,b1,ecx1;
unsigned int v1000=100;
tagPOINT tp1;
ht=0;
asm
{
mov c1,0;
@c3:cmp c1,1500;//ñ÷åò÷èê !!!
jz @1;
}
GetCursorPos(&tp1);
asm{
mov esi,dword ptr tp1;
mov edi,dword ptr tp1+4;
inc ht;
mov eax,ht;
mul eax;
imul v1000;
mov ht1,eax;
mov mas1ht,eax;//Äëÿ XMM
mov mas1ht+4,eax;
mov mas1ht+8,eax;
mov mas1ht+12,eax;
mov mas5m,esi;
mov mas5m+4,esi;
mov mas5m+8,esi;
mov mas5m+12,esi;
mov ecx,0;
mov j,768;
mov b1,0;
mov SrcY1,0;
mov DestY1,0;
//XMM
movdqu xmm7,dqword ptr mas1ht;
movdqu xmm4,dqword ptr mas5m;
movdqu xmm3,dqword ptr mas4_4;
@c2:cmp b1,768;
jz @22;
cmp j,0;
jz @2;
mov i,0;
mov eax,edi;
sub eax,j;
imul eax;
mov Yj,eax;
mov mas2Yj,eax;//Äëÿ XMM
mov mas2Yj+4,eax;
mov mas2Yj+8,eax;
mov mas2Yj+12,eax;
mov mas3i,0;
mov mas3i+4,1;
mov mas3i+8,2;
mov mas3i+12,3;
//XMM
movdqu xmm6,dqword ptr mas2Yj;
movdqu xmm5,dqword ptr mas3i;
@c1:cmp i,256;//1024;
jz @3;
movdqa xmm0,xmm4;
psubd xmm0,xmm5;
pmaddwd xmm0,xmm0;
paddd xmm0, xmm6;
psubd xmm0,xmm7;
pslld xmm0,8;
movdqu dqword ptr masim+ecx,xmm0;
add ecx,16;
paddd xmm5,xmm3;
inc i;
jmp @c1;
@3:dec j;
inc b1;
jmp @c2;
@22:mov b1,0;
push DIB_RGB_COLORS;
push dword ptr bi;
push dword ptr p;
push dword ptr 768;//NumScans;
push dword ptr StartScan;
push dword ptr SrcY1;
push dword ptr SrcX1;
push dword ptr Height1;
push dword ptr Width1;
push dword ptr DestY1;
push dword ptr DestX1;
push dword ptr D;
call SetDIBitsToDevice;

mov ecx,0;
jmp @c2;
@2:
inc c1;
jmp @c3;
@1:mov StartScan,0;
};
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
if (Msg.CharCode==27) Application->Terminate();        
}
//---------------------------------------------------------------------------