Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Save an image from the clipboard
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Divers
Thread ID:
01349799
Message ID:
01349973
Vues:
22
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform