Delphi Roessler

procedure TAccessCameraAppForm.WriteEXIF(const AFileName:JString);
var
  LEXIF: JExifInterface;
//  LLat,LLong: JString;       TJavaArray<Single>;
  LStream: JFileInputStream;
begin
  LEXIF := TJExifInterface.JavaClass.init(Afilename);
  LEXIF.setAttribute(TJExifInterface.JavaClass.TAG_DATETIME_ORIGINAL,strData);
  LEXIF.setAttribute(TJExifInterface.JavaClass.TAG_GPS_LATITUDE_REF,LLat);
  LEXIF.setAttribute(TJExifInterface.JavaClass.TAG_GPS_LONGITUDE_REF,LLong);
  LEXIF.saveAttributes;
  end;
end.