Changeset 46 for trunk/UContact.pas

Timestamp:

Dec 3, 2021, 11:47:11 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Long BASE64 encoded lines were not automatically wrapped to limit max line length.
• Fixed: Missing quoted-printable encoding for saving files.

File:

• trunk/UContact.pas (modified) (3 diffs)

trunk/UContact.pas

@@ -691 +691 @@
   NameText: string;
   Value2: string;
+  Text: string;
+  LineIndex: Integer;
+  OutText: string;
+  LinePrefix: string;
+const
+  MaxLineLength = 73;
 begin
   inherited;
@@ -705 +711 @@
         if Encoding <> '' then begin
           Value2 := GetEncodedValue;
-          NameText := NameText + ';' + Encoding;
+          NameText := NameText + ';ENCODING=' + Encoding;
         end else Value2 := Value;
         if Pos(LineEnding, Value2) > 0 then begin
@@ -715 +721 @@
           Add('');
         end else begin
-          Add(NameText + ':' + Value2);
+          OutText := NameText + ':' + Value2;
+          LineIndex := 0;
+          LinePrefix := '';
+          while True do begin
+            if Length(OutText) > MaxLineLength then begin
+              if (LineIndex > 0) and (LinePrefix = '') then LinePrefix := ' ';
+              Add(LinePrefix + Copy(OutText, 1, MaxLineLength));
+              System.Delete(OutText, 1, MaxLineLength);
+              Inc(LineIndex);
+              Continue;
+            end else begin
+              Add(LinePrefix + OutText);
+              Break;
+            end;
+          end;
+          if LinePrefix <> '' then Add('');
         end;
       end;