XProfan

Español

Descripción:

MultiByteToWideChar wandelt una Zeichencode String en una Unicode String en.

Deklaration:

DEF @MultiByteToWideChar(6) !kernel32,MultiByteToWideChar

Parámetro:

1.Parámetro: Codepage Nummer como Integer.
-0 = ANSI Codepage
-1= OEM Codepage
-2 = Macintosh Codepage

2.Parámetro: Flags para el Art des Zeichencode Cuerdas y el Art el Erzeugung (kann 0 ser).

3.Parámetro: Zona mt oder Adresse uno Cuerdas, el konvertiert voluntad se.

4.Parámetro: El Anzahl el Buchstaben des Cuerdas de Parámetro 3 como Integer. Dieser Valor podrá, a –1 gesetzt voluntad, si la String de Parámetro 3 una abschließendes Nullbyte enthält.

5.Parámetro: Ausreichend dimensionierte Bereichsvariable, el el erzeugten Unicode String aufnimmt.

6.Parámetro: Größe des Bereichs de Parámetro 5 como Integer.

Rückgabewert:

Wenn Parámetro 6 en 0 gesetzt se y el Aktion gelingt, liefert el API como Rückgabe el erforderliche Größe des Bereiches en Parámetro 5.
Wenn Parámetro 6 ungleich 0 es y el Función erfolgreich abgeschlossen wurde, Es el Rückgabe el número el kopierten Signo (+abschließendes Nullbyte). En Rückgabe 0 es una Fehler aufgetreten.

Beispiele:

Kompilieren Marca Separación

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