msiscampos

Boa tarde, eu uso uma classe da Porto seguro no delphi, está funcionando em produção. caso ajude. exemplo de uso: usando TOpenDialog + 1 memo procedure TF_Averba.bt_carregaClick(Sender: TObject); var fSeg: TPortoSeguroIndy; xprot, chave: string; lstatus: Boolean; wn: integer; begin atualizarCaminho; // pega o InitialDir do OpenDialog ed_prot.Text := ''; Memo1.Lines.Clear; if OD.Execute then begin Screen.Cursor := crHourGlass; try fSeg := TPortoSeguroIndy.create; fSeg.Username := edtCnpj.text; //Cnpj da Transportadora fSeg.Password := edtSenha.text; //senha da Transportadora wn := pos('-', oD.FileName); if wn > 0 then chave := copy(od.FileName, wn - 44, 44); xprot := ''; lstatus := fSeg.Upload(OD.FileName); if lstatus then xprot := fSeg.Protocolo; Memo1.Lines.Add('Resultado da Consulta'); Memo1.Lines.Add('Protocolo => ' + Trim(fSeg.Protocolo)); Memo1.Lines.Add('Chave => ' + chave); Memo1.Lines.Add(stringreplace(fSeg.MensagemRetorno, ';', #13, [rfReplaceAll])); if fSeg.Sucesso then begin ed_prot.Text := Trim(fSeg.Protocolo); if ed_prot.Text <> '' then Clipboard.AsText := ed_prot.Text; end; finally if Assigned(fSeg) then FreeAndNil(fSeg); end; Screen.Cursor := crDefault; end; end; PortoSeguroIndy.pas

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