Lazarus No Linux

[Márcio de Melo]

Gostaria de saber quem usa o Lazarus no Linux para contribuir com desenvolvimento. Tenho um sistema rodando no Ubuntu com a Bematech, Daruma e estou precisando implementar para o ZPM e Elgin.

Editado 28 Janeiro, 2014 por Márcio de Melo

[Juliomar Marchetti]

A principio o único porem é ter os .so do linux para gerar o MF e MFD para os requisitos do Paf-ECF no restante está funcionando!

chegou a efetuar uma pesquisa rápida no fórum por posts relacionados com o assunto?

[Márcio de Melo]

Já vi q não esta implementado e consegui a so. Vou anexar o arquivo para vc dar uma olhada, foi o pessoal da fabrica que me passou.

Exemplo linux.rar

[Juliomar Marchetti]

é está toda a documentação, se quiser pode olhar o funcionamento do código e implementar, lembre-se de se atentar as diretivas de compilação para o SO e entre as ferramentas delphi e lazarus

siga o padrão dos componentes do ACBr alterando a unit  que corresponde a ECF especifica que no caso para ela será a ecfFiscNet

depois de implementado teste e suba em anexo as alterações que avaliamos e subimos no svn!

[Márcio de Melo]

Ok Juliomar, nunca mexi em seu código mas vou tentar. Qq dúvida posso pedir sua ajuda?

[Juliomar Marchetti]

Ok Juliomar, nunca mexi em seu código mas vou tentar. Qq dúvida posso pedir sua ajuda?

Com certeza, ou eu ou outros colegas com certeza irão lhe ajudar

[Márcio de Melo]

Com certeza, ou eu ou outros colegas com certeza irão lhe ajudar

Obrigado Juliomar.

[Márcio de Melo]

Olá pessoal,

 

            Realizei alguns testes, gostaria de mostrar os resuldos e gostaria de saber se estou no caminho certo ou não.

 

1 - Alterei a procedure:

procedure TACBrECFFiscNET.LoadDLLFunctions;

 

Trecho Original:

  else    // Urano e demais

   begin

       FiscNetFunctionDetect('Leitura.dll', 'DLLReadLeMemorias',  @xDLLReadLeMemorias );

       FiscNetFunctionDetect('ATO17.dll',   'DLLATO17GeraArquivo', @xDLLATO17GeraArquivo );

   end ;

 

Trecho Alterado:

  else    // Urano e demais

   begin

     {$IFDEF LINUX}

       FiscNetFunctionDetect('libLeituraLinux.so', 'DLLReadLeMemorias',  @xDLLReadLeMemorias );

       FiscNetFunctionDetect('libATO17Linux.so',   'DLLATO17GeraArquivo', @xDLLATO17GeraArquivo );

     {$ELSE}

       FiscNetFunctionDetect('Leitura.dll', 'DLLReadLeMemorias',  @xDLLReadLeMemorias );

       FiscNetFunctionDetect('ATO17.dll',   'DLLATO17GeraArquivo', @xDLLATO17GeraArquivo );

     {$ENDIF}

   end ;

 

2 - Executei o instalador da "so" chamado "instalar_SO_Leituras.sh" que, segundo o manual, faz a cópia para a pasta "/usr/lib" e cria os link's;

 

3 - Compilei o projeto;

    

4 - Quando tento executar de dentro da IDE aparece a seguinte mensagem:

 

Project checkout raised exception class 'External: SIGSEGV'.

 At address AF3947D0

 

5 - Quando tento executar diteramente do prompt aparece a seguinte mensagem:

 

Access violation.

Press OK to ignore and risk data corruption.

Press Cancel to kill the program.

 

 

 

 

 

[carlosfilho]

Bom dia,

 

 

Vai ter que primeiro alterar a função FiscNetFunctionDetect, depois alterar  de stdcal para cdecl ex:

 

 

{$IFDEF LINUX} cdecl {$ELSE} stdcal {$ENDIF}

[Márcio de Melo]

Alterei mas mesmo assim não funcionou, estou tentando ver com o pessoal da Urano até agora não recebi resposta. Não consegui executar nem a programa exemplo deles.

 

Segue a alteração que fiz:

// urano e demais
    xDLLReadLeMemorias : function (szPortaSerial, szNomeArquivo,
       szSerieECF: AnsiString; bAguardaConcluirLeitura : Char) : Integer; {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF} ;

    xDLLATO17GeraArquivo : function (szArquivoBinario, szArquivoTexto, szPeriodoIni,
       szPeriodoFIM: AnsiString; TipoPeriodo: Char;
       szUsuario, szTipoLeitura: AnsiString) : Integer; {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF} ; 

[carlosfilho]

Boa noite,

 

 

Testa com esta unit.

ACBrECFFiscNET.pas

Editado 4 Fevereiro, 2014 por carlosfilho

[carlosfilho]

Bom dia,

 

 

Testou deu certo?

[Márcio de Melo]

Olá Carlos,

 

              Não deu certo. Substitui o arquivo, não resolveu. Solicitei outra cópia do arquivo das so mas mesmo assim não resolveu. Se alguém se dispuser a fazer alguns testes seria muito bom. O problema ocorre mesmo antes de executar qq função, ocorre na leitura da so.

 

 

Forte abraço a todos.

Editado 11 Fevereiro, 2014 por Márcio de Melo

[Juliomar Marchetti]

Você deu permissão na pasta e no arquivo para que seu programa possa utilizar?

[carlosfilho]

bom dia,

 

 

o erro é access violation?, poderia postar a imagem, o programa deles funciona?

[Daniel Simoes]

Acho que o primeiro passo é fazer o programa do próprio fabricante funcionar... Isso irá garantir que as Bibliotecas estão instaladas de forma correta...

[Márcio de Melo]

Ainda não consegui fazer o programa do fabricante funcionar, mas estou tentando entrar em contato com o fabricante.