Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как правильно отобразить tiff файл на PictureBox / 12 сообщений из 12, страница 1 из 1
11.11.2009, 13:25
    #36303729
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Код который это делает я наконец нашел-достряпал:

Для xp нужно устанавливать и регистрировать wiaaut.dll ,
http://www.microsoft.com/downloads/details.aspx?familyid=a332a77a-01b8-4de6-91c2-b7ea32537e29&displaylang=en
для висты итак есть родная WIA dll.
Все здорово. Код как я его написал будет работать с любой dll (ну обработку ошибки дописать только.)
Проблема такая.
Стандартные tiff-файлы факсов бывают Normal 200х100 и Fine 200х200.
Picture1-это небольшой PictureBox в пропорциях A4.
Если делать вывод не думая то 200х100 отобразится в верхней половине, ляжет по ширине (но сжат в 2 раза по вертикали!).
Как растянуть в 2 раза не напоганив картинку (желат.сразу отображать в этот PictureBox)?
Напоганив можно тупо скопировать ее в ImageBox или как там его со свойством Stretch=true, можно даже сразу ее там отобразить запоров 2/3 кода, но это напоганить сильно.
Подозреваю что PaintPicture но туплю ужасно. Что надо поменять в коде, чтоб 200х100 красиво растянулся в 2 раза (по y) на целый PictureBox и не смазался? (подсчитать Normal или Fine из св-в файла я умею, но в координатах разных не силен, увы.).


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Private Sub TestPict(TiffFilename As String)
    Dim Thumb 'As ImageFile
    Dim Img 'As ImageFile
    Dim IP 'As ImageProcess
    Dim w, h As Integer

    Set Img = CreateObject("WIA.ImageFile")
    
    Img.LoadFile TiffFilename
    w = Img.Width
    h = Img.Height
    Set Picture1.Picture = Img.ARGBData.Picture(w, h)
    Set IP = CreateObject("WIA.ImageProcess")
    While (IP.Filters.Count >  0 )
        IP.Filters.Remove  1 
    Wend
    IP.Filters.Add IP.FilterInfos("Scale").FilterID
    IP.Filters( 1 ).Properties( 1 ).Value = Picture1.ScaleWidth
    IP.Filters( 1 ).Properties( 2 ).Value = Picture1.ScaleHeight
    Set Thumb = IP.Apply(Img)
    If Not Thumb Is Nothing Then
        If Thumb.FrameCount = Img.FrameCount Then
            Thumb.ActiveFrame = Img.ActiveFrame
        End If
        w = Thumb.Width
        h = Thumb.Height
        Set Picture1.Picture = Thumb.ARGBData.Picture(w, h)
        'Image1.Picture = Picture1.Picture
    End If
    Set Thumb = Nothing
    Set IP = Nothing
    Set Img = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2009, 14:40
    #36304029
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Дмитрий77,
изменения, в общем, небольшие. Если известно, что размеры картинки надо изменить анизотропно (без сохранения пропорций), то надо выставить третье свойство фильтра Scale в False. Но размеры, в которые должна вписаться картинка, придётся при этом высчитать самому.

P.S. Насколько я знаю (могу ошибаться), WIA использует GDI+. Но программы могут использовать GDI+ и напрямую, без WIA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 03:06
    #36305552
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Бенедикт то надо выставить третье свойство фильтра Scale в False. Но размеры, в которые должна вписаться картинка, придётся при этом высчитать самому.
Ваш совет помог.
1)IP.Filters(1).Properties(3).Value = False -вписывает в рамку и без глюков
2)
Код: plaintext
1.
2.
3.
4.
    If Img.VerticalResolution <  110  Then '204х98
        IP.Filters( 1 ).Properties( 2 ).Value = Picture1.ScaleWidth * h / w *  2  'Picture1.ScaleHeight
    Else '204х196
        IP.Filters( 1 ).Properties( 2 ).Value = Picture1.ScaleWidth * h / w  'Picture1.ScaleHeight
    End If
