Redimensionar imagens (ASP) problema

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.
 
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:
Back
Topo