1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Redimensionar imagens (ASP) problema

Discussão em 'Web Development' iniciada por jacn, 10 de Maio de 2008. (Respostas: 3; Visualizações: 2393)

  1. jacn

    jacn Power Member

    Olá a todos.

    Estou a fazer um site que tem de redimensionar imagens em ASP. Esse redimensionamento é feito através de um plugin (aspimage.dll) da Server objects. Acontece que terei de mudar a rotina para que esse redimensionamento seja feito através do plugin AspJpeg da Persits, pois o servidor onde eu vou alojar só suporte esse plugin. A rotina que eu tenho em ASP do aspimage é o seguinte:


    '********resize main

    Set Image = Server.CreateObject("AspImage.Image")
    Image.AutoSize = false
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Image.LoadImage userimage2
    Set FSO = Nothing
    intXsizeMain = Image.MaxX
    intYsizeMain = Image.MaxY
    if intYsizeMain > 300 then
    targetY = 300
    findsize1 = intYsizeMain - targetY
    findsize2 = findsize1 / intYsizeMain
    findsize3 = (1 - findsize2)
    intXSizeNew = (intXsizeMain * findsize3)
    Image.ResizeR intXSizeNew, targetY
    Image.FileName = userimage2
    Image.SaveImage
    end if
    Set Image = nothing

    '**********end main


    '********resize thumbnail

    Set Image = Server.CreateObject("AspImage.Image")
    Image.AutoSize = false
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Image.LoadImage userimage
    Set FSO = Nothing
    intXSize = Image.MaxX
    intYsize = Image.MaxY
    if intYsize > 50 then
    targetY = 50
    findsize1 = intYsize - targetY
    findsize2 = findsize1 / intYsize
    findsize3 = (1 - findsize2)
    intXSizeNew = (intXsize * findsize3)
    Image.ResizeR intXSizeNew, targetY
    Image.FileName = userimage
    Image.SaveImage
    end if
    Set Image = nothing
    set intXSize = nothing
    set intYsize = nothing
    '**********end thumbnail


    O objectivo era elaborar uma rotina que fizesse o mesmo, mas utilizando o pluginAspJpeg da Persits.


    Abraço.
     
  2. jacn

    jacn Power Member

    Alguem tem alguma dica?
     
  3. jacn

    jacn Power Member

    Ninguem me pode dar uma dica?

    Abraço
     
  4. jacn

    jacn Power Member

    Olá,

    Consegui resolver o problema.

    Aqui fica a alteração para quem trabalhar com este tipo de plugins para redimensionar imagens:


    Código:
    '********resize main
    Set Image = Server.CreateObject("Persits.Jpeg")
    Image.PreserveAspectRatio = false
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Image.open userimage2
    Set FSO = Nothing
      intXsizeMain = Image.OriginalWidth
      intYsizeMain = Image.OriginalHeight
    if intYsizeMain > 300 then
       targetY = 300
       findsize1 = intYsizeMain - targetY
       findsize2 = findsize1 / intYsizeMain
       findsize3 = (1 - findsize2)
       intXSizeNew = (intXsizeMain * findsize3)
        
       Image.Width = intXSizeNew 
       Image.Height = targetY
          
       Image.Save userimage2
    end if
    Set Image = nothing
    '**********end main
     
    '********resize thumbnail
    Set Image = Server.CreateObject("Persits.Jpeg")
    Image.PreserveAspectRatio = false
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Image.open userimage
    Set FSO = Nothing
      intXSize = Image.OriginalWidth
      intYsize = Image.OriginalHeight
      if intYsize > 50 then
          targetY = 50
       findsize1 = intYsize - targetY
       findsize2 = findsize1 / intYsize
       findsize3 = (1 - findsize2)
       intXSizeNew = (intXsize * findsize3) 
       Image.Width = intXSizeNew 
       Image.Height = targetY
       
       Image.Save userimage
    end if
    Set Image = nothing
    set intXSize = nothing
    set intYsize = nothing
    '**********end thumbnail

    Abraço
     
    Última edição pelo moderador: 17 de Maio de 2008

Partilhar esta Página