Changeset 72 for trunk/UContact.pas

Timestamp:

Dec 13, 2021, 8:47:20 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Properties with just BASE64 instead of ENCODING=BASE64 was not decoded using Base64 and so contact photos were not loaded correctly.
• Added: Allow to save from file and load to file contact property values in All fields tab.

File:

• trunk/UContact.pas (modified) (1 diff)

trunk/UContact.pas

@@ -481 +481 @@
   I: Integer;
 begin
-  if Attributes.IndexOf('BASE64') <> -1 then
-    Encoding := 'BASE64'
-  else
+  if Attributes.IndexOf('BASE64') <> -1 then begin
+    Encoding := 'BASE64';
+    Value := GetDecodedValue;
+  end else
   if Attributes.IndexOfName('ENCODING') <> -1 then begin
     Encoding := Attributes.Values['ENCODING'];