ragazzi sto impazzendo in quanto non capisco una semplice cosa, intanto Buon Giorno a tutta ML.
Ho iniziato un modulo per scattare immagini, tutto funziona bene, ma una cosa non riesco a fare, salvare l'immagine come la vedo cioè a 0 gradi (verticale)
Usando la libreria ACL versione 4.60 che sembra essere spettacolare, ma provandole tutte, le immagini salvate sono sempre ruotate a -90.
mmmm sono costretto chiedere aiuto
setting
Grazie.
Ho iniziato un modulo per scattare immagini, tutto funziona bene, ma una cosa non riesco a fare, salvare l'immagine come la vedo cioè a 0 gradi (verticale)
Usando la libreria ACL versione 4.60 che sembra essere spettacolare, ma provandole tutte, le immagini salvate sono sempre ruotate a -90.
mmmm sono costretto chiedere aiuto
B4X:
Sub Camera1_PictureTaken (Data() As Byte)
CameraSetting(Camera1)
Camera1.StartPreview
Dim out As OutputStream
Dim namepict As String
namepict = DateTime.Date(DateTime.Now).Replace("/","").Replace(":","")
DateTime.TimeFormat = "HHmmss"
namepict = namepict & "_" & DateTime.Time(DateTime.Now).Replace("/","").Replace(":","")
out = File.OpenOutput(File.DirRootExternal & "/mimmsos", namepict & ".jpg", False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal & "/mimmsos", namepict & ".jpg"), True)
End Sub
setting
B4X:
Sub CameraSetting(cam As AdvancedCamera)
cam.Quality = 50
cam.GPSLatitude = lat
cam.GPSLongitude = lon
cam.GPSAltitude = lat
cam.OriPortrait
cam.FlashAuto()
cam.SceneMode = "INFINITY"
cam.PictureSize(Panel2.Width,Panel2.Height)
End Sub
Grazie.