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

Иногда бывает нужным получить размеры BMP-файла, перед тем как занести его в базу данных. У меня такая возможность понадобилась один раз в программе "учета" кадров.

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

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

Скачать BMPINFO

Автор: Неизвестно

Автор публикации

не в сети 4 месяца

Joys

2
Комментарии: 4Публикации: 227Регистрация: 25-06-2000
0
Вложенные файлы
#
Тип файла
Размер
Название
1 .zip 30,65 КБ bmpinfo
Оставить комментарий
Авторизация
*
*
Регистрация
*
*
*
Пароль не введен
*
Генерация пароля