Dismiss Notice

REGISTRATION IS AFTER ADMIN ACTIVATION

DONATIONS WITH PAYPAL CLICK TO BUTTON

1 MONTH VIP - 5$; 3 MONTHS VIP - 10$; 6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$

DONATIONS WITH Bitcoin Address:3NRs3CK3fhXifrNYxHEZKpETDd9vNLMsMD

Dismiss Notice
The registration is approved by the Administrator. It takes about 1 day to approve your registration
Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

Add GPS Location EXIF Metadata To JPEGs

Discussion in 'Delphi Android And IOS' started by AdminDF, Feb 9, 2014.

  1. AdminDF
    Online

    AdminDFAdminDF is a Verified Member DelphiFan Administrator Staff Member DF Staff

    If you’re not using the built in CameraUI functionality on the Android and IOS devices you probably are not getting any EXIF metadata attached to your images on mobile devices. Luckily, an existing Delphi EXIF library was recently updated to add support for Delphi XE5 Firemonkey on Android and IOS. I’m not 100% sure on the IOS support because only an Android example was provided. In any event the CCR EXIF library will allow you to add GPS location data to the EXIF metadata of your JPEG images when you save them in Delphi XE5 Firemonkey. One caveat is that the CCR EXIF library requires the System.ByteStrings unit which you read about here. Chris Rolliston is the creator of the CCR EXIF library and he has a blog post about it here. He has has a sample app using the library up on Google Play. Here is some sample code from the project for setting the GPS location data:

    [​IMG]

    Download Here


    Code:
    uses
      CCR.Exif;
    procedure SetSomeExifTags(const FileName: string);
    var
      ExifData: TExifData;
    begin
      ExifData := TExifData.Create;
      try
        ExifData.LoadFromGraphic(FileName);
        ExifData.Subject := 'Wimbledon Tennis';
        ExifData.SetKeyWords(['tennis', 'Wimbledon', 'match', 'SW19']);
        //Exif uses the degrees/minutes/seconds GPS format
        ExifData.GPSLatitude.Assign(51, 26, 1.48, ltNorth);
        ExifData.GPSLongitude.Assign(0, 12, 50.63, lnWest);
        ExifData.SaveToGraphic(FileName);
      finally
        ExifData.Free;
      end;
    end;
    
     
  2. yassinov
    Offline

    yassinov DF Member

    RE:

    i try to add this component with the patch of ByteStrings patch for android test project under XE5
    but not success we hope that someone try to help us with a source code for XE5 , thanks at advance
     

Share This Page

Laws
Our website, law, laws, copyright and aims to be respectful of individual rights. Our site, as defined in the law of 5651 serves as a provider of space. According to the law, contrary to the law of site management has no obligation to monitor content. Therefore, our site has adopted the principle of fit and remove. Works are subject to copyright laws and is shared in a manner that violated their legal rights, or professional associations, rights holders who, adsdelphi@gmail.com I can reach us at e-mail address. Complaints considered to be infringing on the examination of the content will be removed from our site.
Donate Help To Us and Be VIP
DONATIONS WITH PAYPAL CLICK TO BUTTON
6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$
Social Block