Daniel Simoes

Não usamos a Indy... mas sim a Synapse
http://www.ararat.cz/synapse/doku.php/public:howto:httpdownload
http://www.ararat.cz/synapse/doku.php/public:howto:sslplugin
http://www.ararat.cz/synapse/doku.php/public:howto

Creio que só temos esses exemplos (que foram doados por Devs de Node.js)
o que muda, nos métodos, é a que a versão M.T. sempre recebe como primeiro parâmetro, o Ponteiro de onde a biblioteca foi carregada... (const libHandle: PLibHandle)...
Esse ponteiro é retornado por referência, no método NFE_Inicializar (var libHandle: PLibHandle)... Você deve salvar esse endereço (ponteiro) em sua Thread, e informar ele em todos os métodos subsequentes, que chamar...
function NFE_Inicializar(var libHandle: PLibHandle; const eArqConfig, eChaveCrypt: PChar): longint; function NFE_Finalizar(libHandle: PLibHandle): longint; function NFE_Nome(const libHandle: PLibHandle; const sNome: PChar; var esTamanho: longint): longint; function NFE_Versao(const libHandle: PLibHandle; const sVersao: PChar; var esTamanho: longint): longint;  
Observe que a versão S.T. não há esse parâmetro (const libHandle: PLibHandle) com o endereço da Lib  (a Lib salva internamente o Ponteiro)
function NFE_Inicializar(const eArqConfig, eChaveCrypt: PChar): longint; function NFE_Finalizar: longint; function NFE_Nome(const sNome: PChar; var esTamanho: longint): longint; function NFE_Versao(const sVersao: PChar; var esTamanho: longint): longint;  

https://discord.gg/acbr

Por favor veja esse tópico:
 

