Getting GPS data from JPG file

[Miles R]

I now have some photos (.jpg) with GPS data in them as can be seen using Windows file properties.


However, I can't seem to find this data in the EXIF list.

I normally use GetDetailsOf in my database code, with an Offset to the appropriate item, e.g. 260 for F-Stop.
Can't seem to find an item for Latitude, Longitude and Altitude.

It must be in there somewhere because searching indicated that GPS data is stored in EXIF - quote from AI
"Geolocation. The Exif format has standard tags for location information. As of 2014, many cameras and mobile phones have a built-in GPS receiver that stores the location information in the Exif header when a picture is taken."

Does anyone know which EXIF items these are, or if GPS data has to be extracted from the file in some other way, and if so, how - example code would be ideal.

Thanks

[June7]

Does this help https://stackoverflow.com/questions/...de%22%29.Value

[Miles R]

June7,

Thanks for the link. I'll plough through it. Does not look as if it is going to be as simple as extracting other EXIF data.

[Miles R]

I have read the link and the easiest way seems to be to use WIA.ImageFile

I created some code in an Excel spreadsheet, which I am sure will work in my database :- as follows

Sub Test()
    On Error GoTo ErrorHandler
    
    With CreateObject("WIA.ImageFile")
        .LoadFile "path to file"
        With .Properties("GpsLatitude").Value
            MsgBox .Item(1).Value + .Item(2).Value / 60 + .Item(3).Value / 3600
        End With
        With .Properties("GpsLongitude").Value
            MsgBox .Item(1).Value + .Item(2).Value / 60 + .Item(3).Value / 3600
        End With
        'With .Properties("GpsAltitude").Value
        '    MsgBox .Item(1).Value
        'End With
    End With
    
    Exit Sub
    
ErrorHandler:
    MsgBox "No GPS Data"
End Sub

Only thing was the Altitude reference did not work, so will have to see if I can find the correct name to get GPS Altitude.

[Miles R]

The correct way to get Altitude is :-

        With .Properties("GpsAltitude").Value
            MsgBox .Value
        End With

Now just got to figure out how to get the GPS data from video files. WIA.Image won't do this, but have seen a video showing a tool that might do this for all files.

Extract GPS Metadata from .MP4 and create .GPX using Exiftool - YouTube

[moke123]

Take a look at Colin's App- https://isladogs.co.uk/get-geolocati...tos/index.html

[Miles R]

Moke, thanks for the reply. I think this app also only works for jpegs.

I've solved that one now and have incorporated the GPS from jpegs into my photo application - using the WIA.ImageFile method.
Its quick and very easy.

I'll probably ignore GPS from video files unless someone knows of a similar method to WIA for MP4's.
I could probably get ExifTool to work, but its a bit too over-engineered for my purposes.

[Miles R]

In case anyone is interested, this is the code I finally used :-

                ' Get GPS Data if there is any.
                gpsstr = ""
                
                On Error GoTo NoGPS
                
                With CreateObject("WIA.ImageFile")
                    .LoadFile gconMyPictures & gshlFolder & "\" & strFileName
                    With .Properties("GpsLatitude").Value
                        gpsstr = " GPS Coordinates" & vbCrLf & " Latitude  = " & Right(" " & .Item(1), 2) & Chr$(176) & " " & Right(" " & Int(.Item(2)), 2) & _
                            "' " & Right(" " & Int((.Item(2) - Int(.Item(2))) * 60), 2) & """ " & IIf(.Item(1) >= 0, "North", "South")
                    End With
                    With .Properties("GpsLongitude").Value
                        gpsstr = gpsstr & vbCrLf & " Longitude = " & Right(" " & .Item(1), 2) & Chr$(176) & " " & Right(" " & Int(.Item(2)), 2) & _
                            "' " & Right(" " & Int((.Item(2) - Int(.Item(2))) * 60), 2) & """ " & IIf(.Item(1) >= 0, "East", "West")
                    End With
                    With .Properties("GpsAltitude").Value
                        gpsstr = gpsstr & vbCrLf & " Altitude  = " & .Value & " metres " & IIf(.Value >= 0, "above sea level", "below sea level")
                    End With
                End With
                [Form_Main Form].lblGPS.Caption = gpsstr
                [Form_Main Form].lblGPS.Visible = True
NoGPS:

Which produces a display such as :-

[Welshgasman]

Thank you for posting your solution.

So many others do not.