New FWH 24.09

[karinha]

FIVEWIN: FWH19.05

27/04/2023 09:47 <DIR> XHBBCC72
08/03/2023 15:54 <DIR> XHBBCC74
16/11/2023 09:57 <DIR> XHBBCC76

Funciona de 1000

Please try with latest FWH and the above older xHarbour builds and report back.

Enrico, with this version of FWH24.09, it does not work with any version of XHARBOUR. Very strange.

Enrico, con esta versión de FWH24.09, no funciona con ninguna versión de XHARBOUR. Muy extraño.

Gracias, tks.

Regards, saludos.

[Enrico Maria Giordano]

Ok, now can you show me a sample (only one) with a single line showing the problem?

[karinha]

Ok, now can you show me a sample (only one) with a single line showing the problem?

Pronto Enrico, listo:

Code: Select all  Expand view

// C:\FWH\SAMPLES\NAGESCH6.PRG

#include "FiveWin.ch"

REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850

FUNCTION Main()

   LOCAL cTexto  := "MAÇÃ VERDE"
   LOCAL cTexto2 := "MA€Ç VERDE" // green apple

/*
   SET(_SET_CODEPAGE,"PTISO") // MAÇÃ

   ? "PTISO: ", cTexto, OemToAnsi( cTexto2 )

   SET(_SET_CODEPAGE,"CP437")

   ? "CP437: ", cTexto, OemToAnsi( cTexto2 )

   SET(_SET_CODEPAGE,"UTF8")

   ? "UTF8: ", cTexto, OemToAnsi( cTexto2 )

   SET(_SET_CODEPAGE,"CP850") // CP-850 (MS-DOS Latin 1)

   ? "CP850: ",  cTexto, OemToAnsi( cTexto2 )
*/

   // AQUI, Enrico.
   SET(_SET_CODEPAGE,"PT850") // "MA€Ç VERDE" // green apple

   ? "PT850: ",  cTexto, OemToAnsi( cTexto2 ) // NO FUNCIONA.

RETURN NIL

// FIN / END
 

deberia retornar: MAÇÃ VERDE -> should return: GREEN APPLE

Gracias, tks.

Regards, saludos.

[Enrico Maria Giordano]

Please use CHR() (remember what Rao said).

[karinha]

Please use CHR() (remember what Rao said).

Ya hice todas las pruebas que me pidió el Maestro Nages y las publiqué aquí. Vea este ejemplo:

I've already done all the tests that Master Nages asked for and posted them here. See this example:

Code: Select all  Expand view

// C:\FWH\SAMPLES\NAGESCH7.PRG - Version 2 - CON "PTISO"

#include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
//REQUEST HB_CODEPAGE_PTISO

FUNCTION Main()

   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese

   SET(_SET_CODEPAGE,"PT850")

   MsgInfo( "JO"   + CHR(195) + "O"   ) // Correct: JOÃO - João

   //-> 226, 227, 228, 229(similars)
   MsgInfo( "Jo"   + CHR(227) + "o"   ) // Correct: JOÃO - João

RETURN NIL

// FIN / END - kapiabafwh@gmail.com .and. jairfab@gmail.com
 

Deberia retornar: JOÃO - João.

Regards, saludos.

[Enrico Maria Giordano]

Ok, I could replicate the problem with console too, so no FWH, and with Harbour too. For this, I don't believe that both Harbour and xHarbour could have bugs in the codepage system. I believe that the problem is in your sample, but I have not enough knowledge about codepages to say more, sorry. Any ideas? I can advice you once more to use PTISO, if it works fine for you.

[nageswaragunupudi]

Noticed break in backward compatibility when you set HB_SELECT("PT850") and it will be restored.
No point keep testing.
The problem is only with PT850.

Users from other countries set codepage to ITWIN, ESWIN, TRWIN, etc.
All those codepages are ANSI codepages.
But PT850 is an OEM codepage. Not an ANSI codepage. The problem arose because we treated PT850 also like we treated other HB_CDPSELECT() codepages.

