Márcio Antônio

Lembrei do log do componente, e verifiquei isso: 02/10/24 22:05:03:633 - Autenticando Token... 02/10/24 22:05:03:633 - Comando Enviar: TOAuth 02/10/24 22:05:03:633 - URL: [POST] https://oauth.bb.com.br/oauth/token?grant_type=client_credentials&scope=cobrancas.boletos-info cobrancas.boletos-requisicao 02/10/24 22:05:06:424 - Validade: 02/10/2024 22:15:06 02/10/24 22:05:06:425 - Comando Enviar: TBoletoW_BancoBrasil_API 02/10/24 22:05:06:425 - Comando Enviar: 02/10/24 22:05:06:425 - URL: [GET] https://api.bb.com.br/cobrancas/v2/boletos/00023232500000051214?gw-dev-app-key=f2316b9157cf0238cb9a09ebae96a559&numeroConvenio=2323250 ele travou ai, e ficou...

Olá, de alguns dias pra cá, o meu serviço de consulta no banco do brasil, está travando toda noite, alguém está sabendo de alguma coisa? Estou fazendo o seguinte: // Consulta o boleto no WS logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, iniciando AcbrBoleto...'); ACBrBoleto.ListadeBoletos.Clear; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, limpando o AcbrBoleto...'); Titulo := ACBrBoleto.CriarTituloNaLista; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, criando o Titulo...'); ACBrBoleto.Banco.TipoCobranca := cobBancoDoBrasilAPI; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído o tipo da API ao componente...'); AcbrBoleto.Cedente.Convenio := iqrConsBoletosEmAbertoCONVENIO.AsString; ACBrBoleto.Cedente.Nome := iqrConsBoletosEmAbertoNOMEEMPRESA.AsString; ACBrBoleto.Cedente.Agencia := iqrConsBoletosEmAbertoNUMEROAG.AsString; ACBrBoleto.Cedente.AgenciaDigito := iqrConsBoletosEmAbertoDIGITOAG.AsString; ACBrBoleto.Cedente.Conta := iqrConsBoletosEmAbertoNUMEROCC.AsString; ACBrBoleto.Cedente.ContaDigito := iqrConsBoletosEmAbertoDIGITOCC.AsString; Titulo.Carteira := iqrConsBoletosEmAbertoCARTEIRA.AsString; vNossoNumero := '000' + iqrConsBoletosEmAbertoCONVENIO.AsString + ZeroEsquerda(iqrConsBoletosEmAbertoNOSSONUMERO.AsString, 10); Titulo.NumeroDocumento := vNossoNumero; Titulo.NossoNumero := ZeroEsquerda(iqrConsBoletosEmAbertoNOSSONUMERO.AsString, 10); logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído os dados do boleto ao componente...'); // Configura componente ACBrBoleto.Cedente.CedenteWS.ClientID := iqrConsBoletosEmAbertoCLIENTID.AsString; ACBrBoleto.Cedente.CedenteWS.ClientSecret := iqrConsBoletosEmAbertoCLIENTSECRET.AsString; ACBrBoleto.Cedente.CedenteWS.KeyUser := iqrConsBoletosEmAbertoKEYUSER.AsString; ACBrBoleto.Cedente.CedenteWS.Scope := iqrConsBoletosEmAbertoSCOPE.AsString; ACBrBoleto.Cedente.CedenteWS.IndicadorPix := True; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído os dados do cadastrais da conta ao componente...'); ACBrBoleto.Configuracoes.WebService.Ambiente := TpcnTipoAmbiente(dtmSysParams.GetParamAsInteger('BOLETOHIBRIDO_AMBIENTE')); // Tipo de ambiente (taProducao, taHomologacao) logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído o tipo do ambiente ao componente...'); ACBrBoleto.Configuracoes.WebService.SSLHTTPLib := httpOpenSSL; ACBrBoleto.Configuracoes.WebService.SSLCryptLib := cryOpenSSL; ACBrBoleto.Configuracoes.WebService.SSLType := LT_TLSv1_2; ACBrBoleto.Configuracoes.WebService.TimeOut := 30000; ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := False; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, configurado os protocolos de segurança ao componente...'); ACBrBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, configurado o tipo de operação ao componente...'); try logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, antes de enviar a requisição ao banco...'); vEnviar := ACBrBoleto.Enviar; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, ACBrBoleto.TotalListaRetornoWeb: '+IntToStr(ACBrBoleto.TotalListaRetornoWeb)); except On E: Exception do begin logConsultaWSbancos.Log('Erro na Consulta WS Bancos: ', E.Message); Exit; end; end; ele simplesmente trava no "vEnviar := ACBrBoleto.Enviar;", e não levanta nenhuma exceção nem nada... O que pode ser?