Без этой оценки можно было бы обойтись, но факс иногда может пройти "не до конца", поэтому вписание в Picture1.ScaleHeight его в этом случае растянет сильно
3) Я добавил номер отображаемой страницы
Img.LoadFile name
Img.ActiveFrame = frame
Код работает, но все кроме первой страницы отображается похабно.
Т.е. к первой странице применяется "сглаживание изображения" (градации серого м.б., так что ли?)
Ко второй не применяется, т.е. изображение черными точками, это на мелкой картинке некрасиво.
Куда копать?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Private Sub TestPict(name As String, frame As Integer)
    Dim w, h As Integer
    Dim str As String
    Dim Thumb As ImageFile
    Dim Img As ImageFile
    Dim IP As ImageProcess

    Set Img = CreateObject("WIA.ImageFile")
    
    Img.LoadFile name
    Img.ActiveFrame = frame
    w = Img.Width
    h = Img.Height
    Set Picture1.Picture = Img.ARGBData.Picture(w, h)
    If Check1 Then Exit Sub
    Set IP = CreateObject("WIA.ImageProcess")
    While (IP.Filters.Count >  0 )
        IP.Filters.Remove  1 
    Wend
   
    IP.Filters.Add IP.FilterInfos("Scale").FilterID
    IP.Filters( 1 ).Properties( 1 ).Value = Picture1.ScaleWidth
    If Img.VerticalResolution <  110  Then '204х98
        IP.Filters( 1 ).Properties( 2 ).Value = Picture1.ScaleWidth * h / w *  2  'Picture1.ScaleHeight
    Else '204х196
        IP.Filters( 1 ).Properties( 2 ).Value = Picture1.ScaleWidth * h / w  'Picture1.ScaleHeight
    End If
    IP.Filters( 1 ).Properties( 3 ).Value = False
    Set Thumb = IP.Apply(Img)
    If Not Thumb Is Nothing Then
        If Thumb.FrameCount = Img.FrameCount Then
            Thumb.ActiveFrame = Img.ActiveFrame
        End If
        w = Thumb.Width
        h = Thumb.Height
        Set Picture1.Picture = Thumb.ARGBData.Picture(w, h)
    End If
    Set Thumb = Nothing
    Set IP = Nothing
    Set Img = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 09:02
    #36305739
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Фиг его знает где собака была, но вот так получилось в лучшем. виде.
1)Т.е. я загружаю многостраничный документ в Img.
2) Копирую в другой Img1 выбранный фрейм, ибо параметр wiaFormatBMP (можно wiaFormatJPEG, х.з. jpeg голубоватый получается) не даст скопировать более одного фрейма.
3) Форматирую-подгоняю размеры Img1(1 страница) и отображаю

Получается OK, сначала пытался сохранять во временный bmp или jpg, но потом понял что можно сразу преобразовывать.
Но все же непонятно почему предыдущий код гадил на не первой странице.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
Dim Img 'As ImageFile
Private Sub Form_Load()
    PagesAll =  0 
    On Error GoTo ExS
    LoadPict tochkaSTR(Command, Chr( 34 ), "")
    Me.Caption = PagesAll
    If PagesAll >  0  Then
        ShowPage  1 
        TextN.Text = "1"
    End If
ExS:
End Sub
Private Sub LoadPict(name As String)
    Set Img = CreateObject("WIA.ImageFile")
    Img.LoadFile name
    PagesAll = Img.FrameCount
End Sub
Private Sub ShowPage(pageN As Integer)
    Dim w, h As Integer
    Dim IP 'As ImageProcess
    Dim Img1  'As ImageFile
    On Error GoTo ErrDes:
    Set IP = CreateObject("WIA.ImageProcess")
    
    While (IP.Filters.Count >  0 )
        IP.Filters.Remove  1 
    Wend
    IP.Filters.Add IP.FilterInfos("Convert").FilterID
    IP.Filters( 1 ).Properties("FormatID").Value = wiaFormatBMP
    Img.ActiveFrame = pageN
    Set Img1 = IP.Apply(Img)
    
    w = Img1.Width
    h = Img1.Height
    While (IP.Filters.Count >  0 )
        IP.Filters.Remove  1 
    Wend
    IP.Filters.Add IP.FilterInfos("Scale").FilterID
    IP.Filters( 1 ).Properties( 1 ).Value = Picture1.ScaleWidth
    If Img1.VerticalResolution <  110  Then '204х98
        IP.Filters( 1 ).Properties( 2 ).Value = Picture1.ScaleWidth * h / w *  2  'Picture1.ScaleHeight
    Else '204х196
        IP.Filters( 1 ).Properties( 2 ).Value = Picture1.ScaleWidth * h / w  'Picture1.ScaleHeight
    End If
    IP.Filters( 1 ).Properties( 3 ).Value = False
    Set Img1 = IP.Apply(Img1)
    w = Img1.Width
    h = Img1.Height
    Set Picture1.Picture = Img1.ARGBData.Picture(w, h)
    
    Set IP = Nothing
    Set Img1 = Nothing
