[Iska]

Jr.Janitor, я тоже в своё время искал что-либо подобное, но ничего внятного не нашёл. Я ограничился таким способом:

1. Устанавливал ImageMagick, конкретно версию для работы с 8-битным цветом отсюда: ImageMagick: Install from Binary Distribution.

2. Использовал такой сценарий vbscript:

читать дальше »

Код:

Option Explicit

On Error Resume Next

Const ERROR_SUCCESS = 0

Dim objArgs
Dim objImg
Dim strResult
Dim sMsgs

Set objArgs = WScript.Arguments

If objArgs.Count <> 1 Then
	WScript.Echo _
		"Usage:   " & WScript.ScriptName & " <FileNamesTemplate>" & vbCrLf & vbCrLf & _
		"Example: " & WScript.ScriptName & " ""c:\windows\*.bmp"""
	
	WScript.Quit 2
Else
	Set objImg = CreateObject("ImageMagickObject.MagickImage.1")
	
	strResult = objImg.Identify("-format", "Name:[%f] Type:[%m] Dim:[%wx%hx%z]\r\n", objArgs(0))
	'strResult = Replace(strResult, vbCrLf, " \n ")
	
	If Err.Number <> ERROR_SUCCESS Then
		ShowError
		Set objImg = Nothing
		WScript.Quit 1
	Else
		'WScript.Echo "NOERROR" & vbCrLf & strResult
		WScript.Echo strResult
		Set objImg = Nothing
		WScript.Quit 0
	End If
End If

'=========================================================================================
Sub ShowError
	sMsgs = ""

	If BasicError(Err.Number) > 5000 Then
		'sMsgs = " ImageMagickObject" & vbCrLf
	End If

	'WScript.Echo sMsgs & vbCrLf & Err.Number & ": " & Err.Description
	WScript.Echo Err.Description
End Sub
'=========================================================================================

'=========================================================================================
Function BasicError(e)
	BasicError = e And &HFFFF&
End Function
'=========================================================================================

3. Привязывал скрипт для выделенного файла в Far Manager посредством «User Menu» и макроса для проверки.

Выглядело в результате сие примерно так:

читать дальше »

Код:

╔═════════════ Ошибок не обнаружено ═════════════╗
║ Name:[PageAll.jpg] Type:[JPEG] Dim:[616x166x8] ║
║                                                ║
╟────────────────────────────────────────────────╢
║                     { OK }                     ║
╚════════════════════════════════════════════════╝

Или так (Ваш файл):

читать дальше »

Код:

╔═══════════════════════════════════ Найдены ошибки ════════════════════════════════════╗
║ identity: 325: Corrupt JPEG data: premature end of data segment `C:\attachment.jpg':  ║
║       identity: 325: Corrupt JPEG data: bad Huffman code `C:\attachment.jpg':         ║
║                                                                                       ║
╟───────────────────────────────────────────────────────────────────────────────────────╢
║                                        { OK }                                         ║
╚═══════════════════════════════════════════════════════════════════════════════════════╝

Подобным же образом у меня сделан скрипт на группу выделенных в Far Manager'е файлов. Приводить его не буду, ибо основная идея показана во втором пункте: попытка идентификации изображения, отлов возможной ошибки при этом, далее выход из скрипта с установлением нулевого/не нулевого кода ошибки, который затем используется во внешнем приложении (в данном случае — Far Manager'е) для отображения соответствующего сообщения, а как и чем будете пользоваться Вы — решать Вам.

К сожалению, в то время утилита «identify.exe» ImageMagick (как сейчас — не знаю) не устанавливала ненулевой код возврата при ошибке в изображении, а так можно было бы вполне обойтись без скрипта VBScript (в моём, понятно, случае), одним пакетным файлом с вызовом «identify.exe».

P.S. Вполне возможно, что я плохо искал, или что ситуация изменилась за прошедшее время, и коллеги посоветуют более простое решение.

[Iska]

Дополнение:

1. Jr.Janitor, если у Вас есть кто может написать — то можно использовать библиотеки ImageMagick для получения утилиты с потребной именно Вам функциональностью.

2. После поиска обнаружилось, что «identify.exe» всё-таки устанавливает errorlevel при использовании параметра «-regard-warnings»:

Код:

C:\>"C:\Program Files\ImageMagick-6.3.4-Q8\identify.exe" -regard-warnings attachment.jpg 1>nul && echo 1 || echo 2
identify.exe: Corrupt JPEG data: premature end of data segment `attachment.jpg'.
identify.exe: Corrupt JPEG data: bad Huffman code `attachment.jpg'.
2

[Busla]

Iska, у ImageMagick глобальная проблема с именами файлов нелатинницей. Приходилось запускать его через обёртку, которая переименовывает файл в латинницу, подаёт на вход IM'а, затем переименовывает обратно :-/

[Iska]

