Clipper On Line • Ver Tópico - problema com acentuação no xHarbour

problema com acentuação no xHarbour

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Postar uma resposta
 

problema com acentuação no xHarbour

Mensagempor porter » 14 Jan 2016 13:23

no programa principal, estou fazendo esse teste, e já aparece carecteres diferentes, nao estou conseguindo dar um printscreen na tela para mostrar aqui.

REQUEST HB_CODEPAGE_ESMWIN
FUNCTION MAIN()
HB_SETCODEPAGE( "PT850" )

clear
@10,10 say "adição"
inkey(0)
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Jairo Maia » 14 Jan 2016 13:50

Porter,

Compile esse exemplo (fora de seu aplicativo) com xHarbour, e veja se o problema persiste:
REQUEST HB_CODEPAGE_ESMWIN
FUNCTION MAIN()
  HB_SETCODEPAGE( "PT850" )

  clear
  @10,10 say "adição"
  inkey(0)

Return Nil
Se o resultado for correto, então não é problema com xHarbour, e nesse caso, reescreva usando seu editor alguns ã (a + til) em seu aplicativo e veja se resolve. Talvez houve algum erro na mudança de OEM para ANSI quando você começou a usar o NotePad++.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor porter » 14 Jan 2016 15:05

ola, estou compilando essa rotina, e gera executavel normal, mas quando executo, nao aparece nada, fica processando e nao consigo finalizar o executavel nem pelo gerenciador de tarefas, tenho que reiniciar o computador, nao estou entendendo porque nao aparece nada.

REQUEST HB_CODEPAGE_ESMWIN
FUNCTION MAIN()
HB_SETCODEPAGE( "PT850" )
clear
@10,10 say "adição"
inkey(0)
Return Nil


estou compilando assim:
COMPTESTE.BAT
CLS
DEL *.C
C:\xHarbour\BIN\XBuild TESTE.EXE.XBP -DEBUG -CLASSIC -B -ALL


TESTE.EXE.XBP
CINI = 
C_OUTPUTFOLDER = 
DEFFILE = 
INCLUDEFOLDERS = 
LAUTORUN = 
LDEBUG = .T.
LGUI = .F.
LIBFOLDERS = 
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .T.
LPRG_DEBUG = .T.
LUSEDLL = .F.
MAPFILE = 
MYC_FLAGS = 
MYDEFINES = 
MYLINK_FLAGS = -Gn -s
MYPRG_FLAGS = 
MYRC_FLAGS = 
MYSLY_FLAGS = 
OUTPUTFOLDER = 
PRG_OUTPUTFOLDER = 
RC_OUTPUTFOLDER = 
RUNARGUMENTS = 
SLY_OUTPUTFOLDER = 
STARTIN = 
TARGETFOLDER = 

[TESTANDO.PRG]
MYC_FLAGS = 
MYDEFINES = 
MYPRG_FLAGS = 

[codepage.lib]
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Jairo Maia » 14 Jan 2016 15:14

Falta de atenção de ambos: minha e sua. A linha com PT850 não faz parte do teste. O exemplo correto é esse:
REQUEST HB_CODEPAGE_ESMWIN
FUNCTION MAIN()
HB_SETCODEPAGE( "ESMWIN" )
clear
@10,10 say "adição"
inkey(0)
Return Nil
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Kapiaba » 14 Jan 2016 15:18

Aqui, o pessoal de MODO CONSOLE, usa essas LIBS do xHabrour, veja se não é isso. Abs

echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtwin.lib + >> b32.bc
echo %hdir%\lib\codepage.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib  >> b32.bc


Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Kapiaba » 14 Jan 2016 15:33

Porter, qual é o retorno para:

   @10,10 say  OemToAnsi( "adição" )


e para:

   @10,10 say  AnsiToOem( "adição" )


??

Abs
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor porter » 14 Jan 2016 16:00

kapiaba, nas duas linhas da esse erro:

Error: Unresolved external '_HB_FUN_OEMTOANSI' referenced from C:\ESTOQUE\LOJA.OBJ
Error: Unresolved external '_HB_FUN_ANSITOOEM' referenced from C:\ESTOQUE\LOJA.OBJ
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Kapiaba » 14 Jan 2016 16:13

Tente com:

   HB_ANSITOOEM( "Adição" )


e

   HB_OEMTOANSI( "Adição" )
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Kapiaba » 14 Jan 2016 16:22

Porter, Veja o que retorna este exemplo:

