*==================================================================== * Converts a 32-bit integer variable (LONG) into a binary string. *==================================================================== Procedure APILongToChar LParameter tnLong Local lcString lcString = Space(4) Declare RtlMoveMemory in Win32API as __LongToChar ; String@, Long@, Integer __LongToChar( @lcString, @tnLong, 4 ) Return m.lcString *==================================================================== * Converts a binary string into a 32-bit unsigned integer. *==================================================================== Procedure APICharToLong LParameter tcString Local lnLong lnLong = 0 Declare RtlMoveMemory in Win32API as __CharToLong ; Long@, String@, Integer __CharToLong( @lnLong, @tcString, 4 ) If m.lnLong < 0 lnLong = m.lnLong + 2^32 Endif Return m.lnLong