PC Toledo

Pessoal, bom dia.

Eu estou convertendo alguns programas em Clipper 5.3b em Harbour e até agora só estou tendo problemas com a impressão de código de barras.

Tenho um cliente que tem um sistema em Clipper 5.3 que utiliza a biblioteca DRLib para gerar os códigos de barras e imprime perfeitamente.
Esse cliente utiliza uma impressora matricial e durante a impressão de um certificado o código de barras é impresso

No harbour já tentei algumas soluções, pesquisando na Internet e nada realmente funcionando como funcionaria no Clipper, muitas soluções só imprime várias letras, números e caracteres mas código de barras que é bom , nada. (rsrsrs)

Alguém tem uma solução realmente funcional que me permita fazer a mesma coisa que faço no clipper, conforme código abaixo ?
Lembrando que a impressão é direto para uma matricial, na porta lpt1 direto (MS-DOS puro).

nLin := 58
cPreBar := dRCOD39(CadCer->Cp_numcer)
cText := "3/9"
nWidth := 22
aCode := dRGera(DR_TIP_EPSON9,cPreBar,nWidth,3)
for ni := 1 to len(aCode)
@ nLin,000 Say Acode[ni]
next

grato,

Não existe solução mágica.
O Harbour tem LIB pra código de barras, que pode ser usada em conjunto com PDF, ou impressão Windows.
Nesse caso, é através do DRIVER da impressora no Windows, e não diretamente pra LPT1.

Também pode tentar descompilar essa LIB, se for em fonte PRG (e não fonte C).

E como alternativa, até encontrar solução definitiva, pode manter apenas a impressão desse código de barras em Clipper, em programa separado.
Pelo menos segue em frente com a conversão.
Depois, tem tempo de sobra pra se concentrar apenas nessa questão.

JoséQuintas escreveu:Não existe solução mágica.
O Harbour tem LIB pra código de barras, que pode ser usada em conjunto com PDF, ou impressão Windows.
Nesse caso, é através do DRIVER da impressora no Windows, e não diretamente pra LPT1.

Também pode tentar descompilar essa LIB, se for em fonte PRG (e não fonte C).

E como alternativa, até encontrar solução definitiva, pode manter apenas a impressão desse código de barras em Clipper, em programa separado.
Pelo menos segue em frente com a conversão.
Depois, tem tempo de sobra pra se concentrar apenas nessa questão.

José, bom dia. Como poderia descompilar uma lib ?

Posso tentar essa solução.

Obrigado.

Mais fácil tentar isso na sua máquina mesmo, porque deve ser 32 bits.
Aqui só tenho 64 bits.

O descompilador é pra fonte Clipper. Se a rotina estiver em C, sem chance.

Basicamente há dois descompiladores:
Valkyrie e Unclip, se não me engano Unclip é pra Clipper Summer.
E só descompilam se EXE linqueditado com os linkers originais do Clipper.

É criar um fonte usando a LIB, gerar o EXE, e descompilar esse EXE.
Quanto mais "resumido" melhor.
Pegar um aplicativo inteiro e descompilar só por causa da LIB, seria só encher de fonte que não precisa descompilar.

Entendi José , já utilizei o Valkyrie antes.

Vou fazer esse teste e deixo o retorno do mesmo aqui.

Muito obrigado pela ajuda

BOM dia

use em umas 15 lojas.. carne com codigo de barras em matricial

TWdefcode(TWEAN13) && X nnnnnnnnnn X
TWdeflbars(2,2)
TWdefsalto(8) && em casa

@ prow()+1, 03 say space(x_salto_coluna_barra)
TWimpcod(xxdocto)
@ prow()+1, 03 say space(x_salto_coluna_barra)
TWimpcod(xxdocto)
@ prow()+1, 03 say space(x_salto_coluna_barra)
TWimpcod(xxdocto)
TWdefsalto(8) && *hugo la na porao

@ prow()+1 , 04 say [ ] +prt_18
eject
skype paiva_sistemas
cpaivasistemas@gmail.com

qq duvida


Paiva

Obrigado Paiva, vou testar a sua opção também.

abraços,