const
cShowAll = 0;
cShowInter = 1;
cShowDiff = 2;
var
AGrid: TvxStringGrid;
row: Integer;
ATabList: TStringList;
tabcount: Integer;
activetab: Integer;
show: Integer;
showAllButton: TvxRectangle;
showInterButton: TvxRectangle;
showDiffButton: TvxRectangle;
function TabButtonAtIndex(AIndex: Integer): TvxRectangle;
begin
result := ATabList.Objects[AIndex];
end;
function IndexedDataPointerFromString(AStr: WideString; AIndex: Integer): TTntStringList;
var
ASl: TTntStringList;
begin
ASl := TTntStringList.Create;
try
ASl.CommaText := AStr;
result := StrToPtrInt(ASl.Strings[AIndex])
finally
ASl.Free;
end;
end;
function FileDataPointerFromString(AStr: WideString): TTntStringList;
begin
result := IndexedDataPointerFromString(AStr, 0);
end;
function CatDataPointerFromString(AStr: WideString): TTntStringList;
begin
result := IndexedDataPointerFromString(AStr, 1);
end;
function InterDataPointerFromString(AStr: WideString): TTntStringList;
begin
result := IndexedDataPointerFromString(AStr, 2);
end;
function DiffDataPointerFromString(AStr: WideString): TTntStringList;
begin
result := IndexedDataPointerFromString(AStr, 3);
end;
function TabFileDataAtIndex(AIndex: Integer): TTntStringList;
begin
result := StrToPtrInt(FileDataPointerFromString(TvxRectangle(TabButtonAtIndex(AIndex)).TagString));
end;
function TabCatDataAtIndex(AIndex: Integer): TTntStringList;
begin
result := StrToPtrInt(CatDataPointerFromString(TvxRectangle(TabButtonAtIndex(AIndex)).TagString));
end;
function TabInterDataAtIndex(AIndex: Integer): TTntStringList;
begin
result := StrToPtrInt(InterDataPointerFromString(TvxRectangle(TabButtonAtIndex(AIndex)).TagString));
end;
function TabDiffDataAtIndex(AIndex: Integer): TTntStringList;
begin
result := StrToPtrInt(DiffDataPointerFromString(TvxRectangle(TabButtonAtIndex(AIndex)).TagString));
end;
function TabImageAtIndex(AIndex: Integer): TImageItem;
begin
result := TImageItem(TvxRectangle(TabButtonAtIndex(AIndex)).TagObject);
end;
function ActiveTabButton: TvxRectangle;
begin
result := TabButtonAtIndex(activetab);
end;
function ActiveTabFileData: TTntStringList;
begin
result := TabFileDataAtIndex(activetab);
end;
function ActiveTabCatData: TTntStringList;
begin
result := TabCatDataAtIndex(activetab);
end;
function ActiveTabInterData: TTntStringList;
begin
result := TabInterDataAtIndex(activetab);
end;
function ActiveTabDiffData: TTntStringList;
begin
result := TabDiffDataAtIndex(activetab);
end;
function ActiveTabImage: TImageItem;
begin
result := TabImageAtIndex(activetab);
end;
procedure DumpXmp(AImg: TImageItem; AGrid: TvxStringGrid; AFileSl, ACatSl, AInterSl, ADiffSl: TTntStrings);
var
i, AIdx: Integer;
AFileXmp, ACatXmp, ATempXmp: TXMP;
ASize: Int64;
ALeadSl: TTntStringList;
ACatItem: TCatalogItem;
begin
ACatItem := TCatalogItem.Create(nil);
ACatXmp := TXMP.Create(False);
AFileXmp := TXMP.Create(False);
ATempXmp := TXMP.Create(False);
try
PublicCatalog.FindItemCombinedByGUID(AImg.GUID, ACatItem);
AFileSl.Clear;
ACatSl.Clear;
AInterSl.Clear;
ADiffSl.Clear;
AFileXmp.Load(AImg.XMPFileName, AImg.ExifFileName, False);
AFileXmp.DumpToStrings(AFileSl);
PublicCatalog.LoadXMPForImage(AImg, ACatXmp, PublicOptions.CachedXMP);
ACatXmp.DumpToStrings(ACatSl);
ATempXmp.AppendXMP(AFileXmp);
ATempXmp.IntersectWithXMP(ACatXmp);
ATempXmp.DumpToStrings(AInterSl);
ACatXmp.DifferenceWithXMP(AFileXmp);
ACatXmp.DumpToStrings(ADiffSl);
finally
ATempXmp.Free;
AFileXmp.Free;
ACatXmp.Free;
end;
AGrid.Cells[0, row] := 'FileName';
AGrid.Cells[1, row] := WideExtractFileName(AImg.FileName);
AGrid.Cells[2, row] := WideExtractFileName(ACatItem.FileName);
Inc(row);
AGrid.Cells[0, row] := 'FilePath';
AGrid.Cells[1, row] := AImg.FileName;
AGrid.Cells[2, row] := ACatItem.FileName;
Inc(row);
AGrid.Cells[0, row] := 'FileSize';
ASize := SizeOfFile(AImg.FileName);
AGrid.Cells[1, row] := IntToStr(ASize) + ' bytes (' + SizeString(ASize) + ')';
ASize := ACatItem.FileSize;
AGrid.Cells[2, row] := IntToStr(ASize) + ' bytes (' + SizeString(ASize) + ')';
Inc(row);
AGrid.Cells[0, row] := 'FileStamp';
AGrid.Cells[1, row] := DateTimeToStr(FileStamp(AImg.FileName));
AGrid.Cells[2, row] := DateTimeToStr(ACatItem.FileStamp);
Inc(row);
AGrid.Cells[0, row] := '';
AGrid.Cells[1, row] := '';
AGrid.Cells[2, row] := '';
if show = cShowInter then
ALeadSl := AInterSl
else if show = cShowDiff then
ALeadSl := ADiffSl
else
ALeadSl := AFileSl;
for i := 0 to ALeadSl.Count - 1 do
begin
if ALeadSl = AFileSl then
AIdx := i
else
AIdx := AFileSl.IndexOfName(ALeadSl.Names[i]);
if AIdx <> -1 then
begin
Inc(row);
AGrid.Cells[0, row] := AFileSl.Names[AIdx];
AGrid.Cells[1, row] := AFileSl.ValueFromIndex[AIdx];
AIdx := ACatSl.IndexOfName(ALeadSl.Names[i]);
if AIdx <> -1 then
AGrid.Cells[2, row] := ACatSl.ValueFromIndex[AIdx]
else
AGrid.Cells[2, row] := '';
end;
end;
if ALeadSl = AFileSl then
begin
for i := 0 to ACatSl.Count - 1 do
begin
AIdx := ALeadSl.IndexOfName(ACatSl.Names[i]);
if AIdx = -1 then
begin
Inc(row);
AGrid.Cells[0, row] := ACatSl.Names[i];
AGrid.Cells[1, row] := '';
AGrid.Cells[2, row] := ACatSl.ValueFromIndex[i]
end;
end;
end;
Inc(row);
AGrid.Cells[0, row] := '';
AGrid.Cells[1, row] := '';
AGrid.Cells[2, row] := '';
ACatItem.Free;
end;
procedure DumpGridToStringList(ASl: TTntStringList);
var
i: Integer;
ALine: TTntStringList;
begin
// add header
ALine := TTntStringList.Create;
ALine.Add('Tag');
ALine.Add('In File');
ALine.Add('In Catalog');
ASl.Add(ALine.CommaText);
ALine.Free;
for i := 0 to AGrid.RowCount - 1 do
begin
ALine := TTntStringList.Create;
ALine.Add(AGrid.Cells[0, i]);
ALine.Add(AGrid.Cells[1, i]);
ALine.Add(AGrid.Cells[2, i]);
ASl.Add(ALine.CommaText);
ALine.Free;
end;
end;
function CheckVersion41: Boolean;
var
ATokens: TTntStringList;
begin
result := False;
ATokens := TTntStringList.Create;
Tokenize(xomProductVersion, '.', ATokens);
if ATokens.Count = 4 then
begin
if (IntToStr(ATokens.Strings[0]) > 4) or
(
(IntToStr(ATokens.Strings[0]) = 4) and
(IntToStr(ATokens.Strings[1]) >= 1)
)
then
result := True;
end;
ATokens.Free;
end;
procedure CheckButtonShowState;
begin
showAllButton.Fill.Style := iif(show = cShowAll, vgBrushSolid, vgBrushNone);
showInterButton.Fill.Style := iif(show = cShowInter, vgBrushSolid, vgBrushNone);
showDiffButton.Fill.Style := iif(show = cShowDiff, vgBrushSolid, vgBrushNone);
end;
procedure ActivateTab(ATabIndex: Integer);
begin
TvxRectangle(ActiveTabButton).Fill.Style := vgBrushNone;
// dump the first selected file to the grid
AGrid.RowCount := 0;
row := 0;
activetab := ATabIndex;
DumpXmp(ActiveTabImage, AGrid, ActiveTabFileData, ActiveTabCatData, ActiveTabInterData, ActiveTabDiffData);
TvxRectangle(ActiveTabButton).Fill.Style := vgBrushSolid;
end;
procedure _SaveToFileClick(Sender: TObject);
var
ASl: TTntStringList;
begin
//SaveDialog.FileName := WideChangeFileExt(TImageItem(ActiveTabImage).FileNameOnly, '.txt');
SaveDialog.FileName := TImageItem(ActiveTabImage).FileNameOnly + '.txt';
if SaveDialog.Execute then
begin
ASl := TTntStringList.Create;
try
DumpGridToStringList(ASl);
ASl.SaveToFile(SaveDialog.FileName);
finally
ASl.Free;
end;
Say('Saved as ' + SaveDialog.FileName);
end;
end;
procedure _ShowAllClick(Sender: TObject);
begin
show := cShowAll;
ActivateTab(activetab);
CheckButtonShowState;
end;
procedure _ShowInterClick(Sender: TObject);
begin
show := cShowInter;
ActivateTab(activetab);
CheckButtonShowState;
end;
procedure _ShowDiffClick(Sender: TObject);
begin
show := cShowDiff;
ActivateTab(activetab);
CheckButtonShowState;
end;
procedure _TabButtonClick(Sender: TObject);
var
ATabButton: TvxRectangle;
begin
ATabButton := TvxRectangle(Sender);
ActivateTab(ATabButton.Tag);
end;
function CreateTab(AImg: TImageItem; ATabBar: TvxScrollBox): TvxRectangle;
var
ATabButton: TvxRectangle;
ALabel: TvxLabel;
begin
ATabButton := TvxRectangle.Create(ATabBar);
ATabButton.Align := vaLeft;
ATabButton.Padding.Rect := vgRect(0, 5, 0, 5);
ALabel := TvxLabel.Create(ATabButton);
ALabel.Align := vaClient;
ALabel.Text := AImg.FileNameOnly;
ATabButton.AddObject(ALabel);
ATabButton.xRadius := 5;
ATabButton.yRadius := ATabButton.xRadius;
ATabButton.Corners := [vgCornerTopLeft, vgCornerTopRight];
ATabButton.Fill.Color := '#80' + MidStr(GUIDesign.HighlightFill.Color, 4, Length(GUIDesign.HighlightFill.Color));
ATabButton.Fill.Style := vgBrushNone;
ATabButton.Stroke.Color := GUIDesign.DarkFill.Color;
ATabButton.Stroke.Style := vgBrushSolid;
ATabButton.Width := vgTextWidth(ALabel.Text, ALabel.Font, vgNormal) + 16;
ATabButton.OnClick := '_TabButtonClick';
ATabButton.TagString := PtrIntToStr(TTntStringList.Create) + ',' +
PtrIntToStr(TTntStringList.Create) + ',' +
PtrIntToStr(TTntStringList.Create) + ',' +
PtrIntToStr(TTntStringList.Create) + ',' +
'';
ATabButton.TagObject := AImg;
ATabButton.Tag := tabcount;
Inc(tabcount);
ATabBar.AddObject(ATabButton);
result := ATabButton;
end;
function CreateOptionButton(AParent: TvxObject; AText: WideString; AOnClick: WideString): TvxVisualObject;
var
ALabel: TvxLabel;
begin
result := TvxRectangle.Create(AParent)
result.Align := vaLeft;
result.Width := 110;
result.Padding.Rect := vxRect(1, 8, 5, 8);
result.OnClick := AOnClick;
result.xRadius := 5;
result.yRadius := result.xRadius;
AParent.AddObject(result);
result.Fill.Color := '#80' + MidStr(GUIDesign.HighlightFill.Color, 4, Length(GUIDesign.HighlightFill.Color));
result.Fill.Style := vgBrushNone;
result.Stroke.Color := '#40' + MidStr(GUIDesign.MidDarkFontFill.Color, 4, Length(GUIDesign.MidDarkFontFill.Color));
result.Stroke.Style := vgBrushSolid;
ALabel := TvxLabel.Create(result);
ALabel.Align := vaClient;
ALabel.text := AText;
result.AddObject(ALabel);
end;
// MAIN
var
i: Integer;
AForm: TvxSceneForm;
ACol: TvxStringColumn;
AButton: TvxButton;
ATabBar: TvxScrollBox;
ATab: TvxRectangle;
begin
if not CheckVersion41 then
begin
Say('This script requires Photo Supreme 4.1 or higher');
exit;
end;
if Selected.Count = 0 then
begin
Say ('No image selected');
exit;
end;
AForm := TvxSceneForm.Create(nil);
if Selected.Count = 1 then
AForm.Caption := UTF8Encode(WideFormat('Compare XMP [%s]', [WideExtractFileName(Selected.Items[0].ExifFileName)]))
else
AForm.Caption := 'Compare XMP: ' + IntToStr(Selected.Count) + ' images';
AForm.Width := 900 * AForm.DPIFactor;
AForm.Height := Trunc(Screen.Height * 0.6);
AForm.BorderStyle := bsSizeable;
ATabBar := TvxScrollBox.Create(AForm.Root);
ATabBar.Height := 40;
ATabBar.Align := vaTop;
ATabBar.UseSmallScrollBars := True;
AForm.Root.AddObject(ATabBar);
AGrid := TvxStringGrid.Create(AForm.Root);
AForm.Root.AddObject(AGrid);
AGrid.Align := vaClient;
AGrid.RowCount := 0;
ACol := TvxStringColumn.Create(AGrid);
ACol.Header := 'Tag';
ACol.Width := 200;
AGrid.AddObject(ACol);
ACol := TvxStringColumn.Create(AGrid);
ACol.Header := 'In File';
ACol.Width := 300;
AGrid.AddObject(ACol);
ACol := TvxStringColumn.Create(AGrid);
ACol.Header := 'In Catalog';
ACol.Width := 300;
AGrid.AddObject(ACol);
ATabList := TStringList.Create;
for i := 0 to Selected.Count - 1 do
begin
ATab := CreateTab(Selected.Items[i], ATabBar);
ATabList.AddObject(Selected.Items[i].GUID, ATab);
end;
tabcount := 0;
activetab := 0;
show := cShowAll;
ActivateTab(activetab);
AForm.PrepareModal([mbOK]);
showAllButton := CreateOptionButton(AForm.ModalPanel, 'Show All', '_ShowAllClick');
showInterButton := CreateOptionButton(AForm.ModalPanel, 'Show Identical', '_ShowInterClick');
showDiffButton := CreateOptionButton(AForm.ModalPanel, 'Show Differences', '_ShowDiffClick');
CheckButtonShowState;
AButton := TvxButton.Create(AForm.ModalPanel)
AButton.Text := 'Save as text file';
AButton.Align := vaLeft;
AButton.Width := 110;
AButton.Padding.Rect := vxRect(25, 8, 5, 8);
AButton.OnClick := '_SaveToFileClick';
AForm.ModalPanel.AddObject(AButton);
AForm.ShowModal;
for i := 0 to ATabList.Count - 1 do
begin
TTntStringList(TabFileDataAtIndex(i)).Free;
TTntStringList(TabCatDataAtIndex(i)).Free;
TTntStringList(TabInterDataAtIndex(i)).Free;
TTntStringList(TabDiffDataAtIndex(i)).Free;
end;
ATabList.Free;
AForm.Free;
end;
|
