fixed Utf8ToConsole()

as reported in https://synopse.info/forum/viewtopic.php?pid=36515#p36515
synopse · Jan 9, 2022 · 861c5de · 861c5de
1 parent 08ca454
commit 861c5de
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/mormot.core.os.windows.inc b/src/core/mormot.core.os.windows.inc
@@ -1607,7 +1607,7 @@ begin
     begin
       utf16 := Utf8Decode(S);
       tmp.Init(length(utf16) * 3);
-      CharToOemBuffW(pointer(utf16), tmp.buf, tmp.len);
+      CharToOemBuffW(pointer(utf16), tmp.buf, length(utf16));
       SetString(result, PAnsiChar(tmp.buf), StrLen(tmp.buf));
       tmp.Done;
       exit;