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 _ 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 _ 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 _ que se convierten.

gracias!