DextUpLoad 를 이용한 WaterMark와 Thumbnail [출처] DextUpLoad 를 이용한 WaterMark와 Thumbnail|작성자 항해자  

<%Language=VBScript %>
<%
    Dim UpPath, fPath(1), fSize(1), tmp
    Dim fWaterMark, fThumbnail, SourceFileName

    Set QueryForm Server.CreateObject("DEXT.FileUpload")
    QueryForm.DefaultPath "C:\Temp"

    ' 원본 업로드
    UpPath QueryForm("file").Save
    response.write "Save as Source Image:"UpPath


    Set objImage Server.CreateObject("DEXT.ImageProc")

    if objImage.SetSourceFile(UpPath) True then
        ' FileNameWithoutExt 속성은 업로드한 파일의 이름을 리턴한다.(확장자 제외)
        tmp "/DEXTUploadProSamples/Image/WaterMark/watermark.bmp"
        SourceFileName QueryForm("file").FileNameWithoutExt 

        fPath(0) "C:\Temp\"SourceFileName &"(WaterMark).jpg"
        fPath(1) "C:\Temp\"SourceFileName &"(Thumbnail).jpg"

        ' 워터마크 처리
        fWaterMark objImage.SaveAsWatermarkImage(tmp,fPath(0),-10,-10,false)
        response.write "Save as Watermark Image: "fWaterMark
    end if

    if objImage.SetSourceFile(fWaterMark) True then
        ' 워터마킹 처리 된 이미지로 썸네일 처리 한다.
        fSize(0) objImage.ImageWidth 2
        fSize(1) objImage.ImageHeight 2
        fThumbnail objImage.SaveasThumbnail(fPath(1),fSize(0),fSize(1),false)
        response.write "Save as Thumbnail: "fThumbnail
    end if

    Set objImage  Nothing
    Set QueryForm Nothing
%>  

'asp' 카테고리의 다른 글

트랜잭션  (0) 2010.09.28
프로퍼티 & 메소드  (0) 2010.09.28
DextUpLoad 를 이용한 WaterMark와 Thumbnail  (0) 2010.09.28
Form 변수 일괄처리 하기  (0) 2010.09.28
원격 서버의 SMTP 사용하기  (0) 2010.09.28
동적인 Select Box [단계식]  (0) 2010.09.28

+ Recent posts