Baixei a libpq.dll para 32 bits, informei no componente o caminho, e agora deu esse erro:

Olá, estou tentando conectar a um banco postgres 13, usando o zeos com delphi 2007, configurei o meu componente dessa forma(Config.jpg), e quando eu mando conectar, da o erro (Erro.jpg), O que pode ser?

Consegui instalar na versão 7.2, obrigado pela força!

vou tentar achar uma versão anterior....

fora o zeos, tu conhece algum componente que eu possa conectar um banco postgres? sei que o dbexpress consegue, mas criando uma conexão odbc, gostaria de forma nativa...

Certo, mas quando eu mandei compilar a biblioteca Zcore110.bpl, deu o mesmo erro: [DCC Error] ZBase64.pas(40): E2003 Undeclared identifier: 'TBytesStream'

Quando eu mandei abrir o grupo de projeto do delphi 2007, deu esse erro:

Olá, ao tentar instalar o componente Zeos 8.0, no delphi 2007, quando eu mando compilar a biblioteca Zcore110.bpl, da o seguinte erro: [DCC Error] ZBase64.pas(40): E2003 Undeclared identifier: 'TBytesStream' Adicionei no library path, o seguinte caminho: C:\Desenvolvimento\Componentes\Zeos 8.0\src E mesmo assim dar o erro, alguém já passou por isso?

Obrigado Juliomar, mas a unit não está implementada a função de decrypt... procedure TDCP_blockcipher.DecryptCFBblock(const Indata; var Outdata; Size: longword); begin end; você utiliza algum componente ou dll, se sim... poderia me indicar qual usar? obrigado mais uma vez...

procurando, mas ainda não achei... se você tiver algum link que tenha essas unit´s.... ficarei bastante grato.

Olá, ainda na luta para converter do Delphi 2007 para o Delphi Alexandria. Na minha rotina de criptografia/descriptografia, eu utilizo a unit U_Cipher com a unit DCPcrypt, com o delphi 2007, eu consigo normalmente realizar os procedimentos, mas no delphi alexandria, sempre dar erro... não consegui identificar o problema... Função da U_Cipher procedure DecifraArquivo(ArquivoIn: String; var Stream: TStringStream; Senha:String); overload; var Cipher: TDCP_IDEA; Input: TFileStream; {Progress, }Done: longint; Header : packed record Id : longint; Check1, Check2: longint; end; begin if not FileExists(ArquivoIn) then Exit; try Input:= TFileStream.Create(ArquivoIn,fmOpenRead); except Exit; end; Stream.Position := 0; Stream.Size := 0; Input.Read(Header,Sizeof(Header)); Cipher:= TDCP_IDEA.Create(Application); //Progress:= 0; Cipher.InitStr(Senha); { Initialize the cipher with the passphrase } if Cipher is TDCP_blockcipher then TDCP_blockcipher(Cipher).CipherMode:= cmCFBblock; { Set the mode } Cipher.Decrypt(Header.Check1,Header.Check1,8); { Decrypt the header and check that the two numbers we stored are the same } if Header.Check1<> Header.Check2 then begin Input.Free; Cipher.Burn; Cipher.Free; Exit; end; repeat Done:= Cipher.DecryptStream(Input,Stream,32768); { Decrypt the file } //Inc(Progress,Done); // DecProgressBar.Position:= (Progress*100) div Input.Size; until Done<> 32768; Input.Free; Cipher.Burn; { Remember to Burn } Cipher.Free; FillChar(Header,Sizeof(Header),0); end; Função da DCPcrypt procedure TDCP_blockcipher.DecryptCFBblock(const Indata; var Outdata; Size: longint); var i: longint; p1, p2: Pbyte; begin if not fInitialized then raise EDCP_blockcipher.Create('Cipher not initialized'); p1:= @Indata; p2:= @Outdata; for i:= 1 to (Size div BS) do begin Move(p1^,Temp^,BS); EncryptECB(Chain^,Chain^); Move(p1^,p2^,BS); XorBlock(p2^,Chain^,BS); Move(Temp^,Chain^,BS); p1:= pointer(longint(p1) + BS); p2:= pointer(longint(p2) + BS); end; if (Size mod BS)<> 0 then begin EncryptECB(Chain^,Chain^); Move(p1^,p2^,Size mod BS); XorBlock(p2^,Chain^,Size mod BS); end; end; nesse trecho abaixo, sempre esta dando diferente, aonde era pra ser igual if Header.Check1<> Header.Check2 then Alguém já passou por isso? ou tem outra forma de resolver isso?

