Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Fala galera
estou tendo um problema com ASPJPEG talves pra quem saiba usa-lo bem seja simples mas eu não consegui uma forma de vericar se a imagem que estou buscando existe ou não.
bom segue o meu script, ele funciona perfeitamente mas esta faltando esta funcionalidade para evitar a pagina de erro.
eu queria usar essa funcionalidade tanto para abrir a imagem quanto para gerar o thumb.
<%
'Declara as variáveis a serem utilizadas no script
Dim AspJpeg, imagem
Dim Foto
'Instancia o componente na memória
SET AspJpeg = Server.CreateObject("Persits.Jpeg")
'Define o caminho da imagem a ser redimensionada
foto = (achar_foto.Fields.Item("cod_prod").Value)
'Carrega a imagem
AspJpeg.Open (server.mappath("img/bd_img/"&foto&".jpg"))
'Define o novo tamanho da imagem que neste caso, definimos que ela será 50% menor que o normal.
AspJpeg.Width = 262
AspJpeg.Height = AspJpeg.OriginalHeight * AspJpeg.Width / AspJpeg.OriginalWidth
'Esse método é opcional, usado para melhorar o visual da imagem.
AspJpeg.Sharpen 1, 150
'Cria um Thumbnail e o grava no caminho abaixo.
AspJpeg.Save (server.mappath("img/bd_img/"&foto&"_peq.jpg"))
'variavel de exibicao
mostrar = "img\bd_img\"&foto&"_peq.jpg"
'Remove as referências do componente da memória
SET AspJpeg = Nothing
%>
desde ja, agradeço
Carregando comentários...