Italian [CAMERA] rotazione

ivanomonti

Expert
Licensed User
Longtime User
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 :)

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.
 
Top