ErrDes:
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 15:05
    #36307005
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Дмитрий77,
Ночная смена?
Да, не совсем понятно, почему "правильные" режимы масштабирования не действуют на страницу по умолчанию (свойство FrameIndex фильтра Scale), либо на явно выбранную страницу. Но всё равно последний вариант гораздо лучше начального, потому что не делает работу (и не потребляет ресурсы, соответственно), результат которой может не понадобиться.

P.S. Надеюсь, знаете, что Dim w, h As Integer это Dim w As Variant, h As Integer.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 15:59
    #36307157
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
>...что Dim w, h As Integer это Dim w As Variant, h As Integer
гы...не задумываясь как-то у microsofta перекатал, однако...
Да не, вещь бесценная, главное универсальная, она еще вентовские qfx-ы смотреть умеет.
Потому как xp-шный faxpriview кривой и на висте вообще не работает (а фотоальбом для данного применения не замена).
Оно еще сохранять во всяких jpg-bmp умеет, супер просто!
Здесь единственно ,библиотеку в инсталлятор засовывать надо, и если xp то ставить и делать ей regsvr32, но это даже лицензии на нее не противоречит.

Вы судя по всему знаете про все эти фильтры, где б посмотреть, потому как в справке по библиотеке я именно подробного описания их не нашел, count а слова сами только из немногочисленных примеров намекаются.

Ресурсы то оно не больше чем надо кушает? для preview...на 3-м пне нарочно проверил, чкть поддтормаживает, на 2-х процессорном современном вроде все комфортно, но по крайней мере

... еще бы чего-нибудь такое для pdf-preview разумное. Мне сложностей не надо, ибо я работаю с pdf-ми, кот. получаются из tiff через libtiff, т.е. по сути этот tiff в себе содержат. Контрол от Акробата я смотрел, но чего то он мне не нравится, не уверен в его универсальности.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:55
    #36307454
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
А, вот похоже описание фильтров...кажется надо запускать скрипт-прогу, чтобы это вывести.
http://chijanzen.net/wp/?p=347&lang=en
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2009, 03:03
    #36310367
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Дмитрий77Да не, вещь бесценная, главное универсальная, она еще вентовские qfx-ы смотреть умеет.
Потому как xp-шный faxpriview кривой и на висте вообще не работает (а фотоальбом для данного применения не замена).
Оно еще сохранять во всяких jpg-bmp умеет, супер просто!
Здесь единственно ,библиотеку в инсталлятор засовывать надо, и если xp то ставить и делать ей regsvr32, но это даже лицензии на нее не противоречит.Я по привычке больше использую для показа-обработки изображений более низкоуровневые средства, GDI+ и GDI. GDI+ входит в комплект XP, может быть отдельно установлен на более старые системы вплоть до 95 OSR 2. Но с qfx она не работает. А вот для работы с устройствами ввода изображений, и как библиотека для скриптовых языков WIA, конечно, отличная штука (однако не все девайсы имеют драйверы, его поддерживающие).

Дмитрий77Вы судя по всему знаете про все эти фильтры, где б посмотреть, потому как в справке по библиотеке я именно подробного описания их не нашел, count а слова сами только из немногочисленных примеров намекаются.Не более, чем можно увидеть в Locals, Object Browser и справке. Самое информативное по фильтрам Вы уже откопали - свойство Description. Ну, а выводы я делаю по аналогии с другими

Дмитрий77Ресурсы то оно не больше чем надо кушает? для preview...на 3-м пне нарочно проверил, чкть поддтормаживает, на 2-х процессорном современном вроде все комфортно, но по крайней мереСделал вариант на GDI+ (в приложении). По моим наблюдениям, вариант с WIA ест меньше памяти в пике, но медленней.

