Информация о BMP-картинке

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

Скачать BMPINFO