PureBasic

anissa a écrit :Bonjour et bonne année à tous

J'ai un problème bizarre: un programme appelant une DLL qui marche quand il est seul mais ne marche pas quand je l'ajoute dans un fichier inclus. Je m'explique:

J'ai un fichier Pb qui contient les déclarations des constantes ainsi que quelques procédures que je place toujours au début de mes codes sources (c'est donc un fichier inclus dans tous mes codes)

Code : Tout sélectionner

IncludeFile("Fcommun.Pb")

J'ai créé une DLL que je dois consulter une fois au niveau de chaque code source. Cette DLL doit me retourner 1 valeur.

Code : Tout sélectionner

ProcedureDLL.s GetValeur(a$)
;c'est seulement un exemple...
Val$=a$ + "Dobro"
ProcedureReturn Val$
EndProcedure

Code appelant la DLL:

Code : Tout sélectionner

If OpenLibrary(0, "MaDLL.dll")
   Val$=Peeks(CallFunction(0, "GetValeur",""))
   CloseLibrary(0)
   Debug "Val$= " + Val$
EndIf

Si j'exécute le programme Appelant la DLL(tout seul) ça marche bien, mais si je l'inclus dans (FCmmun.Pb), ça ne mache plus...

J'ai essayé de prévoir les cas des formats (unicode etc) en ajoutant les #Pb_Ascii etc... mais non, ça ne marche pas..

Pourtant le code seul marche bien (Val$ existe déclarée en global)

Si quelq'un a une idée...

Merci

xincludefile ("fcommun.pbi")