elton.barbosa

https://stackoverflow.com/questions/3627743/delphi-thread-exception-mechanism

Bom dia. Os próximos códigos que você colar, por favor, cole em modo texto. Isso facilita. Tem uma opção pra colar código no editor do post... Voltando... Na verdade eu não perguntei sobre travamento da tela, eu me referi ao comentário que você fez anteriormente sobre a variável teste: Como assim o travamento é na variável? Você precisa ter essa verificação no execute, especialmente quando faz um loop "While True". Se a aplicação estiver sendo terminada, quem vai avisar a thread que ela pode parar de trabalhar? Caso isso não aconteça ela vai continuar executando, passando a impressão que a aplicação está travada. Bom, se a aplicação está travada, ela não terminou. Se ela não terminou, não tem como verificar se houve memory leak... Então não podemos afirmar nada, mas cuidado com isso... Eu não posso dizer que compreendi bem a sua arquitetura aqui... mas você não deve acessar valores globais dentro do método Execute da thread. Se vai acessar qualquer valor fora da thread precisa no mínimo do método Synchronize (para acessar a thread principal) e em outros casos, Semáforos ou Mutex... Não faça isso. Em threads, você precisa fazer um tratamento especial pra exceptions... Dá uma olhada no Google. E se a aplicação estiver sendo terminada, como fica? E onde está o tratamento de sincronização entre as duas threads? Não é isso o que o código da chamada está mostrando. Você está passando um objeto já criado para o método Create da Thread... Então ele não faz parte da Thread. É importante entender que a VCL não é inerentemente "thread safe". Então você precisa codificar para evitar locks e race conditions. Nesse caso, acho melhor você procurar alguma coisa já pronta, ou pelo menos parcialmente pronta. Use o VNC por exemplo. Desenvolver um acesso remoto não é tão fácil quanto parece...

Com esse novo cenário que você passou fica um pouco difícil de analisar sem mais informações. Por exemplo, o que você quer dizer com "o travamento é exatamente nela"? Você não verifica o Terminate no Execute da thread. Está ciente que isso está faltando? Quantas vezes a thread é criada? Ela é liberada da memória? Onde foi definido essa variável Lista e idProprio? O que faz o método Existe? E o método SetObjDesktop? Por que tem um Try..Except em branco? Como a thread sai do loop while True se o Socket estiver conectado? A propósito onde são definidos esses sockets?

Você não pode acessar variáveis fora do contexto da Thread sem o método Synchronize. Então: Em primeiro lugar, você não pode acessar o Form1 no método TTeste.Create. Em segundo lugar, você não pode acessar a variável Terminou dentro do Execute fora do Synnchronize().

Olá, Me parece que está faltando o arquivo dfm ou lfm alterado.

Para que funcione A4 você deve utilizar o componente TACBrNFeDANFCeFortesA4. Acho que o programa exemplo não tem o componente que acabei de mencionar acima.

Existem a propriedade ACBrTEFD.ArqLOG e a propriedade ACBrTEFD.TEFCliSiTef.ArqLOG. Sempre que trabalho com eles, eu preencho de forma a apontar para arquivos diferentes. Não acho que seja problema no sistema do TEF. Geralmente é um problema no fluxo mesmo... Sua pergunta me fez querer olhar o código novamente. Então, dei uma olhada no código fonte do componente aqui e encontrei essa mensagem de erro. Ela é levantada quando a propriedade AguardandoResposta é True e você faz uma nova requisição (CRT, ADM, ATV, CHQ, etc...). Você pode observar que o log que você anexou parece estar preso em um loop, que parece o loop do método TACBRTEFDCliSiTef.ContinuarRequisicao (arquivo ACBrTEFDCliSiTef.pas). Estaria assim sempre repetindo o comando 23, que no caso executa o evento OnAguardarResp. Então o TEF parece estar aguardando o pinpad, mas daí você inicia o processo novamente antes de terminar. Verifique esse evento e como o seu sistema poderia ficar preso nesse loop. Por exemplo, será que o sistema encarou que já acabou o Tef só porque teve problemas na leitura do cartão (Cartao com Erro ou Mal Inserido)?

Já percebeu que você e sua equipe de desenvolvimento estão passando boa parte do tempo procurando e corrigindo erros? Realmente é impossível se livrar do trabalho de depuração (debugging) de um software... O que pode ser feito para reduzir o tempo e ser mais eficiente? Elton Barbosa, Consultor e parte da equipe de desenvolvimento do projeto ACBr, com grande experiência em equipes pequenas e eficientes vai apresentar uma palestra que pode ajudar a ser mais eficiente nessa parte do desenvolvimento que é fundamental para um sistema bem sucedido. A palestra é voltada para usuários do Delphi, mas os princípios são úteis em todas as linguagens de programação. Inscreva-se para o Dia do ACBr 2019 e assista a essa e outras palestras voltadas pra você. Se tem dúvidas ou gostaria mais informações, fale com nossa consultora rapidamente por meio do WhatsApp.

Como foi dito antes pelo BigWings, o firebird 3.0 não é amarrado a internet. Você pode ver nesse link que apesar das mudanças, ele continua aceitando o acesso local ou pelo Loopback (que é o mesmo que local mas simulando o acesso pela rede). Você consegue fazer um ping no 127.0.0.1 na sua máquina? você consegue acessar seu banco usando um aplicativo de terceiros? Por exemplo FlameRobin ou IBExpert?

Esse erro específico é porque foi introduzida nas versões mais recentes do Delphi as "unit scope names". Agora a unit Graphics não existe mais, sendo substituída por VCL.Graphics ou pela FMX.Graphics. Então é preciso tratar isso...

