Utilização Do Acbrecfdll.dll

[Leonardo Gregianin]

Depois do costume de utilizar o componente do ACBr, estou com dificuldade de utilizar via DLL.

 

Estou em um projeto em Delphi 5 e preciso utilizar a dll ACBrECFDLL.dll, estou começando com o demo que já existe no trunk (trunk\Exemplos\ACBrDLL\Delphi) mas faltam algumas declarações da DLL.

 

Por exemplo, para retornar o número de série da ECF declarei em UnitDeclaracao.pas:

Function NumECF(Serie: String = ''): Integer; stdcall; External 'ACBrECFDLL.dll';
 

 

E em Principal.pas uso:

   Retorno := NumECF(Serie);
   Label2.Caption := Serie;

 

Seria isso?

Editado 2 Abril, 2013 por lvr

[André Ferreira de Moraes]

Use a nova versão ACBrFramework e poste suas dúvidas na área http://www.projetoacbr.com.br/forum/index.php?/forum/16-acbrframework/

[Leonardo Gregianin]

Mesmo utilizando Delphi? No caso, não consigo/quero instalar o ACBr no Delphi 5, somente utilizar a dll.

[Daniel Simoes]

Não faz muito sentido usar o ACBrFrameWork em Delphi... acredito que você achará pouca ajuda sobre isso...

 

Infelizmente só suportamos Delphi 7 e superiores... Por que não migrar para uma IDE mais nova ?  Já tentou o Lazarus / FPC ??

[Leonardo Gregianin]

Obrigado pela luz Daniel, mas neste momento não tem possibilidade de migrar a IDE. Existem decisões que não depende só de mim, mas as pessoas querem resultado de um jeito ou de outro. Por isso minha insistência em utilizar Delphi 5 com o ACBr em DLL.

 

Na verdade, o exemplo com ACBrECFDLL.dll funciona bem com as funções já declaradas, minha dúvida seria somente na declaração e utilização das outras funções, como por exemplo o retorno do número do cupom fiscal ou o número da série da Ecf.

 

Se eu conseguir dar andamento neste projeto, prometo disponibilizar o que eu fizer. Com isso ajudará as 2 ou 3 empresas que ainda utilizam Delphi 5 no mundo

[Juliomar Marchetti]

Seria interessante você sentar e colocar para as pessoas que são seus superiores

que se perderia um tempo migrando mas que estaria realizando melhorias significativas 

tanto em questão de compilação da aplicação como desenvolvimento e até mesmo

migrar para algo mais atual que será muito mais viável e com ótimos recursos

[André Ferreira de Moraes]

Vc tentou instalar o pacote ACBrSerial.dpk no Delphi 5? Quais foram os erros?

[Leonardo Gregianin]

Estou tentando compilar os pacotes no Delphi 5. Incluí em ACBrD5.pas algumas funções que encontrei do Delphi 7 e em algumas units do ACBr tive que declarar ACBrD5 e alguns outros ajustes menores para compatibilização.

 

Gostaria de entender quais os passos exatos que preciso fazer: primeiro compilo e instalo o pacote ACBr_D5.dpk ? E depois compilo e instalo o ACBrSerial.dpk ?

Editado 5 Abril, 2013 por lvr

[Leonardo Gregianin]

Compilei o synapse.dpk sem erros, compilei o ACBrD5.dpk sem erros e ao instalar o ACBrD5 aconteceu o erro:

"O programa não pode ser instalado porque está faltando libcrypto.dll no seu computador".

 

Inclui esta dll no system32 originada do projeto msysgit e apareceu outro erro: "libcrypto.dll não foi criado para ser executado no Windows ou contén erro. Tente instalar novamente...".

 

O que poderia ser?

Editado 5 Abril, 2013 por lvr

[EMBarbosa]

Não faço uso desta parte do projeto, mas pelo erro retornado, a dll mencionada (libcrypto.dll) pode estar corrompida. Tente uma outra versão dela.

[Leonardo Gregianin]

Comentei algumas linhas que se referiam a esta dll em libeay32.pas e OpenSSL.pas e passou.

Compilou e instalou o pacote, porém somente os componentes ACBrEAD e ACBrAAC, não teria que instalar todos os componentes?

 

Depois disso tento instalar o ACBrSerial e aparece o erro: "Cannot load package ACBrSerial. It contains unit ACBrExtenso, which is also contained in package ACBr_D5". O que eu posso fazer para arrumar isso?

 

 

Meu pacote  ACBr_D5 ficou assim:

package ACBr_D5;

{$R *.RES}
{$ALIGN ON}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'ACBr Automação Comercial Brasil VCL D5 (http://acbr.sourceforge.net/)'}
{$IMPLICITBUILD ON}

