Daniel Simoes

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

realmente... agora que notei... que mudou o modelo... Pelo que li nos fontes... o protocolo dessa balança é o balDigitron_UL

A balança não respondeu conforme o protocolo dela... Veja, essa é uma resposta correta Já na resposta inválida, não existe o marcador de início STX ou #2, nem o ETX Por isso o componente acredita que a resposta não chegou, e acusa o erro de leitura -9 Verifique com o fabricante, porque o equipamento, está respondendo de duas formas diferentes...

Mas afinal, a sua rede usa Proxy ou não ?

use libWinCrypt.... CAPICOM está obsoleta...

São propriedades que não existem mais... Basta ignorar, e salvar novamente o formulário...

Por favor anexe os fontes modificados ...

Não há como... Você precisa passar por uma "TEF House", que já tem toda a certificação PCI exigida pelas Operadoras

Creio que não, pois não há relatos semelhantes... Fizeste o teste de instalar o ACBrMonitorPLUS, em uma pasta nova e limpa ?

nesse caso, somente criando um novo método na ACBrLib... algo como: "BAL_LePesoStr"

humm.. talvez tenhamos que criar um novo método, que retorno o Peso como String... O Harbor (clipper) define o tipo da variável, conforme algo é atribuído a ela... tente algo como: METHOD LePeso(MillisecTimeOut) CLASS ACBrBAL local hResult local ePeso ePeso := 1.23456 hResult := DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso", MillisecTimeOut, @ePeso) ::CheckResult(hResult) RETURN ePeso

pode ser alguma instabilidade temporária, no Source Forge...

Recebi o modem... muito obrigado... Agora preciso achar um adaptador de Micro SIM, para SIM... após isso devo iniciar os teste...

aqui Parece normal... mas notei que o Endereço que vc indicou é diferente do que divulgamos... https://projetoacbr.com.br/fontes/

Creio que vc tem que debugar sua aplicação, inserindo BkPoints no momento em que o Serviço está para ser iniciado... notei que o trecho abaixo, não faz muito sentido... vc cria o componente do ACBr, configura, e depois destrói o mesmo... function TNotaEletronicaController.NotaEletronica(StrParametros,StrJson:String):String; var Parametros : TStringList; ACBrNFE : TACBrNFE; //Inicio begin Parametros := Explode(StrParametros,'|'); try ACBrNFe := TACBrNFE.Create(nil); ACBrNFe.Configuracoes.Geral.FormaEmissao := teNormal; ACBrNFe.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe.Configuracoes.WebServices.UF := 'SP'; ACBrNFe.Configuracoes.Certificados.NumeroSerie := '1234'; ACBrNFe.Configuracoes.Certificados.Senha := '1234'; ACBrNFe.SSL.SSLType := TSSLType(LT_TLSv1_2); ACBrNFe.Configuracoes.Certificados.ArquivoPFX := 'teste.pfx'; ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := XsMsXml; ACBrNFe.Configuracoes.WebServices.Ambiente := taHomologacao; ACBrNFe.Configuracoes.Arquivos.PathSalvar := 'ocorrencias'; ACBrNFe.Configuracoes.Arquivos.PathInu := 'inutilizacao'; ACBrNFe.Configuracoes.Arquivos.PathNFe := 'enviadas'; ACBrNFe.Configuracoes.Arquivos.PathEvento := 'eventos'; ACBrNFe.Configuracoes.Arquivos.PathSchemas := 'NFe'; ACBrNFe.Configuracoes.Arquivos.SepararPorCNPJ := True; ACBrNFe.Configuracoes.Arquivos.SepararPorAno := True; ACBrNFe.Configuracoes.Arquivos.SepararPorMes := True; ACBrNFe.Configuracoes.Geral.FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; ACBrNFe.Configuracoes.Geral.ExibirErroSchema := True; ACBrNFe.Configuracoes.Geral.RetirarAcentos := True; ACBrNFe.Configuracoes.Geral.Salvar := True; ACBrNFe.Configuracoes.Geral.CamposFatObrigatorios := False; finally FreeAndNil(ACBrNFE); end; FreeAndNil(Parametros); end;

Eu realmente não sou conhecedor de xHarbour... notei que o nome do @Eric.Developer, está no .PRG que vc anexou... Talvez ele possa lhe prestar alguma assessoria, para criar um "Bind" para a nossa DLL

Pelo que vi nos fontes do MonitorPLUS, os parêmtros estão na ordem correta... mas notei que o seu comando está sem aspas duplas, no local do texto, e isso pode estar confundindo o "parser"... por favor teste dessa maneira: ETQ.ImprimirTexto(0, 0, 70, 70, 17, 40, "R$ 1256.54",0,1)

Estranho, pois o MonitorPLUS, usa o mesmo componente que o Demo... Você fala do problema relatado no tópico 1 (Parametro True), ou do problema no 3o Post (Impressão cortada) ?

Isso parece errado... tente assim: METHOD LePeso(Timeout) CLASS AcbrBalanca buffer := Space(bufferLen) DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso",Timeout, @buffer) RETURN @buffer

vc consegue ler o Peso, com o Demo compilado do ACBr ?

Creio que não... pois nada foi modificado, nesse sentido, e o problema afeta apenas SP

Para compilar o ACBr em modo CONSOLE, use a diretiva "NOGUI", em Conditional Defines

Nesso tópico, tem os principais endereços e passos.. Veja ainda:

Uma das causas desse problema pode ser o fato dele estar carregando DLLs da versão errada... isso pode ocorrer, se você havia instalado uma versão 64 bits, e depois instalou uma versão 32 por cima... Experimente instalar o ACBrMonitorPLUS, em uma pasta totalmente nova...