66 comentários

• Geraldo Moraes(usuário não autenticado)

  27 de Julho de 2010, 18:48

   

  Vc cria uma outra pagina foto.wsp e coloque no pre o download sql com o select que ira retornar a imagem baseado num codigo. EX: select foto from func where cod = ?|tmp.cod|

  E na pagina vc coloca <img src="foto.wsp?tmp.cod=|tmp.codigo|"/> onde tmp.codigo eh o codigo do funcionario que esta sendo exibido. Se estiver numa linha do grid é so tmp.cod=|codigo|

  Geraldo Moraes

  
  

  • Julierme Felix Dias(usuário não autenticado)

    27 de Julho de 2010, 21:05

     

    Não consegui não

    Na opção de download onde tem o nome do arquivo eu coloquei o sql "select foto from qryfunc where matricula = ?|tmp.cod|

    no grid no campo foto coloquei:  <img src="foto.wsp?tmp.cod=|matricula|"/>

    mas não aparece a imagem...

    
    

    • Geraldo Moraes(usuário não autenticado)

      28 de Julho de 2010, 8:04

       

      Qual erro deu ?

      Na pagina foto.wsp desmarque segurança ativa e chame pelo browser passando uma matricula.

      serv​idor​/pro​jeto​/fot​o.ws​p?tm​p.co​d=12​3

      Veja no help que o campo nome do arquivo é apenas para informar o nome que o browser ira sugerir ao tentar salavar o arquivo ex: foto.jpg

      Vc precisa definir um download do tipo Database pois ele tem o local proprio para colcoar o sql.

       

      
      

      • Julierme Felix Dias(usuário não autenticado)

        28 de Julho de 2010, 8:18

         

        Creio q a dificuldade esta em definir o download, pois ele esta passando o codigo certo quando vejo na pagina.

        
        
      • Julierme Felix Dias(usuário não autenticado)

        28 de Julho de 2010, 11:47

         

        Esqueci de mencionar que a foto esta gravado no tipo binario.

        Em vb uso o código abaixo para recuperar a foto numa aplicação windows...

        Private Sub CarregarImagem(ByVal codCliente As Integer)
                Try
                    'Carregar a foto
                    Cn.Open()
                    Dim cmdFoto As New SqlClient.SqlCommand("select FOTO from funcionarios where idfuncionario = " & codCliente)
                    cmdFoto.Connection = Cn
                    cmdFoto.CommandType = CommandType.Text
                    Dim daFoto As New SqlDataAdapter(cmdFoto)
                    Dim dsFoto As New DataSet
                    daFoto.Fill(dsFoto)
                    Dim bits As Byte() = CType(dsFoto.Tables(0).Rows(0).Item(0), Byte())
                    Dim memorybits As New MemoryStream(bits)
                    Dim bitmap As New Bitmap(memorybits)
                    foto.Image = bitmap
                    cmdFoto.Dispose()
                    dsFoto.Dispose()
                    cmdFoto.Dispose()
                Catch EX As Exception

                    'se não houver fotos gravadas irá ocorrer um erro que deve ser ignorado

                    MessageBox.Show(EX.Message, "Não é possível exibir a foto", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    foto.Image = Nothing
                    foto.Refresh()

                End Try
                Cn.Close()
            End Sub

        
        
      • Julierme Felix Dias(usuário não autenticado)

        28 de Julho de 2010, 11:57

         

        Obrigado!!!

         

        Consegui visualizar as fotos