Código fuente de cambio de idioma sencillo

Versión 2

. Biblioteca de soporte commobj

. Se hizo clic en subrutina_button1_.

Cuadro de edición 2. Contenido = Bytes configurados en texto hexadecimal (A2W(editbox1.content))

. Subrutina A2W, grupo de bytes

parámetro parámetro _Texto Ansi, tipo de texto

. Página de parámetro_código de parámetro, tipo entero puede estar en blanco; el valor predeterminado es #CP_ACP = 0.

. Variable local longitud _Ansi local, tipo entero

. Variable local local _Longitud Unicode, tipo entero.

. Variable local ret, conjunto de bytes

Longitud _Ansi local = tomar la longitud del texto (parámetro _Texto Ansi)+1.

longitud local_Unicode = multibyte towidechar(página de código_parámetro, 0, parámetro _texto Ansi, longitud local _Ansi, ret, 0) × 2.

Ret = conjunto de bytes nulos (longitud _Unicode local)

. if true(MultiByteToWideChar(página código_parámetro, 0, parámetro _texto Ansi, longitud _Ansi local, ret, longitud _Unicode local) = 0)

Devuelve ({0, 0})

If realmente se acabó.

Retorno (ret)

Byte de subrutina establecido en texto hexadecimal, tipo de texto

Conjunto de bytes de parámetros, conjunto de bytes

. Variable variable local, tipo entero

. Texto temporal de variable local, tipo de texto

La longitud de la variable local entera

Texto de variable local, objeto de texto rápido

. Variable local a, tipo entero

Longitud = longitud del conjunto de bytes (conjunto de bytes)

. count_loop_header(longitud, variable)

texto temporal = texto hexadecimal(conjunto de bytes[variable])

texto. Añadir("")

texto. Agregar (obtener texto repetido (2-obtener longitud del texto (texto temporal), " 0 "))

Texto. add(texto temporal)

Si es verdadero (variable % 16 = 0)' muestra 16 bytes por línea.

Texto. Añade (#newline)

Si realmente se acabó.

HandleEvent()

. Count Cycle Tail()

Retorna (Text. GetText(,)

. Comando DLL MultiByteToWideChar, tipo entero, "kernel32.dll", "MultiByteToWideChar" y asigna cadenas multimedia a cadenas comodín

Página de códigos de parámetros, tipo entero

Indicadores de parámetros, tipo entero

Texto de doble byte de parámetros, tipo de texto

Parámetro. longitud de texto de doble byte, tipo entero

Texto de caracteres anchos de parámetro, conjunto de bytes

Longitud de texto de caracteres anchos de parámetro, tipo entero