EXIF 정보 출력

디지털 카메라로 JPEG 이미지를 생성할 경우 JPEG 이미지의 메타 데이터 영역에 촬영 정보(EXIF)가 기록됩니다. TABS Image 오브젝트는 이 정보를 읽어 제공합니다.

EXIF 정보 출력

Image 오브젝트의 Metadata 프로퍼티는 EXIF 정보 집합을 ImageMetadata 오브젝트 형식으로 반환합니다. ImageMetadata 오브젝트의 GetExifValue 메서드를 호출해 다양한 EXIF 데이터를 읽을 수 있습니다.

ASP

Copy

Dim Image, Status, Meta, value
Set Image = Server.CreateObject("TABSUpload4.Image")
Status = Image.Load("C:\Images\sample.jpg")
If Status = Ok Then
    Set Meta = Image.Metadata
    Response.Write "<br>제조사: " & Meta.GetExifValue(PropertyTagEquipMake)
    Response.Write "<br>모델명: " & Meta.GetExifValue(PropertyTagEquipModel)

    value = Meta.GetExifValue(PropertyTagExifShutterSpeed)    
    If value <> "" Then value = "1/" & Round(2 ^ Eval(value)) & "sec."
    Response.Write "<br>셔터속도: " & value

    value = Meta.GetExifValue(PropertyTagExifFNumber)
    If value <> "" Then value = "F/" & Eval(value)
    Response.Write "<br>F 번호: " & value

    value = Meta.GetExifValue(PropertyTagExifFocalLength)
    If value <> "" Then value = Round(Eval(value)) & "mm"
    Response.Write "<br>초점거리: " & value

    value = Meta.GetExifValue(PropertyTagExifExposureTime)
    If value <> "" Then value = value & "sec."
    Response.Write "<br>노출시간: " & value

    value = Meta.GetExifValue(PropertyTagExifISOSpeed)
    If value <> "" Then value = "ISO-" & value
    Response.Write "<br>ISO 속도: " & value

    Response.Write "<br>촬영날짜: " & Meta.GetExifValue(PropertyTagExifDTOrig)

    Image.Close
Else
    Response.Write "이미지 파일을 열 수 없습니다. 오류 코드: " & Status
End If