| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с битмапами [D5, Win95/98]

den ©   (2003-05-18 12:51:00) 

Здравствуйте.
Подскажите пож., как при помощи только лишь функций API можно вывести растр из файла на канву формы.

---

Mischka   (2003-05-19 06:50:00) [1]

А мне вот так насоветовали. Работает замечательно!
Ну, конечно, без проверки корректности .bmp-файла :)

Window: HWND;

WindowFace:=loadImage(0, PANSIChar("MainForm.bmp"), IMAGE_BITMAP, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);

procedure drawFace();
var
bm: BITMAP;
hob: HBITMAP;
rc: TRect;
DC, bDC: HDC;
begin
getObject(WindowFace, sizeOf(BITMAP), LPSTR(@bm));
getClientRect(Window, rc);
DC:=getDC(Window);
bDC:=createCompatibleDC(DC);
hob:=HBITMAP(selectObject(bDC, WindowFace));
BitBlt(DC, rc.Left, rc.Top, bm.bmWidth, bm.bmHeight, bDC, 0, 0, SRCCOPY);
selectObject(bDC, hob);
deleteDC(bDC)
end;


---

Ich Hasse   (2003-05-18 22:42:00) [2]

2 Morfein
Мне кажется или это и в правду форум WinAPI?
Если это так, то я ответил на вопрос с точки зрения APIи никаких извращений

---

e!dGe.   (2003-05-18 22:23:00) [3]

> Morfein © (18.05.03 22:00)

Однако..)

---

Morfein   (2003-05-18 22:00:00) [4]

А зачем так извращаться, если вывод предполагается на Canvas формы? С помощью её же методов и грузи.

---

Ich Hasse   (2003-05-18 18:13:00) [5]

function LoadBMP(const hWindow: THandle; FileName : String):HBitMap;
var
F : File;
BitmapFileHeader : TBITMAPFILEHEADER;
BitmapInfoHeader : TBITMAPINFOHEADER;
BitmapInfo : TBitMapInfo;
BitmapBits : Pointer;
ReadCount : DWORD;
DC : HDC;
begin
AssignFile(F, FileName);
Reset(F, 1);

BlockRead(F, BitmapFileHeader, SizeOf(TBitmapFileHeader), ReadCount);

if (ReadCount <> SizeOf(TBitmapFileHeader)) then
begin
MessageBox(hWindow, "Ошибка чтения BITMAPFILEHEADER.", "DIB From File Sample", MB_OK+MB_ICONERROR);
CloseFile(F);
Result:=0;
Exit;
end;

BlockRead(F, BitmapInfoHeader, SizeOf(TBitmapInfoHeader), ReadCount);

if (ReadCount <> SizeOf(TBitmapInfoHeader)) then
begin
MessageBox(hWindow, "Ошибка чтения TBITMAPINFOHEADER.", "DIB From File Sample", MB_OK+MB_ICONERROR);
CloseFile(F);
Result:=0;
Exit;
end;

GetMem(BitmapBits, BitmapInfoHeader.biSizeImage);

BlockRead(F, BitmapBits^, BitmapInfoHeader.biSizeImage, ReadCount);

if (ReadCount <> BitmapInfoHeader.biSizeImage) then
begin
MessageBox(hWindow, "Ошибка чтения данных файла", "DIB From File Sample", MB_OK+MB_ICONERROR);
CloseFile(F);
Result:=0;
Exit;
end;

BitmapInfo.bmiHeader:=BitmapInfoHeader;

DC:=GetDC(hWindow);
Result:=CreateDIBitmap(DC,
BitmapInfoHeader,
CBM_INIT,
BitmapBits,
BitmapInfo,
DIB_RGB_COLORS);
ReleaseDC(hWindow, DC);

if Result=0 then
MessageBox(hWindow, "Ошибка создания растра.", "DIB From File Sample", MB_OK+MB_ICONERROR);
CloseFile(F);
end;

Вот таким образом ты грузишь *.bmp файл в HBitMap.
Далле выводишь с помощью BitBlt какого-нибудь...

---

Dmk   (2003-05-18 14:27:00) [6]

Сначала надо создать Bitmap
CreateDIBSection()
CreateBitmap()
и т.д.
Потом считать файл или часть файла в
память этого Bitmap"а.
Ну и наконец с помощью BitBlt или SetDIBits
вывести на контекст формы.

---

e!dGe.   (2003-05-18 13:03:00) [7]

Прямо так - растр из файла - никак.

---

Наверх