Article:2518

Applies To:

VB5

VB6

Author:

Bugs: 0 / 1

Updated:24 January 2004

23 Jan 2004

Added remote registry connection through the Machine. Many thanks to Yaron Lavi for providing the code.

Fixed problem with saving zero length strings. Thanks to Shane Marsden for providing the fix.

Fixed problem with truncation of binary data. Thanks to Morten Egelund Rasmussen (and many others!) for providing the fix.

Binary Data is truncated when saving

Summary

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.