[Resolvido] Gravar imagens no BD

[Rasp 3]

Opa galera beleza?

Seguinte... estou tendo problemas para gravar os thumbs gerados no bd.. fiz o seguinte.. as imagens são gravadas com o nome marcando data, hora, minuto e segundo, beleza grava perfeitamente. Porém uso ASPJpeg para gerar os thumbs.. então coloco para abrir a imagem e gravar o thumb no mesmo jeito, só que a imagem gera com um nome e grava no bd com outro, pq o segundo passa...

 

Queria conseguir fazer gravar o thumb com o mesmo nome da imagem... retirando apenas o fotos_ e colocando thumbs_

 

Segue a parte do script que cuida desta parte:

 

' Cria o objeto Persits.Jpeg para manipular a imagem
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	' Aponta o caminho da imagem para ser puxado por Jpeg.Open Path
	Path = "D:\webs\issad1\adm\fotos" & "\fotos_"& year(date)& month(date)& day(date)& hour(time)& minute(time)& second(time)&ext
	Jpeg.Open Path
	' Especifica o tamanho da imagem
	Jpeg.Width = 100 'Jpeg.OriginalWidth / 2
	Jpeg.Height = 80 'Jpeg.OriginalHeight / 2
	' Comprime o arquivo da imagem reduzindo seu tamanho
	Jpeg.Quality = 50
	' Esse método é opcional, usado para melhorar o visual da imagem
	Jpeg.Sharpen 1, 150
	' Cria um thumbnail e o grava no caminho abaixo
	Jpeg.Save "D:\webs\issad1\adm\thumbs" & "\thumbs_"& year(date)& month(date)& day(date)& hour(time)& minute(time)& second(time)&ext

		thumb = ""
		cod = session("cod")
		if session("thumbs") = 1 then
			thumb = "ds_thumb1"
		end if
		if session("thumbs") = 2 then
			thumb = "ds_thumb2"
		end if
		if session("thumbs") = 3 then
			thumb = "ds_thumb3"
		end if
		if session("thumbs") = 4 then
			thumb = "ds_thumb4"
		end if
		if session("thumbs") = 5 then
			thumb = "ds_thumb5"
		end if

	str2 = "Update T01_Imovel set "
	str2 = str2 & ""& thumb &" = '"& "thumbs_"& year(date)& month(date)& day(date)& hour(time)& minute(time)& second(time)&ext &"' "
	str2 = str2 & "WHERE t01_cd_imovel = "& cod &""
	set rs3 = db.execute(str2)

	msg= "Upload do arquivo realizado com sucesso."
		response.redirect "foto1.asp?cod="&cod
		
		Set Jpeg = Nothing
else
	msg="Erro no envio do arquivo.\n Tente Novamente ou entre em contato com o webmaster."
	response.redirect "foto1.asp?cod="&cod
end if
%>

Se alguem puder me ajudar agradeço

 

Abss

[Rasp 3]

Completando... as vezes quando faço o upload gera este erro:

 

Persits.Jpeg.1 error '800a0002'

The system cannot find the file specified.

/adm/upload_2.asp, line 80

[hargon 64]

Essa mensagem de erro é porque o endereço do arquivo que você especificou não existe.

[Rasp 3]

Opa hargon,

É isso eu percebi, mais isso acontece pelo problema que citei acima... tipo o nome das imagens são gerados de acordo com data hora, minuto e segundo. o que acontece é que quando o sistema vai bucar a imagem na pasta o segundo mudou, ele gera o thumb com outro nome e grava no bd com outro diferente.

Quer dizer fica uma bagunça total... queria ver um modo de melhor de salvar as imagens, tipo de gerar os nomes saca? mais não sei como bolar de outro modo, se puder dar um help aí, agradeço

 

Abss

vlw!!

[hargon 64]

Pois é. Você terá que armazenar o nome da primeira imagem em uma variável. Na segunda você só acrescenta o "thumb".

[Rasp 3]

hargon,

Será que você poderia me dar um exemplo? tentei algumas coisas mais não deram certo.

 

Vlw brigadão pela ajuda ae!

[hargon 64]

CODE

<%
' Cria o objeto Persits.Jpeg para manipular a imagem
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Aponta o caminho da imagem para ser puxado por Jpeg.Open Path
nmFoto = year(date)& month(date)& day(date)& hour(time)& minute(time)& second(time)
Path = "D:\webs\issad1\adm\fotos" & "\fotos_"& nmFoto &ext
Jpeg.Open Path
' Especifica o tamanho da imagem
Jpeg.Width = 100 'Jpeg.OriginalWidth / 2
Jpeg.Height = 80 'Jpeg.OriginalHeight / 2
' Comprime o arquivo da imagem reduzindo seu tamanho
Jpeg.Quality = 50
' Esse método é opcional, usado para melhorar o visual da imagem
Jpeg.Sharpen 1, 150
' Cria um thumbnail e o grava no caminho abaixo
Jpeg.Save "D:\webs\issad1\adm\thumbs" & "\thumbs_"& nmFoto &ext

thumb = ""
cod = session("cod")
if session("thumbs") = 1 then
thumb = "ds_thumb1"
end if
if session("thumbs") = 2 then
thumb = "ds_thumb2"
end if
if session("thumbs") = 3 then
thumb = "ds_thumb3"
end if
if session("thumbs") = 4 then
thumb = "ds_thumb4"
end if
if session("thumbs") = 5 then
thumb = "ds_thumb5"
end if

str2 = "Update T01_Imovel set "
str2 = str2 & ""& thumb &" = '"& "thumbs_"& nmFoto &ext &"' "
str2 = str2 & "WHERE t01_cd_imovel = "& cod &""
set rs3 = db.execute(str2)

msg= "Upload do arquivo realizado com sucesso."
response.redirect "foto1.asp?cod="&cod

Set Jpeg = Nothing
%>

[Rasp 3]

Fala hargon,

Pô cara vlw funcionou na boa como eu estava pensando... eu tava dando mole... coloquei a variavel, mais esqueci desta parte aqui

 

str2 = str2 & ""& thumb &" = '"& "thumbs_"& nmFoto [b]&ext &"' "[/b]

Mais brigadão cara!

Abss

[hargon 64]

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