Comme toujours j’aurais besoin de votre aide pour comprendre un problème. Tout d’abord le code avec la même version de pb fonctionne sans problème. Depuis peu et sa le fait et sa le fait plus, enfin y a une erreur qui n’est pas constante.
Dans une variable défini comme suit « Define ceosver.CEOSVERSIONINFO » je mets via la commande suivante des valeurs « CallFunction(#OPENLIB_0, "CeGetVersionEx", @ceosver) ». Quand je debug je vois bien les valeurs de cette variable (Image 1). Des que je revois les valeurs une erreur de mémoire invalide arrive et je ne comprends pas.
Voici le code qui me pause problème.
Code : Tout sélectionner
Procedure.s RAPIGetCEOSVersionString()
; DONNE LA VERSION DU POCKET-PC.
Define ceosver.CEOSVERSIONINFO
ceosver\dwOSVersionInfoSize = SizeOf(ceosver)
If CallFunction(#OPENLIB_0, "CeGetVersionEx", @ceosver)
ProcedureReturn Str(ceosver\dwMajorVersion) + "." + Str(ceosver\dwMinorVersion) + "." + Str(ceosver\dwBuildNumber) + " " + ceosver\szCSDVersion
EndIf
EndProcedure

Image1
L’erreur exacte est « Invalid Memory access. (read error at adress 0). J’ai eu le même type d’erreur avec un simple « Global Dim ».
Merci d’avance a tous
GallyHC