[이미지 파일을 썸네일 처리하기]
아래 코드는 업로드 한 이미지 파일의 가로, 세로를 1/10 크기의 썸네일 이미지를 생성합니다.
생성된 이미지는 JPG 형식입니다
<%@ Language=VBScript %>
< %
set uploadform=server.CreateObject("DEXT.FileUpload")
uploadform.DefaultPath="C:\TEMP"
set objImage =server.CreateObject("DEXT.ImageProc")
if true = objImage.SetSourceFile(uploadform.TempFilePath) then
'JPG 포맷으로 저장해야 함
filename = uploadform.FileNameWithoutExt & ".jpg"
%>
< HTML>
< BODY>
Save as Image Thumbnail: <%=objImage.SaveasThumbnail("C:\TEMP\" & filename, objImage.ImageWidth/10, objImage.ImageHeight/10, false)%>
< /BODY>
< /HTML>
< %
end if
set objImage = nothing
Set uploadform =nothing
%>
[이미지 파일 정보]
업로드된 이미지 파일의 폭과 높이 정보를 보여줍니다.
지원하는 확장자는 BMP, EMF, EXIF, GIF, Icon, JPEG, PNG, TIFF, WMF 등 입니다.
아래 예제에서 업로드 파일을 IsImageItem() 메소드를 통해서 이미지 파일인지 검사합니다.
< %@ Language=VBScript %>
< %
set uploadform=Server.CreateObject("DEXT.FileUpload")
uploadform.DefaultPath="C:\TEMP"
set objImage =Server.CreateObject("DEXT.ImageProc")
if true = objImage.SetSourceFile(uploadform("file").TempFilePath) then
%>
< HTML>
< BODY>
Image Format:<%=objimage.ImageFormat%> <br>
VerticalResolution:<%=objimage.VerticalResolution%> <br>
HorizontalResolution:<%=objImage.VerticalResolution%> <br>
Image Height:<%=objimage.ImageHeight%> <br>
Image Width:<%=objimage.ImageWidth%> <br>
Pixel Format:<%=objimage.PixelFormat%> <br>
Equipment Maker(제조사):<%=objImage.MDEquipMake%> <br>
Equipment Model(모델):<%=objImage.MDEquipModel%> <br>
Image Description:<%=objImage.MDImageDescription%> <br>
Image Document Name:<%=objImage.MDDocumentName%> <br>
Software Used:<%=objImage.MDSoftwareUsed%> <br>
Artist:<%=objImage.MDArtist%> <br>
Date Time:<%=objImage.MDDateTime%> <br>
Color Space:<%=objImage.MDExifColorSpace%> <br>
Exposed Time:<%=objImage.MDExifExposureTime%> <br>
Flash:<%=objImage.MDExifFlash%> <br>
Shutter Speed<%=objImage.MDExifShutterSpeed%> <br>
조리개 값:<%=objImage.MDExifFNumber%> <br>
ISO 속도:<%=objImage.MDExifISOSpeed%> <br>
초점 거리:<%=objImage.MDExifFocalLength%> <br>
노출 모드:<%=objImage.MDExifExposureProg%> <br>
< /BODY>
< /HTML>
< %
else
Response.Write("이미지 파일이 아닙니다.")
end if
set objImage = nothing
Set uploadform =nothing
%>
[이미지 파일의 크기 얻기]
업로드된 이미지 파일의 폭과 높이 정보를 보여줍니다.
지원하는 확장자는 BMP, EMF, EXIF, GIF, Icon, JPEG, PNG, TIFF, WMF 등 입니다.
아래 예제에서 업로드 파일을 IsImageItem() 메소드를 통해서 이미지 파일인지 검사합니다.
입력 폼 페이지 <HTML>
< BODY>
< FORM NAME="write_form" METHOD="post" ACTION="GetImageSize_Process.asp" ENCTYPE="multipart/form-data">
< INPUT TYPE="file" NAME="file1">
< INPUT TYPE="submit" VALUE="upload" NAME="Submit1">
< /FORM>
< /BODY>
< /HTML>
업로드 처리 페이지
<%@ Language=VBScript %>
< %
set uploadform=server.CreateObject("DEXT.FileUpload")
uploadform.DefaultPath="C:\TEMP"
FileName = uploadform.Save()
%>
< HTML>
< BODY>
< %
If uploadform("file").IsImageItem() Then
Response.Write uploadform.ImageFormat
Response.Write uploadform.ImageWidth
Response.Write uploadform.ImageHeight
End If
%>
< /BODY>
< /HTML>
< %
Set uploadform =nothing
%>
[이미지 파일포맷을 다른 포맷으로 변환하기]
아래 코드는 JPG 형식을 BMP 형식으로 변환하여 저장합니다. BMP,JPG,GIF 등 다른 형식으로 변환 가능 합니다.
< %@ Language=VBScript %>
< %
set uploadform=server.CreateObject("DEXT.FileUpload")
uploadform.DefaultPath="C:\TEMP"
set objImage =Server.CreateObject("DEXT.ImageProc")
if true = objImage.SetSourceFile(uploadform.TempFilePath) then
'FileNameNoExt 속성은 업로드한 파일의 이름을 리턴한다.(확장자 제외)
SourceFileName = uploadform("file").FileNameNoExt
FileName1 = SourceFileName & "(Image).bmp"
%>
< HTML>
< BODY>
Convert Image File Format: <%=objImage.ConvertImageFormat("image/bmp","C:\Temp\" & FileName1 ,false)%>
< /BODY>
< /HTML>
< %
end if
set objImage = nothing
Set uploadform =nothing
%>