Caracteres desconfigurados

[rubens]

Olá...

Tô migrando para o xharbour e depois de compilar alguns caracteres desconfiguraram. Dei uma pesquisada no Fórum mas não encontrei solução... alguém sabe como resolver...?
Olha como a tela fica?

Estou usando este código na inicialização mas não mudou continua do jeito da imagem...

Código: Selecionar todos

************************************
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

FUNCTION MAIN( cINSTAL )

#include "CLUBE.CH"
#include "DIRECTRY.CH"
#include "INKEY.CH"  

#DEFINE CRLF CHR(13)+CHR(10)

PRIVATE aMenu := {}, NIVEL := "0"

HB_LANGSELECT('PT')
HB_SETCODEPAGE('PT850')
SetMode(25,80)

Obrigado,

Rubens

[alxsts]

Olá!

Troque a tua seleção de code page como está no exemplo abaixo e veja o que acontece.

Código: Selecionar todos

#include "set.ch"

REQUEST HB_CODEPAGE_PTISO
SET( _SET_CODEPAGE, "PTISO" )

[rubens]

Caro Alxsts, Bom dia...

Fiz como você recomendou mas continuou com a mesma tabela...
fiz um laço para mostrar os caracteres até 255 e me retornou a seguinte tela...

No clipper o mesmo laço retorna esta tela...

O que me interessa mesmo é os códigos 16-17-30-31.
Acho que o jeito vai ser isolar os caracteres que não tem representação, somente o quadro ...
Se tiver outra recomendação... eu testo...

De qualquer forma obrigado ...

Rubens

[Jairo Maia]

Olá Rubens,

Teoricamente os caracteres 0 a 31 não são impressos (o 32 é o espaço), mas tanto em xHarbour como em Harbour acabei de testar e eles aparecem de forma igual na tela, como era no Clipper. No seu caso isso não poderia estar sendo alterado por alguma lib que você está usando?

[rubens]

Jairo bom dia...

Na criação do script com o hbmake eu não insiro nenhuma lib. As que estão no script são as que o próprio hbmake coloca... poderia ser alguma delas...?

já removi as linhas do codepage e continua com essa mesma configuração...
Como voce configura o codepage aí ? pode mostrar...?

Obrigado
Rubens

[Kapiaba]

Teste isto e diga o que ocorre:

Código: Selecionar todos

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
 
FUNCTION Main()
 
   HB_SETCODEPAGE( "PTISO" )  // LIB: CODEPAGE.LIB e LANG.LIB
   HB_LANGSELECT( 'PT' )
 
   ? HB_LANGNAME()
 
   ? 'áéíóú'
 
   ? HB_TRANSLATE( ' ‚¡¢£', "PT850", "PTISO" )
 
   ? HB_TRANSLATE( 'áéíóú', "PTISO", "PT850" )
 
   ? 'ansitooem', hb_ansitooem('áéíóú')
 
   ? 'oemtoansi', hb_oemtoansi(' ‚¡¢£')
 
   HB_SETTERMCP( "PT850" )
 
   ? 'áéíóú'
 
RETURN NIL

Abs.

[Kapiaba]

http://fivewin.com.br/index.php?/topic/ ... ntry264912

[Jairo Maia]

Olá Rubens,

Testei com várias codificações. Tente compilar esse exemplo e veja se vai dar certo (usar xhb.lib):

Código: Selecionar todos

REQUEST HB_LANG_PT

REQUEST HB_CODEPAGE_PT850
//REQUEST HB_CODEPAGE_PTISO
//REQUEST HB_CODEPAGE_UTF8

 Hb_LangSelect( "PT" )

 Hb_SetCodePage( "PT850" )
 //Hb_SetCodePage( "PTISO" )
 //Hb_SetCodePage( "UTF8" )

 Alert( Chr( 16 )+" "+Chr( 17 )+" "+Chr( 30 )+" "+Chr( 31 ) )

Return

Você usa alguma GT? Se sim poderia ser o caso de tentar usar sim o comando Hb_GtInfo( HB_GTI_COMPATBUFFER, .F. )

[rubens]

Caro Kapiaba,

Executei o seu código e apresenta a tela abaixo.

Jairo, veja o resultado...

No post anterior eu tinha esquecido de colocar o script... agora segue o script do jeito que está sendo criado pelo hbmake...

SISTEMA.txt

(3.08 KiB) Baixado 75 vezes

Pelo que eu saiba não está sendo acrescentada nenhuma lib gráfica...

Estranho que o hbmake também apresenta o erro... pensei de ser o windows, mas no clipper funcionar perfeitamente...
olha a tela do hbmake:

Rubens

[Kapiaba]

Em xHarbour com FiveWin eu uso assim...

Código: Selecionar todos

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

FUNCTION Main()

    HB_LANGSELECT("PT")
    HB_SETCODEPAGE( "PT850" )

...

RETURN NIL

Inclcuo ao projeto as seguinte LIBS:

\xHarbour121\lib\codepage.Lib +
\xHarbour121\lib\lang.Lib +

[Toledo]

Rubens, faz um teste com este arquivo em anexo. Incluir na compilação a gtwvw.lib.

Abraços,

[rubens]

Toledo o programa que você me mandou não roda... dá uma mensagem dizendo que o aplicativo parou de funcionar...
Daí compilei novamente e inclui a gvtwvw.lib mas acontece a mesma coisa... dá uma mensagem dizendo que o aplicativo parou de funcionar...

Resolvi fazer um teste... levei o programa num computador com o windows xp e o sistema roda normalmente. Testei no server 2008 e a mesma coisa do meu computador com windows 7. Aparece quadrinhos no lugar dos caracteres especificos. Testei em mais outra máquina com o xp e outra com o win7. No xp funcionou e no Win7 não.

Daí a conclusão que é alguma configuração com o windows 7.

Vou pesquisar para ver em que página de código ele está funcionando...
Mais sugestões estou ouvindo e testando...

Obrigado..

Rubens

[Jairo Maia]

Daí a conclusão que é alguma configuração com o windows 7.

Rubens, talvez, mas eu testei no Windows 7 e dá certo. A única diferença é que o xHarbour que tenho é a compilação 6633. Mas acho que pra você tirar essa dúvida, compile o exemplo que passei acima em Harbour somente para teste.

[rubens]

Sr. Jairo Maia....

Acabei de compilar com o xHarbour 1.2.1. Rev 9413. Tô ainda brigando com algumas consultas e relatórios por que tb tô migrando do ntx para o cdx... Porque não forcei essa migração pelos menos uns 05 anos atrás...

Acho que seria um grande passo tentar compilar no Harbour... O que o você acha...? não tem nenhuma lib externa... não tive muitas dificuldades para compilar com o xharbour... Vai ter muita diferença para compilar com o Harbour...?

Estranho que no xp não perde configuração...
Fiz umas pesquisas para ver a página de código ativa e tentei com várias mas nenhuma deu certo...
o comando no windows 7 para ver/mudar a página de código é o chcp.

Rubens

[Jairo Maia]

Olá Rubens,

não tem nenhuma lib externa... não tive muitas dificuldades para compilar com o xharbour... Vai ter muita diferença para compilar com o Harbour...?

Com certeza não. Talvez, você precise apenas alguns pequenos ajustes dependendo de como é seu sistema. Por exemplo, se você usa a classe WIN32PRN, precisa apenas mudar para WIN_PRN. Também é possível que tenha que alterar algum arquivo .CH caso o compilador não ache, mas tem compatíveis no Harbour.