А вот вариант почти как вам надо!
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btn1 : TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
b : TBitmap;
implementation
{$R *.dfm}
{$O-}
type
Trgb = packed record
b,g,r : byte
end;
arr = array[1..250,1..200] of Trgb;
procedure TForm1.btn1Click(Sender: TObject);
var
DC : hDC;
Bitmap : HBITMAP;
p : ^arr; //можно удалить
i, j : integer; //можно удалить
bmInfo: TDIBSection; // структура BITMAP WinAPI
W, H : Integer; // высота и ширина растра
bmDIB: hBitmap; // дискрептор независимого растра
bmiInfo: BITMAPINFO; // структура BITMAPINFO WinAPI
lpBits: PRGBTriple; // указатели на структуры RGBTRIPLE WinAPI
begin
Bitmap := LoadImage(0,
'IMG.bmp',
IMAGE_BITMAP,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE);
GetObject(Bitmap, SizeOf(bmInfo), @bmInfo);
DC := CreateCompatibleDC(form1.Canvas.Handle);
SelectObject(DC, Bitmap);
W := bmInfo.dsBm.bmWidth;
H := bmInfo.dsBm.bmHeight;
bmiInfo.bmiHeader.biWidth:=W; // ширина
bmiInfo.bmiHeader.biHeight:=H; // высота
bmiInfo.bmiHeader.biPlanes:=1; // всегда 1
bmiInfo.bmiHeader.biBitCount:=24; // три байта на пиксель
bmiInfo.bmiHeader.biCompression:=BI_RGB; // без компрессии
bmiInfo.bmiHeader.biSizeImage:=0; // размер не знаем, ставим в ноль
bmiInfo.bmiHeader.biXPelsPerMeter:=2834; // пикселей на метр, гор.
bmiInfo.bmiHeader.biYPelsPerMeter:=2834; // пикселей на метр, верт.
bmiInfo.bmiHeader.biClrUsed:=0; // палитры нет, все в ноль
bmiInfo.bmiHeader.biClrImportant:=0; // то же
bmiInfo.bmiHeader.biSize:=SizeOf(bmiInfo.bmiHeader); // размер структруы
bmDIB := CreateDIBSection(DC, bmiInfo, DIB_RGB_COLORS,
Pointer(lpBits), 0, 0);
//создаем независимый растр WxHx24, без палитры, в указателе lpBits получаем
//адрес первого байта этого растра. bmDIB - дискрептор растра
//заполняем первые шесть членов BITMAPINFO для передачи в GetDIBits
bmiInfo.bmiHeader.biWidth:=W; // ширина
bmiInfo.bmiHeader.biHeight:=H; // высота
bmiInfo.bmiHeader.biPlanes:=1; // всегда 1
bmiInfo.bmiHeader.biBitCount:=24; // три байта на пиксель
bmiInfo.bmiHeader.biCompression:=BI_RGB; // без компресси
bmiInfo.bmiHeader.biSize:=SizeOf(bmiInfo.bmiHeader); // размер структуры
GetDIBits(DC, Bitmap, 0, H - 1, lpBits, bmiInfo, DIB_RGB_COLORS);
p := Pointer(lpBits); //это мой вариант с выводом на форму
ellipse(dc, 1, 1, 50, 17);
BitBlt(Canvas.Handle, 0, 0, w, h, DC, 0, 0, SRCCOPY);
end;
|
Добавлено @ 11:53
Вот тут вообще без загрузки изображения
+ Вывод при помощи bitblt
+ Вывод попиксельно из памяти указанной в p из того же битмапа
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btn1 : TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
b : TBitmap;
implementation
{$R *.dfm}
{$O-}
type
Trgb = packed record
b,g,r : byte
end;
arr = array[1..250,1..200] of Trgb;
procedure TForm1.btn1Click(Sender: TObject);
var
DC : hDC;
Bitmap : HBITMAP;
p : ^arr; //можно удалить
i, j : integer; //можно удалить
bmInfo: TDIBSection; // структура BITMAP WinAPI
W, H : Integer; // высота и ширина растра
bmDIB: hBitmap; // дискрептор независимого растра
bmiInfo: BITMAPINFO; // структура BITMAPINFO WinAPI
lpBits: PRGBTriple; // указатели на структуры RGBTRIPLE WinAPI
begin
DC := CreateCompatibleDC(form1.Canvas.Handle);
W := 200;
H := 250;
bmiInfo.bmiHeader.biWidth:=W; // ширина
bmiInfo.bmiHeader.biHeight:=H; // высота
bmiInfo.bmiHeader.biPlanes:=1; // всегда 1
bmiInfo.bmiHeader.biBitCount:=24; // три байта на пиксель
bmiInfo.bmiHeader.biCompression:=BI_RGB; // без компрессии
bmiInfo.bmiHeader.biSizeImage:=0; // размер не знаем, ставим в ноль
bmiInfo.bmiHeader.biXPelsPerMeter:=2834; // пикселей на метр, гор.
bmiInfo.bmiHeader.biYPelsPerMeter:=2834; // пикселей на метр, верт.
bmiInfo.bmiHeader.biClrUsed:=0; // палитры нет, все в ноль
bmiInfo.bmiHeader.biClrImportant:=0; // то же
bmiInfo.bmiHeader.biSize:=SizeOf(bmiInfo.bmiHeader); // размер структруы
bmDIB := CreateDIBSection(DC, bmiInfo, DIB_RGB_COLORS,
Pointer(lpBits), 0, 0);
SelectObject(DC, bmDIB);
//создаем независимый растр WxHx24, без палитры, в указателе lpBits получаем
//адрес первого байта этого растра. bmDIB - дискрептор растра
//заполняем первые шесть членов BITMAPINFO для передачи в GetDIBits
bmiInfo.bmiHeader.biWidth:=W; // ширина
bmiInfo.bmiHeader.biHeight:=H; // высота
bmiInfo.bmiHeader.biPlanes:=1; // всегда 1
bmiInfo.bmiHeader.biBitCount:=24; // три байта на пиксель
bmiInfo.bmiHeader.biCompression:=BI_RGB; // без компресси
bmiInfo.bmiHeader.biSize:=SizeOf(bmiInfo.bmiHeader); // размер структуры
GetDIBits(DC, Bitmap, 0, H - 1, lpBits, bmiInfo, DIB_RGB_COLORS);
p := Pointer(lpBits); //это мой вариант с выводом на форму
ellipse(dc, 1, 1, 140, 170);
BitBlt(Canvas.Handle, 220, 0, w, h, DC, 0, 0, SRCCOPY);
For i := 1 to 200 do
for j := 1 to 250 do
form1.Canvas.Pixels[i, 250 - j] := RGB(p^[j,i].r, p^[j,i].g, p^[j,i].b);
end;
end.
|
|
)
