PICTUREBOX COM IMAGEM DO CAMPO IMAGE - SQLSERVER

LRAMOS7 16/10/2013 14:45:20
#430084
Boa tarde!

Galera preciso muito da ajuda de todos vocês.

Estou desenvolvendo uma aplicação onde salvo um cadastro de imagens em uma tablela do sqlServer 2008 e estou tentando agora fazer um select na tabela para mostrar a imagem que vem do select em um picturebox.

Já tentei com diversas maneiras de fazer isso e todas ocorre um erro de PARÊMETRO INVALIDO.

Abaixo segue a função para converter o campo byte em imagem:

    Public Function ByteArrayToImage(ByVal bytearray As Byte()) As Image
        Dim stream As System.IO.MemoryStream
        Dim img As Drawing.Image

        stream = New IO.MemoryStream(bytearray)
        img = Image.FromStream(stream)

        Return img
    End Function


Porém, o erro sempre acorre na linha:

 img = Image.FromStream(stream)


Alguém poderia me ajudar neste problema, passei ontem o dia todo tentando resolver e ainda sem sucesso.... deve ser simples mais estou apanhando com isso.

Abraços, e obrigado por qualquer ajuda.

Leandro
OMAR2011 16/10/2013 15:24:03
#430089
Tem um exemplo para verificar.
http://www.macoratti.net/07/08/vbn5_acd.htm
Olhe
LRAMOS7 30/10/2013 15:51:53
#430546
Galera, boa tarde!

Para quem interessar, seguem rotinas para:
(((Iniciar,Capturar,Salvar, Converter imagem em Byte e Converter Byte em imagem)))
Qualquer dúvida estou a disposição para ajudar. Abraços

Imports System.Runtime.InteropServices

Public Class clsImgCaptura
Dim dispVideo As String

Const WM_CAP As Short = &H400S
Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30

Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
Const WS_CHILD As Integer = &H40000000
Const WS_VISIBLE As Integer = &H10000000
Const SWP_NOMOVE As Short = &H2S
Const SWP_NOSIZE As Short = 1
Const SWP_NOZORDER As Short = &H4S
Const HWND_BOTTOM As Short = 1

Dim iDevice As Integer = 0 [ô] ID do dispositivo atual
Dim hHwnd As Integer [ô] manipulador da janela do visualizador

Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] _
(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
<MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer

Declare Function SetWindowPos Lib [Ô]user32[Ô] Alias [Ô]SetWindowPos[Ô] (ByVal hwnd As Integer, _
ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

[ô]A função DestroyWindow destroi a janela especificada.
[ô]Envia as mensagens WM_DESTROY e WM_NCDESTROY para a
[ô]janela para destivá-la e remove o foco do teclado da mesma
[ô]Library - User32
[ô]Parametros - hWnd - (identica a janela a ser destruida)
[ô]Retorna um valor diferente de zero se for executada com sucesso,
[ô]caso contrario retorna zero
Declare Function DestroyWindow Lib [Ô]user32[Ô] (ByVal hndw As Integer) As Boolean

Declare Function capCreateCaptureWindowA Lib [Ô]avicap32.dll[Ô] _
(ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Short, ByVal hWndParent As Integer, _
ByVal nID As Integer) As Integer

Declare Function capGetDriverDescriptionA Lib [Ô]avicap32.dll[Ô] (ByVal wDriver As Short, _
ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
ByVal cbVer As Integer) As Boolean

Public Sub main(ByVal frmObj As Object)
carregaDispositivos(frmObj)

If dispVideo.Trim.Length > 0 Then
abreJanelaVisualizacao(frmObj)
Else
MsgBox([Ô]Dispositivo de Video Não Localizado[Ô], vbInformation)
End If
End Sub

--carrega dispositivos de video
Public Sub carregaDispositivos(ByVal frmObj As Object)
Dim strNome As String = Space(100)
Dim strVer As String = Space(100)
Dim bRetorna As Boolean
Dim x As Integer = 0

[ô] Carrega os dispositivos em lstDevices
Do
[ô] Obtem o nome e a versão Driver
bRetorna = capGetDriverDescriptionA(x, strNome, 100, strVer, 100)

If bRetorna Then dispVideo = strNome.Trim
x += 1
Loop Until bRetorna = False
End Sub

--inicia web cam
Public Sub abreJanelaVisualizacao(ByVal frmObj As Object)
Dim iHeight As Integer = frmObj.picCaptura.Height
Dim iWidth As Integer = frmObj.picCaptura.Width

[ô] Abre a janela de visualização no picturebox
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 160, 120, frmObj.picCaptura.Handle.ToInt32, 0)

[ô] Conecta com o drive
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
[ô]Define a escala de previsão
SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

[ô]Define a taxa de visualização em milisegundos
SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

[ô]Iniciar a visualização da imagem a partir da camara
SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

[ô] Redimensiona a janela para se ajustar no picturebox
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, frmObj.picCaptura.Width, frmObj.picCaptura.Height, SWP_NOMOVE Or SWP_NOZORDER)
Else
[ô] Erro de conexão fecha a janela de dispostivos
DestroyWindow(hHwnd)
End If
End Sub

Public Sub fechaJanelaVisualizacao()
[ô] Desconecta do dispositivo
SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)

[ô] fecha a chama a janela
DestroyWindow(hHwnd)
End Sub

--captura a imagem e salva em diretorio
Public Sub SalvarImg(ByVal frmObj As Object, ByVal strNomeFoto As String)
Dim dados As IDataObject
Dim bmap As Image

[ô] Copia a imagem para o clipboard
SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

