powered by simpleCommunicator - 2.0.28     © 2024 Programmizd 02
Map
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Загрузка картинки из таблицы в контрол (пример)
10 сообщений из 10, страница 1 из 1
Загрузка картинки из таблицы в контрол (пример)
    #39789459
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Собственно сабж.
Используется слегка модифицированный класс c32bppDIB By LaVolpe (from psc cd) http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=67466&lngWId=1
с некоторыми доработками под Access.
преобразование в EMF по методу Бенедикт https://www.sql.ru/forum/348182-a/primer-jpeg-gif-iz-long-binary-polya-v-image-bez-kopirovaniya-vo-vremennyy-fayl?hl=createenhmetafile
плюс немного творчества от себя для упрощения работы со всем этим.
корявости в коде много, но вполне юзабельно.

Пример содержит форму демонстрирующую возможности:
загрузка/выгрузка файла изображения в таблицу для последующего использования,
вывод данных из таблицы на контролы типа Access.CommandButton и Access.Image
и некоторые дополнительные возможности последующей работы с загруженным изображением (добавление текста, повороты, т.п.)
поддерживает альфаканал, PNG и ICO файлы

приложить файл не удалось из-за размера (0.78 MB - пример содержит картинки)
выложил здесь: https://www63.zippyshare.com/v/JClsKWKR/file.html
...
Рейтинг: 0 / 0
Загрузка картинки из таблицы в контрол (пример)
    #39789483
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
iKaRus,
и чо?...
...
Рейтинг: 0 / 0
Загрузка картинки из таблицы в контрол (пример)
    #39789491
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sdku, все то же - надо - пользуйтесь, интересно - смотрите, разбирайте, развивайте, переделывайте под себя. Нет - ну нет, так нет..
за время работы над этим вопросом там много интересного было написано может что найдете интересным для себя, а где и мне подскажете - тоже в строку.
тема на около Access'овских форумах всплывает регулярно, здесь собрал воедино все работающие решения которые мне попадались и привел их в максимально удобный для реальной работы вид.
зачем это нужно? в основном интерфейсные решения средствами Access ну и для понимания.
...
Рейтинг: 0 / 0
Загрузка картинки из таблицы в контрол (пример)
    #39791342
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Выглядит так:

Пример запускается с формы Test_Pictures
...
Рейтинг: 0 / 0
Загрузка картинки из таблицы в контрол (пример)
    #39791442
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Перевыложил на rusimport: http://am.rusimport.ru/MSAccess/download.aspx?id=838
...
Рейтинг: 0 / 0
Загрузка картинки из таблицы в контрол (пример)
    #39823458
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
изменения в модуле modObjectData - исправлена ошибка позиционирования текста при отсутствии изображения
...
Рейтинг: 0 / 0
Загрузка картинки из таблицы в контрол (пример)
    #39823834
Swa111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
iKaRus,

Можете еще раз выложить проект с примерами?
...
Рейтинг: 0 / 0
Загрузка картинки из таблицы в контрол (пример)
    #39823860
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Swa111, к сожалению rusimport в дауне, а здесь ограничение 150Kb - не влажу
т-что опять на zippy: https://www35.zippyshare.com/v/WGZfXSQy/file.html
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Загрузка картинки из таблицы в контрол (пример)
    #40138504
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обновил http://am.rusimport.ru/MSAccess/topic.aspx?id=838

Ссылка https://mega.nz/file/0cJ2UAhI#5ydz7_Lm_eXOkrhOdrxl5LT48FoIz4W0Rlym8mHM5Ac
Переделан под FreeImage
Работает в Access 2003+ (x86/x64)
Используются библиотеки FreeImage и слегка модифицированный модуль Visual Basic Wrapper for FreeImage 3 by Carsten Klein (cklein05@users.sourceforge.net) взятый с https://freeimage.sourceforge.io/download.html
Для работы требуется наличие библиотек FreeImage соответствующей разрядности.
По умолчанию ищет их в подпапке \INC\ рабочей папки примера

Архив Pictures.7z содержит:
PicturesFI.mdb - база Access содержащая все примеры
Pictures_Model.xml - модель объясняющая, как рассчитывается позиция текста рядом с картинкой.
\INC\ - папка содержащая библиотеки FreeImage x86/x64

Запускается с формы: ~RunMe.
Картинка
Содержит формы:
Test_PictureData_SetToControl - Пример работы с картинками
Картинка
Test_OlePictContinuos - Вывод картинок в ленточную форму
Картинка
Test_OlePictDIBContinuos - Вывод картинок встроенных в Access в ленточную форму
Картинка
Sample_Clock - Аналоговые часы
Картинка
Sample_Dates - Вывод изображений в плавающие кнопки и контекстное меню
Картинка
Модуль и классы для работы с изображениями:
modPictureData - содержит функции (основные):
PictureData_SetToControl - загружает картинку в нужное свойство указанного контрола
modFreeImage - собственно модифицированный модуль Visual Basic Wrapper for FreeImage 3 by Carsten Klein (cklein05@users.sourceforge.net)
...
Рейтинг: 1 / 0
Нравится: Панург
Загрузка картинки из таблицы в контрол (пример)
    #40138511
iKaRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чтобы не постить новые ссылки на каждое изменение
перевыложил на Git: https://github.com/iKaRus-VLZ/Pictures
...
Рейтинг: 2 / 0
Нравится: ma1tus, Панург
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Загрузка картинки из таблицы в контрол (пример)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]