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:
01349973
Views:
21
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
--
Christof
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform