não consigo vizualizar as imagens uplodiadas

fazeredo2002 · Agosto 26, 2005

Ei pessoal!

Consegui modificar um código pra fazer uploads sem componentes (Dak0), mas quando eu faço 6 uploads ao mesmo tempo, as imagens ficam sem tipo, daí não dá pra visualizar as mesmas...

Podem me dar uma luz? http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Guybrush · Agosto 26, 2005

Códigozinho ae pra nóis X)

POST NUMERO 100 o.O

fazeredo2002 · Agosto 26, 2005

Códigozinho ae pra nóis X)

POST NUMERO 100 o.O

<{POST_SNAPBACK}>

Daí mano!

Obrigado pelo interesse em me ajudar!

O código é do Dark0 e eu adaptei...

Segue o código de ação do upload...

ASP

[*]

[*]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

[*]

[*]

[*]<%

[*]

[*]' Chamando Funções, que fazem o Upload funcionar

[*]

[*]byteCount = Request.TotalBytes

[*]

[*]RequestBin = Request.BinaryRead(byteCount)

[*]

[*]Set UploadRequest = CreateObject("Scripting.Dictionary")

[*]

[*]BuildUploadRequest RequestBin

[*]

[*]' Recuperando os Dados Digitados ----------------------

[*]

[*]Titulo = UploadRequest.Item("Titulo").Item("Value")

[*]Memorando = UploadRequest.Item("Memorando").Item("Value")

[*]

[*]' Tipo de arquivo que esta sendo enviado

[*]

[*]tipo_foto1 = UploadRequest.Item("Foto1").Item("ContentType")

[*]tipo_foto2 = UploadRequest.Item("Foto2").Item("ContentType")

[*]tipo_foto3 = UploadRequest.Item("Foto3").Item("ContentType")

[*]tipo_foto4 = UploadRequest.Item("Foto4").Item("ContentType")

[*]tipo_foto5 = UploadRequest.Item("Foto5").Item("ContentType")

[*]tipo_foto6 = UploadRequest.Item("Foto6").Item("ContentType")

[*]

[*]' Caminho completo dos arquivos enviados

[*]

[*]caminho_foto1 = UploadRequest.Item("Foto1").Item("FileName")

[*]caminho_foto2 = UploadRequest.Item("Foto2").Item("FileName")

[*]caminho_foto3 = UploadRequest.Item("Foto3").Item("FileName")

[*]caminho_foto4 = UploadRequest.Item("Foto4").Item("FileName")

[*]caminho_foto5 = UploadRequest.Item("Foto5").Item("FileName")

[*]caminho_foto6 = UploadRequest.Item("Foto6").Item("FileName")

[*]

[*]' Nome dos arquivos enviados

[*]

[*]nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

[*]nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

[*]nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

[*]nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

[*]nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

