Good evening everyone, I need help
I've been going crazy for two days with the fantastic JpegUtils v1.0 library, Camera2 V1.12 and CamEx2 1.31
the problem is this writes the TAG_MAKE, the TAG_MODEL but when I have to write the TAG_GPS_LATITUDE and TAG_GPS_LONGITUDE it doesn't write anything :-(
Reading the info or properties of the image after saving from windows or Cx File Explorer I only find TAG_MAKE, TAG_MODEL but not the GPS coordinates
if I use getAttribute the data is there :-( but I need to read them from windows
the code is this:
Sub Scrivi_TAG_GPS
Try
exif.Initialize(FileDir, NomeFile)
exif.setAttribute(exif.TAG_GPS_LATITUDE, ctostring(Latitudine))
exif.setAttribute(exif.TAG_GPS_LONGITUDE, ctostring(Longitudine))
exif.setAttribute(exif.TAG_MODEL, "MODELLO TELEFONO")
exif.setAttribute(exif.TAG_MAKE, "ALTRI DATI")
exif.saveAttributes()
Dim temp_lat = exif.getAttribute(exif.TAG_GPS_LATITUDE)
Dim temp_lon = exif.getAttribute(exif.TAG_GPS_LONGITUDE)
Catch
HandleError(LastException)
End Try
End Sub
Sub ctostring(ang As Float) As String
Dim deg As Int
Dim mint As Int
Dim sec As Double
Dim minf As Float
Dim clus As String
deg = ang
minf= (ang-deg)*60
mint= (ang-deg)*60
sec =(minf-mint)*60
clus = deg & "/1," & mint & "/1," & sec &"/1"
Return(clus)
End Sub
I've been going crazy for two days with the fantastic JpegUtils v1.0 library, Camera2 V1.12 and CamEx2 1.31
the problem is this writes the TAG_MAKE, the TAG_MODEL but when I have to write the TAG_GPS_LATITUDE and TAG_GPS_LONGITUDE it doesn't write anything :-(
Reading the info or properties of the image after saving from windows or Cx File Explorer I only find TAG_MAKE, TAG_MODEL but not the GPS coordinates
if I use getAttribute the data is there :-( but I need to read them from windows
the code is this:
Sub Scrivi_TAG_GPS
Try
exif.Initialize(FileDir, NomeFile)
exif.setAttribute(exif.TAG_GPS_LATITUDE, ctostring(Latitudine))
exif.setAttribute(exif.TAG_GPS_LONGITUDE, ctostring(Longitudine))
exif.setAttribute(exif.TAG_MODEL, "MODELLO TELEFONO")
exif.setAttribute(exif.TAG_MAKE, "ALTRI DATI")
exif.saveAttributes()
Dim temp_lat = exif.getAttribute(exif.TAG_GPS_LATITUDE)
Dim temp_lon = exif.getAttribute(exif.TAG_GPS_LONGITUDE)
Catch
HandleError(LastException)
End Try
End Sub
Sub ctostring(ang As Float) As String
Dim deg As Int
Dim mint As Int
Dim sec As Double
Dim minf As Float
Dim clus As String
deg = ang
minf= (ang-deg)*60
mint= (ang-deg)*60
sec =(minf-mint)*60
clus = deg & "/1," & mint & "/1," & sec &"/1"
Return(clus)
End Sub
Last edited: