Re: Constante API traduction en PB [Résolu]
Publié : ven. 09/oct./2009 20:21
une idée à la con, mon bon KCC
Fais les 2 et compare
comme ça
Fais les 2 et compare
comme ça
Code : Tout sélectionner
Texte.s = "Bonjour, je suis un texte éçèàî"
*Memoire = AllocateMemory(200)
; Mettre une ligne ou l'autre pour tester
; PokeS(*Memoire, Texte, Len(Texte), #PB_Ascii)
PokeS(*Memoire, Texte, Len(Texte), #PB_Unicode)
Texte_ASCII.s= PeekS(*Memoire, MemorySize(*Memoire), #PB_Ascii)
Texte_Unicode.s= PeekS(*Memoire, MemorySize(*Memoire), #PB_Unicode)
Debug Texte_ASCII
Debug Texte_Unicode
If Len(Texte_ASCII) >= Len(Texte_Unicode)
Texte = Texte_ASCII
Else
Texte = Texte_Unicode
EndIf
Debug Texte