[*]nome_foto6 = Right(caminho_foto6,Len(caminho_foto6)-InstrRev(caminho_foto6,"\"))

[*]

[*]' Conteudo binario dos arquivos enviados

[*]

[*]foto1 = UploadRequest.Item("Foto1").Item("Value")

[*]foto2 = UploadRequest.Item("Foto2").Item("Value")

[*]foto3 = UploadRequest.Item("Foto3").Item("Value")

[*]foto4 = UploadRequest.Item("Foto4").Item("Value")

[*]foto5 = UploadRequest.Item("Foto5").Item("Value")

[*]foto6 = UploadRequest.Item("Foto6").Item("Value")

[*]

[*]' pasta onde as imagens serao guardadas

[*]

[*]pasta = Server.MapPath("flagras/")

[*]

[*]nome_foto1 = "/"&nome_foto1

[*]nome_foto2 = "/"&nome_foto2

[*]nome_foto3 = "/"&nome_foto3

[*]nome_foto4 = "/"&nome_foto4

[*]nome_foto5 = "/"&nome_foto5

[*]nome_foto6 = "/"&nome_foto6

[*]

[*]' pasta + nome dos arquivos

[*]

[*]cfoto1 = "flagras/" + nome_foto1

[*]cfoto2 = "flagras/" + nome_foto2

[*]cfoto3 = "flagras/" + nome_foto3

[*]cfoto4 = "flagras/" + nome_foto4

[*]cfoto5 = "flagras/" + nome_foto5

[*]cfoto6 = "flagras/" + nome_foto6

[*]

[*]' Fazendo o Upload do arquivo selecionado

[*]

[*]if foto1 <> "" then

[*]

[*] Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

[*]

[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)

[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)

[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)

[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)

[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto6)

[*]

[*] For i = 1 to LenB(foto1)

[*]

[*] MyFile.Write chr(AscB(MidB(foto1,i,1)))

[*]

[*] Next

[*]

[*] MyFile.Close

[*]

[*]end if

[*]

[*]' Conecta-se ao Banco de Dados

[*]

[*]url_conexao = Server.MapPath("banco/fixos.mdb")

[*]

[*]set conexao = Server.CreateObject("ADODB.Connection")

[*]

[*]conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

[*]

[*]' cadastra os dados no banco de dados

[*]

[*]sql = "Insert into Flagras (Titulo,Memorando,Foto1,Foto2,Foto3,Foto4,Foto5,Foto6) values ('"& Titulo &"', '"& Memorando &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& cfoto6 &"')"

[*]

[*]Conexao.Execute(sql)

[*]

[*]' Mostra Mensagem de Confirmação na Tela

[*]

[*]Response.write "<HTML><BODY><table width='46%' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='336699'><tr><td><table width='100%' border='0' cellspacing='1' cellpadding='1'><tr><td height='20'><div align='center'><font color='#FFFFFF' size='1' face='Verdana, Arial, Helvetica, sans-serif'><strong>CADASTRO REALIZADO COM SUCESSO! </strong></font></div></td></tr><tr><td bgcolor='#FFFFFF'><div align='center'><font color='#336699' size='1' face='Verdana, Arial, Helvetica, sans-serif'>Você será redirecionado em 5 segundos...</font></div></td></tr><tr><td bgcolor='#FFFFFF'><div align='center'><img src='imagens/segundos.gif' width='70' height='20'></div></td></tr></table></td></tr></table></BODY></HTML>"

[*]

[*]' Redireciona após 5 segundos

[*]

[*]response.write "<meta http-equiv='refresh' content='5; url=lista_flagras.asp'/>"

[*]

[*]%>

[*]

Caso precise do código das funções eu posto..

Grato.

Guybrush · Agosto 26, 2005

ASP

[*]nome_foto1 = "/"&nome_foto1

[*]cfoto1 = "flagras/" + nome_foto1

Considerando que o nome da foto seja teste.jpg

ASP

[*]nome_foto1 = "/teste.jpg"

[*]cfoto1 = "flagras//teste.jpg"

Repare que ficam 2 Barras...

talvez seja isso!

fazeredo2002 · Agosto 26, 2005

ASP

[*]nome_foto1 = "/"&nome_foto1<br />cfoto1 = "flagras/" + nome_foto1

Considerando que o nome da foto seja teste.jpg

ASP

[*]nome_foto1 = "/teste.jpg"<br />cfoto1 = "flagras//teste.jpg"

Repare que ficam 2 Barras...

talvez seja isso!

<{POST_SNAPBACK}>

Ei mano!

Esse não é o problema...

Depois que as fotos são enviadas, eu tento abrir no servidor, mas não dá... tipo assim: o upload estraga a foto (ela fica num tamanho menor do que a original)

Realmente eu não sei o que pode ser...

Me dê outra dica aí!

meirelles · Agosto 26, 2005

posso dar uma sugestão?rsrs deixa sem barra, deixa só o nome da pasta e depois responde aqui. t+. boa sorte!

fazeredo2002 · Agosto 26, 2005

posso dar uma sugestão?

rsrs deixa sem barra, deixa só o nome da pasta e depois responde aqui. t+. boa sorte!

<{POST_SNAPBACK}>

Fala aí mano!

Deu o mesmo problema, como tinha dito, as fotos vão tipo estragadas (o tamanho em bytes das fotos não conferem com a original) ... pude perceber que a foto6 é uploadiada normalmente (consigo visualizar) mas as foto1, foto2, foto3... não abre.

O problema está na hora de fazer o upload.

Me ajudem aí que eu estou daqui quebrando a cabeça...

marcos-rj · Agosto 26, 2005

Olha só, posta ai o código das funções, derrepente tem alguma coisa lá.Nessa hora tem olhar o código todo, as vezes é só uma bobeirinha que não vemos quando estamos de cabeça cheia.

fazeredo2002 · Agosto 26, 2005

Olha só, posta ai o código das funções, derrepente tem alguma coisa lá.

Nessa hora tem olhar o código todo, as vezes é só uma bobeirinha que não vemos quando estamos de cabeça cheia.

<{POST_SNAPBACK}>

Pessoal, vai o código aí... lembrando (código fornecido pelo dark0 e adaptado por mim).

Funções:

ASP

[*]

[*]<%

[*]

[*]' Upload Sem componentes ---------------------------------------

[*]

[*]Sub BuildUploadRequest(RequestBin)

[*]

[*] on error resume next

[*]

[*] PosBeg = 1

[*]

[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

[*]

[*] boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

[*]

[*] BoundaryPos = InStrB(1, RequestBin, boundary)

[*]

[*] Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))

[*]

[*] Dim UploadControl

[*]

[*] Set UploadControl = CreateObject("Scripting.Dictionary")

[*]

[*] Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))

[*]

[*] Pos = InStrB(Pos, RequestBin, getByteString("name="))

[*]

[*] PosBeg = Pos + 6

[*]

[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

[*]

[*] Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

[*]

[*] PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))

[*]

[*] PosBound = InStrB(PosEnd, RequestBin, boundary)

[*]

