Daniel Simoes

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

Você poderia procurar pelo Mutex que é criado pelo ACBrMonitorPlus: "ACBrMonitor" {$IFDEF MSWINDOWS} if UmaInstancia then begin CreateMutex(nil, True, 'ACBrMonitor'); if GetLastError = ERROR_ALREADY_EXISTS then begin MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução', mtError, [mbOK], 0); Application.Terminate; exit ; end; end; {$ENDIF}

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

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

Humm.. havia suspeitado da versão.. mas acabei não comentando... no Windows no SVN do ACBr, distribuímos a versão 0.9.8

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...

Sinto muito, não tenho mais sugestões...

Poderia por favor, anexar as Units modificadas ?

SynaSer é apenas para envio a portas Seriais... O erro é dispara pelas classes de Socket da "Synapse"... pois ela tentou uma conexão HTTPS e recebeu o erro 500... Eu uso com sucesso a comunicação segura no Linux... Verifique se as Libs do OpenSSL são encontradas no seu S.O. com o nome esperado nos fontes... (se não o for, crie um Soft Link) unit ssl_openssl_lib; .... {$IFDEF CIL} const {$IFDEF LINUX} DLLSSLName = 'libssl.so'; DLLUtilName = 'libcrypto.so'; {$ELSE} DLLSSLName = 'ssleay32.dll'; DLLUtilName = 'libeay32.dll'; {$ENDIF} {$ELSE} var {$IFNDEF MSWINDOWS} {$IFDEF DARWIN} DLLSSLName: string = 'libssl.dylib'; DLLUtilName: string = 'libcrypto.dylib'; {$ELSE} {$IFDEF OS2} {$IFDEF OS2GCC} DLLSSLName: string = 'kssl.dll'; DLLUtilName: string = 'kcrypto.dll'; {$ELSE OS2GCC} DLLSSLName: string = 'ssl.dll'; DLLUtilName: string = 'crypto.dll'; {$ENDIF OS2GCC} {$ELSE OS2} DLLSSLName: string = 'libssl.so'; DLLUtilName: string = 'libcrypto.so'; {$ENDIF OS2} {$ENDIF} {$ELSE} DLLSSLName: string = 'ssleay32.dll'; DLLSSLName2: string = 'libssl32.dll'; DLLUtilName: string = 'libeay32.dll'; {$ENDIF} {$ENDIF}

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...;) )