Изменение Exif-тега изображения «Ориентация»
Dec 14 2020
Я пытаюсь изменить Exif-тег «Ориентация» (0x0112) для данного изображения по коду.
Здесь я нашел рабочий пример чтения, но мне не удается написать тот же тег.
uses
GDIPAPI, GDIPOBJ, GDIPUTIL;
var
GPImage: TGPImage;
BufferSize: Cardinal;
Orientation: Byte;
RotateType: TRotateFlipType;
EncoderClsid: TGUID;
PI : PropertyItem;
begin
GPImage := TGPImage.Create('.\test_up.jpg');
try
BufferSize := GPImage.GetPropertyItemSize(PropertyTagOrientation);
if BufferSize <= 0
then raise Exception.Create('BufferSize <= 0');
Orientation := 6; //this should be Rotate90FlipNone
PI.id := PropertyTagOrientation;
PI.type_ := 3;
PI.length := BufferSize;
PI.value := PByte(Orientation);
GPImage.SetPropertyItem(PI);
GetEncoderClsid('image/jpeg', EncoderClsid);
GPImage.Save('.\test_up_Rotate90FlipNone.jpg', EncoderClsid);
finally
GPImage.Free
end;
end;
Во время выполнения он вызывает EAccessViolation
в GPImage.SetPropertyItem(PI);
строке следующее:
Нарушение прав доступа по адресу 757A8E30 в модуле msvcrt.dll. Чтение адреса 00000006.
Это мой test_up.jpg :

Ответы
1 fpiette Dec 14 2020 at 16:09
Я успешно использую этот код:
procedure TOvbCustomImage.SetImageOrientation(AGPImage: TGPImage; Value: WORD);
var
PropItem : TPropertyItem;
begin
if not Assigned(AGPImage) then
Exit;
PropItem.Id := PropertyTagOrientation;
PropItem.Length := SizeOf(WORD);
PropItem.Type_ := PropertyTagTypeShort;
PropItem.Value := @Value;
AGPImage.SetPropertyItem(PropItem);
end;
Это функция, которую я написал в своем приложении. Полный исходный код на GitHub .