unicode (no not again! :-))

[blueznl]

i am a bit baffled, as i can't seem to get to terms with unicode.. .the following should work, but it doesn't... i guess i'm missing the point somewhere...

Code: Select all

in.s = "dit is een test"
out.s = ""
;
l = WideCharToMultiByte_(#CP_OEMCP,0,@in,-1,0,0,0,0)
out = Space(l)
l = WideCharToMultiByte_(#CP_OEMCP,0,@in,-1,@out,l+1,0,0)
;
Debug l
Debug in.s
Debug out.s
in.s = out.s
;
l = MultiByteToWideChar_(#CP_OEMCP,0,@in,-1,@out,0)
out = Space(l)
l = MultiByteToWideChar_(#CP_OEMCP,0,@in,-1,@out,l)
;
Debug l
Debug in
Debug out

[fweil]

Should make you more happy I guess ...

Code: Select all

;
; UNICODE strings
;
Procedure.l Ansi2Uni(ansi.s)
  size.l=MultiByteToWideChar_(#CP_ACP,0,ansi,-1,0,0) 
  Dim unicode.w(size) 
  MultiByteToWideChar_(#CP_ACP, 0, ansi, Len(ansi), unicode(), size) 
  ProcedureReturn @unicode()  
EndProcedure 

Procedure.s Uni2Ansi(*Unicode.l) 
  size.l = WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, #Null, #Null, #Null, #Null) 
  ansi.s=Space(size) 
  WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, @ansi, size, #Null, #Null) 
  ProcedureReturn ansi  
EndProcedure 

*pointeur=Ansi2Uni("Ben ça alors, dis donc, si j'avais su.")
Debug Uni2Ansi(*pointeur)

[blueznl]

cannot store a unicode string in a normal string?

[blueznl]

duh... oh...

swapped the functions

Code: Select all

in.s = "dit is een test"
;
l = MultiByteToWideChar_(#CP_OEMCP,0,@in,-1,0,0)
*out = AllocateMemory(l)
l = MultiByteToWideChar_(#CP_OEMCP,0,@in,-1,*out,l)
;
*in = *out
;
l = WideCharToMultiByte_(#CP_OEMCP,0,*in,-1,0,0,0,0)
out.s = Space(l)
l = WideCharToMultiByte_(#CP_OEMCP,0,*in,-1,@out,l,0,0)
;
Debug out

[fweil]

... was away for a while ! Hem it's saturday you know ...

[Rings]

cannot store a unicode string in a normal string?

can contain NULL's, so better use Memory for now

[blueznl]

yeah, after some messing around i finally understood... i want my fixed length strings... oh wait, have to control my whining until fred returns