[ô] Obtem a imagem do clipboard e converte para bitmap
dados = Clipboard.GetDataObject()

If dados.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
bmap = CType(dados.GetData(GetType(System.Drawing.Bitmap)), Image)

frmObj.picCaptura.Image = bmap

[ô]If frmDialogoSave.ShowDialog = System.Windows.Forms.DialogResult.OK Then
[ô] bmap.Save(frmDialogoSave.FileName, Imaging.ImageFormat.Jpeg)
[ô]End If

If Not IO.Directory.Exists(Application.StartupPath & [Ô]\Imagens[Ô]) Then
IO.Directory.CreateDirectory(Application.StartupPath & [Ô]\Imagens[Ô])
End If

If strNomeFoto.Trim.Length > 5 Then
fechaJanelaVisualizacao()

frmObj.picCaptura.image = bmap

frmObj.picCaptura.SizeMode = PictureBoxSizeMode.StretchImage


bmap.Save(Application.StartupPath & [Ô]\Imagens\[Ô] & strNomeFoto & [Ô].[Ô] & Imaging.ImageFormat.Jpeg.ToString, Imaging.ImageFormat.Jpeg)

DestroyWindow(hHwnd)

Else
MsgBox([Ô]Favor preencher o nome para gravar a imagem[Ô], vbInformation)
End If
End If
End Sub

--insere imagem em campo sql server
Public Sub putImagemSql(ByVal idImage As String, ByVal nmImage As String, ByVal Tipo As String, ByVal byteImg As Byte())
Try
Dim SQL As String

cnn.SQLSelect([Ô]Select * from tblimage where id =[ô][Ô] & idImage & [Ô][ô][Ô])

If g_ds_DatSet.Tables(0).Rows.Count > 0 Then
cnn.SQLExecute([Ô]Delete from tblimage where id=[ô][Ô] & idImage & [Ô][ô][Ô])
End If

[ô] Define o commando Transact-SQL para inserir dados
SQL = [Ô]INSERT INTO tblImage ([id],[nmFimage],[tpImage],[img]) VALUES (@id,@nmFimage,@tpimage,@img);[Ô]

Dim command As New SqlClient.SqlCommand(SQL, g_dtb_Conexao)

[ô] Define os parametros para a inserção de dados, onde está o array
[ô] de bytes(imagem) a ser inserida. O tipo do campo é Image
command.Parameters.Add([Ô]@id[Ô], SqlDbType.VarChar).Value = idImage
command.Parameters.Add([Ô]@nmFimage[Ô], SqlDbType.VarChar).Value = nmImage
command.Parameters.Add([Ô]@tpImage[Ô], SqlDbType.VarChar).Value = Tipo
command.Parameters.Add([Ô]@img[Ô], SqlDbType.Image).Value = byteImg

[ô] Insere os campos no SQL
command.ExecuteNonQuery()
Catch ex As Exception

End Try
End Sub

--atualiza imagem no campo image do sql server
Public Sub putUPDImagemSql(ByVal idImage As String, ByVal nmImage As String, ByVal Tipo As String, ByVal byteImg As Byte())
Try
Dim SQL As String

[ô] Define o commando Transact-SQL para inserir dados
SQL = [Ô]update tblVisi set [img] = @img where [idVisi] = @id;[Ô]

Dim command As New SqlClient.SqlCommand(SQL, g_dtb_Conexao)

[ô] Define os parametros para a inserção de dados, onde está o array
[ô] de bytes(imagem) a ser inserida. O tipo do campo é Image
command.Parameters.Add([Ô]@id[Ô], SqlDbType.VarChar).Value = idImage
command.Parameters.Add([Ô]@img[Ô], SqlDbType.Image).Value = byteImg

[ô] Insere os campos no SQL
command.ExecuteNonQuery()

Catch ex As Exception

End Try
End Sub

--convert imagem em byte
Public Sub getImgByte(ByVal bytearray As Byte())

Try
g_int_HandleID += 1

If IO.File.Exists([Ô]handleimage[Ô] & g_int_HandleID.ToString & [Ô].jpg[Ô]) Then
IO.File.Delete([Ô]handleimage[Ô] & g_int_HandleID.ToString & [Ô].jpg[Ô])
End If

With frmVisitantes.picCaptura
FileStream.Null.Dispose()
IO.FileStream.Null.Dispose()

Dim fsImage As New FileStream([Ô]handleimage[Ô] & g_int_HandleID.ToString & [Ô].jpg[Ô], FileMode.CreateNew)
Dim blob As Byte() = DirectCast(bytearray, Byte())

fsImage.Write(blob, 0, blob.Length)
fsImage.Close()
fsImage = Nothing

.Image = Image.FromFile([Ô]handleimage[Ô] & g_int_HandleID.ToString & [Ô].jpg[Ô], True)
.SizeMode = PictureBoxSizeMode.StretchImage
.Refresh()
End With

Catch ex As Exception

End Try
End Sub

--convert o byte em imagem
Public Function getByteImg(ByVal Filename As String) As Byte()
Try
Dim fs As IO.FileStream

fs = New IO.FileStream(Application.StartupPath & [Ô]\imagens\[Ô] & Filename, IO.FileMode.Open, IO.FileAccess.Read)

Dim picByte As Byte() = New Byte(fs.Length - 1) {}

fs.Read(picByte, 0, System.Convert.ToInt32(fs.Length))

fs.Close()

Return picByte
Catch ex As Exception
Return Nothing
End Try
End Function

End Class
Tópico encerrado , respostas não são mais permitidas
Voltar