requires
  Vcl50,
  Vclx50,
  RxCtl5;

contains
  ACBrReg in '..\..\Fontes\ACBrComum\ACBrReg.pas',
  ACBrBase in '..\..\Fontes\ACBrComum\ACBrBase.pas',
  ACBrConsts in '..\..\Fontes\ACBrComum\ACBrConsts.pas',
  ACBrCalculadora in '..\..\Fontes\ACBrDiversos\ACBrCalculadora.pas',
  ACBrCHQ in '..\..\Fontes\ACBrSerial\ACBrCHQ.pas',
  ACBrCHQBematech in '..\..\Fontes\ACBrSerial\ACBrCHQBematech.pas',
  ACBrCHQChronos in '..\..\Fontes\ACBrSerial\ACBrCHQChronos.pas',
  ACBrCHQClass in '..\..\Fontes\ACBrSerial\ACBrCHQClass.pas',
  ACBrCHQImpressoraComum in '..\..\Fontes\ACBrSerial\ACBrCHQImpressoraComum.pas',
  ACBrCHQImpressoraECF in '..\..\Fontes\ACBrSerial\ACBrCHQImpressoraECF.pas',
  ACBrCHQPerto in '..\..\Fontes\ACBrSerial\ACBrCHQPerto.pas',
  ACBrCHQSchalter in '..\..\Fontes\ACBrSerial\ACBrCHQSchalter.pas',
  ACBrDIS in '..\..\Fontes\ACBrSerial\ACBrDIS.pas',
  ACBrDISClass in '..\..\Fontes\ACBrSerial\ACBrDISClass.pas',
  ACBrDISGertecSerial in '..\..\Fontes\ACBrSerial\ACBrDISGertecSerial.pas',
  ACBrDISGertecTeclado in '..\..\Fontes\ACBrSerial\ACBrDISGertecTeclado.pas',
  ACBrECF in '..\..\Fontes\ACBrSerial\ACBrECF.pas',
  ACBrECFBematech in '..\..\Fontes\ACBrSerial\ACBrECFBematech.pas',
  ACBrECFClass in '..\..\Fontes\ACBrSerial\ACBrECFClass.pas',
  ACBrECFDaruma in '..\..\Fontes\ACBrSerial\ACBrECFDaruma.pas',
  ACBrECFMecaf in '..\..\Fontes\ACBrSerial\ACBrECFMecaf.pas',
  ACBrECFNaoFiscal in '..\..\Fontes\ACBrSerial\ACBrECFNaoFiscal.pas',
  ACBrECFSchalter in '..\..\Fontes\ACBrSerial\ACBrECFSchalter.pas',
  ACBrECFSweda in '..\..\Fontes\ACBrSerial\ACBrECFSweda.pas',
  ACBrECFSwedaSTX in '..\..\Fontes\ACBrSerial\ACBrECFSwedaSTX.pas',
  ACBrECFYanco in '..\..\Fontes\ACBrSerial\ACBrECFYanco.pas',
  ACBrECFICash in '..\..\Fontes\ACBrSerial\ACBrECFICash.pas',
  ACBrECFEpson in '..\..\Fontes\ACBrSerial\ACBrECFEpson.pas',
  ACBrExtenso in '..\..\Fontes\ACBrDiversos\ACBrExtenso.pas',
  ACBrRFD in '..\..\Fontes\ACBrSerial\ACBrRFD.pas',
  ACBrGAV in '..\..\Fontes\ACBrSerial\ACBrGAV.pas',
  ACBrGAVClass in '..\..\Fontes\ACBrSerial\ACBrGAVClass.pas',
  ACBrGAVImpressoraComum in '..\..\Fontes\ACBrSerial\ACBrGAVImpressoraComum.pas',
  ACBrGAVImpressoraECF in '..\..\Fontes\ACBrSerial\ACBrGAVImpressoraECF.pas',
  ACBrGAVSerialGerbo in '..\..\Fontes\ACBrSerial\ACBrGAVSerialGerbo.pas',
  ACBrGAVSerialMenno in '..\..\Fontes\ACBrSerial\ACBrGAVSerialMenno.pas',
  ACBrLCB in '..\..\Fontes\ACBrSerial\ACBrLCB.pas',
  ACBrValidador in '..\..\Fontes\ACBrDiversos\ACBrValidador.pas',
  ACBrCHQSotomaq in '..\..\Fontes\ACBrSerial\ACBrCHQSotomaq.pas',
  ACBrECFDataRegis in '..\..\Fontes\ACBrSerial\ACBrECFDataRegis.pas',
  ACBrD5 in '..\..\Fontes\ACBrDiversos\ACBrD5.pas',
  ACBrBALToledo in '..\..\Fontes\ACBrSerial\ACBrBALToledo.pas',
  ACBrBAL in '..\..\Fontes\ACBrSerial\ACBrBAL.pas',
  ACBrBALClass in '..\..\Fontes\ACBrSerial\ACBrBALClass.pas',
  ACBrBALFilizola in '..\..\Fontes\ACBrSerial\ACBrBALFilizola.pas',
  ACBrTroco in '..\..\Fontes\ACBrDiversos\ACBrTroco.pas',
  ACBrECFUrano in '..\..\Fontes\ACBrSerial\ACBrECFUrano.pas',
  ACBrECFFiscNET in '..\..\Fontes\ACBrSerial\ACBrECFFiscNET.pas',
  ACBrTERWilbor in '..\..\Fontes\ACBrSerial\ACBrTERWilbor.pas',
  ACBrTER in '..\..\Fontes\ACBrSerial\ACBrTER.pas',
  ACBrTERClass in '..\..\Fontes\ACBrSerial\ACBrTERClass.pas',
  ACBrFala in '..\..\Fontes\ACBrDiversos\ACBrFala.pas',
  ACBrECFQuattro in '..\..\Fontes\ACBrSerial\ACBrECFQuattro.pas',
  ACBrDISKeytecTeclado in '..\..\Fontes\ACBrSerial\ACBrDISKeytecTeclado.pas',
  ACBrCHQUrano in '..\..\Fontes\ACBrSerial\ACBrCHQUrano.pas',
  ACBrETQ in '..\..\Fontes\ACBrSerial\ACBrETQ.pas',
  ACBrETQClass in '..\..\Fontes\ACBrSerial\ACBrETQClass.pas',
  ACBrETQPpla in '..\..\Fontes\ACBrSerial\ACBrETQPpla.pas',
  ACBrETQZplII in '..\..\Fontes\ACBrSerial\ACBrETQZplII.pas',
  ACBrECFNCR in '..\..\Fontes\ACBrSerial\ACBrECFNCR.pas',
  ACBrDevice in '..\..\Fontes\ACBrSerial\ACBrDevice.pas',
  ACBrBarCode in '..\..\Fontes\ACBrDiversos\ACBrBarCode.pas',
  ACBrBALDigitron in '..\..\Fontes\ACBrSerial\ACBrBALDigitron.pas',
  ACBrBALLucasTec in '..\..\Fontes\ACBrSerial\ACBrBALLucasTec.pas',
  ACBrBALMagellan in '..\..\Fontes\ACBrSerial\ACBrBALMagellan.pas',
  ACBrBALMagna in '..\..\Fontes\ACBrSerial\ACBrBALMagna.pas',
  ACBrBALToledo2180 in '..\..\Fontes\ACBrSerial\ACBrBALToledo2180.pas',
  ACBrBALUrano in '..\..\Fontes\ACBrSerial\ACBrBALUrano.pas',
  ACBrDISSmakTeclado in '..\..\Fontes\ACBrSerial\ACBrDISSmakTeclado.pas',
  ACBrECFEscECF in '..\..\Fontes\ACBrSerial\ACBrECFEscECF.pas',
  ACBrETQEpl2 in '..\..\Fontes\ACBrSerial\ACBrETQEpl2.pas',
  ACBrUtil in '..\..\Fontes\ACBrComum\ACBrUtil.pas',
  libeay32 in '..\..\Fontes\ACBrComum\libeay32.pas';

