PC Toledo

Boa noite Rochinha,

Tanto os fontes prg quanto o txt gerado é ANSI.

Hoje consegui resolver. Na função TxtToPdf()

Alterei a variável
font := HPDF_GetFont( pdf, "Courier", NIL ) para font := HPDF_GetFont( pdf, "Corbel", "CP1252" )

Deu certinho, acentuação saindo ok.

Grato pelo atenção.

Meus caros,

Usei esse modelo do Rubens pra gerar pdf a partir do txt.

Tudo certo com um problema, não mostra os caracteres acentuados.

Já alterei os fontes para UTF-8 e nada.

já tentei
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_SetCodePage( "PT850" )
HB_LANGSELECT("PT")

também já ...

De fato Simões,

Compreendo que uma ferramenta para descompilar sistemas não agrada quem produz.

E concordo que é de se duvidar que alguém que tenha trabalhado num sistema próprio durante 2 anos e meio, não tenha salvo seus fontes em nuvem.

Pois é, fiz isso em pleno 2019.

De qualquer forma fico ...

Meus caros a descompilação em harbour é mesmo impossível? Poderiam me confirmar?

Grato

Sim tinhha cópia no HD. Mas como eu disse, levaram tudo. Notebooks, PCs e HDs.

Meus caros boa tarde.
Não sou programador profissional, tenho um programa que fiz a um tempo em clipper para uso pessoal em minha academia, de um ano pra cá passei a compilar com o Harbour e fiz muitas complementações nele nesse período. Praticamente os módulos mais importantes foram feitos nesse ...

Alguém teria ainda esse classmenu.zip ?

Seria possível me enviar?

lucasburitis@hotmail.com

Grato

Certo mestre, obrigado pelos apontamentos.

Continuarei tentando. E tentarei melhorar.

Abraços.

Ola Andril,

Problema parcialmente resolvido. Grato.


Agora funcionou, mas tive que manter os Arrays na forma inicial, quando os altero, volta a ocorrer o erro anterior. Agora o programa retorna normalmente do segundo DBEDIT para o primeiro.
O outro problema persiste. N fim da impressão, sao ...

Olá Jairo e Andril,

Grato pela atenção e ajuda.

Jairo fiz a alteração que me propôs, continua o mesmo erro, ou seja, após a impressao, aparece no DBEDIT da SAIDA varios outros itens. E na tentativa de retorno com ESC ocorre o erro e aborta o programa. (Error Base /1003 Variable does not exist ...

Ola Jairo,

De antemão agradeço sua atenção.

Meus caros, Bom dia,

Em pleno 2015, resolvi fazer algo que tinha vontade de fazer desde os anos 90. Programação. Tenho feito incontáveis visitas a este fórum, também tenho copiado funções e me aproveitado de duvidas alheias que são sanados pelo nobres usuários. Adquiri livros antigos em Sebos ...