Buen dia tengo otro detalle.
Tengo una imagen de 15 que tomo con la camara, la trato de guardar en sqlite, pero por ser tan pesada no me completa la transaccion al momento de querer ver la imagen me marca error que no se puede abrir. imagino que por lo pesado.
hago lo siguiente no se que modificacion hacerle para que la imagen se transfiera completamente a sqlite.
Tengo pensado aumentar esto:
, de 1000 a no se 15000 por asi decirlo, estoy bien?
asi:
Tengo una imagen de 15 que tomo con la camara, la trato de guardar en sqlite, pero por ser tan pesada no me completa la transaccion al momento de querer ver la imagen me marca error que no se puede abrir. imagino que por lo pesado.
hago lo siguiente no se que modificacion hacerle para que la imagen se transfiera completamente a sqlite.
B4X:
Dim InputStream3 As InputStream
InputStream3 = File.OpenInput(dir, filename)
Dim OutputStream3 As OutputStream
OutputStream3.InitializeToBytesArray(1000)
File.Copy2(InputStream3, OutputStream3)
Dim Buffer2() As Byte
Buffer2 = OutputStream3.ToBytesArray
SQLfront.ExecNonQuery2("INSERT INTO T_ACTIVIDAD VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", Array As Object(Variables.empresa1,Variables.cserv1,Variables.personal_id1,Variables.fechahoy1,Variables.horahoy1,Variables.puesto1,Variables.act_mov1,Variables.Act_observ1,(Buffer2),Variables.act_gpslat1,Variables.act_gpslon1))
Tengo pensado aumentar esto:
B4X:
OutputStream3.InitializeToBytesArray(1000)
asi:
B4X:
OutputStream3.InitializeToBytesArray(15000)