Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Lucífer Castro

[Resolvido] Redimensionamento de imagens - ASPJPEG

Por , em ASP Clássico

Recommended Posts

Lucífer Castro    0

Lucífer Castro
Postado

Pessoal estou tentando redimensionar imagens com aspjpeg somente para visualização

vejam meu codigo

 


<%
Response.Expires = 0

' create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
caminho = "sgw/coberturas/"&rsPAGINA("foto")&""
' Open source file
Jpeg.Open server.mappath(caminho)

' Set new height and width
Jpeg.Width = 500
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth

' Perform resizing and 
' send resultant image to client browser
Jpeg.SendBinary

%> 

<img src="sgw/coberturas/<%=rsPAGINA("foto")%>" border="0" />
<% 

call fechaconexao

%>

quando vou vizualizar a imagem esta aparecendo isso:

 


JFIFC   %# , #&')*)-0-(0%()(C   (((((((((((((((((((((((((((((((((((((((((((((((((((w" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?4w/^&: s6xI0kINzssZBWVskx3499aǥtW0̞<Tю *UvLsTr'Te}*܋ .(8xJM"ɥv)q7>1J@UhUU#1n9:FxR0:Tl(W ac (C#" 4g$tP)qN)zҁ8F)@NN)@Nǥs?

 

não aparece nenhuma mensagem de erro, apenas centenas de linhas com esses caracteres citados acima

o que tem de errado no meu codigo?

desde ja agradeço a todos

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Como está efetivamente seu script? Um redimensionamento para exibição dinâmica não pode estar em meio a outros códigos e saídas HTML.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lucífer Castro    0

Lucífer Castro
Postado

Como está efetivamente seu script? Um redimensionamento para exibição dinâmica não pode estar em meio a outros códigos e saídas HTML.

 

esta tudo no mesmo arquivo, o codigo para redimensionar e também a parte para exibição, veja abaixo meu codigo completo:

 

<%@LANGUAGE="VBSCRIPT" codepage="65001" LCID="1046"  %>

<%Session.CodePage = 65001%>
<!--#INCLUDE FILE ="sgw/conexaodb.inc"-->

  <%
DIM strSQLPAGINA , rsPAGINA , x , TOTALREGISTROS
Call abreconexao


	strSQLPAGINA = " SELECT * FROM coberturas_info inner join coberturas where coberturas.id = coberturas_info.idcobertura order by coberturas_info.cobertura desc "
	
	

SET rsPAGINA = conexaoDB.Execute(strSQLPAGINA)

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<%

' create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
caminho = "sgw/coberturas/"&rsPAGINA("foto")&""
' Open source file
Jpeg.Open (server.mappath(caminho))

' Set new height and width
Jpeg.Width = 500
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth

' Perform resizing and 
' send resultant image to client browser
Jpeg.SendBinary


%> 

<img src="sgw/coberturas/<%=rsPAGINA("foto")%>" border="0" />
<% 

call fechaconexao

%>
<body>
</body>
</html>
Esse arquivo gerei somente para testar o codigo, com uma imagem, ainda nao esta com o loop para todas as imagens.

Obrigado pela atenção e ajuda.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Então, é como eu disse lá em cima, não é possível exibir a imagem tratada "on demand" dessa forma, junto com outros retornos para o browser. Deve ser exclusivamente a imagem.

 

Tem que fazer algo +/- assim:

<%@LANGUAGE="VBSCRIPT" codepage="65001" LCID="1046"  %>

<%Session.CodePage = 65001%>
<!--#INCLUDE FILE ="sgw/conexaodb.inc"-->

<%
DIM strSQLPAGINA , rsPAGINA , x , TOTALREGISTROS
Call abreconexao

strSQLPAGINA = " SELECT * FROM coberturas_info inner joincoberturas where coberturas.id = coberturas_info.idcobertura order bycoberturas_info.cobertura desc "

SET rsPAGINA = conexaoDB.Execute(strSQLPAGINA)

' create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
caminho = "sgw/coberturas/"& rsPAGINA("foto") &""
' Open source file
Jpeg.Open (server.mappath(caminho))

' Set new height and width
Jpeg.Width = 500
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth

' Perform resizing and 
' send resultant image to client browser
Response. BinaryWrite(Jpeg.SendBinary)

call fechaconexao
%>

E esse arquivo ser chamado como o src de uma imagem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lucífer Castro    0

Lucífer Castro
Postado

Então, é como eu disse lá em cima, não é possível exibir a imagem tratada "on demand" dessa forma, junto com outros retornos para o browser. Deve ser exclusivamente a imagem.

 

Tem que fazer algo +/- assim:

<%@LANGUAGE="VBSCRIPT" codepage="65001" LCID="1046"  %>

<%Session.CodePage = 65001%>
<!--#INCLUDE FILE ="sgw/conexaodb.inc"-->

<%
DIM strSQLPAGINA , rsPAGINA , x , TOTALREGISTROS
Call abreconexao

 strSQLPAGINA = " SELECT * FROM coberturas_info inner joincoberturas where coberturas.id = coberturas_info.idcobertura order bycoberturas_info.cobertura desc "
	
	SET rsPAGINA = conexaoDB.Execute(strSQLPAGINA)

' create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
caminho = "sgw/coberturas/"& rsPAGINA("foto") &""
' Open source file
Jpeg.Open (server.mappath(caminho))

' Set new height and width
Jpeg.Width = 500
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth

' Perform resizing and 
' send resultant image to client browser
Response. BinaryWrite(Jpeg.SendBinary)

call fechaconexao
%>
E esse arquivo ser chamado como o src de uma imagem.

 

Cara, eu substitui o

 

<img src="sgw/coberturas/<%=rs("foto")%>" border="0" />

 

por

 

<!--#INCLUDE FILE ="resizi.asp"-->

que é o codigo que faz o redimensionamento, porem os caracteres continuam aparecendo como antes. Depois testei colocando o codigo diretamente no local onde seria exibida a imagem e também não deu certo, os caracteres continuam sendo exibidos no local da imagem. O que fiz de errado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Em um arquivo novo coloque apenas:

<img src="sgw/coberturas/resizi.asp" border="0" />

E poste aqui o resultado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lucífer Castro    0

Lucífer Castro
Postado

Em um arquivo novo coloque apenas:

<img src="sgw/coberturas/resizi.asp" border="0" />

E poste aqui o resultado.

 

Salgado funcionou beleza, so tive que fazer um ajuste que foi esse aqui:

 

<img src="resizi.asp?img=<%=rs("foto")%>" border="0" />

 

Muito obrigado pela sua ajuda!!!

Agora tem so mais uma coisa.

Eu adaptei o codigo para que seja aplicado em cada imagem um logomarca (marca d'agua), funcionou perfeitamente, so que o fundo da logomarca ficou branco, o formato da imagem da logo é PNG, como faço para que fique sem o fundo branco?

abaixo o codigo:

<%
 cobertura_img = request.QueryString("img")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set JpegLogo = Server.CreateObject("Persits.Jpeg")

caminho = "sgw/coberturas/"& cobertura_img &""
JpegLogoPath = Server.MapPath("sgw/img/logo_divulga.png")

'Open source file
Jpeg.Open (server.mappath(caminho))
JpegLogo.Open JpegLogoPath
Jpeg.DrawImage Jpeg.Width-280, Jpeg.Height-100, JpegLogo

Jpeg.Width = 700
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
Response.BinaryWrite(Jpeg.SendBinary)

%>

Mais uma vez obrigado ela sua ajuda!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito