[Resolvido] ASPJPEG - Redimensionar altura e largura igual sem di

[Luan Messias 0]

Opa Galera

venho aqui denovo pedir ajuda sobre o ASPJPEG

 

montei um banco de imagens para a empresa que trabalho com o aspjpeg + fso, tudo funciona perfeito

porem existem alguns clientes que não sabem redimensionar imagens pra os seus sites e sempre reclamam que quando usam altura e largura igual a imagem distorce "obvio"

 

ai minha pergunta existe alguma forma de dimensionar a imagem para 600x600 por exemplo sem distorcer ?

todas as minhas imagens tem 600 de largura porem a altura é relativa.

 

nao precisa ser exatamente 600x600 mas que fique igual.

 

existe essa possibilidade ?

 

Desde ja, agradeço a atenção

[Alexandre.Itba 0]

Boa tarde,

 

Você esta utilizando o componente da Persits?

 

 

Existem duas formas:

- Você pode redimensionar as imagens, mantendo a proporção, neste caso, quando você tiver uma imagem 1024x768, por exemplo, ao redimensionar para 800 de largura, ela automaticamente ficará com 600 de largura. Para isto, basta fazer:

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.PreserveAspectRatio = True
%>

 

- Você também pode cortar a imagem deixando ela com o tamanho desejado, para isto, você utiliza o Crop passando os 2 pontos, (x1,y1) e (x2, y2), da seguinte forma:

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Crop XSuperior, YSuperior, XInferior, YInferior
%>

[Luan Messias 0]

Boa tarde, Alexandre

 

Obrigado pela ajuda.

então não é possivel adicionar area na imagem, apenas aumentar, diminuir e cortar certo ?

neste caso se eu utilizar o crop vou acabar cortando a imagem do produto...

 

imaginei algo como:

 

capturar a largura: 600

e a altura: 1000

ai o sistema coloca + 400 de largura com fundo branco na imagem e ela ficar com 1000x1000

 

não sei se estou boiando na ideia mas seria algo deste tipo rs.

[Alexandre.Itba 0]

Sim, é possível adicionar um fundo, basta utilizar um valor negativo nos parâmetros do Crop.

Um exemplo legal:

http://www.aspjpeg.com/manual_04.html - Item 4.3

[Luan Messias 0]

Opa, maravilha

 

vou estudar isso e fazer uma tentativa

caso de certo vou postar o script pra galera que precisar aqui

 

Alexandre, muito Obrigado pela ajuda

[xanburzum 169]

dá uma olhada neste linkque tem exemplo

[Luan Messias 0]

Aew consegui funcionou perfeito

 

po valeu memso pela ajuda

 

ainda não fiz uma limpeza no script pra deixar ele menor mas tae pra quem precisar:

 

 

<%
foto = request.QueryString("foto")
'Declara as variáveis a serem utilizadas no script
Dim AspJpeg, imagem
 
'Instancia o componente na memória
SET AspJpeg = Server.CreateObject("Persits.Jpeg")
 
'Define o caminho da imagem a ser redimensionada
imagem = (server.mappath("img/bd_img/"&foto&".jpg"))
 
'Carrega a imagem
AspJpeg.Open imagem
 
AspJpeg.Width = 600
AspJpeg.Canvas.Brush.Color = &HFFFFFF
if AspJpeg.OriginalHeight < AspJpeg.Width then
	adicional = AspJpeg.Width - AspJpeg.OriginalHeight
		adicional = adicional/2
			Aspjpeg.Crop -0, -adicional, Aspjpeg.Width + 0, Aspjpeg.Height + adicional
	else if AspJpeg.OriginalHeight > AspJpeg.Width then
 		adicional = AspJpeg.OriginalHeight - AspJpeg.Width
			adicional = adicional/2
			Aspjpeg.Crop -adicional, -0, Aspjpeg.Width + adicional, Aspjpeg.Height + 0
		else if AspJpeg.OriginalHeight = AspJpeg.Width then
			adicional = 600
		end if
	end if	
end if	


if AspJpeg.Width = AspJpeg.Height then
	AspJpeg.Width = 600
	AspJpeg.Height = 600
end if
 

Response.Write AspJpeg.SendBinary
 
'Remove as referências do componente da memória
SET AspJpeg = Nothing
%>

[xanburzum 169]

ok, beleza, estarei dando uma otimizada nele, e postarei no lab. de script