msiscampos

https://drive.google.com/file/d/19QabaWrFHgfFKZBueI9FvOAyKmfMig1Q/view?usp=sharing

bom dia, resolveu sim e agradeço muito.

Segue anexo a Documentação - um pouco antiga - mas no site permanece a mesma AverbePorto - Documentos.pdf

Maravilha irmão, deu certo - obrigado pela sua dedicação em ajudar.

uPortoSeguroIndy.pas Exemplo de uso com Opendialog procedure TF_Cte.wb_averbarExecute(Sender: TObject); var chave , wdir : string; wn : integer; fSeg: TPortoSeguroIndY; begin wdir := dts_empresa.DataSet.FieldByName('PATH_RAIZ').AsString+'x_dfe\_Cte\'+'20'+copy(edl_chave.Text,3,2)+copy(edl_chave.Text,5,2); od.InitialDir := wdir; edl_averbado.Text:=''; MemoDados.Lines.Clear ; if oD.Execute then begin fSeg := TPortoSeguroIndy.create ; fSeg.UserName := '00000000000000'; // atencão username e Password tem que solicitar junto a Porto Seguro fSeg.Password := '000'; // Esse é o meu acesso wn := pos('-',oD.FileName); if wn>0 then chave := copy(od.FileName,wn-44,44); fSeg.Averbacao := maUpload ; fSeg.UpLoad(oD.FileName) ; MemoDados.Lines.Add('Resultado do Envio') ; MemoDados.Lines.Add('Protocolo => '+fSeg.Protocolo) ; MemoDados.Lines.Add('Chave => '+fSeg.Chave) ; MemoDados.Lines.Add(fSeg.MensagemRetorno) ; fSeg.Averbacao := maConsulta ; fSeg.Chave := chave ; fSeg.Consulta(oD.FileName) ; MemoDados.Lines.Add('Resultado da Consulta') ; MemoDados.Lines.Add('Protocolo => '+Trim(fSeg.Protocolo)) ; MemoDados.Lines.Add('Chave => '+fSeg.Chave) ; MemoDados.Lines.Add(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; if fSeg.Sucesso then Begin ShowMessage(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; edl_averbado.Text:= Trim(fSeg.Protocolo); End; fSeg.Free ; end; pn_card4Click(pn_card4); end;

Bom dia - a solução que encontrei foi essa abaixo, mas parece que não interfere no desempenho - rsrsrs initialization ReportMemoryLeaksOnShutdown := False;

Boa tarde, opa sem dúvida que sim.

Bom dia i3Sistemas , Agradeço à disposição , eu até tenho esse curso, vamo na luta. obrigado.

Bom dia - BigWings, obrigado pelo apoio , mas continua .

Tranquilo, eu só usei do meu direito de fazer n/perguntas p/mes, anexando uma classe que até está funcional, envia e recebe normal, porém com vazamento de memória, e a ajuda que eu imaginei , seria de alguém que acompanha mais a evolução do delphi pudesse me ajudar. e até disponibilizar no SVN.

Excelente a sua resposta, pra alguém que paga o SAC a mais de 8 anos

Oba Eu já tava desanimado , será que os desbravadores aí, não conseguem acertar isso não?

Ok - então fica assim - eu uso o ACBr pra emitir o Cte para emitir o MDFe ,a NFe ,SAT, etc , só que averbação eu só consigo usá-lo se o cliente for ATM ? - o autor que também é da comunidade créditos a (MCOB), gentilmente me respondeu que essa classe foi feita em delphi XE2 e ele não tem tem delphi Rio

Bom dia, não não é , mas acho que até deveria ser, isso ficou do Italo verificar em 2017 - mas não houve prosseguimento, única averbação que que Utiliza ACBr é da ATM

Boa Tarde - eu uso uma unit(anexo) para enviar (xml) e receber protocolo de averbação da Porto seguro agora estou tentando passar aplicação para delphi Rio 10.3 - até que funciona + no final dá um monte de memory leek - fazem 3 dias que não saio do lugar. para quem usa indy e Json com frequencia - talvez possa me dar uma ajuda, Obrigado - Deus no Comando ! o exemplo de uso é procedure TF_Averba.bt_carregaClick(Sender: TObject); var fSeg: TPortoSeguroIndy ; begin ed_prot.Text:=''; Memo1.Lines.Clear ; if OD.Execute then // Opendialog1 begin fSeg := TPortoSeguroIndy.create ; try fSeg.UserName := '000000000000000'; fSeg.Password := '0000'; fSeg.Averbacao := maUpload ; fSeg.UpLoad(OD.FileName) ; Memo1.Lines.Add('Resultado do Envio') ; Memo1.Lines.Add('Protocolo => '+fSeg.Protocolo) ; Memo1.Lines.Add('Chave => '+fSeg.Chave) ; Memo1.Lines.Add(fSeg.MensagemRetorno) ; fSeg.Averbacao := maConsulta ; // fSeg.Chave := 'Chave do CT-e ou MDF-e' ; fSeg.Consulta(OD.FileName) ; Memo1.Lines.Add('Resultado da Consulta') ; Memo1.Lines.Add('Protocolo => '+Trim(fSeg.Protocolo)) ; Memo1.Lines.Add('Chave => '+fSeg.Chave) ; Memo1.Lines.Add(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; if fSeg.Sucesso then Begin ShowMessage(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; ed_prot.Text:= Trim(fSeg.Protocolo); End; finally fSeg.Free ; end; end; end; uPortoSeguroIndy.pas