4

I need to get geolocation info from my photos. Lat/Lon and GPSVersion. I've already found some info related to this question, I compared different EXIF headers and found a hexadecimal dump that gives me coordinates - now I need to get it from the file.

The question might seem very simple. How do I open a JPEG-file in Delphi to get necessary hexadecimal dumps?

Already tried to read Chars and Integers, but nothing worked. I would like not to use any external libraries for this task if possible.

This is basically my major question, but I'll be extremely happy if anyone could answer one more.

Is there an easy way to search GPS tags without searching the file for specific dumps? Now I'm looking for a strange combination 12 00 02 00 07 00, which really works. I've read EXIF documentation but I couldn't really understand the thing with GPS Tags.

Kromster
  • 7,181
  • 7
  • 63
  • 111
user1131662
  • 241
  • 1
  • 5
  • 12
  • 2
    Chris Rolliston made a library for reading Exif information. Example reading GPS info and source [`here`](https://code.google.com/p/ccr-exif/). – LU RD Sep 04 '13 at 20:02
  • Thank you. I've seen info about CCR [here](http://delphihaven.wordpress.com/ccr-exif). But it's a library, again – user1131662 Sep 04 '13 at 20:13
  • 2
    @user1131662: Then use Chris's code as a foundation for seeing how to do it yourself. It's open source code, and would show you "the thing with GPS tags". I don't understand the problem. You don't have to **use** the library to study its code. "Here's free source code that shows you how to do this." "Well, I don't want to read it, because it's from a library." isn't logical. – Ken White Sep 04 '13 at 21:55

1 Answers1

7

If you require no external libraries, you can do this with TFileStream and an array of byte. I've done this in a project to obtain the 'picture taken date', the GPS lat-long coordinates are just another field in the EXIF header. I don't have the code here but the method is straight-forward: once you have a TFileStream to the JPEG file:

  • Read the first 2 bytes, check it is in fact $FF $D8 (just to be sure it's a valid JPEG)
  • Read the next 2 bytes, check if it's $FF $E1
  • If it is, read 4 bytes and see if it's 'Exif' ($45 $78 $69 $66)
  • What follows is $00 $00 and a 8-byte TIFF header which holds general information like endianness, followed by the EXIF tags you need to work through and grab the ones you need, I had a quick search and found a list here: http://www.exiv2.org/tags.html

Since it's safe to assume that the EXIF data is in the first kilobytes of the JPEG file, you could read this much in a byte array (or TMemoryStream) and process the data there, which should perform better than separate small reads from a TFileStream.

dummzeuch
  • 10,975
  • 4
  • 51
  • 158
Stijn Sanders
  • 35,982
  • 11
  • 45
  • 67
  • 1
    Related to the step 1: http://stackoverflow.com/questions/18582423/should-i-expect-jpeg-soi-marker-at-very-beggining-of-the-data-stream, step 2: http://stackoverflow.com/questions/5413022/is-the-2nd-and-3rd-byte-of-a-jpeg-image-always-the-app0-or-app1-marker – Free Consulting Sep 05 '13 at 00:27
  • Thank you very much, I think it's exactly what I need. If I CAN get an exact sequence of bytes using this method then I'm completely happy – user1131662 Sep 05 '13 at 21:03
  • does someone already made a code of this ? i want just to extract the orientation .. – zeus Oct 16 '17 at 08:00