Skip to content

Commit

Permalink
Use UTF-8 for binary stream
Browse files Browse the repository at this point in the history
This works for both Unicode and non-Unicode text.
joyfullservice committed Nov 9, 2021
1 parent 315644b commit 2699590
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion Version Control.accda.src/modules/modHash.bas
Original file line number Diff line number Diff line change
@@ -299,7 +299,7 @@ Private Function GetUTF8Bytes(strText As String) As Byte()
' Set up binary stream
Set stmBinary = New ADODB.Stream
stmBinary.Open
stmBinary.Charset = "utf-16"
stmBinary.Charset = "utf-8"
stmBinary.Type = adTypeBinary

' Load text into text stream

0 comments on commit 2699590

Please sign in to comment.