Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Save an image from the clipboard
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01349799
Message ID:
01349974
Views:
25
TRY/CATCH works in vfp8.

>Hi Mark,
>
>>does GDIPlusX work with VFP8?
>
>you probably have to get rid of the TRY CATCH stuff inside the library. For CTOBIN() and BINTOC() you can use the following functions:
>
>*====================================================================
>* 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
>
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform