 |
Информация о BMP-картинке
Иногда бывает нужным получить размеры BMP-файла, перед тем как занести его
в базу данных. У меня такая возможность понадобилась один раз в программе
"учета" кадров: перед тем как занести фотографию работника в базу
(это не только у америнканцев такие программы с фотографиями ;-) приходится
проверять ее размеры, иначе кто-нибудь занесет "нужную" картинку,
которая порешит всю форму. А больше я и не знаю зачем это нужно. Для этого
используется небольшая функция bmpinfo. В принципе, там нет ничего сложного,
но тем не менее. Перед тем как вызывать функцию нужно обязательно проинилизировать
переменные: LNHeight (высота в пикселях), LNWidth (ширина в
пикселях), LNColors (количество цветов ). Делается это командой:
Store 0 To LNHeight, LNWidth, LNColors.
Затем вызываете функцию, указав в качестве параметра имя BMP-файла: =BMPInfo("Drive:\Dir\FileName.bmp")
Теперь значения высоты, ширины и количества цветов находятся в соответсвующих
переменных.
Скачать BMPINFO
|
|