procedure main()

   local cStr := hb_utf8tostr( hb_memoread( 'utf8.txt' ) )

   setmode(40,80);setcolor('w+/n');cls

   ? 'Directly             : ', cStr
   ? 'UTF8toSTR            : ',hb_utf8tostr( cStr )
   ? 'OEMtoANSI + UTF8toSTR: ',hb_oemtoansi( hb_utf8tostr( cStr ) )
   ? 'ANSItoOEM + UTF8toSTR: ',hb_ansitooem( hb_utf8tostr( cStr ) )
   ? 'UTF8toSTR + OEMtoANSI: ',hb_utf8tostr( hb_oemtoansi( cStr ) )
   ? 'UTF8toSTR + ANSItoOEM: ',hb_utf8tostr( hb_ansitooem( cStr ) )
   ? 'OEMtoANSI            : ',hb_oemtoansi( cStr )
   ? 'ANSItoOEM            : ',hb_ansitooem( cStr )
   ?

   cStr := hb_utf8tostr( memoread( 'utf8.txt' ) )

   ? 'Directly             : ', cStr
   ? 'UTF8toSTR            : ',hb_utf8tostr( cStr )
   ? 'OEMtoANSI + UTF8toSTR: ',hb_oemtoansi( hb_utf8tostr( cStr ) )
   ? 'ANSItoOEM + UTF8toSTR: ',hb_ansitooem( hb_utf8tostr( cStr ) )
   ? 'UTF8toSTR + OEMtoANSI: ',hb_utf8tostr( hb_oemtoansi( cStr ) )
   ? 'UTF8toSTR + ANSItoOEM: ',hb_utf8tostr( hb_ansitooem( cStr ) )
   ? 'OEMtoANSI            : ',hb_oemtoansi( cStr )
   ? 'ANSItoOEM            : ',hb_ansitooem( cStr )
   ?
   cStr := hb_memoread( 'utf8.txt' )

   ? 'Directly             : ', cStr
   ? 'UTF8toSTR            : ',hb_utf8tostr( cStr )
   ? 'OEMtoANSI + UTF8toSTR: ',hb_oemtoansi( hb_utf8tostr( cStr ) )
   ? 'ANSItoOEM + UTF8toSTR: ',hb_ansitooem( hb_utf8tostr( cStr ) )
   ? 'UTF8toSTR + OEMtoANSI: ',hb_utf8tostr( hb_oemtoansi( cStr ) )
   ? 'UTF8toSTR + ANSItoOEM: ',hb_utf8tostr( hb_ansitooem( cStr ) )
   ? 'OEMtoANSI            : ',hb_oemtoansi( cStr )
   ? 'ANSItoOEM            : ',hb_ansitooem( cStr )
   ?
   cStr := memoread( 'utf8.txt' )
   ? 'Directly             : ', cStr
   ? 'UTF8toSTR            : ',hb_utf8tostr( cStr )
   ? 'OEMtoANSI + UTF8toSTR: ',hb_oemtoansi( hb_utf8tostr( cStr ) )
   ? 'ANSItoOEM + UTF8toSTR: ',hb_ansitooem( hb_utf8tostr( cStr ) )
   ? 'UTF8toSTR + OEMtoANSI: ',hb_utf8tostr( hb_oemtoansi( cStr ) )
   ? 'UTF8toSTR + ANSItoOEM: ',hb_utf8tostr( hb_ansitooem( cStr ) )
   ? 'OEMtoANSI            : ',hb_oemtoansi( cStr )
   ? 'ANSItoOEM            : ',hb_ansitooem( cStr )
   ?

wait
return


Abs,
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor porter » 15 Jan 2016 07:47

bom dia pessoal, Kapiaba, no primeiro comando, mostra corretamente, no segundo ja mostra distorcido, tenho a imagem salva no word como faço para mostrar ela aqui no forum ?, obrigado.

@10,10 say HB_ANSITOOEM( "Adição" )
@12,10 say HB_OEMTOANSI( "Adição" )


[img]

[/img]
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Kapiaba » 15 Jan 2016 08:45

Bom dia Porter, já tens uma luz no fim do túnel, para mostrar imagens, crie um login aqui:

http://imgur.com/

hospede a imagem, Copie a TAG para forum e cole aqui.

abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor porter » 15 Jan 2016 10:07

Dessa forma, resolve o problema, entao sempre que houver acentos, cedilha, etc vou ter que usar o HB_ANSITOOEM, como feito abaixo ?

Outra duvida, eu quero copiar aqui para o forum a imagem do aplicativo sendo executado para poder mostrar melhor o resultado, eu tenho que copiar para dentro daquele link que você passou, é isso mesmo ?, obrigado.

@10,10 say HB_ANSITOOEM( "Adição" )
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Kapiaba » 15 Jan 2016 16:19

Isso. veja:

Imagem

Abs
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor Kapiaba » 15 Jan 2016 16:26

Crie um login(password/senha) para poder se logar e hospedar suas imagens em formato .PNG copia e cola a TAG para forum(img). Abs.

Imagem

Veja no canto direito, tem meu login: <kapiaba> é fácil.

Boa sorte.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

problema com acentuação no xHarbour

Mensagempor alxsts » 15 Jan 2016 23:11

Olá!

Este método de inserção de imagem nas mensagens do fórum está ultrapassado.

Para orientações sobre o método usado atualmente, leia o tópico Como anexar arquivo nas mensagens
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2945
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes
Voltar ao topo
Anterior Próximo
Postar uma resposta


Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes

Mudar para estilo Celular

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.