Вставка картинок в Pascal |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Вставка картинок в Pascal |
Katja |
Сообщение
#1
|
Гость |
Подскажите пожалуйста, как вставить bmp картинку в Borland Pascal
|
xds |
Сообщение
#2
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Цитата(P@sh@ @ 22.10.04 10:30) Код var data: array of TColor; //или просто of integer Код setlength(data,head.Height,head.Width); а) только не в BP; б) в общем солучае SizeOf(Integer) <> 4, а SizeOf(LongInt) = 4 В BP придется так: Код type PBitmapData = ^TBitmapData; TBitmapData = array[0..0] of record r, g, b, Res: Byte; end; var Data: PBitmapData; DataSize: Word; Hdr: TBitmapHdr; ... BlockRead(f, Hdr, SizeOf(Hdr)); DataSize := Hdr.Width * Hdr.Height shl 2; GetMem(Data, DataSize); BlockRead(f, Data^, DataSize); ... -------------------- The idiots are winning.
|
Текстовая версия | 29.03.2024 15:06 |