topic-39416

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Problema Acentos
Posted: Tue Sep 29, 2020 05:58 PM

Buenas a todos, hace un siglo que no entro en el foro.

Soy programador aficionado desde hace muuuchos años. Como éste no es mi medio de vida, tengo un FiveWin muy antiguo. Del 2007 con xHarbour. Ya sé que Harbour es mejor, pero me da pereza cambiar pues para lo que hago me basta. Además aún utilizo Verce. Después de tantos años aún no aprendí a compilar sólo...

Pero al grano. Ya sé que el tema de los acentos es muy antiguo y está muy manido pero lo que me ocurre a mi es muy extraño. Cambié de ordenador y volví a instalar todos mis programas como es normal. Pero ahora no me salen los acentos. Ni HB_SETCODEPAGE('ES'), ni HB_SETCODEPAGE('ESWIN'), ni REQUEST HB_LANG_ES, ni nada de nada. Lo más curioso es que el Verse ahora tampoco reconoce los acentos.

He mirado la configuración de mi Windows 10, el idioma, la codificación, todo. Pero no hay manera de que me salgan acentos. Ya no sé que hacer. Tengo que utiliza códigos ASII alternativos, como CHR(128) par la á. Pero eso no es.

Alguna idea.

Gracias de antemano

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema Acentos
Posted: Tue Sep 29, 2020 06:28 PM

Code (fw): Select all Collapse

#Include "FiveWin.ch"

/*
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
*/

REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESWIN

ANNOUNCE RDDSYS
REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto // Para ListBox
REQUEST DBFCDX, DBFFPT

STATIC oWnd

FUNCTION Main()

   ...

   RDDSETDEFAULT("DBFCDX")

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET _3DLOOK ON
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON  // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   /*
   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese
   HB_SETCODEPAGE( "PT850" )
   */

   HB_LANGSELECT( 'ES' )
   HB_SETCODEPAGE( "ESWIN" )

   // Set_MyLang("es_ES")


// LIBS:

\FwH27\lib\FiveHX.Lib                   +
\FwH27\lib\FiveHC.Lib                   +
\XHARBOUR\Lib\RddAds.Lib                +
\XHARBOUR\lib\hbzip.Lib                 +
\XHARBOUR\lib\rtl.Lib                   +
\XHARBOUR\lib\vm.Lib                    +
\XHARBOUR\lib\gtgui.Lib                 +
\XHARBOUR\lib\lang.Lib                  +
\XHARBOUR\lib\macro.Lib                 +
\XHARBOUR\lib\rdd.Lib                   +
\XHARBOUR\lib\dbfntx.Lib                +
\XHARBOUR\lib\dbfcdx.Lib                +
\XHARBOUR\lib\dbfdbt.Lib                +
\XHARBOUR\lib\debug.Lib                 +
\XHARBOUR\lib\common.Lib                +
\XHARBOUR\lib\tip.Lib                   +
\XHARBOUR\lib\pp.Lib                    +
\XHARBOUR\lib\dbffpt.Lib                +
\XHARBOUR\lib\codepage.Lib              +
\XHARBOUR\lib\HbSix.Lib                 +
\XHARBOUR\lib\PcRepos.Lib               +
\XHARBOUR\Lib\ct.Lib                    +
\Bcc55\lib\cw32.Lib                     +
\Bcc55\lib\psdk\msimg32.Lib             +
\Bcc55\lib\psdk\odbc32.Lib              +
\Bcc55\lib\psdk\rasapi32.Lib            +
\Bcc55\lib\psdk\nddeapi.Lib             +
\Bcc55\lib\psdk\iphlpapi.Lib            +
\Bcc55\lib\import32.Lib

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Problema Acentos
Posted: Tue Sep 29, 2020 07:15 PM

Se ve que he tenido que cambiar de xHarbour durante la mudanza porque esas librerías no las tengo.

El caso es que no funciona. Y hasta el verce sale con símbolos raros en ves de letras con acentos.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Problema Acentos
Posted: Tue Sep 29, 2020 07:17 PM

Recuerdo que tenía una versión más antigua. pero aun así. nunca tuve ese problema: porque ahora hago:

Code (fw): Select all Collapse

   REQUEST HB_LANG_ES
   HB_LANGSELECT('ES')
   HB_SETCODEPAGE('ES')

y debería funcionar. Pero no va y ha cambiado hasta la codificación del Verce

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Problema Acentos
Posted: Wed Sep 30, 2020 06:05 PM

Antolin:

Yo utilizo esto.

Code (fw): Select all Collapse

   REQUEST HB_Lang_ES
   REQUEST HB_CODEPAGE_ESMWIN
   hb_langSelect( "ES" )
   hb_cdpSelect( "ESMWIN" )
   FWSetLanguage( 2 ) // 1 English, 2 Spanish

Saludos.

Jose

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Problema Acentos
Posted: Mon Oct 26, 2020 10:41 AM

Gracias por la ayuda compis.

Creo que el problema es que mi xharbour es muy antiguo y no se compagina bien con el Windows 10, porque todo lo que hago en un ordenador antiguo de un amigo se ve bien en su ordenador, y todo lo que traigo antiguo se ve mal.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Problema Acentos
Posted: Mon Oct 26, 2020 11:23 AM

Hola de nuevo

Hay una circunstancia que quizá le ilumine la bombilla a algún compañero: si pongo MENUITEM "Año tal y tal" me sale bien, y si hago cTit := "Año tal y tal", puesto con un SAY en pantalla se ve bien. Pero editado con un GET salen caracteres raros.

Alguna idea?

Muchas gracias

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Problema Acentos
Posted: Mon Oct 26, 2020 11:25 AM

Rectifico, el MENUITEM (al menos) se ve bien en mi ordenador, pero mal en otros..... Curioso.... frustrante....

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

FiveTech Support Forums

Continue the discussion