Infelizmente, esse arquivo fr3 não funciona com essa versão porque faz uso dos scripts... Veja esse post em que explico essa diferença:

Esse é o log do CliSiTef. Poderia anexar o log do ACBrTEFD também? A mensagem de erro parece indicar que você está tentando iniciar uma nova requisição antes de terminar a anterior (concluindo ou cancelando). Você verificou isso? Você consegue reproduzir esse problema utilizando o programa de exemplo do ACBrTEFD?

A sua versão do Fast Report é Embarcadero?

Eu sugiro desabilitar o "Error Insight". Infelizmente esse é um recurso do Delphi que não funciona muito bem. Esse é o caminho: Menu Tools -> Options -> Editor Options -> Code Insight -> Source file type: escolha "Pascal" -> Error insight (desmarque a opção) Veja a imagem: O problema desse recurso (Error Insight) é que ele trabalha de forma independente do compilador. Então nem tudo que o compilador consegue "compreender", essa ferramenta entende... Parece que há uma previsão no roadmap para a versão 10.4 em que isso vai ser corrigido. Mas até lá, assim que instalo o Delphi eu desabilito essa opção. Recomendo a todos a fazerem o mesmo.

Olá cefantacini, Que bom que conseguiu resolver. Obrigado por dar um retorno dizendo o que era. Isso com certeza vai ajudar outros no futuro. Vou te responder essa pergunta, mas por favor, da próxima vez crie um novo tópico para um assunto novo. Temos uma regra no fórum sobre isso. O objetivo é organizar o fórum e facilitar a localização das informações a longo prazo. Por favor, queira reler o tópico sobre as regras, em especial a regra 2.2: Agradecemos sua compreensão. Agora vamos ao seu novo problema... No código, vai depender de como você está lendo os seus arquivos. Um jeito mais fácil é converter os arquivos de uma vez usando alguma ferramenta. O Lazarus tem uma ferramenta para converter todos os arquivos do projeto. Veja ela no menu "Ferramentas -> Converter a codificação dos arquivos do projeto..." Caso prefira uma abordagem arquivo por arquivo, a maior parte dos editores de texto, incluindo o Notepad++ pode fazer isso pra você.

Se isso acontece com alguns componentes ACBr é possível que sejam as DLLs... Se for com todos, é outra coisa.

Estranho, essas propriedades geralmente são removidas quando você converte usando aquele recurso que mencionei antes... Também, se você selecionar a última opção "Parar todo o carregamento", deveria aparecer uma opção para corrigir o arquivo .lfm. Mas se isso não está funcionando, o jeito mesmo é abrir num editor de texto (notepad++, por exemplo) e remover.

2 MB? ou 2 GB?

Olá Endrigo, A versão Embarcadero é a versão que acompanha o Delphi. Ela só não funciona com todos arquivos fr3 disponibilizados por nós, porque alguns desses arquivos usam scripts e, no caso da NFC-e por exemplo o QR Code (código de barra 2D). A versão Standard já possui essas características. Então ela deve funcionar, assim como qualquer versão superior. Mas se você for comprar, sugiro comprar a versão Professional (ou a Enterprise caso precise dos componentes Web). Isso porque ela vem com o código fonte dos componentes. Nunca se sabe quando você pode precisar alterar um componente.

Olá Paula, Talvez não tão completo, mas existe esse tipo de link em outras SEFAZ também. Na verdade, o site da NFC-e do ENCAT, tem uma planilha que visa reunir os dados de todas as UFs. Ele andava desatualizado mas, pelo menos agora, parece estar atualizado. Veja: http://nfce.encat.org/desenvolvedor/regras-de-validacao/ Mas segue o link de outras SEFAZ: MG (eles publicam um pdf com as regras além de enviar pro site do encat): http://www.sped.fazenda.mg.gov.br/spedmg/nfce/ AM (costumam publicar na área de notícias, como essa): http://www.sefaz.am.gov.br/noticias/ExibeNoticia.asp?codnoticia=21571

Não sei se observou, mas no seu vídeo são exibidas duas mensagens de erro e não apenas uma. E elas são mensagens diferentes. Por que isso acontece? Sabe dizer? Você usa mais de uma thread nesse aplicativo? Não tem nenhum outro código rodando em segundo plano que possa interferir?

Pode ser que não pegou as dependências do projeto. No Lazarus, um projeto tem configuração de dependências, isto é, quais pacotes são necessários para compilar o projeto. Você pode visualizar isso acessando o "Inspetor de projetos" no menu "Projeto -> Inspetor de projetos...". Ele tem uma tela como essa abaixo (observe a lista Pacotes Requeridos): Verifique se no seu projeto está listando todos os pacotes usados. Caso contrário, por meio dessa tela você pode adicionar requerimentos (ou pacotes requeridos). Isso vai instruir o Lazarus ao compilar seu projeto encontrar os arquivos necessários.

A classe "TACBrSATExtratoClass" está no arquivo "ACBrSATExtratoClass.pas". Ele é está referenciado na cláusula uses no início da unit ACBrSAT.pas, veja: Você deve conseguir abrir esse arquivo e verificar se o conteúdo está correto.

Não sei se vocês sabem, mas existe o FastReport para Lazarus. Me parece que já saiu do Beta. https://www.fast-report.com/pt/product/fast-report-lazarus/ No Fortes Report me parece que você precisa trabalhar com o componente RLDetailGrid. Dá uma olhada nele.

Até essa parte com o ACBrBal dá pra fazer tranquilo se for conectar numa porta serial.