Aval0n
23-01-2007, 16:35
Olá, kd vou pa preencher a stream reader com o ficheiro, este diz-me k n o consegue localizar...
isto é VB2005 express
criar o filestream e o streamreader
Dim strFn As String = imgfilename.Text
Dim fiImage As New FileInfo(strFn)
'guardar o tamanho em disco k ocupa a imagem e k ira ocupar no array de bytes
Dim m_lImageFileLength As Integer = fiImage.Length
'criar um file para armazenar a imagem
Dim fs As New FileStream(strFn, FileMode.OpenOrCreate, FileAccess.Read, FileShare.Read)
'criar um array de bytes com o tamanho guardado na variavel m_lImageFileLength
Dim m_barrImg(Convert.ToInt32(m_lImageFileLength)) As Byte
'crear um stream reader para ler o ficheiro
Dim iBytesRead As New StreamReader(fs.Read(m_barrImg, 0, Convert.ToInt32(m_lImageFileLength))) <-------- o erro é aki!!!!!!!
fs.Close()
strFn = ""
gravar na bd
Dim conngravaimg As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ..\..\..\..\BDPUB.mdb")
Dim commgravaimg As New OleDbCommand("INSERT INTO TBImagem(Imagem) VALUES (@imagem)")
conngravaimg.Open()
commgravaimg.Parameters.Add("@imagem", OleDbType.VarBinary)
commgravaimg.Parameters.Item("@imagem").Value = "m_barrImg"
commgravaimg.ExecuteNonQuery()
conngravaimg.Close()
Alguma sugestão???
isto é VB2005 express
criar o filestream e o streamreader
Dim strFn As String = imgfilename.Text
Dim fiImage As New FileInfo(strFn)
'guardar o tamanho em disco k ocupa a imagem e k ira ocupar no array de bytes
Dim m_lImageFileLength As Integer = fiImage.Length
'criar um file para armazenar a imagem
Dim fs As New FileStream(strFn, FileMode.OpenOrCreate, FileAccess.Read, FileShare.Read)
'criar um array de bytes com o tamanho guardado na variavel m_lImageFileLength
Dim m_barrImg(Convert.ToInt32(m_lImageFileLength)) As Byte
'crear um stream reader para ler o ficheiro
Dim iBytesRead As New StreamReader(fs.Read(m_barrImg, 0, Convert.ToInt32(m_lImageFileLength))) <-------- o erro é aki!!!!!!!
fs.Close()
strFn = ""
gravar na bd
Dim conngravaimg As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ..\..\..\..\BDPUB.mdb")
Dim commgravaimg As New OleDbCommand("INSERT INTO TBImagem(Imagem) VALUES (@imagem)")
conngravaimg.Open()
commgravaimg.Parameters.Add("@imagem", OleDbType.VarBinary)
commgravaimg.Parameters.Item("@imagem").Value = "m_barrImg"
commgravaimg.ExecuteNonQuery()
conngravaimg.Close()
Alguma sugestão???