No funciona AnsiToOem() OemToAnsi()

No funciona AnsiToOem() OemToAnsi()

Postby tsales » Fri Jul 24, 2009 5:19 pm

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
Toni Sales
tsales
 
Posts: 186
Joined: Sat Oct 08, 2005 7:32 am

Re: No funciona AnsiToOem() OemToAnsi()

Postby tsales » Mon Jul 27, 2009 8:01 am

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
Toni Sales
tsales
 
Posts: 186
Joined: Sat Oct 08, 2005 7:32 am

Re: No funciona AnsiToOem() OemToAnsi()

Postby Antonio Linares » Mon Jul 27, 2009 8:11 am

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! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42100
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 40 guests