powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / LoadPicture - Jpeg
13 сообщений из 13, страница 1 из 1
LoadPicture - Jpeg
    #33056074
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем привет!
Помогите, пожалуйста, решить проблему:

я загружаю файл Jpeg с помощью LoadPicture,
при загрузке размер картинки изменяется из рассчета разрешения 96dpi, а мне нужны его оригинальные размеры.
Мне надо либо получить разрешение файла, либо если есть возможность загрузить файл с его размерами.

Спасибо!
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33056195
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
Picture1.AutoSize = True
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33056233
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я, наверное, не точно выразилась ;)
я пользуюсь контролом Vector Graphics Activex (ProGrapher), в нем рисую прямоугольник с картинкой из файла jpeg.
Пишу:
Set fs = LoadPicture(FileName)
Set rcc1 = Doc.ActiveLayer.CreateClass(ciRectangle, Nothing)
Set rc1 = rcc1.Create(0,0. FW, FH, FileName)

этот контрол вроде не поддерживает чего-то типа AutoSize, или я просто не нашла... Думаю надо как-то выцеплять размер файла.

Жду помощи ;)
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33056279
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Простите за повторы - инет глюкнул :(

Я даже попробовала запихнуть картинку в picturebox с autosize, все равно размеры в твипах не оригинальные.

Например - если в фотошопе смотрю размер изображения - 13.55 см, разрешение 150, 800 пикселов.
Загружаю - показывает 21167 himetric... и соответственно картинка показывается в 21 см

Запуталась.... :(
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33056758
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
Dim p As StdPicture
    Set p = LoadPicture("C:\1.bmp")
    Debug.Print p.Height, p.Width

Размер в твипах.
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33059199
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy
Код: plaintext
1.
2.
3.
Dim p As StdPicture
    Set p = LoadPicture("C:\1.bmp")
    Debug.Print p.Height, p.Width

Размер в твипах.


и опять же показывает размер карtинки - 21167 :( а не 13546 твипов, как в свойствах файла и в фотошопе
ну может мне кто-нибудь все-таки сможет помочь? ;)
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33060074
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В фотошопе в пикселях . Получить размер в них можно разделив p.Height на Screen.TwipsPerPixelX
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33060972
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyВ фотошопе в пикселях . Получить размер в них можно разделив p.Height на Screen.TwipsPerPixelX

У меня проблема не в переводе единиц... привожу пример в картинках:

это диалог из фотошопа, мне надо получить обведенные размеры или Resolution, а не размер в пикселах, который меняется в зависимости от разрешения файла.
На этом рисунке - разрешение 150 dpi:
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33060982
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А на этом - разрешение - 96dpi, а размер в дюймах - остался тот же ;)
мне надо именно с такими размерами и загрузить картинку ;)


или я вообще уже ничего не соображаю.. :(
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33060983
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33064827
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Разрешение экрана - 72 dpi, оригинальный размер картинки - всегда в пикселях, фотошоповское разрешение имеет смысл только для печати, оно прописано в заголовках графических файлов. В вб разрешение не имеет смысла (если ты не собираешься делать редактор а-ля фотошоп), только размеры в пикселях. Лучше объясни задачу поподробнее.

-------------------------------------------------------
Продаю монитор TFT LG 1730 новый без гарантии 6500р
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33065723
Aboudy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyРазрешение экрана - 72 dpi, оригинальный размер картинки - всегда в пикселях, фотошоповское разрешение имеет смысл только для печати, оно прописано в заголовках графических файлов. В вб разрешение не имеет смысла (если ты не собираешься делать редактор а-ля фотошоп), только размеры в пикселях. Лучше объясни задачу поподробнее.

-------------------------------------------------------
Продаю монитор TFT LG 1730 новый без гарантии 6500р

Мне надо загружать в программу изображения из графических файлов, и считать расстояние между некоторыми точками. Файлы могут быть с разными разрешениями и смысл несет только этот размер.
То есть мне, видимо, надо проверять разрешение из заголовка файла?
Просто в Windows свойствах файла есть информация о разрешении, я вот и подумала что должна быть какая-то стандартная функция опеределения этого разрешения. :(
...
Рейтинг: 0 / 0
LoadPicture - Jpeg
    #33066586
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Расстояние в любом случае придется считать в пикселях, а потом уже переводить в нужные единицы на основании разрешения файла, которое берется из заголовка. Как достать это разрешение я к сожалению не знаю.
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / LoadPicture - Jpeg
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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