
ASP > Thumbnail > 11. 4. ¸Þ¼Òµå ¸ðÀ½.
ÀÌÀü ½Ã°£±îÁö ÇØ¼ ¿©·¯ºÐµéÀº À̹ÌÁöÀÇ »çÀÌÁ ÁÙÀÌ´Â ¹æ¹ý°ú ÀúÀåÇÏ´Â
¹æ¹ýÀ» º¸¾Ò½À´Ï´Ù.
À̹ø¿¡´Â Á¦°¡ Áß¿äÇÏ´Ù°í »ý°¢ÇÑ CxImageATL ¸Þ¼ÒµåµéÀ» Á¤¸®ÇØ µå¸®µµ·Ï ÇϰڽÀ´Ï´Ù.
11.4.1 ½ÎÀÌÁî Á¶Àý
Call objCxImage.Resample(widthTh,heightTh,2)
½ÎÀÌÁî Á¶Àý ¸Þ¼Òµå ÀÔ´Ï´Ù. ¾Õ¼ ¸î¹ø ¾ð±Þ µå·È½À´Ï´Ù.
11.4.2 Rotate(n)
Call objCxImage.Rotate(180)
À̹ÌÁö¸¦ 180µµ ȸÀü½Ãŵ´Ï´Ù.
( ÀÌ ¸Þ¼Òµå´Â À̹ÌÁö¸¦ ÀúÀåÀ» ½ÃÄÑ¾ß È¿·ÂÀ» ¹ß»ýÇÕ´Ï´Ù.)
11.4.3 Negative()
Call objCxImage.Negative()
À̹ÌÁö¸¦ ¹ÝÀü½Ãŵ´Ï´Ù.
11.4.4 GrayScale()
Call objCxImage.GrayScale()
À̹ÌÁö¸¦ ȸ»öó¸® ÇÕ´Ï´Ù.
11.4.5 Mirror()
Call objCxImage.Mirror()
180 µµ ¹Ý´ë µ¹¸®±â ( ¹Ì·¯ È¿°ú ÀÔ´Ï´Ù.)
11.4.6 Flip()
Call objCxImage.Flip()
Flip È¿°ú¸¦ ÁÝ´Ï´Ù.( Àúµµ Àß ¸ð¸£°Ú´õ¶ó±¸¿ä.Mirror °ú ºñ½ÁÇÑ ±â´ÉÀÔ´Ï´Ù.)
11.4.7 ShiftRGB
Call objCxImage.ShiftRGB(100, 100, 100)
À̹ÌÁö¿¡ RBG È¿°ú¸¦ ³ÖÀ»¼ö ÀÖ½À´Ï´Ù.
11.4.8 Gamma()
Call objCxImage.Gamma(12.5)
Gamma Àû¿ë (Èñ¹ÌÇÑ Á¤µµ ¸¦ ³ÖÀ»¼ö ÀÖ½À´Ï´Ù.)
11.4.9 Noise()
Call objCxImage.Noise(120)
³ëÀÌÁî È¿°ú¸¦ Àû¿ë½Ãŵ´Ï´Ù.
11.4.10 Repair()
Call objCxImage.Repair(1.25,2,2)
»Ñ¿¬Á¤µµ¸¦ ÁÙ¼ö ÀÖ½À´Ï´Ù.
11.4.11 save()
Call objCxImage.save(FilePath10,GetFileType(FilePath0))
À̹ÌÁö¸¦ ¼¹ö¿¡ ÀúÀåÇÕ´Ï´Ù.
11.4.12 Mix() À̹ÌÁö º´ÇÕ ¿¹Á¦
Set fso = Server.CreateObject("Scripting.FileSystemObject")
VFilePath0 = "/Thumb_test0.jpg"
FilePath0 = Server.MapPath(VFilePath0)
VFilePath1 = "/Thumb_test1.jpg"
FilePath1 = Server.MapPath(VFilePath1)
VFilePath2 = "/Thumb_test2.jpg"
FilePath2 = Server.MapPath(VFilePath2)
Set objCxImage0 = Server.CreateObject("CxImageATL.CxImage")
Call objCxImage0.Load(FilePath0,GetFileType(FilePath0))
Call objCxImage0.IncreaseBpp(24)
Set objCxImage1 = Server.CreateObject("CxImageATL.CxImage")
Call objCxImage1.Load(FilePath1,GetFileType(FilePath1))
Call objCxImage1.IncreaseBpp(24)
'ImageOpType { OpAdd, OpAnd, OpXor, OpOr, OpMask, OpSrcCopy, OpDstCopy, OpSub, OpSrcBlend }
ImageOpType=6
Call objCxImage0.Mix(objCxImage1,6,-150,-200)
BinData = objCxImage0.ImageForASP(2,100)
Response.BinaryWrite BinData
Function GetFileType(sFile)
dot = InStrRev(sFile, ".")
filetype=2
If dot > 0 Then sExt = LCase(Mid(sFile, dot + 1, 3))
If sExt = "bmp" Then filetype = 0
If sExt = "gif" Then filetype = 1
If sExt = "jpg" Then filetype = 2
If sExt = "png" Then filetype = 3
If sExt = "ico" Then filetype = 4
If sExt = "tif" Then filetype = 5
If sExt = "tga" Then filetype = 6
If sExt = "pcx" Then filetype = 7
GetFileType=filetype
End Function
set fso=nothing
set objCxImage=Nothing
set objCxImage1=Nothing
Á¦°¡ Å×½ºÆ®ÇѰÍÀº ¿©±â±îÁö ÀÔ´Ï´Ù.
Cximage ÄÄÆ÷³ÍÆ®¸¦ ÀÌ¿ëÇÑ ´õ ¸¹Àº ±â´ÉÀÌ ÇÊ¿äÇϽŵ¥, Àß ¾ÈµÇ½Ã´ÂºÐÀº
asp °Ô½ÃÆÇ¿¡ Áú¹®À» ¿Ã·ÁÁÖ¼¼¿ä.
´ÙÀ½½Ã°£¿¡´Â Á¦ÀÛÀÚ°¡ ¹èÆ÷ÇÑ Menual ¸¦ °ø°³Çϵµ·Ï ÇϰڽÀ´Ï´Ù.
Áñ°Å¿î ½Ã°£ µÇ½Ê½Ã¿À.
|