Daniel Simoes

Desculpe, mas não tenho esse equipamento para testes e analise...

Por favor adicione o Log gerado pelo ACBrECF, para analise...

Se você conhecesse um pouco do protocolo Serial e Portas USB, não acharia tão simples assim... No mais... fique a vontade para implementar e sugerir melhorias nos fontes...

Ok... Obrigado pelo esclarecimento... e parabéns pela iniciativa de compartilhar...

Realmente... corrigido no SVN...

Mas não estamos infringindo a licença do mesmo, distribuindo aqui no fórum ?

Não estou com erros de compilação... Por favor verifique por colisão nos fontes Não estou com erros de compilação... Por favor verifique por colisão nos fontes

Este componente pode ser distribuído? Qual a licença dos fontes ?

Me parece que a linha digitável tem um conteúdo diferente do BarCode... por isso o SiTef precisa saber a origem...

Notei muito uso de API do Windows... (não seria compatível com Linux) Não seria possível usar a Classe "TPrinter" ? Em Lazarus seria possível... poderia por favor verificar em Delphi ? Veja o exemplo do Lazarus em: http://wiki.freepascal.org/Using_the_printer unit unitmain; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, Printers; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; ListBox1: TListBox; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { private declarations } procedure PrintString(S:String); procedure PrintStream(St:TStream); procedure PrintSample; public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin // fill in the printer list Listbox1.Items.Assign(Printer.Printers); end; procedure TForm1.PrintString(S: String); var Written: Integer; begin Printer.Write(S[1], Length(S), Written); end; const MaxBufSize = 256; procedure TForm1.PrintStream(St: TStream); var Written: Integer; Buffer: array[0..MaxBufSize-1] of byte; begin while St.Position<St.Size do begin Written := St.Read(Buffer, MaxBufSize); Printer.Write(Buffer, Written, Written); end; end; procedure TForm1.PrintSample; var S: TStringStream; begin // print a plain string PrintString('=== FIRST A STRING ==='+LineEnding); PrintString(Memo1.Text); PrintString('=== NOW USING A STREAM ==='+LineEnding); // print using a stream S := TStringStream.Create(Memo1.Text); PrintStream(S); S.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin if Listbox1.ItemIndex<0 then begin ShowMessage('Select a printer from the list'); exit; end; // on a freshly retrieved printer list, either method could // be used to select a printer: SetPrinter or PrinterIndex //Printer.PrinterIndex := Listbox1.ItemIndex; Printer.SetPrinter(ListBox1.Items[Listbox1.ItemIndex]); Printer.Title := Caption; Printer.RawMode := True; Printer.BeginDoc; PrintSample; Printer.EndDoc; end; end.

Esse assunto ja está decidido... Por favor leia os posts anteriores

Obrigado pela correção... já está no SVN...

Humm.. isso pode ser interessante... Por favor poste os resultados

O Lazarus suporta Cross Compiling http://wiki.freepascal.org/Cross_compiling#From_Linux_to_ARM_Linux

Realmente é um ambiente bastante incomum.... Nunca testei o Lazarus ou o ACBr em "arm"... Creio que serão necessários alguns IFDEFs nos fontes... mas só compilando e vendo os erros, para descobrir... Se você postar as msgs de erro de compilação, posso tentar ajudar... Por favor nos mantenha informado do seu progresso...

Poderia por favor, anexar as Units modificadas ?

Estude os fontes do projeto Demo SATTeste... isso responderá a sua pergunta...

Em todo caso... isso é contornável do seu lado... Basta verificar se o ECF está com Redução Z pendente, e se estiver, deixar para ler essa informação em momento mais oportuno...

Experimente Consultar o Status do SAT, antes de Enviar uma venda... (ConsultarStatusOperacional) Enquanto você não receber o retorno de sucesso (10000), não envie a Venda...

Parece ser algum problema na biblioteca provida pelo fabricante... Testou com o Demo para Linux, do próprio fabricante ?

Ativação e associação de assinatura, somente precisam ser executadas UMA vez... provavelmente a sua primeira tentativa falhou...

Funciona normal com esse equipamento... vários usuários aqui do forum utilizam a I9... Faça testes com os projetos Demo do ACBr (SATTeste, PosPrinterTeste)

Inicializa -> Carrega a DLL do fabricante na memória... DesInicializa -> Descarrega... Definitivamente, você não precisa fazer isso a cada interação...

Somente o fabricante pode lhe responder... Na minha opinião... o custo disso, será quase igual de uma impressora nova... Não compensa...

O @Cristiano Abbud, representa o fabricante TANCA... (tem acesso a informações privilegiadas...;) )