C'est dingue mon cher DENIS
(que je salut bien bas au passage
)
Les grands esprits se rencontrent, moi aussi hier je me battais avec l'UNICODE pour faire causer VB6 et les DLL pb désormais UNICODE in vitam eternam
Et LUNASOLE sur le US, m'a donné cette combine qui est courte et efficace, ça peut peut etre aussi servir
http://www.purebasic.fr/english/viewtop ... 71#p511071
Code : Tout sélectionner
EnableExplicit
; str$ : PB unicode string
; RETURN: ascii string packed into PB unicode string
Procedure$ ToAscii (str$)
Protected out$ = Space(1 + Len(str$) / 2)
PokeS(@out$, str$, -1, #PB_Ascii)
ProcedureReturn out$
EndProcedure
; back to unicode
Procedure$ FromAscii (str$)
ProcedureReturn PeekS(@str$, -1, #PB_Ascii)
EndProcedure
ProcedureDLL.s Essai(Texte.s)
texte = FromAscii(texte)
MessageRequester("Unicode variable", texte)
texte = ToAscii(texte)
ProcedureReturn Texte
EndProcedure
Que le grand esprit de la "Brosse à dent" soit avec toi, vieux poteau de mes débuts