Add option to preserve Unicode

[joyfullservice]

In many cases we may want to preserve the Unicode text in our JSON content. This adds a non-default option to preserve the Unicode content.

[sabatale]

Not working for me.

For example: l'\u00C9glise instead of l'Église.

[joyfullservice]

Not working for me.

For example: l'\u00C9glise instead of l'Église.

Did you set the option to allow Unicode characters? AllowUnicodeChars = True

[ddez]

Works perfectly well on my end,
Thanks for the change, I support the pull request!

Indeed, before using the ConvertToJson function, remember to set :
JsonConverter.JsonOptions.AllowUnicodeChars = True

[joyfullservice]

Yes, it has worked great in my projects for the last two years. I am hopeful that @timhall will consider merging this PR for the benefit of those that are working with UTF-8 content. (Which is standard practice in most software development and integrations, from my experience.)

[IlBaroneJaja]

It worked like a charm for me as well if we call it with the new option: JsonConverter.JsonOptions.AllowUnicodeChars = True. Thank you ! Upvote for this PR!

[SoccerDitter]

maybe this helps someone else, although the repository is already old and does not get an update anymore

the change as suggested by @joyfullservice worked for me.
1 - change in the jsonconverter, inserted by @joyfullservice.
2 - set in own code, JsonConverter.JsonOptions.AllowUnicodeChars = True.
3 - in addition, because my httpRequest is executed with ("WinHttp.WinHttpRequest.5.1"), I added set to:
httpRequest.Option(WinHttpRequestOption_UrlEncodeAmps) = True.
4.- then:
httpRequest.ResponseBody edited with the function
Function

BytesToUTF8String(bytes() As Byte) As String
                'converter Utf8
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    
    stream.Type = 1 ' adTypeBinary
    stream.Open
    stream.Write bytes
    
    stream.Position = 0
    stream.Type = 2 ' adTypeText
    stream.Charset = "UTF-8" '
    
    BytesToUTF8String = stream.ReadText(-1) ' Read all text
    
    stream.Close
    Set stream = Nothing
End Function