А как вносить правки в Exif из своей программы?
Сделал небольшой пример как можно просматривать теги Exif и редактировать некоторые из них, используя "exiftool.exe".
Add(MainForm,2953706,35,42)
{
Width=646
Caption="Метаданные картинки: чтение, изменение"
Point(Handle)
link(onCreate,16109481:doPopup,[(74,62)(74,83)(25,83)(25,111)])
}
Add(WinExec,12060573,350,91)
{
FileName="exiftool.exe"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,12854544:doText,[])
}
Add(DropFile,7448277,196,56)
{
link(onDropFile,1640921:doWork1,[(256,62)])
}
Add(Menu,1371778,133,98)
{
Menu=#9:Read Exif|0:|
Point(onSelectNum)
link(onSelectNum,11186591:doExecute,[])
}
Add(ODialog,11186591,196,105)
{
link(onExecute,1640921:doWork2,[])
}
Add(HubEx,1640921,252,105)
{
link(onEvent,3018808:doValue,[])
}
Add(WinTools,16109481,35,98)
{
link(Handle,2953706:Handle,[])
}
Add(ListBox,12854544,399,84)
{
Width=630
Height=261
Align=5
Font=[Lucida Console,8,0,0,204]
DataType=1
Point(String)
Point(onMouseDown)
link(onMouseDown,6610956:doEvent,[])
}
Add(IndexToChanel,6610956,455,98)
{
link(onEvent2,9968219:doPopupHere,[])
}
Add(PopupMenu,9968219,504,105)
{
Menu=#8:Изменить|
link(onClick,372440:doSplit,[])
}
Add(StrPart,372440,553,105)
{
Char=":"
Point(Left)
Point(Right)
link(onSplit,4665449:doWork1,[])
link(onPart,4665449:doWork2,[])
link(Str,12854544:String,[(559,89)(445,89)(445,126)(426,126)])
}
Add(ChildPanel,4665449,602,105)
{
link(onEvent1,6635445:doWork1,[(641,111)(641,76)(326,76)])
}
BEGIN_SDK
Add(EditMulti,2791949,14,7)
{
EventCount=1
WorkCount=2
VarCount=2
Width=321
Height=305
link(doWork1,2330609:doTrim,[(74,13)(74,27)])
link(doWork2,9998415:doTrim,[(32,20)(32,69)])
}
Add(Panel,8215020,35,105)
{
Top=234
Width=630
Height=27
Align=4
}
Add(Label,2319504,154,63)
{
Left=2
Top=2
Width=170
Height=23
Align=1
Caption=""
}
Add(Edit,9456596,189,14)
{
Left=172
Top=2
Width=381
Height=23
Align=5
Text=""
}
Add(Button,3951807,49,161)
{
Left=553
Top=2
Width=75
Height=23
Align=3
Caption="Записать"
link(onClick,13655842:doMessage,[])
}
Add(Trim,9998415,105,63)
{
link(onTrim,2319504:doText,[])
}
Add(Trim,2330609,105,21)
{
link(onTrim,9456596:doText2,[])
}
Add(Message,13655842,98,161)
{
Message="Уверены что хотите изменить данные в файле."
Caption="Внимание"
Type=1
Point(onOK)
link(onOK,1690141:doString,[])
}
Add(GlobalVar,8947609,175,133)
{
Name="file"
}
Add(FormatStr,1690141,154,168)
{
DataCount=3
Mask="-%1=%2 %3"
link(onFString,2791949:onEvent1,[(228,174)(228,13)])
link(Str1,2319504:Caption,[])
link(Str2,9456596:Text,[(167,103)(195,103)])
link(Str3,8947609:Var,[(174,152)(181,152)])
}
END_SDK
Add(GlobalVar,3018808,273,105)
{
Name="file"
link(onValue,6635445:doWork2,[])
}
Add(HubEx,6635445,322,105)
{
link(onEvent,12060573:doConsoleExec,[])
}
Add(InfoTip,7235781,49,189)
{
Info=#122:Скачайте с сайта https://exiftool.org/ версию "exiftool.exe" для windows по ссылке https://exiftool.org/exiftool-12.10.zip|100:Разорхивируйте, переименуйте файл "exiftool(-k).exe" на "exiftool.exe" и положите рядом с программой.|
HAlign=0
Width=624
Height=53
Margin=10
}