improved Entities code

URUWorks · Sep 1, 2023 · 0caa03f · 0caa03f
1 parent 2d818c3
commit 0caa03f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/TeroSubtitler/subtitleapi/UWSubtitleAPI.Utils.pas b/TeroSubtitler/subtitleapi/UWSubtitleAPI.Utils.pas
@@ -84,7 +84,7 @@ procedure XMLToStrings(const XmlDoc: TXMLDocument; const StringList: TUWStringLi
     Stream.Position := 0;
 
     if ReplaceEntities then
-      StringList.Text := HTMLDecode(Stream.DataString) //HTMLReplaceEntities(Stream.DataString)
+      StringList.Text := StrToXMLValue(Stream.DataString) //HTMLDecode(Stream.DataString) //HTMLReplaceEntities(Stream.DataString)
     else
       StringList.Text := Stream.DataString;
   finally
@@ -183,7 +183,7 @@ function XMLExtractTextContent(const A: TDOMNodeList): String;
   for I := 0 to A.Count-1 do
     Result := Result + DOMNodeToString(A[I]);
 
-  Result := XMLTagsToTS(Result);
+  Result := XMLTagsToTS(XMLValueToStr(Result));
 end;
 
 // -----------------------------------------------------------------------------

diff --git a/TeroSubtitler/subtitleapi/UWSubtitleAPI.pas b/TeroSubtitler/subtitleapi/UWSubtitleAPI.pas
@@ -766,7 +766,7 @@ constructor TUWSubtitles.Create;
   FSearchSkip    := 0;
   FHeader        := NIL;
   FAutoSort      := True;
-  FReplaceEntity := True;
+  FReplaceEntity := False;
   FTag           := 0;
   FTimeBase      := stbMedia;
   New(FFormatProperties);