[Resolvido] Imagem dinamica

[Loko da Web 1]

Boa tarde !

 

Pessoal, estou começando a me aventurar no tão comentando componente Aspjpeg... que por por sinal estou gostando tbem. Bem, estou criando um sistema de upload e geração de miniaturas por meio deste componente. Consegui fazer uns 95% de todo o processo, porem não estou conseguindo achar a logica, e pelo estou vendo é bem simples de resolver, mas não estou conseguindo, e isso ta me irritando pacas !

 

É o seguinte, tenho o cod abaixo, que localiza a imagem a ser alterada:

 

' Localização da imagem original

imagem = Server.MapPath("images/teste.jpg")

E esta abaixo, é a "abertura" da imagem por meio desse parametro.

 

' Abre a imagem original

AspJpeg.Open imagem

 

O que nao estou conseguindo fazer, é colocar um valor para o primeiro cod, ao arquivo que estou upando, pois como puderam notar... existe um valor padrao que é teste.jpg, ou seja, só vai sofrer alteração o arquivo que conter esse nome. Mas, eu quero saber que parametro eu coloco pra ele reconhecer o arquivo que "busquei" pelo form do file. Em vez de teste.jpg, deveria ser algo como "& UpFile, seria mais ou menos assim...

 

Se alguem souber como fazer isso, agradeço... pesquisei um monte, mas não estou conseguindo achar a logica.

 

Obs: ñ consegui colocar o cod dentro do quote, da erro no javascript...

[hargon 64]

Você vai ter que pegar o caminho do arquivo após o Upload. Pesquise sobre o componente utilizado para upload.

 

Qualquer dúvida poste aqui.

[Mário Monteiro 179]

como está o trecho de seu upload?

[Loko da Web 1]

Você vai ter que pegar o caminho do arquivo após o Upload. Pesquise sobre o componente utilizado para upload.

 

Qualquer dúvida poste aqui.

 

Esse é o problema Hargon... como "pego" esse caminho ??!!

[hargon 64]

Primeiro você tem que identificar o componente utilizado para Upload.

 

Responda a pergunta do Mário.

[Loko da Web 1]

como está o trecho de seu upload?

 

Para facilitar a analise, segue o cod completo...

 

' 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("images/")

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

' Localização da imagem original
imagem = Server.MapPath("images/teste.jpg") 

' 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("images"&"/capa_"& capa &ext)

'caminho da capa no bd
ccapa = "images/capa_" + capa

' 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("images"&"/thumb_"& thumb &ext)

'caminho da thumb no bd
cthumb = "images/thumb_" + 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 "Upload realizado com sucesso."

[hargon 64]

Exemplo:

Response.Write Upload.Files(1).OriginalFileName

Referência do componente.

[Loko da Web 1]

Exemplo:

Response.Write Upload.Files(1).OriginalFileName

Referência do componente.

 

Salve Hargon... deu certim ! Vlw cara !

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Loko da Web 1]

Bom dia!

 

Desculpa reabrir o topico, não vi necessidade de criar outro topico, ja que o assunto é o mesmo. É 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)

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

' 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

' 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]

sempre é melhor criar um tópico só seu para evitar ter nova duvida em um tópico resolvido o que prejudica a sua utilização pela busca

 

então da próxima vez crie um tópico novo

 

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

 

voltando a duvida 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