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

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

Как из TBitmap вытащить plain data [D6]

Дмитрий В. Белькевич ©   (2003-09-03 17:48:00) 

Как из TBitmap вытащить plain data - без всяких заголовков и сохранить данные в файл? Scanline?

---

Дмитрий В. Белькевич   (2003-09-25 02:48:00) [1]

Решил просто кусок от файла bmp загружать в память. Т.к. размер plain data известен, то отнял от конца файла размер data, и гружу с этого места. Пока работает.

---

MBo   (2003-09-04 07:55:00) [2]

Ну, может, и не короче, но быстрее ;)

---

MBo   (2003-09-04 07:48:00) [3]

Короче будет без ScanLine- GetDiBits (предварительно правильно заполнить BitmapInfo) или GetBitmapBits

А у тебя в BlockWrite нужно p^

---

Дмитрий В. Белькевич   (2003-09-03 21:47:00) [4]

Сделал со scanline:

Bitmap.LoadFromFile(FileName);
Bitmap.PixelFormat := pf24bit;
for i := 0 to BitMap.Height - 1 do
begin
P := BitMap.ScanLine[i];
BlockWrite(fp, p, Bitmap.Width * 3);
end;

Сохраняет какую-то фигню вместо bmpшки.

---

Дмитрий В. Белькевич   (2003-09-03 17:52:00) [5]

Thx.

---

Skier   (2003-09-03 17:49:00) [6]

> Scanline?

Угу. В Help пример есть.

---

Наверх