Página 2 de 2
Converter de Clipper para Harbour - Parte II
Enviado: 20 Abr 2015 11:16
por burel
Itamar, faltou uma informação que talvez seja importante,
No primeiro fonte do sistema eu inicializo com os comandos abaixo;
REQUEST HB_CODEPAGE_PT850
HB_SETCODEPAGE("PT850")
Muito obrigado pela atenção,
Abraço
Eduardo
Converter de Clipper para Harbour - Parte II
Enviado: 20 Abr 2015 12:44
por Itamar M. Lins Jr.
É mas, está errado, pelo menos diferente do que eu fiz.
Antes de LER eu já mudo p/ 850.
Código: Selecionar todos
HB_CDPSelect("PT850")
Do While Hb_FReadLine( cBuffer, @cLinha, Nil, 255 ) = 0
AaDd( aLinesPrint, cLinha )
EndDo
//E se não funcionar, não sei se tem a ver com memoread() porque eu uso memoread e Harbour, não uso xHarbour.
Funciona muito bem, não precisa mudar a fonte de Lucida Console p/ Courier New, porque a Lucida Console usa a tabela 850.
Eu uso aqui p/ imprimir os BOX´s linhas simples, duplas, etc...
Saudações,
Itamar M. Lins Jr.