end.

 

Editado 5 Abril, 2013 por lvr

[Daniel Simoes]

As dependências dos pacotes parecem estar erradas... Ou você fez alguma alteração indevida...

 

Em todo caso... seria necessária uma IDE de Delphi 5 para instalar e testar, algo quem nem a Embarcadero disponibiliza mais para nós do ACBr...

 

Continuar com D5 será uma dor de cabeça constante... quase nenhum componente ou biblioteca dá suporte a ele atualmente...

[Leonardo Gregianin]

Definitivamente desisto do Delphi 5.

[Leonardo Gregianin]

Pra dizer que não tentei...

 

 

 

O teste que fiz é no exemplo ECFTeste. Muitos comandos funcionam perfeitamente porém ao vender item as vezes acontece erro de violação de acesso as vezes não acontece:

 

Um comando válido, que imprimiu o item foi:

 

 

 

#2'^'#0#$1C'?NN00000100000010000000000000000000000001000000000000000000000UN111222333'#0'TESTE DE PRODUTO'#0'ê'#$12

 

mas nem sempre é o mesmo comando nos próximos itens que se envia para impressora.

Editado 17 Abril, 2013 por lvr

[Leonardo Gregianin]

Será que é algum erro na geração do comando? Esse comando acima é o correto?

 

att.