Anyway, the backward compatibility is being restored soon and no more testing is required please.

[karinha]

Noticed break in backward compatibility when you set HB_SELECT("PT850") and it will be restored.
No point keep testing.
The problem is only with PT850.

Users from other countries set codepage to ITWIN, ESWIN, TRWIN, etc.
All those codepages are ANSI codepages.
But PT850 is not an OEM codepage. Not an ANSI codepage. The problem arose because we treated PT850 also like we treated other HB_CDPSELECT() codepages.

Anyway, the backward compatibility is being restored soon and no more testing is required please.

Beloved master NAGES, that's what I wanted to know. Thank you very much. And I'm sorry for the inconvenience. You are fantastic!
Enrico, thank you very much for trying to help. Big hug to you both. My deepest respect.

Amado maestro NAGES, eso es lo que quería saber. Muchas gracias. Y lamento las molestias. ¡Eres fantástico!
Enrico, muchas gracias por intentar ayudar. Un abrazo grande para ambos. Mi más profundo respeto.

Gracias, tks.

Regards, saludos.

[Enrico Maria Giordano]

Ok, great!

[nageswaragunupudi]

Ok, I could replicate the problem with console too, so no FWH, and with Harbour too. For this, I don't believe that both Harbour and xHarbour could have bugs in the codepage system.

There are no bugs at all in Harbour or xHarbour. I will later explain the behavior. Please be patient.

I can advice you once more to use PTISO, if it works fine for you.

.
Yes, PTISO is an ANSI codepage not an OEM codepage.

[nageswaragunupudi]

Noticed break in backward compatibility when you set HB_SELECT("PT850") and it will be restored.
No point keep testing.
The problem is only with PT850.

Users from other countries set codepage to ITWIN, ESWIN, TRWIN, etc.
All those codepages are ANSI codepages.
But PT850 is an OEM codepage. Not an ANSI codepage. The problem arose because we treated PT850 also like we treated other HB_CDPSELECT() codepages.

Anyway, the backward compatibility is being restored soon and no more testing is required please.

In continuation, the problem is only
-- when HB_SELECT( "PT850" )
-- and with ? and Msg*() functions only.
-- but works normally with browses, says and gets and all other kinds of display.

[karinha]

Noticed break in backward compatibility when you set HB_SELECT("PT850") and it will be restored.
No point keep testing.
The problem is only with PT850.

Users from other countries set codepage to ITWIN, ESWIN, TRWIN, etc.
All those codepages are ANSI codepages.
But PT850 is an OEM codepage. Not an ANSI codepage. The problem arose because we treated PT850 also like we treated other HB_CDPSELECT() codepages.

Anyway, the backward compatibility is being restored soon and no more testing is required please.

In continuation, the problem is only
-- when HB_SELECT( "PT850" )
-- and with ? and Msg*() functions only.
-- but works normally with browses, says and gets and all other kinds of display.

Sorry Master Nages, I didn't understand the translation very well. I haven't tested with:
@ 10.10 SAY OemToAnsi( "JOÃO - João" ) OF oDlg... Do you want me to take a test?

Lo siento Maestro Nages, no entendí muy bien la traducción. No he probado con:
@ 10.10 SAY OemToAnsi( "JOÃO - João" ) OF oDlg... ¿Quieres que haga una prueba?

Gracias, tks.

Regards, saludos.

[nageswaragunupudi]

Please keep this conversion table for reference:


See how the same character is represented by different ASC values in different codepages.

[nageswaragunupudi]

Mr. Enrico

Do you mind letting us know the results of

Code: Select all  Expand view

? GetOEMCP(), GetACP()

executed from your computer?

India:
437,1252
Brazil
850,1252
Italy:
?,?

[Enrico Maria Giordano]

Italy:
850,1252