[ASP] [DEXT.FileUpload] 이미지에 워터마크 추가하기

Source

Set UF = Server.CreateObject("DEXT.FileUpload")

UploadPath = Server.MapPath("upload") & "\" ' 파일저장로컬경로

UF.DefaultPath = UploadPath

Set ObjImage = Server.CreateObject("DEXT.ImageProc") '이미지

Set ObjWater = Server.CreateObject("DEXT.ImageProc") '워터마크

If objImage.SetSourceFile(UF("file").TempFilePath) Then  '파일체크

SourceFileName = UF("file")

File = UploadPath & SourceFileName

X1 = objImage.ImageWidth '이미지파일의 X와 Y값을 구한다

Y1 = objImage.ImageHeight

WaterMark = "/upload/watermark.png" '워터마크로 쓸 이미지경로와 파일명

If objWater.SetSourceFile(WaterMark) Then  '워터마크파일체크

X2 = objWater.ImageWidth '워터마크의 X와 Y값을 구한다

Y2 = objWater.ImageHeight

X = X1 - X2 

Y = Y1 - Y2

End If

SaveFile = objImage.SaveAsWaterMarkImage(WaterMark,File,X,Y,False) '파일저장

End If

Set ObjWater = Nothing

Set ObjImage = Nothing

Set UF = Nothing

Response.Write File

Response.End

원본 이미지 파일

워터마크로 사용할 이미지 파일

결과