problema com acentuação no xHarbour

[porter]

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

Código: Selecionar todos

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

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

[Jairo Maia]

Porter,

Compile esse exemplo (fora de seu aplicativo) com xHarbour, e veja se o problema persiste:

Código: Selecionar todos

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++.

[porter]

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.

Código: Selecionar todos

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

estou compilando assim:
COMPTESTE.BAT

Código: Selecionar todos

CLS
DEL *.C
C:\xHarbour\BIN\XBuild TESTE.EXE.XBP -DEBUG -CLASSIC -B -ALL

TESTE.EXE.XBP

Código: Selecionar todos

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]

[Jairo Maia]

Falta de atenção de ambos: minha e sua. A linha com PT850 não faz parte do teste. O exemplo correto é esse:

Código: Selecionar todos

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

[Kapiaba]

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

Código: Selecionar todos

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]

Porter, qual é o retorno para:

Código: Selecionar todos

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

e para:

Código: Selecionar todos

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

??

Abs

[porter]

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

[Kapiaba]

Tente com:

Código: Selecionar todos

   HB_ANSITOOEM( "Adição" )

e

Código: Selecionar todos

   HB_OEMTOANSI( "Adição" )

[Kapiaba]

Porter, Veja o que retorna este exemplo:

Código: Selecionar todos

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,

[porter]

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.

Código: Selecionar todos

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

[Kapiaba]

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.

[porter]

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.

Código: Selecionar todos

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

[Kapiaba]

Isso. veja:



Abs

[Kapiaba]

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.



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

Boa sorte.

[alxsts]

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