Binary Data is truncated when saving

Summary

Id: 2518.3
Type: Bug Bug
Current Status: Resolved

Detail

12 Dec 2003 Open Morten Egelund Rasmussen

The error is in the class file itself (cRegistry.cls) at line 339, which calculates the length of binary inserts into the Window registry:

------------------(snip)----------------------
333:        Select Case m_eValueType
334:        Case REG_BINARY
335:            If (VarType(vValue) = vbArray + vbByte) Then
336:                Dim ab() As Byte
337:                ab = vValue
338:                ordType = REG_BINARY
339:                c = (UBound(ab) - LBound(ab)) + 1  ' Bugfix by
Morten Egelund Rasmussen (Dec. 11/2003)
340:                e = RegSetValueExByte(hKey, m_sValueKey, 0&,
ordType, ab(0), c)
341:            Else
342:                Err.Raise 26001
343:            End If
------------------(snip)----------------------
24 Jan 2004 Resolved Steve McMahon

Updated as suggested.