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.

Alguem tem alguma dica?

Ninguem me pode dar uma dica?

Abraço

Olá,

Consegui resolver o problema.

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


'********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