tiff 파일의 이미지 크기는 어떻게 결정합니까?

Question

은 내가 VBScript를 스크립트를하고 난이 .tif 파일의 디렉토리를 통해 씹을 필요가있다. 각 파일에 대해 필자는 파일이 가로 또는 세로로 비례하는지 결정해야합니다. 기본적으로 각 파일의 이미지 크기를 가져올 수 있어야합니다. 그래서 저는 jpg 나 bmp 파일에서 이런 종류의 정보를 추출하기 위해 파일 헤더를 읽는 사람들의 예를 보았습니다. 누구든지 tiff 파일의 크기를 추출하기 위해 동일한 작업을 수행 했습니까?

Answer 1

VBScript를, 당신은 두 가지 방법으로 이미지 크기를 확인할 수 있습니다

1. WIA 자동화 라이브러리 (download link, MSDN documentation, an excellent Hey, Scripitng Guy! article on the subject)를 사용. 해당 확장 파일 속성을 읽을 수 GetDetailsOf 방법을 사용하여

   Set oImage = CreateObject("WIA.ImageFile") 
   oImage.LoadFile "C:\Images\MyImage.tif" 
   
   WScript.Echo "Width: " & oImage.Width & vbNewLine & _ 
         "Height: " & oImage.Height 
   

   
   

2. : 당신이 wiaaut.dll 라이브러리를 등록하면, 다음과 같은 간단한 코드를 사용할 수 있습니다. 이것은 기본 Windows 스크립팅 방법이므로 외부 라이브러리가 필요하지 않습니다. 그러나 코드는 더 이상 :

   치수 : 2464 X 3248
   폭 :

   Const DIMENSIONS = 31 
   CONST WIDTH = 162 
   CONST HEIGTH = 164 
   
   Set oShell = CreateObject ("Shell.Application") 
   Set oFolder = oShell.Namespace ("C:\Images") 
   Set oFile = oFolder.ParseName("MyImage.tif") 
   
   strDimensions = oFolder.GetDetailsOf(oFile, DIMENSIONS)  
   strWidth = oFolder.GetDetailsOf(oFile, WIDTH) 
   strHeigth = oFolder.GetDetailsOf(oFile, HEIGTH) 
   
   WScript.Echo "Dimensions: " & strDimensions & vbNewLine & _ 
         "Width: "  & strWidth  & vbNewLine & _ 
         "Height: "  & strHeigth 
   

   이 스크립트는 같은 출력 2464 개 픽셀을
   높이 : 3,248 픽셀

   그렇다면 일반 숫자가 필요하면 반환 된 문자열에서 추출해야합니다.

   또한이 방법에는 또 다른 문제가 있습니다. this answer에서 설명했듯이 속성 색인 (스크립트의 시작 부분에있는 상수)은 Windows 버전마다 다릅니다. 위의 스크립트는 Windows 7 용이지만 다른 Windows 버전을 사용하거나 스크립트가 다른 Windows 버전에서 작동하게하려면 버전 별 색인을 사용해야합니다. 사용 가능한 등록 정보 색인의 가장 완전한 목록은 here입니다.

는

Answer 2

나는 무료 강력한 & Atalasoft's DotImage Photo를 사용하는 것이 좋습니다 것입니다! 그러나 .NET 패키지이므로 작동하려면 Regasm Magic을 수행해야합니다. 시작하기 전에 Use vb.net in VBScript을 확인하십시오. 여기

는 크기를 얻을하는 데 필요한 코드입니다.

Public Function GetHeight(path As String) As Integer 

    Using stm As New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read) 
     Dim decoder As New TiffDecoder() 
     If Not decoder.IsValidFormat(stm) Then 
      Throw New Exception("not a TIFF") 
     End If 
     Dim image As AtalaImage = decoder.Read(stm, Nothing) 
     Return image.Height 
      ' Return image.Width --- To return the Width. 

    End Using 
End Function