[Resolvido] ASPJPEG - verificar se a imagem existe

[Luan Messias 0]

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

[xanburzum 169]

coloca essa

 

‘Função para verificar se a imagem existe numa pasta .
function IsFileExists(byVal FileName)
If FileName = "" Then
IsFileExists = False
Exit Function
End If

mais detalhes, link

[Luan Messias 0]

testei aqui de algumas formas mas sem sucesso não consegui implemetar =/

existe alguma outra forma ?

 

algo como if "imagem nao existe" then...

tentei usar essa logica nesse script mas sem sucesso

[Luan Messias 0]

Aew consegui utilizando FSO!

ele verifica se o arquivo existe e caso nao exista ele mostra uma imagem padrão do tipo "sem imagem"

 

segue o script pra quem quiser usar ou testar

 

 

<!--FSO - verificar se a imagem existe na pasta-->
<%
'Define o caminho da imagem a ser redimensionada
foto = (achar_foto.Fields.Item("cod_prod").Value)

Set arq = Server.CreateObject("Scripting.FileSystemObject")
'Cria o objeto FSO que será utilizado para a operação.

'Seta a variável arquivo com o caminho para o arquivo que desejamos verificar.
arquivo = server.mappath("img/bd_img/"&foto&".jpg")


if arq.FileExists(arquivo) = true then
foto = (achar_foto.Fields.Item("cod_prod").Value)
else
foto = "noimg"
end if
%>
<!--AspJpeg-->
<%
'Declara as variáveis a serem utilizadas no script
Dim AspJpeg, imagem

'Instancia o componente na memória
SET AspJpeg = Server.CreateObject("Persits.Jpeg")

'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/thumb/"&foto&"_peq.jpg"))
 
'variavel de exibicao
mostrar = "img/bd_img/thumb/"&foto&"_peq.jpg"


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

Valeu, uma abraço ae.

[xanburzum 169]

ok, beleza, qualquer coisa posta ae...