XProfan

Français

Beschreibung:

MultiByteToWideChar wandelt une Zeichencode String dans une Unicode String um.

Deklaration:

DEF @MultiByteToWideChar(6) !kernel32,MultiByteToWideChar

paramètre:

1.paramètre: Codepage numéro comme Integer.
-0 = ANSI Codepage
-1= OEM Codepage
-2 = Macintosh Codepage

2.paramètre: Flags pour qui Art des Zeichencode Cordes et qui Art qui Erzeugung (peux 0 son).

3.paramètre: Bereich mt ou bien Adresse eines Cordes, qui konvertiert volonté soll.

4.paramètre: qui Nombre de Buchstaben des Cordes aus paramètre 3 comme Integer. cette Wert peux sur –1 gesetzt volonté, si qui String aus paramètre 3 un abschließendes Nullbyte contient.

5.paramètre: Ausreichend dimensionierte Bereichsvariable, qui den erzeugten Unicode String aufnimmt.

6.paramètre: Taille des Bereichs de paramètre 5 comme Integer.

Rückgabewert:

si paramètre 6 sur 0 gesetzt wird et qui Aktion gelingt, liefert qui API comme Rückgabe qui erforderliche Taille des Bereiches dans paramètre 5.
si paramètre 6 ungleich 0 ist et qui Funktion erfolgreich abgeschlossen wurde, ist qui Rückgabe le nombre qui kopierten marque (+abschließendes Nullbyte). chez Rückgabe 0 est un faute aufgetreten.

Beispiele:

Kompilieren Marque Séparation

DEF @WideCharToMultiByte(8) !"kernel32","WideCharToMultiByte"
DEF @MultiByteToWideChar(6) !"kernel32","MultiByteToWideChar"
DEF @GetACP(0) !"kernel32","GetACP"
Windowstyle 31
Windowtitle "Stringumwandlung ins Unicode Format"
Window 0,0-640,440
Declare Unicode#,SingleByte$,Fehler&
DIM Unicode#,256
Clear Unicode#
LET SingleByte$="Hallo"
LET Fehler&=@MultiByteToWideChar(@GetACP(),0,@ADDR(SingleByte$),-1,Unicode#,100)
Print "Rückmeldung von MultiByteToWideChar="+@STR$(Fehler&)
Print "Singlebyte="+SingleByte$
PRINT "Unicode="+@CHAR$(Unicode#,0,@LEN(SINGLEBYTE$)*2)
Dispose Unicode#

While 0=0

    Waitinput

Wend