Getting GPS Private EXIF Tags From JPEGs

[jw1234]

Some time ago the honourable Baltman posted the following bit of VFP Code


IPTC(ADDBS(Sys(5)+SYS(2003))+"test.jpg")

PROCEDURE IPTCLPARAMETERS tcPicFullPathoShell = CreateObject("Shell.Application")oFolder = oShell.Namespace(JUSTPATH(tcPicFullPath))

WITH oFolder
FOR Each cFile IN oFolder.Items
IF UPPER(cFile.Name) <> UPPER(JUSTFNAM(tcPicFullPath))
LOOP
ENDIF

FOR i = 0 TO 34 ?.GetDetailsOf(oFolder.Items, i) + ": " + ; .GetDetailsOf(cFile, i)
ENDFOR
ENDFOR
ENDWITH

This code works a treat but I want to extend it for a small app I am writing and to deepen my knowledge of VFP

It is probably not well known that iPhones record the GPS coordinates of where pictures were taken, very handy if you happen to be up to no good as it means that you can be easily traced by the authorities, Yes folks Big Brother really is here.

Now I know that the GPS IFD pointer occurs at the end of the TIFF header within a JPEG and I basically want to modify, I sort of know how(ish) so that I can record the GPS position stored within the JPEG from an iPhone or Pentax or whatever.

Baltmans code does the main tags of the 0th IFD, which is pointed to from the 0th IFD is a "Private Tag" - Has anyone doe this or can I borrow a bit of code I can use or modify please.

I am sure this is quite easy and would be similar to Baltman's code, just at another point in the file.

Many thanks in advance

John

 

[Olaf Doschke]

If you search this forum (Ms Foxpro) for EXIF you find this answer:

http://tek-tips.com/viewthread.cfm?qid=1173924

It also includes reading gps information and by demand was done to work even in VFP6.

Bye, Olaf.