From 30407811877e2270daf1fee821563541170e8a0a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 6 Nov 2023 16:41:26 +0000
Subject: [PATCH] fpexif: Fix IPTC string tag writing error.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9011 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpexif/fpeiptcreadwrite.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/components/fpexif/fpeiptcreadwrite.pas b/components/fpexif/fpeiptcreadwrite.pas
index 6a671a2af..79a345286 100644
--- a/components/fpexif/fpeiptcreadwrite.pas
+++ b/components/fpexif/fpeiptcreadwrite.pas
@@ -423,7 +423,9 @@ const
   procedure WriteString(AIptcTag: TIptcTag; AText: PChar; ALength: Integer);
   var
     byteAdded: Boolean;
+    len: Integer;
   begin
+    len := ALength;
     if odd(ALength) then begin
       inc(ALength);
       byteAdded := true;
@@ -433,7 +435,7 @@ const
     if ALength < 32768 then begin
       AIptcTag.Size := NtoBE(word(ALength));
       AStream.WriteBuffer(AIptcTag, SizeOf(AIptcTag));
-      AStream.WriteBuffer(AText^, ALength);
+      AStream.WriteBuffer(AText^, len);
     end
     else
     // "Extended" dataset
@@ -442,13 +444,13 @@ const
       AIptcTag.Size := NtoBE($8002);
       AStream.WriteBuffer(AIptcTag, SizeOf(AIptcTag));
       WriteWord(AStream, NtoBE(word(ALength)));
-      AStream.WriteBuffer(AText^, ALength);
+      AStream.WriteBuffer(AText^, len);
     end else begin
       // Size is 4, but we must set highest bit to mark tag as being extended.
       AIptcTag.Size := $8004;
       AStream.WriteBuffer(AIptcTag, SizeOf(AIptcTag));
       WriteDWord(AStream, NtoBE(ALength));
-      AStream.WriteBuffer(AText^, ALength);
+      AStream.WriteBuffer(AText^, len);
     end;
     if byteAdded then      // Write 0 to added byte
       WriteByte(AStream, 0);