Busla, в каком смысле? Что выдаёт stdout в ANSI (1251)? Это да, есть такое, но не более. А в остальном нормально отрабатывает, что в скрипте, что в утилите «identify.exe».

А у Вас что не срабатывает (у меня старая версия — «ImageMagick 6.3.4»)? Можете привести пример?

[Jr.Janitor]

Iska, Огромнейшее спасибо!!!
1. Очень интересная библиотека. Жаль, что тяжелая и надо инсталлить, позже попробую их 8-битную портабельную версию.
2. Скачал текущую версию 6.7.0, в ней для отображения ошибок кроме -regard-warnings нужен еще и -verbose.

Мой сменщик помог с батником, закинул все домой РАдмином, запустил, теперь буду ждать результата.
вот такой скрип получился:

Код:

@Echo off
setlocal EnableExtensions

set IM="%ProgramFiles%\ImageMagick-6.7.0-Q8\identify.exe"
set WD="%1"
if not defined WD set WD="%CD%"
set Log="%CD%\%~n0.txt"
set N=0
set T=0
set P=.
set CR=

pushd %WD%
for /f "tokens=1 delims=" %%F in ('dir /a-d /b /s') do call :Check "%%F"
popd
echo Corrupted or unknown formats: %N%/%T%
goto :End

:Check
if not "%P%"=="%~dp1" (set P=%~dp1
echo %~dp1
)
if "%T:~-1%"=="0" set /P nul=%N%/%T%%CR%<nul
set /a T+=1
%IM% -verbose -regard-warnings %1>nul 2>nul || (
echo %~1>>%Log%
set /a N+=1
)
exit /b

:End

[Jr.Janitor]

Батник пришлось доводить до ума... потерял лишние 2-3 дня - вываливался, гад.
Теперь для экономии времени и нервов, в начале сохраняет каталог в файлик (все в текущем каталоге, так что с поврежденного диска не запускать!), и если файлик имеется, то используется уже готовый (экономится примерно 15 минут времени запуска). Далее добавил срез данных (ну, всего-то 2 параметра - кол-во найденных ошибок и последний проверянный файл по сохраненному каталогу), как в старые добрые времена, когда машины висли каждые 2 часа
Так же улучший отображаемую на экран инфу - тек. каталог, штамп времени и счетчики файлов.
Проверяется уже 4е сутки без сбоев, на вторые сутки устал от воя кулера, запустил Эверест - оказалось, температура проца 81 градус (АМД), диска - 65 (ИБМ). Срочно принял меры, сейчас, температура не поднимается выше 75/56 (проц/диск). Текущая статистика - 3125 битых из 85280 проверянных (всего почти 313тыс). Большая часть по списку - спотыкания об кириллицу - меня особо не беспокоит, ибо не мои это фотки, у меня все имена исключительно латиницей. Через неделю жду окончательный вердикт.

Правленный батник:

Код:

@Echo off
setlocal EnableExtensions

set IM="%ProgramFiles%\ImageMagick-6.7.0-Q8\identify.exe"
set WD="%1"
if not defined WD set WD="%CD%"
set Log="%CD%\%~n0.txt"
set Lst="%CD%\%~n0.lst"
set Stat="%CD%\%~n0.stat"
set N=0
set T=0
set CR=
if exist %Stat% for /f "usebackq tokens=1,2" %%N in (%Stat%) do set N=%%N & set T=%%O
if %T%==0 (set P= ) else set P=skip=%T%

pushd %WD%
if not exist %Lst% dir /a-d /b /s *.jpg>%Lst%
for /f "usebackq %P% tokens=1 delims=" %%F in (%Lst%) do call :Check "%%F"
popd
echo Corrupted or unknown formats: %N%/%T%
goto :End

:Check
echo %N% %T% %date% %time%>%Stat%
if not "%P%"=="%~dp1" set "P=%~dp1" & echo %date% %time%	%~dp1
set /P nul=%CR%%N%/%T%	<nul
set /a T+=1
%IM% -verbose -regard-warnings %1>nul 2>nul
set Err=%ErrorLevel%
if %Err%==1 echo %~1>>%Log% & echo %~1
if %Err%==1 set /a N+=1
exit /b

:End

[Iska]

Большая часть по списку - спотыкания об кириллицу »

Busla выше не ответил на мой вопрос. А что у Вас не так с кириллицей?

У Вас задача, оказывается, совсем другая, нежели решал я — Вам нужна была полная проверка всех наличествующих *.jpg файлов. Теперь стало ясно.

[dascon]

Попробовал последний скрипт с ImageMagick-6.7.1-Q8. 80% провернных фото посчитал корявыми или неизвестными (Corrupted or unknown formats), хотя при просмотре искажений не наблюдаю.

[Iska]

dascon, а для одиночного файла, одного из тех, что как бы «Corrupted or unknown formats», скрипт из #2 что «говорит»?