Dim Buffer() As Byte
Try
Dim OPSTR As OutputStream
OPSTR.InitializeToBytesArray (1000)
IMG.WriteToStream(OPSTR, 90, "JPEG")
Buffer = OPSTR.ToBytesArray
OPSTR.Close
IMG=Null
Catch
ToastMessageShow("Failed image.", True)
Return
End Try
Dim SQLSTR As String = "UPDATE UserImages SET ImageBlob=? WHERE ImageId=?
Try
SQL1.ExecNonQuery2(SQLSTR, Array As Object(Buffer, ImageId))
Catch
Log(LastException)
End Try