>*==================================================================== >* 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 >