아래의 링크에서 가져가세요..
썸네일 컴포넌트 받기
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 으로 썸네일 이미지가 생성이 된다.