Set Reg = New Regexp : Reg.IgnoreCase = True
Reg.Pattern = "^([abcgkmorxy]|bmp[23]?|bie|clipboard|cur|dib|emf|gif(|87)|group4|icon?|jbi?g|jp[egx]|jpeg-ls|histogram|msl|mvg|null|p?jpeg|png(|8|24|32)|preview|rle|text|vid|xwd|p?tiff?)$"
If Reg.Test(Mid(FileName, InStrRev(FileName, ".") + 1)) Then
With CreateObject("WIA.ImageFile")
On Error Resume Next
.LoadFile FileName : Content = .FileExtension
If Err.Number = 0 Then
Content1 = "Нет" : Content3 = "Нет"
If .IsAlphaPixelFormat Then Content1 = "Есть"
If .IsAnimated Then Content3 = "Есть"
End If
End With
End If : Content2 = "Нет"
' Следующую строку в случае отображения всех кроме "Прозрачность" полей можно закомментировать (разница по скорости сразу станет ощутима):
If CreateObject("WScript.Shell").Run("%ComSpec% /c for /f %# in ('""""%COMMANDER_PATH%\Utils\ImageMagick\identify.exe"" -format %[opaque] """ & FileName & """|find /i /c ""true""""') do exit /b %#", 0, True) = 0 Then Content2 = "Есть"
< См. путь к identify. +[cut="options.ini"][Script]
ActiveScripts=MinutesAgo|CheckEncoding|Bla-Bla|Graphic
[Graphic]
Script=GraphicProps.vbs
content=Исходный тип
content1=Альфа-канал
content2=Прозрачность
content3=Анимация
extensions=a|b|c|g|k|m|o|x|y|ani|bie|bmp|bmp2|bmp3|cip|clipboard|cmyk|cmyka|cur|dcx|dds|dib|dpx|emf|eps3|ept3|flt|gif|gif87|gray|group4|hdr|histogram|htm|html|icb|ico|icon|iff|img|info|j2c|jbg|jbig|jp2|jpc|jpe|jpg|jpeg|jpeg-ls|jpx|jxr|kro|m2v|m4v|map|mbm|mif|miff|mng|mono|mov|mp4|mpc|mpeg|mpg|msl|mvg|null|pal|palm|pam|pcl|pct|pcx|pdf|pic|pict|pjpeg|png|png8|png24|png32|preview|ps3|psb|psd|ptif|qrt|r|rad|ras|raw|rawraw|rgb|rgba|rgbo|rla|rle|sgi|shtml|sun|svg|svgz|text|tga|tif|tiff|tiff64|txt|uil|uyvy|vda|vid|viff|vst|wmv|wrl|xpm|xv|xwd|ycbcr|ycbcra|yuv
FoldersPaths=0[/cut]
Последний раз редактировалось Flasher Пт окт 14, 2016 09:57, всего редактировалось 6 раз.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Спасибо.
А как к примеру добавить svg формат? Просто добавление его в список расширений не срабатывает.
И "Анимация" не отрабатывает. На анимированных отображает отсутствие анимации.
Увы, никак. Список - это не любая графика, а та, что поддерживается.
Анимация на gif-ах должна точно работать. Дай пример.
На хрюше все колонки отработали?
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Увы, никак. Список - это не любая графика, а та, что поддерживается.
Что-то не понял. Если отдельно в консоли на svg, то всё так же отрабатывает, как и с другими форматами.
На хрюше все колонки отработали?
Вроде да.
Дай пример.
https://yadi.sk/d/rvrVRuO2wjBdA
Из этого набора показывают только 7. Заметил закономерность, что наличие анимации отображается только в тех, где в колонках "альфа-канал" и "прозрачность" негативный результат.
Dimsok писал(а):Если отдельно в консоли на svg, то всё так же отрабатывает, как и с другими форматами.
С identify? А "Прозрачность" в колонке неверно инфу показывает? Другие форматы - это какие?
Dimsok писал(а):Вроде да.
Гуд!
С анимацией мой косяк. Исправил.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
А "Прозрачность" в колонке не показывает? Другие форматы - это какие?
Мне подумалось, что ты сказал, будто для svg не действует тот же самый -format %A. Просто подумалось странным, что добавление этого расширения в svg не приводит к результату, в скрипте они тоже нигде не прописаны. Под другими форматами имел в виду те, которые ты прописал в extensions=
ОК. Понятно, почему не отрабатывает.
Посмотрел весь список по identify -list format, но проверке прозрачности большинство не подвержены. Нужно отобрать подходящие.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Так они центровые. Неудивительно. К тому же в bmp может быть альфа.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Dimsok
Нет. Это фишка ТС, если сортируешь по имени/типу.
В общем, мне лень было искать всё подряд, конвертнул по спискам (т.е. берём только то, что выдало прозрачность). См. выше, что получилось.
P.S.: Автор улизнул, а поддержку регулярок для extensions кому-то другому делать...
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
1. Просьба ввести ключ 2 (только папки) для FoldersPaths.
Ok.
Автор так и не выполнил обещание...
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Когда в ИГП захожу в раздел "плагины" и перехожу к поле winscriptsadv, то происходит прекращение работы Тотала. Это у всех так или у меня одного?
Версия плагина 1.7, TC 9.0a 64 bit.
BeardFury78
Могу только сказать, что я сталкивался с отладочным окном, если были какие-то ошибки в ini или скриптах.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