consegui compilar, obrigado pela ajuda.

Olá, estou com uma dúvida de como resolver esse problema abaixo: Eu tenho uma função de cópia no delphi 2007, estou convertendo para o delphi alexandria e está dando erro: procedure TdtmGenIbx.CopyIBDataSet(idsSource, idsDest: TIBDataSet); var i: Integer; bkmk: TBookmarkStr; begin if idsDest = nil then idsDest := TIBDataSet.Create(Self); idsDest.Database := idsSource.Database; idsDest.CachedUpdates := idsSource.CachedUpdates; idsDest.SelectSQL.Assign(idsSource.SelectSQL); idsDest.InsertSQL.Assign(idsSource.InsertSQL); idsDest.ModifySQL.Assign(idsSource.ModifySQL); idsDest.DeleteSQL.Assign(idsSource.DeleteSQL); idsDest.RefreshSQL.Assign(idsSource.RefreshSQL); idsDest.Open; bkmk := idsSource.Bookmark; *************** idsSource.DisableControls; idsSource.First; while not idsSource.Eof do begin idsDest.Insert; for i := 0 to idsSource.FieldCount - 1 do if idsSource.Fields[i].FieldKind = fkData then idsDest.FieldByName(idsSource.Fields[i].FieldName).Value := idsSource.Fields[i].Value; idsDest.Post; idsSource.Next; end; idsSource.Bookmark := bkmk; idsSource.EnableControls; end; *************** está dando erro nessa linha: [dcc32 Error] uDMGenIbx.pas(447): E2010 Incompatible types: 'AnsiString' and 'System.TArray<System.Byte>' Como eu consigo resolver?

eu fiz isso, e deu a mesma coisa.... deu essa informação no log. Compiling package C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\packages\d28\Jcl.dpk "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\packages\d28\Jcl.dpk" --no-config -U"C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\Win32\release" -NU"..\..\lib\d28\win32" -I"..\..\lib\d28\win32;..\..\source\include;" -R"..\..\lib\d28\win32;..\..\source\include;" -DBCB;BCB;WIN32;CONDITIONALEXPRESSIONS;VER350;RELEASE;BCB;WIN32;CONDITIONALEXPRESSIONS;VER350;RELEASE -U"C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\lib\d28\win32\;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;..\..\lib\d28\win32;..\..\source\include;" -LU"rtl;" -ns"System;System.Win;WinApi;Vcl;Vcl.Imaging;" -LN"C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\lib\d28\win32" -LE"C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl" Embarcadero Delphi for Win32 compiler version 35.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. 129 lines, 0.28 seconds, 1788136 bytes code, 719220 bytes data. Compilation success ...done. agora se eu excluo o componente da tela e incluo novamente, funciona....

