No funciona AnsiToOem() OemToAnsi()

[tsales]

Antonio
Si realizo esta prueba en FWPPC el resultado no cambia:

MemoWrit( "PRUEBAS.TXT", "Nº" + AnsiToOem( "Nº" ) + OemToAnsi("Nº") )

Pero si realizo lo mismo en FWH el resultado es correcto.

Esto está provocando que al imprimir no se impriman correctamente los caracteres especiales.

¿Que ocurre con estas funciones?

Saludos

[tsales]

Me respondo a mi mismo.
Parece que estas funciones no están soportadas por WINCE. En la carpeta Classes está el fichero oemansip.prg. En el se definen estas funciones.

He ampliado un poco los caracteres que se convierten. Por si le sirven a alguien:
// OemToAnsi() and AnsiToOem() for Pocket PC
// Please change cOem and cAnsi for your specific language values

function OemToAnsi( cText )

//local cOem := "¤¥ ‚¡¢£"
//local cAnsi := "ñÑáéíóúü"
local cOem := "¥¦AEIOUΰµº¿ÅÆÃÃ'¿"
local cAnsi := "ªºÁÉÍÓÚáéíóúÑñçÇ´¨"
local n

for n = 1 to Len( cOem )
cText = StrTran( cText, SubStr( cOem, n, 1 ), SubStr( cAnsi, n, 1 ) )
next

return cText

function AnsiToOem( cText )

// local cOem := "¤¥ ‚¡¢£"
// local cAnsi := "ñÑáéíóúü"
local cOem := "¥¦AEIOUΰµº¿ÅÆÃÃ'¿"
local cAnsi := "ªºÁÉÍÓÚáéíóúÑñçÇ´¨"
local n

for n = 1 to Len( cOem )
cText = StrTran( cText, SubStr( cAnsi, n, 1 ), SubStr( cOem, n, 1 ) )
next

return cText
Saludos

[Antonio Linares]

Toni,

>
Parece que estas funciones no están soportadas por WINCE. En la carpeta Classes está el fichero oemansip.prg. En el se definen estas funciones.
>

Si, asi es. Windows Mobile no las soporta.

> He ampliado un poco los caracteres que se convierten.

gracias!