Changeset 119 for trunk/UContactImage.pas

Timestamp:

Feb 18, 2022, 2:53:31 PM (2 years ago)

Author:

chronos

Message:

• Modified: Keep original encoding text in loaded contacts attributes for later save.

File:

• trunk/UContactImage.pas (modified) (2 diffs)

trunk/UContactImage.pas

@@ -261 +261 @@
       Modified := True;
       Photo := Contact.Fields[FieldIndex];
-      if (Photo <> '') and (PhotoProperty.Encoding <> '') then begin
+      if (Photo <> '') and (PhotoProperty.Encoding <> veNone) then begin
         Stream := TMemoryStream.Create;
         try
@@ -295 +295 @@
       if Url <> '' then begin
         Contact.Fields[FieldIndex] := Url;
-        PhotoProperty.Encoding := '';
+        PhotoProperty.Encoding := veNone;
       end else begin
-        PhotoProperty.Encoding := VCardBase64;
+        PhotoProperty.Encoding := veBase64;
         Stream := TMemoryStream.Create;
         try