Converter de Clipper para Harbour - Parte II

[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

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