Veja os eventos implementados no componente TCPServerTC, do ACBrMonitorPLUS
procedure TFrmACBrMonitor.TCPServerTCConecta(const TCPBlockSocket: TTCPBlockSocket; var Enviar: ansistring); var IP, Id: ansistring; Indice: integer; begin TCPBlockSocket.SendString('#ok'); Id := Trim(TCPBlockSocket.RecvPacket(1000)); IP := TCPBlockSocket.GetRemoteSinIP; Indice := mTCConexoes.Lines.IndexOf(IP); if Indice < 0 then begin mTCConexoes.Lines.Add(IP); AddLinesLog('T.C. Inicio Conexão IP: [' + IP + '] ID: [' + Id + ']' + ' em: ' + FormatDateTime('dd/mm/yy hh:nn:ss', now)); end; end; procedure TFrmACBrMonitor.TCPServerTCDesConecta(const TCPBlockSocket: TTCPBlockSocket; Erro: integer; ErroDesc: string); var IP: string; Indice: integer; begin if not Assigned( TCPBlockSocket ) then Exit; IP := TCPBlockSocket.GetRemoteSinIP; AddLinesLog('T.C. Fim Conexão IP: [' + IP + '] em: ' + FormatDateTime('dd/mm/yy hh:nn:ss', now)); Indice := mTCConexoes.Lines.IndexOf(IP); if Indice >= 0 then mTCConexoes.Lines.Delete(Indice); end; procedure TFrmACBrMonitor.TCPServerTCRecebeDados(const TCPBlockSocket: TTCPBlockSocket; const Recebido: ansistring; var Enviar: ansistring); var Comando, Linha: ansistring; Indice, P1, P2: integer; begin { Le o que foi enviado atravez da conexao TCP } Comando := StringReplace(Trim(Recebido), #0, '', [rfReplaceAll]); // Remove nulos if pos('#live', Comando) > 0 then begin Comando := StringReplace(Comando, '#live', '', [rfReplaceAll]); // Remove #live TCPBlockSocket.Tag := 0; // Zera falhas de #live? end; if Comando = '' then exit; AddLinesLog('TC: [' + TCPBlockSocket.GetRemoteSinIP + '] RX: <- [' + Comando + ']'); if copy(Comando, 1, 1) = '#' then begin Comando := copy(Comando, 2, Length(Comando)); P1 := 0; P2 := 0; Indice := fsSLPrecos.IndexOfName(Comando); if Indice >= 0 then begin Linha := fsSLPrecos[Indice]; P1 := Pos('|', Linha); P2 := PosAt('|', Linha, 3); end else Linha := edTCNaoEncontrado.Text; if P2 = 0 then P2 := Length(Linha) + 1; Enviar := '#' + copy(Linha, P1 + 1, P2 - P1 - 1); Enviar := LeftStr(Enviar, 45); TCPBlockSocket.Tag := 0; // Zera falhas de #live? AddLinesLog(' TX: -> [' + Enviar + ']'); end; end;  

Duas instâncias concorrentes, não poderiam usar o mesmo "DISPLAY"...
Você consegue rodar essa API, em uma máquina que tenha algum Desktop instalado ?  Pode ser o XFCe, por exemplo (que é bem leve)
Se SIM, você poderia rodar a sua aplicação, sem a necessidade do Xvfb
PS: Está nos planos recentes do ACBr, criar um DANFE em PDF, sem a dependência de um Gerador de Relatórios, e com isso, criar uma biblioteca que não tenha dependências do Servidor X... mas isso é uma tarefa que deve levar alguns meses...

@Ismael Faustino, enviei ao SVN.. modificações, baseado nas suas sugestões...
Boa parte das mudanças na ACBrComum, não foram necessárias, após incluir uma mudança na ACBr.inc
// lazrus Android com LAMW, não suporta Dialogs, Forms, {$IFDEF LAMW} {$DEFINE NOGUI} {$ENDIF} Também preferi mudar os IFDEFs para "FPC", do que "LAMW"... pois assim fica mais dependente do compilador, do que do Framework...
Em synaser.pas, apliquei alguns ajustes, que já havíamos detectado aqui... para rodar em Android...
Se possível, por favor atualize os fontes, com essas modificações, e reporte o resultado
 

A ideia do componente em manter como Private, é evitar atribuições inválidas... Ou A.V. se for atribuído um objeto que não seja corretamente gerenciado
O objeto é criado, quando o código de Banco é atribuído...
Você está usando esse recurso, para implementar novos Bancos ? Se SIM, porque não criar uma classe dele, e enviar ao ACBr, para inclusão nos fontes ?

Provavelmente SIM.. O ambiente de homologação é todo MockUp

Isso indica que a biblioteca está sendo carregada corretamente...
Em relação ao Erro HTTP que você recebe, pode ser configuração do seu Servidor HTTP, permissões, etc...
Sugiro você primeiro Criar uma aplicação bem simples, que apenas retorne a versão da Lib, por exemplo... e rodar ela em modo Console, por chamada direta a linha de comando...
Se isso funcionar a Lib está ok.. e você foca nas configurações e permissões do Servidor HTTP (que foge do nosso escopo)

Infelizmente não temos esse equipamento, para testes...
E eles parecem usar um EscPos muito distinto dos padrões de mercado (baseados na linguagem da Epson)

Você também precisará embarcar as bibliotecas do OpenSSL na sua aplicação...
 

não há problemas no Demo..acabei de executar...
o que ocorre é que o servidor da Sefaz está lento e pode haver Timeout
 

@Andrei Ricardo, muito obrigado pela sua contribuição...
Subi ao SVN, com algumas outras modificações que eu havia represado aqui...  Commit [r28240]
 

Olá @marianoasa,
Não temos conhecimento desse TEF... tem algum Link ?

Isso depende de configurações no Produto do TEF... para o mesmo permitir captura por tarja magnética... Geralmente, por motivos de segurança, isso é desabilitado...
Acho que será necessário solicitar ao suporte da TEF House...

Em alguns casos, você precisará instalar o driver USB da Impressora (se o Windows não reconhecer ela, em Gerenciador de Dispositivos)
Mas não precisa instalar o Driver de Spooler

TEF e POS batem nos mesmos EndPoints dos PSPs...
Ou seja.. os PSPs precisam implementar do lado deles...

Consegue, por favor, testar com uma versão mais atualizada ?
Lembro de termos uma correção nesse sentido, nos componentes em Pascal...

A Busca em si é rápida, pois ele carrega apenas uma vez, a lista de dispositivos USB compatíveis... mas usar apenas o texto "USB", fará com que ele pegue sempre a primeira encontrada, e pode dar confusão, se houver mais de uma impressora USB na máquina
Use o método abaixo, para obter uma lista dos dispositivos encontrados, e exibir para o usuário selecionar
ACBrPosPrinter1.Device.AcharPortasUSB( AStringList );  

Você precisaria programar um Logo antes... lembrando que esse equipamento só suporta KC1=1, KC2=0
Veja esse vídeo:
Ou ainda, desabilitar o suporte a Logo, no ACBrPosPrinter

Você pode usar o campo de Informações adicionais do Produto...

Não tem como.. a integração do POSTEF com a PAX S920, só é possível por conta do Software da PayGo que roda dentro dela...
A PayGo precisaria ajustar e homologar esse Software para outros dispositivos, algo que é complicado e burocrático... e talvez sem interesse por parte da PayGo