Iniciando com TEF PAYGO DLL

[gralak]

Pessoal estou recebendo esse retorno no LOG. 

Estou com a DLL desse link 64Bits WINDOWS 
https://projetoacbr.com.br/wp-content/uploads/2020/11/PayGo-ACBr-TEF.zip

 

TACBrTEFPGWebAPI.SetInicializada( True )
TACBrTEFPGWebAPI.Inicializar
TACBrTEFPGWebAPI.LoadDLLFunctions
   PW_iInit
EACBrTEFPayGoWeb: Erro ao carregar a função: PW_iInit de: PGWebLib.dll
PayGoWeb DesInicializado

***************EACBrTEFPayGoWeb***************
Erro ao carregar a função: PW_iInit de: PGWebLib.dll

 

[Daniel Simoes]

Se você compila sua aplicação em 32 bits... Deve usar DLLs de 32 bits

[gralak]

Mesma mensagem é apresentada, veja o LOG.
 

- LerConfiguracao
- IrParaOperacaoTEF
- Ativar
- GravarConfiguracao
- AtivarPosPrinter
- ConfigurarPosPrinter
- AtivarTEF
- ConfigurarTEF
TACBrTEFPGWebAPI.SetInicializada( True )
TACBrTEFPGWebAPI.Inicializar
TACBrTEFPGWebAPI.LoadDLLFunctions
   PW_iInit
EACBrTEFPayGoWeb: Erro ao carregar a função: PW_iInit de: PGWebLib.dll
PayGoWeb DesInicializado

***************EACBrTEFPayGoWeb***************
Erro ao carregar a função: PW_iInit de: PGWebLib.dll

[Juliomar Marchetti]

só por desencargo a dll está junto a sua aplicação certo?

[gralak]

Sim mesma pasta junto do .exe

[Juliomar Marchetti]

Está usando delphi ou lazarus?

[Daniel Simoes]

Certeza que você está usando a DLL errada... na dúvida, apague... abra o Demo, e veja se o erro, é falta da DLL...

Após isso, extraia a DLL da pasta:

PayGo-ACBr-TEF.zip\TEF PayGoWeb (DLL)\Windows\PGWebLib_WinDLL_004.001.004.000_TEST\x86\PGWebLib.dll

[gralak]

Fiz a alterações como sugerida. 
Estou executando em DELPHI.
Baixei novamente o ZIP com as DLLs

https://projetoacbr.com.br/wp-content/uploads/2020/11/PayGo-ACBr-TEF.zip

 

Coloquei essa configuração para garantir o path da DLL

  if ACBrTEFD1.GPAtual = gpPayGoWeb then
  begin
    ACBrTEFD1.TEFPayGoWeb.PortaPinPad := 3;
    ACBrTEFD1.TEFPayGoWeb.PathDLL := 'C:\Program Files (x86)\Embarcadero\Componentes\ACBR\Exemplos\ACBrTEFD\NaoFiscal\Delphi\PGWebLib.dll';
  end;

Segue em Anexo a Tela com o LOG...

1 hora atrás, Juliomar Marchetti disse:

Está usando delphi ou lazarus?

Delphi

[Juliomar Marchetti]

Então o problema é que tu está com seus fontes e dll em pasta do sistema

nunca use  as pastas windows, system32, syswo64, program files, program files x86

isso é protegido do sistema.

por isso colocamos sempre de sugestão c:\ACBr

[gralak]

Mesmo executando em diretório separado como na imagem o problema persiste!

[gralak]

Pessoal de vários testes estou cheguei a conclusão que tem haver com o WINDOWS esse bloqueio.
Alguém sabe oque no windows poderia influenciar nisso ?
 

[Daniel Simoes]

Experimente rodar o instalador de RunTime das Libs do C

http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/Diversos/x86/VC_redist.x86.exe

[gralak]

Daniel não deu certo ainda.
Só para Constas estou rodando um VM com WINDOWS 10 sem mais nada instalado.
 

- AtivarTEF
- ConfigurarTEF
TACBrTEFPGWebAPI.SetInicializada( True )
TACBrTEFPGWebAPI.Inicializar
TACBrTEFPGWebAPI.LoadDLLFunctions
   PW_iInit
EACBrTEFPayGoWeb: Erro ao carregar a função: PW_iInit de: PGWebLib.dll
PayGoWeb DesInicializado

***************EACBrTEFPayGoWeb***************
Erro ao carregar a função: PW_iInit de: PGWebLib.dll
 

[Juliomar Marchetti]

Fiz testes hoje com um PDC da Paygo e não houve problema algum tanto com o exemplo quanto o código que implementei em um pdv

[gralak]

Tem alguma coisa no WINDOWS que posso influenciar no carregamento e funcionamento da DLL ?

[gralak]

Debugando o código descobri que o retorno acontece nessa linha em negrito.

TefPayGoWebComum.pas

 

procedure TACBrTEFPGWebAPI.LoadLibFunctions;

  procedure PGWebFunctionDetect( FuncName: AnsiString; var LibPointer: Pointer;
    FuncIsRequired: Boolean = True) ;
  var
    sLibName: string;
  begin
    if not Assigned( LibPointer )  then
    begin
      GravarLog('   '+FuncName);

      sLibName := LibFullName;
      if not FunctionDetect(sLibName, FuncName, LibPointer) then 
      begin
        LibPointer := NIL ;
        if FuncIsRequired then
          DoException(Format(ACBrStr('Erro ao carregar a função: %s de: %s'),[FuncName, sLibName]))
        else
          GravarLog(Format(ACBrStr('     Função não requerida: %s não encontrada em: %s'),[FuncName, sLibName]));
        end ;
    end ;
  end;

[Daniel Simoes]

O Exception ocorre nessa Linha... pois é onde ocorre a Carga Dinamica do primeiro método da DLL...

O problema está no seu Windows que por algum motivo não consegue carregar a DLL...

Já estamos em contato com a PayGo e Setis, para analisar o caso 

[Daniel Simoes]

Atualizei o arquivo do Visual C RunTime, em nosso SVN... para a versão 14.28.29325,

Por favor baixe e execute novamente, o instalador:

http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/Diversos/x86/VC_redist.x86.exe

 

[Daniel Simoes]

a PayGoWeb, é compilada em Visual C, e portanto, depende desse RunTime...

Nas máquinas com Windows atualizados... muito provavelmente, o RunTime já existe... Porém se houver falha na carga da DLL, é porque o Windows não localizou as dependências dela.. e nesse caso, basta rodar o instalador, acima

[gralak]

@Daniel Simoes mesmo fazendo o processo a cima e instalando tudo como foi pedido ainda a DLL não é carregada.
Veja que esta tudo instalado como na imagem em Anexo e ainda não funciona.
Continuamos tentando em outras V.M e também não tivemos sucesso.
 

[Daniel Simoes]

Experimente rodar, todas as atualizações pendentes, para esse Windows

[gralak]

Todas as atualizações feitas e mesmo assim continua não carregando!

[Daniel Simoes]

Por favor contacte o suporte da PayGo/Setis... não tenho mais sugestões...

[antonio.carlos]

@gralak poderia me informar qual versão e fabricante da sua VM ? 
Junto ao SDK sempre tem um demo disponibilizado pela PayGo, se você puder fazer um teste usando o demo e verificar se continua o mesmo erro por gentileza.

[gralak]

Hoje utilizamos o VMWARE PLAYER.

Fizemos o teste também com o exemplo e o mesmo erro é apresentado. Erro de carregamento da DLL.