Дмитрий77... еще бы чего-нибудь такое для pdf-preview разумное. Мне сложностей не надо, ибо я работаю с pdf-ми, кот. получаются из tiff через libtiff, т.е. по сути этот tiff в себе содержат. Контрол от Акробата я смотрел, но чего то он мне не нравится, не уверен в его универсальности.К сожалению, с pdf работал мало, и то с тем самым Акробатовским ActiveX-ом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2009, 03:04
    #36310368
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Ну, а выводы я делаю по аналогии с другими ... библиотеками обработки изображений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 06:11
    #36311633
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
>Но с qfx она не работает
qfx это тот же тиф, все работает, проверил на вашем коде, но это просто к слову сказано было, они в VentaFax-6 уже даже не используются.

Занятно, я не вникал в код ваш пока, но понравилось даже больше, т.к. чисто через API.
Уж и не знаю менять ли то над чем 2 дня думал (и вставлял в программу) на ваш вариант...

>По моим наблюдениям, вариант с WIA ест меньше памяти в пике, но медленней.
Сейчас пока я решил использовать вариант с wma для вывода отдельной картинки.

А вот представьте другой стандартный вариант.
Listview-список.
При выделении строчки списка справа в столбик отображаются страницы файла.
Если знаете VentaFax то объяснять не надо.
Насколько здесь хорош тот и другой метод?
Допустим тыкнулся мышкой в строчку, наверно по-любому нормально будет.
А если начнешь стрелками вверх-вниз ходить. Если будут заметные тормоза, то будет полная ерунда...Что думаете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2009, 03:11
    #36313807
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Дмитрий77,
вспомнил о функции извлечения/создания миниатюр (thumbnail), добавил соответствующий метод в класс. Теперь памяти в пике потребляется гораздо меньше, качество вполне нормальное, см. приложение.
Дмитрий77А вот представьте другой стандартный вариант.
Listview-список.
При выделении строчки списка справа в столбик отображаются страницы файла.
Если знаете VentaFax то объяснять не надо.
Насколько здесь хорош тот и другой метод?
Допустим тыкнулся мышкой в строчку, наверно по-любому нормально будет.
А если начнешь стрелками вверх-вниз ходить. Если будут заметные тормоза, то будет полная ерунда...Что думаете?Исходя из общих соображений, интерактив - штука не только техническая, но и психологическая. Т. е. если, например сделать так: одну секунду что-то делать, ничего не показывая на экране, а потом показать суперточный математически результат, то это может восприниматься хуже, чем если через 0,4 секунды показать просто белый лист, ещё через 0,4 показать какой-то мутный, но похожий на настоящий рисунок, и ещё через 0,4 окончательный результат. Здесь надо бы поэкспериментировать, по-хорошему, сделать сначала прототип на той технологии, что позволит быстрее его написать. Если время реакции комфортное (у целевой аудитории, с характеристическими данными), то и заморачиваться на другое, наверное, и не стоит. А вот если некомфортное, то имеется дилемма: развиваться экстенсивно, оставляя имеющийся алгоритм, но переходя на более низкоуровневые и потому быстрые средства, либо интенсивно, меняя алгоритм. Отцы-основатели учат, что второе более эффективно :), но, конечно же, в идеале неплохо бы объединять оба подхода. По поводу смены алгоритма можно подумать над схемами кеширования данных и предсказания действий пользователя. Ведь пока пользователь фтыкает, шо ж там такое на екране, можно кучу работы сделать (да, результат которой может не понадобиться, так что нужен какой-то компромис).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2009, 13:00
    #36317049
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отобразить tiff файл на PictureBox
Спа-сибо.
Ну я так открыл файл в 52 страницы, видно что это не "картина Репина", но для указанной цели очень даже. Да и первый вариант достаточно хорош.
Не знаю что там с ресурсами, но на WIA ощущаются нек. визуальная задержка в момент открытия т.е. загрузки в основной Img.
(Задержка не принципиальная для открытия формы с одной картинкой на совр. PC, но явно будет заметно в том чего я описал). Пока удовлетворился WIA, зря что ли время тратил...сильно отвлекся от основной сути программы за этими иконками-картинками-виндами.
Но в будущем обязательно воспользуюсь...
Да, давно я все эти штуки искал...Счастья в жизни стало чуть-чуть больше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как правильно отобразить tiff файл на PictureBox / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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