View Issue Details Jump to Notes ] Issue History ] Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0003098SAS.Планета[All Projects] Хотелкаpublic03-07-2016 21:3011-08-2016 20:26
Reportervdemidov 
Assigned Tovdemidov 
PrioritynormalSeverityminorReproducibilityN/A
StatusresolvedResolutionfixed 
PlatformWindowsOSXPOS VersionSP3
Product Version160606 
Target Version181221Fixed in Version181221 
Summary0003098: Обновить библиотеку CCR.Exif
DescriptionНужно обновить исходники библиотеки CCR.Exif с версии 1.5.2 beta до версии 1.5.3

В принципе ничего сложного, но там поменялось АПИ и требуется вносить синхронные изменения в САС в нескольких строчках. Плюс нужно проверить все ли работает.
TagsNo tags attached.
Attached Files

- Relationships

-  Notes
(0017491)
vdemidov (manager)
03-07-2016 21:32

Сами изменения я добавил в репозиторий, но sas.requires не обновлял.

Изменения в САС

diff -r ae9410e4b712 Src/Vector/u_VectorItemTreeImporterJpegWithExif.pas
--- a/Src/Vector/u_VectorItemTreeImporterJpegWithExif.pas Fri Jul 01 18:56:39 2016 +0300
+++ b/Src/Vector/u_VectorItemTreeImporterJpegWithExif.pas Mon Jul 04 00:32:08 2016 +0300
@@ -182,7 +182,7 @@
   VIPTCData: TIPTCData;
   VGPSLatitude: TGPSLatitude;
   VGPSLongitude: TGPSLongitude;
- VGPSAltitude: TExifFraction;
+ VGPSAltitude: TGPSAltitude;
   VItem: IVectorDataItem;
   VList: IVectorItemSubsetBuilder;
   VVectorData: IVectorItemSubset;
@@ -254,7 +254,7 @@
       VAltitude := '';
     end else begin
       VExAltitude := VGPSAltitude.Quotient;
- if VExifData.GPSAltitudeRef = alBelowSeaLevel then begin
+ if VGPSAltitude.Ref = alBelowSeaLevel then begin
         VExAltitude := -VExAltitude;
       end;
       VAltitude := FloatToStrF(VExAltitude, ffFixed, 10, 2);
(0017619)
vdemidov (manager)
11-08-2016 11:32

Garl, можешь проверить работает оно с новой версией и этими изменениями?
(0017620)
Garl (manager)
11-08-2016 11:58

не знаю как правильно но вот ещё чего надо в компоненте править чтобы скоимпилилось:

CCR.Exif.pas

@@ -2521,5 +2521,5 @@
 begin
   Result := False;
   for I := 0 to FTagList.Count - 1 do
- if TExifTag(FTagList.List[I]).ID >= ID then
+ if TExifTag(FTagList[I]).ID >= ID then
     begin
@@ -2525,5 +2525,5 @@
     begin
- if TExifTag(FTagList.List[I]).ID = ID then
+ if TExifTag(FTagList[I]).ID = ID then
       begin
         TagIndex := I;
         Result := True;
@@ -2773,7 +2773,7 @@
   try
     for I := FTagList.Count - 1 downto 0 do
     begin
- Tag := TExifTag(FTagList.List[I]);
+ Tag := TExifTag(FTagList[I]);
       for ID in IDs do
         if ID = Tag.ID then
         begin
@@ -2936,7 +2936,7 @@
 begin
   if ChangeType = tcID then
     for I := FTagList.Count - 1 downto 0 do
- if Tag.ID > TExifTag(FTagList.List[I]).ID then
+ if Tag.ID > TExifTag(FTagList[I]).ID then
       begin
         FTagList.Move(FTagList.IndexOf(Tag), I + 1);
         Break;



CCR.Exif.TiffUtils.pas

@@ -1497,7 +1497,7 @@
 begin
   for I := FTagsToWrite.Count - 1 downto 0 do
   begin
- ExistingID := TTagToWrite(FTagsToWrite.List[I]).ID;
+ ExistingID := TTagToWrite(FTagsToWrite[I]).ID;
     if AID > ExistingID then
     begin
       Index := I + 1;

после компилирования логику работы ещё не проверял
дома проверю
(0017621)
vdemidov (manager)
11-08-2016 12:37

Это ты в какой версии Delphi компилиш? У меня вроде бы таких проблем не было.
(0017622)
Garl (manager)
11-08-2016 13:02

XE2
(0017624)
vdemidov (manager)
11-08-2016 13:18

Странно. Я, вероятно, проверял только в 2007, так как думал что с более новой версией проблем не будет.
(0017627)
vdemidov (manager)
11-08-2016 18:20

Залил эти правки CCR.Exif в репозиторий
(0017628)
Garl (manager)
11-08-2016 19:25
edited on: 11-08-2016 19:25

экспорт\импорт JPEG с EXIF прошёл отлично.
импорт фото с навигатора тоже отлично.

(0017629)
vdemidov (manager)
11-08-2016 19:36

Ok

- Users who viewed this issue
User List Anonymous (1859x), vdemidov (32x), Aveveritas (2x), gma (1x), bk99 (2x), Garl (12x)
Total Views 1908
Last View 04-08-2020 03:17

- Issue History
Date Modified Username Field Change
03-07-2016 21:30 vdemidov New Issue
03-07-2016 21:32 vdemidov Note Added: 0017491
03-07-2016 21:33 vdemidov Status new => confirmed
08-07-2016 09:56 vdemidov Target Version 191221 => 181221
11-08-2016 11:32 vdemidov Note Added: 0017619
11-08-2016 11:32 vdemidov Assigned To => Garl
11-08-2016 11:32 vdemidov Status confirmed => assigned
11-08-2016 11:58 Garl Note Added: 0017620
11-08-2016 12:37 vdemidov Note Added: 0017621
11-08-2016 13:02 Garl Note Added: 0017622
11-08-2016 13:16 vdemidov Note Added: 0017623
11-08-2016 13:16 vdemidov Note Deleted: 0017623
11-08-2016 13:18 vdemidov Note Added: 0017624
11-08-2016 18:20 vdemidov Note Added: 0017627
11-08-2016 19:25 Garl Note Added: 0017628
11-08-2016 19:25 Garl Note Edited: 0017628 View Revisions
11-08-2016 19:36 vdemidov Note Added: 0017629
11-08-2016 20:26 vdemidov Status assigned => resolved
11-08-2016 20:26 vdemidov Fixed in Version => 181221
11-08-2016 20:26 vdemidov Resolution open => fixed
11-08-2016 20:26 vdemidov Assigned To Garl => vdemidov



Copyright © 2007 - 2020 SAS.Planet Team