[Resolvido] Criar Thumb sem jogar a original na pasta

[Loko da Web 1]

Bom dia!

 

É o seguinte, o upload e a geração das miniaturas funcionar 100%... o problema seria justamente quando faço o upload, ou seja, depois de de incluir a imagem para upload, a imagem original é incluida dentro da pasta "upload_capas", e depois para gerar a miniatura sobre essa imagem original ele procura a imagem que esta dentro desta pasta.

 

O que eu queria saber se da para fazer a criação da miniatura, sem que ele faça a busca dentro da pasta... para explicar melhor o que eu quero, farei uma analise.

 

O cod abaixo faz o upload da imagem, incluindo-o na pasta

 

Upload.Save  server.MapPath("upload_capas/")

Abaixo ele faz a busca da imagem upada, para criação da miniatura

 

imagem = Server.MapPath("upload_capas/"& Upload.Files(1).OriginalFileName) 
AspJpeg.Open imagem

O quero é evitar de incluir a imagem original na pasta, evitando assim a ocupação de espaço do disco, pois o que eu vou aproveitar é somente as miniaturas. Mas, não sei se tem como fazer isso, e para facilitar a analise, postei o cod completo abaixo.

 

' Cria uma instância do controle
Set Upload = Server.CreateObject("Persits.Upload")

' Não sobrevescrever arquivos
Upload.OverwriteFiles = False

' Limita o tamanho máximo do arquivo em 1MB
Upload.SetMaxSize 1048576

' Salva o arquivo
Upload.Save  server.MapPath("upload_capas/")

' Cria uma instância do controle
Set AspJpeg = Server.CreateObject("Persits.Jpeg")

'Localização da imagem original
imagem = Server.MapPath("upload_capas/"& Upload.Files(1).OriginalFileName) 

' Abre a imagem original
AspJpeg.Open imagem

' Reduz a imagem
AspJpeg.Width  = 130
AspJpeg.Height = 185

'Melhora a qualidade da imagem
AspJpeg.Sharpen 1, 110

' Salva a imagem reduzida e renomea
capa = ""& year(now) &""& month(now) &""& day(now) &""& hour(now) &""& minute(now) &""& second(now) &".jpg"
AspJpeg.Save Server.MapPath("upload"&"/G"& capa &ext)

' Reduz a imagem
AspJpeg.Width  = 82
AspJpeg.Height = 120

'Melhora a qualidade da imagem
AspJpeg.Sharpen 1, 110

' Salva a imagem reduzida e renomea
thumb = ""& year(now) &""& month(now) &""& day(now) &""& hour(now) &""& minute(now) &""& second(now) &".jpg"
AspJpeg.Save Server.MapPath("upload"&"/P"& thumb &ext)

'caminho da capa no bd
ccapa = "upload/G" + capa

'caminho da thumb no bd
cthumb = "upload/P" + thumb

'Conecta e inclui arquivos no bd
url_conexao = Server.MapPath("fotos.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

sql = "Insert into Tab_fotos (titulo,titulo_original,genero,capa,thumb) values ('"& Upload.Form("titulo") &"' , '"& Upload.Form("titulo_original") &"' , '"& Upload.Form("genero") &"' , '"& ccapa &"' , '"& cthumb &"')"
Conexao.Execute(sql)

response.write("<script>location = 'default.asp';alert('Cadastrado feito com sucesso !')</script>")

[Mário Monteiro 179]

putz

 

você postou duas vezes a mesma coisa

 

e olha que disse no outro tópico que não ia criar pois eram duvidas semelhantes

 

mas como disse no outro tópico é sempre melhor mesmo criar um novo topico

 

respondi lá

 

http://forum.imasters.com.br/index.php?/topic/354525-imagem-dinamica/page__view__findpost__p__1343632

 

mas repito aqui

 

--------------------------

 

para criar a miniatura a imagem tem que está no servidor

 

então se só precisa da miniatura faça o upload, gere a miniatura e exclua a imagem original

[Loko da Web 1]

putz

 

você postou duas vezes a mesma coisa

 

e olha que disse no outro tópico que não ia criar pois eram duvidas semelhantes

 

mas como disse no outro tópico é sempre melhor mesmo criar um novo topico

 

respondi lá

 

http://forum.imaster...ost__p__1343632

 

mas repito aqui

 

--------------------------

 

para criar a miniatura a imagem tem que está no servidor

 

então se só precisa da miniatura faça o upload, gere a miniatura e exclua a imagem original

 

Mario, desculpe por qualquer coisa... mas realmente abrir outro topico é melhor, como sugeriu. Voltando ao assunto, teria como fazer esse processo "faça o upload, gere a miniatura e exclua a imagem original" nesse mesmo cod ? Pois como pode notar, fiz o upload e gerei a thumb, agora falta excluir a imagem original, mas como ???

[Mário Monteiro 179]

excluir é a parte mais simples pode fazer com FSO mesmo

 

mas tem que fazer depois de gerar a miniatura

[Loko da Web 1]

excluir é a parte mais simples pode fazer com FSO mesmo

 

mas tem que fazer depois de gerar a miniatura

 

 

Mariozao... vlw, consegui fazer com fso, que por sinal é barbadinha como mesmo disse, segue o cod pra galera:

 

Set imagem = CreateObject("Scripting.FileSystemObject")
If (imagem.FileExists(Server.MapPath("upload/"& Upload.Files(1).OriginalFileName))) Then
imagem.DeleteFile(Server.MapPath("upload/"& Upload.Files(1).OriginalFileName))
end if

[Mário Monteiro 179]

perfeito então caso resolvido

 

parabéns por ter buscado a solução

 

abraços