|
Notes |
|
|
|
Сами изменения я добавил в репозиторий, но 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); |
|
|
|
|
|
Garl, можешь проверить работает оно с новой версией и этими изменениями? |
|
|
|
(0017620)
|
|
Garl
|
|
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;
после компилирования логику работы ещё не проверял
дома проверю |
|
|
|
|
|
Это ты в какой версии Delphi компилиш? У меня вроде бы таких проблем не было. |
|
|
|
(0017622)
|
|
Garl
|
|
11-08-2016 13:02
|
|
|
|
|
|
|
Странно. Я, вероятно, проверял только в 2007, так как думал что с более новой версией проблем не будет. |
|
|
|
|
|
Залил эти правки CCR.Exif в репозиторий |
|
|
|
(0017628)
|
|
Garl
|
|
11-08-2016 19:25
|
|
экспорт\импорт JPEG с EXIF прошёл отлично.
импорт фото с навигатора тоже отлично.
|
|
|
|
|
|