Olá, instalei o jedi pelo instalador, aparentemente não deu erro nenhum, criei um novo projeto, coloquei o componente Jvmainmenu, quando fui compilar deu o seguinte erro abaixo: [dcc32 Fatal Error] uPrincipal.pas(9): F2063 Could not compile used unit 'JclBase' O que pode ser?

Aqui também, orientamos transmitir em contingência.... até normalizar o on-line.

Olá, recebemos esse comunicado abaixo: Aviso Importante! Problemas com a emissão de NFe estão sendo relatados devido a uma mudança na operação da SEFAZ RS, unidade da federação que é responsável pela gestão da NFe no ambiente nacional, para a nuvem, devido às recentes inundações no estado. Algumas empresas enfrentam dificuldades de conectividade, que estão relacionadas, em 99,99% dos casos, com a configuração dos equipamentos de comunicação (firewall). Se você está enfrentando esse problema, por favor, encaminhe para suas equipes de Tecnologia e Suporte para orientação adequada. As equipes de tecnologia e suporte estão empenhadas em ajudar e conduziremos reuniões com um grupo nacional de empresas e colegas de outros estados para fornecer orientações específicas. A operação de autorização dos documentos foi transferida para o ambiente de nuvem. Recomendamos ajustar suas configurações de rede, internet, proxy e firewall para conectar seus sistemas às URLs dos serviços. Utilize os endereços dos domínios: sefaz.rs.gov.br ou svrs.gov.br, e não os endereços IP. Fique atento às atualizações e não hesite em contatar as suas equipes de Tecnologia e Suporte se precisar de mais assistência! Acredito que não precisaremos modificar nada no código, pois já utilizamos esses webservices para autorizar as NFCe, né isso?

Descobri o problema, tinha informado uma chave inválida no MDF, perdão pelo erro!

Olá, não estou conseguindo enviar um MDF gerado em contingência, dar erro (foto): Segui os passos abaixo... Quando a SEFAZ-Virtual do RS voltar os passos são: 1. Configurar o componente -> Configuracoes.Geral.FormaEmissao = teNormal; 2. Carregar o XML com o método LoadFromFile; 3. Executar o método Enviar; ConectarServico(False); // Carregando XML with dtmOC do begin ACBrMDFe.Manifestos.Clear; ArquivoMDF := 'MDFe'+cdsMDFnaoEncerradoChaveMDF.AsString+'.xml'; ACBrMDFe.Manifestos.LoadFromFile(PAnsiChar(Trim(fCaminhoMDFeGerado)+'\'+Trim(ArquivoMDF)), False); end; // Transmitir MDFe with dtmOC do begin if (ACBrMDFe.Configuracoes.Geral.FormaEmissao = teNormal) then begin try ACBrMDFe.Enviar('1',False); Erro e essa chave não é a do XML:

Boa tarde, estou tendo um problema em um cliente, que toda vez que ele vai vender no cartão, aparece essa mensagem, "erro na impressão. deseja tentar novamente?". A impressora é uma Epson TM-T20X, estou mandando em anexo os logs. Vi no fórum que pode ser alguma coisa do índice da forma, mas não consegui localizar.... ecf.log TEF_DIAL.log

foi isso mesmo, erro na origem.... por isso estou tendo esse retorno de erro.... então eu terei que dar um copy né mensagem?

Bom dia, estou consultando uma nota na sefaz: ACBRnfeTrivia.WebServices.Consulta.NFeChave := ChaveNF; ACBRnfeTrivia.WebServices.Consulta.Executar; Ele me retorna o erro de código: 613 - Rejeição: Chave de Acesso difere da existente em BD 2624.......(chave correta) e no "WebServices.Consulta.XMotivo", ele me retorna a mensagem com a chave correta, tem alguma tag que retorna essa chave ou terei que dar um copy na mensagem e pegar a chave?

Obrigado Juliomar, pelo retorno. Irei travar essa possibilidade em meu sistema.