[Опиум]

На ловца и зверь бежит. Несколько лет назад случилось аналогичное ЧП на сервере файл-помойке фоток. Написал консольную утилиту.

testjpeg.exe filename

возвращает errorlevel:
0 - если filename - корректное jpg изображение
1 - если filename - некорректное jpg изображение))
255 - если filename несуществует.

[pzh2393]

Спасибо!
А можно чуть подробнее как именно происходит проверка изображения? по каким критериям?

[Iska]

Могу предложить такой вариант:

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

Код:

Option Explicit

Dim strSourceFolder
Dim strDestFolder

Dim objFile
Dim objMagickImage


If WScript.Arguments.Count = 2 Then
	strSourceFolder = WScript.Arguments.Item(0)
	strDestFolder   = WScript.Arguments.Item(1)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FolderExists(strSourceFolder) Then
			If .FolderExists(strDestFolder) Then
				Set objMagickImage = WScript.CreateObject("ImageMagickObject.MagickImage.1")
				
				For Each objFile In .GetFolder(strSourceFolder).Files
					Select Case LCase(.GetExtensionName(objFile.Name))
						Case "jpg", "jpeg", "jpe"
							On Error Resume Next
							objMagickImage.Identify "-format", "Name:[%f] Type:[%m] Dim:[%wx%hx%z]\r\n", objFile.Path
							
							If Err.Number = 0 Then
								On Error Goto 0
								objFile.Move strDestFolder & "\"
							Else
								Err.Clear
								On Error Goto 0
							End If
						Case Else
							' Nothing to do
					End Select
				Next
				
				Set objMagickImage = Nothing
			Else
				WScript.Echo "Destination folder [" & strDestFolder & "] not found."
				WScript.Quit 2
			End If
		Else
			WScript.Echo "Source folder [" & strSourceFolder & "] not found."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage:   cscript.exe //nologo " & WScript.ScriptName & " <Source folder> <Destination folder>"
	WScript.Echo "Example: cscript.exe //nologo " & WScript.ScriptName & " ""E:\Песочница\0335\Source"" ""E:\Песочница\0335\Destination"""
	WScript.Quit 1
End If

WScript.Quit 0

с использованием ImageMagick.

[Опиум]

pzh2393, не волнуйся, по "хорошим критериям". проверь сам её работу и убедись.

Код:

rem  e:\хххporno - например коллекция фоток, где есть битые.
md %temp%\bad_jpg
cd /d e:\хххporno
dir /s /b *.jpg >%temp%\jpglist.txt
for /f "delims=*" %%i  in (%temp%\jpglist.txt) do (testjpeg "%%i" || (move "%%i" %temp%\bad_jpg\)

и смотрим потом папку %temp%\bad_jpg

[pzh2393]

по "хорошим критериям" »

Я как бы и не сомневался... просто хотел убедиться, что это будет универсальный вариант под все мои частные случаи. Предпочитаю знать наверняка.
Пы.Сы. Обязательно проверю и напишу результаты с впечатлениями! Ещё раз спасибо!

Могу предложить такой вариант: »

Спасибо! Тоже попробую.

[pzh2393]

Цитата Опиум:
и смотрим потом папку %temp%\bad_jpg »
Что-то предложенный Вами командный файл у меня не выполняется... может выплнить то же самое на vbs?

Решил скормить утилите пару файлов напрямую

Код:

c:\testJPEG\testjpeg.exe c:\testJPEG\000-011.JPG
pause

Мне постоянно возвращает "0", хотя некоторые файлы явно нечитаемы, а часть опробованных имеет "обнуленные" области.

[Iska]

Опиум, не возвращает положительный код ошибки на специально подготовленных «битых» файлах *.jpg. Windows XP SP3.

[Опиум]

pzh2393 хм. можешь выложить пример битого jpg? который вьювером не открывается, а моя прога даёт errorlevel=0.
з.ы. прога писана на дельфях с подгрузкой файла, как jpegimage

[pzh2393]

Опиум, мои файлы слишком тяжелые (от 3Mb), форум не даст вложить такой размер, проще на более мелком файле сгенерировать похожую ошибку.
IK-RA.jpg это пример для последовательного (Baseline) режима кодирования где четко видна граница запорченной области, а идентичная ошибка для прогрессивного режима не имеет такого явного визуального дефекта, поскольку ошибка может прийтись на один из последних "сканов" и найти её можно только анализом структуры или при попытке редактирования.