[*] If PosFile <> 0 And (PosFile < PosBound) Then

[*]

[*] PosBeg = PosFile + 10

[*]

[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

[*]

[*] FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

[*]

[*] UploadControl.Add "FileName", FileName

[*]

[*] Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))

[*]

[*] PosBeg = Pos + 14

[*]

[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

[*]

[*] ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

[*]

[*] UploadControl.Add "ContentType", ContentType

[*]

[*] PosBeg = PosEnd + 4

[*]

[*] PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

[*]

[*] Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

[*]

[*] Else

[*]

[*] Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))

[*]

[*] PosBeg = Pos + 4

[*]

[*] PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

[*]

[*] Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

[*]

[*] End If

[*]

[*] UploadControl.Add "Value", Value

[*]

[*] UploadRequest.Add Name, UploadControl

[*]

[*] BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)

[*]

[*] Loop

[*]

[*]End Sub

[*]

[*]Function getByteString(StringStr)

[*]

[*] For i = 1 To Len(StringStr)

[*]

[*] Char = Mid(StringStr, i, 1)

[*]

[*] getByteString = getByteString & ChrB(AscB(Char))

[*]

[*] Next

[*]

[*]End Function

[*]

[*]Function getString(StringBin)

[*]

[*] getString = ""

[*]

[*] For intCount = 1 To LenB(StringBin)

[*]

[*] getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))

[*]

[*] Next

[*]

[*]End Function

[*]

[*]' Fim upload sem Componentes -----------------------------------------

[*]

[*]%>

[*]

Espero que possam me ajudar! :wacko:

marcos-rj · Agosto 26, 2005

eu tambem uso este código mas para 1 imagem só, vou dar uma olhada.

marcos-rj · Agosto 26, 2005

me diz uma coisa, na pasta para onde é feito o upload você consegue visualizar a foto, tipo clicando 2 vezes p/ abrir??

fazeredo2002 · Agosto 26, 2005

me diz uma coisa, na pasta para onde é feito o upload você consegue visualizar a foto, tipo clicando 2 vezes p/ abrir??

<{POST_SNAPBACK}>

Ei marcos!

As 6 fotos estão lá, mas só abre a foto6.

Tá tenso pra adaptar esse código...

Espero que consigamos.

marcos-rj · Agosto 26, 2005

você teria como me mandar o programa todo? e que estou no trabalho e não tenho como montar aqui, como falei eu ja uso este script vou fazer umas junções com o meu e ver se funciona.se não tiver problema p/ você o e-mail é: carioca.marcos@gmail.comO meu script você pode ver funcionando em www.igrejabatistaelohim.com.br no link fotos.T+Marcos

Guybrush · Agosto 26, 2005

Cara,

ele copia normalmente

mas ele cadastra no banco de dados como \\

e Depois pra exibir PODE dar erro,

....

fazeredo2002 · Agosto 26, 2005

Cara,

ele copia normalmente

mas ele cadastra no banco de dados como \\

e Depois pra exibir PODE dar erro,

....

<{POST_SNAPBACK}>

Ei mano!

Não é isso... eu já até acertei isso... mas não consigo visualizar as fotos nem pelo servidor... (o nome estão corretos no servidor, mas o tamanho em bytes da foto aparece como "0") conclusão... a foto não vai toda!

Guybrush · Agosto 26, 2005

:unsure: soh!AS fotos vão para o diretório do servidor ?se Elas forem, Vão inteiras (com tamanho certo, etc) ?...

fazeredo2002 · Agosto 26, 2005

:unsure:

soh!

AS fotos vão para o diretório do servidor ?

se Elas forem, Vão inteiras (com tamanho certo, etc) ?

...

<{POST_SNAPBACK}>

Mano!

As fotos vão pro diretório do servidor, mas com defeito...

aparece o nome e tudo, mas clicla duas vezes e elas não abrem, aparece aquele x no lugar da imagem, sinal que não tem imagem...

o problema está no código pra fazer o upload...

Mário Monteiro · Agosto 26, 2005

mas tiozinho ta salvando o nome certo ou ta salvando sem extenção a imagem??

fazeredo2002 · Agosto 26, 2005

mas tiozinho ta salvanco o nome certo ou ta salvando sem extenção a imagem??

<{POST_SNAPBACK}>

Dae mano! Graça a Deus...

Está salvando com a extensão "jpg", inclusive a última opção de campo file do meu form, no caso a foto6 faz o upload normalmente e a vejo depois, mas o restante: foto1, foto2... etc, nada.. não aparece!

Espero sua resposta mano!

Abração!

Fabiano.

Mário Monteiro · Agosto 26, 2005

mas tiozinho todas as imagens sao jpg mesmo?? voce deve salvar com a extensao original...

Arquivado

não consigo vizualizar as imagens uplodiadas

Recommended Posts

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Guybrush 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Guybrush 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

meirelles 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcos-rj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcos-rj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcos-rj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcos-rj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Guybrush 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Guybrush 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179