썸네일 만들어 주는 컴포넌트입니다.
사용방법도 무지 간단하더군요.
KMSThumbNail은 이미지(TIF, TIFF, GIF, JPG, JPEG, BMP, PNG) 파일을 썸네일파일(JPG, GIF)로 만들어 주는 ActiveX Dll입니다.
예제)
---------------------------------------------------------------------------------------------------------
Dim FName
Dim TestThumb
FName = Server.MapPath (".") & "test.BMP" '이미지 파일의 절대 경로
Set TestThumb = Server.CreateObject("KMSThumb.Thumb")
TestThumb.FileName = FName '절대경로를 넘겨줌
'절대 경로가 없으면 썸네일 파일이 만들어지지 않습니다.
TestThumb.Width = 100 '생성될 썸네일의 가로 크기를 지정(default 100)
' Width 는 1~999까지 가능
TestThumb.Height = 100 '생성될 썸네일의 세로 크기를 지정(default 100)
' Height 는 1~999까지 가능
TestThumb.Quality = 100 '생성될 썸네일의 이미지 Quality(JPG로 생성시만 적용)(default 100)
' Quality 는 1~999까지 가능 - 100이상이면 의미가 없습니다.
TestThumb.ImgGB = 1 '1이면 JPG, 2이면 GIF로 썸네일 생성(default 1)
TestThumb.ImgScale = 2 '2이면 Scale Mode, 1이면 지정한 Height, Width로 썸네일 생성(default 1)
'원본 1000,1500의 이미지가 있을시 100,100으로 썸네일을 생성하면 이미지의 세로가 축소 변경이 된다.
'위의 이미지는 100, 150으로 생성을 하면 이미지 변경없이 썸네일의 이미지가 만들어질 것이다.
'그래서 ImgScale란 것을 만들어 보았다.
'ImgScale가 2이면 이 방법이 적용이 된다.
'원본의 이미지와, 생성될 썸네일의 이미지를 비교하여 가로,세로중 썸네일 이미지가 큰 것의 길이에 따른다.
' ex) 1000,500 을 100,100으로 적용하면(ImgScale = 2)
' -> 100,50 으로 썸네일 이미지가 생성이 된다.
' ex2) 500,1000 을 100,100으로 적용하면(ImgScale = 2)
' -> 50,100 으로 썸네일 이미지가 생성이 된다.
'추가
TestThumb.FrontStr = "KMS_"
'FrontStr을 이용하여 기존의 Thumb_로 통일되어 있던 앞의 이미지명을 바꿀수 있습니다.
'위와 같이 한다면 "KMS_이미지명.jpg"라고 썸네일이 생성이 되게 됩니다.
' ex) KMS_test.jpg
TestThumb.SaveThumb '썸네일 생성 메소드
'추가
response.write TestThumb.imgStr
'썸네일의 이미지명을 반환합니다. - 결과값 => KMS_test.jpg
Set TestThumb = nothing
---------------------------------------------------------------------------------------------------------
업그래이드 방법은 zip파일에 포함된 Readme.txt를 꼭 읽어 주세요..(3. 설치편)
[출처] 프로그래머들의 세계 | 필더 (http://cafe.naver.com/programmers/120)
썸네일컴포넌트.zip
