Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(imageFolder, tempImageFile)
Dim dimensione As Int = InputStream1.BytesAvailable
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
Dim nomefile As String = fg.get_data_str(DateTime.Now,"yyyyMMddHHmmss") & ".jpg"
Dim didascalia As String = edtMANallDidascalia.Text & ""
'write the image to the database
str_sql = "insert into man_straordinarie_allegati (id_man_straordinarie,chiave_attivazione,str_conn_slave,id_azienda_slave,"
str_sql = str_sql & "id_automezzi,allegato,estensione,nomefile,dimensione,didascalia) "
str_sql = str_sql & " values "
str_sql = str_sql & " (?,?,?,?,"
str_sql = str_sql & "?,?,?,?,?,?) "
Main.SQL1.ExecNonQuery2(str_sql, Array As Object(man_str_attiva.id_man,app_cfg.chiave_attivazione, _
di.automezzo_corrente.str_conn,di.automezzo_corrente.id_azienda_slave, _
di.automezzo_corrente.id_automezzo,Buffer,".jpg",nomefile,dimensione,didascalia))