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

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

BMP и API [D6, WinXP]

Ich Hasse ©   (2002-09-15 12:44:00) 

Люди подскажите пожалуйста, вот столкнулся с такой проблемой:
Есть BMP, ее надо вывести на форму? КАК???
Смысл в том, что все это надо сделать через API не используя модуля Graphics и соответственно компонента TCanvas и TBitMap.
Пожалуйста с исходниками, или хотя бы примерно где искать???

---

Mirovodin   (2002-09-16 10:54:00) [1]

В дагонку, LoadBitmap как раз и загружает BMP из внешнего файла, т.е. в примере выше я сам создаю HBitmap, а так у тебя сразу получается указатель на HBitmap;

---

Mirovodin   (2002-09-16 10:50:00) [2]

Ну лови код загрузки 24 bit DIB-а, я уверен, что тебе будет не понятна каждая строчка, но уж это такой дело - WinAPI не для тех кто сел за Delphi 3 мес. назад....


procedure LoadBitmap24bit(const hWindow: THandle);
var
F : File;
BitmapFileHeader : TBITMAPFILEHEADER;
BitmapInfoHeader : TBITMAPINFOHEADER;
BitmapInfo : TBitMapInfo;
BitmapBits : Pointer;
ReadCount : DWORD;
DC : HDC;
begin
AssignFile(F, Bitmap24bitFileName);
Reset(F, 1);

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

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

GetMem(BitmapBits, BitmapInfoHeader.biSizeImage);

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

BitmapInfo.bmiHeader:=BitmapInfoHeader;

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

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


---

Ich Hasse   (2002-09-16 09:42:00) [3]

2 Mirovodin

Уважаемый дмитрия, может конечно мой вопрос прозвучит глупо, но пожалуйста примите во внимание то, что я пишу на Delphi всего 3 нет не года, месяца и мне сейчас позарез надо понять как вывести BMP на форму, поэтому мой вопрос состоит в следующем:

Что писать в функции CreateDIBitmap?вот это мне совершенно непонятно.

Есть такая функция как LoadBitMap, зачем она нужна
P.S. мне надо загрузить BMP из файла и вывести ее

Люди добрые не судите строго, я ведь только учусь

---

Ich Hasse   (2002-09-16 09:42:00) [4]

Спешил, потому много опечаток, не обижайтесь...

---

Ich Hasse   (2002-09-15 21:35:00) [5]

Совершенно верно НИКОГДА не видел, поэтому приходится учиться

---

Poirot   (2002-09-15 14:48:00) [6]

> P.S. Сразу видно, человек FIDO в глаза не видел.

Это не про меня, надеюсь!!!

---

Mirovodin   (2002-09-15 14:12:00) [7]

2 Ich Hasse ©

Read The Fucking Manual :)

По поводу вопроса, если только используя API -
нужно использовать не TBitmap (о котором Windows вообще ничего не знает) а HBitmap соответственно использовать функции CreateDibBitmap, контекст устройства HDC и BitBlt:

Создание:
Bitmap:=CreateDIBitmap( ... );
...
Отрисовка

var

ps : TPAINTSTRUCT; // Переменная под структуру TPAINTSTRUCT
MemDC : hDC; // Контекст устройства
bm : TBitmap; // Переменная структуры TBitmap,
// не путать с классом TBitmap
...

BeginPaint(hWindow, ps);
MemDC:=CreateCompatibleDC(ps.hdc);
SelectObject(MemDC, Bitmap);
GetObject(Bitmap, sizeof(TBITMAP), @bm);
BitBlt(ps.hdc, 10, 10, bm.bmWidth, bm.bmHeight, MemDC, 0, 0, SRCCOPY);
DeleteDC(MemDC);
EndPaint(hWindow, ps);

P.S. Сразу видно, человек FIDO в глаза не видел.

---

Ich Hasse   (2002-09-15 14:04:00) [8]

Это что такое???

---

Poirot   (2002-09-15 13:49:00) [9]

RTFM

---

Ich Hasse   (2002-09-15 12:57:00) [10]

CreateCompatibleBitmap
LoadBitMap
SelectObject
GetDC
BitBlt

вот вроде все нужные функции, но что с ними делать???

---

Poirot   (2002-09-15 12:52:00) [11]

CreateBitmap или что-то вроде этого!!!

---

Наверх