Lucio Bittes Postado 27 Março Compartilhar Postado 27 Março Bom dia. Como faço para passar as configurações do proxy para o httpsend? Eu vi que ele pega do BoletoWS mas o DefinirProxy fica no final do processo que deveria ser o primeiro onde ele pega o token. Não conseguir alimentar ele. No demo adicionei o comando na configuração. Boleto.Configuracoes.WebService.ProxyHost := ''; Boleto.Configuracoes.WebService.ProxyPort := ''; Boleto.Configuracoes.WebService.ProxyUser := ''; Boleto.Configuracoes.WebService.ProxyPass := ''; No ACBrBoleto.Enviar adicionei essas linhas para pegar o proxy do webService. function TACBrBoleto.Enviar: Boolean; var RemessaWS: TBoletoWS; begin if not (Configuracoes.WebService.Operacao in [tpConsulta]) then if ListadeBoletos.Count < 1 then raise Exception.Create(ACBrStr('Lista de Boletos está vazia')); ChecarDadosObrigatorios; //Instancia classe para Registro Boleto WebService RemessaWS := TBoletoWS.Create(Self); try RemessaWS.ProxyHost := Configuracoes.WebService.ProxyHost; RemessaWS.ProxyPort := Configuracoes.WebService.ProxyPort; RemessaWS.ProxyUser := Configuracoes.WebService.ProxyUser; RemessaWS.ProxyPass := Configuracoes.WebService.ProxyPass; ListaConsultaRetornoWeb.Clear; try Result:= RemessaWS.Enviar; Except on E:Exception do begin if ( ( RemessaWS.RetornoBanco.CodRetorno = 0 ) and ( Trim( RemessaWS.RetornoBanco.Msg ) = '' ) ) then raise Exception.Create(ACBrStr('Erro: ' + E.Message)) else raise Exception.Create(ACBrStr('Erro: ' + IntToStr(RemessaWS.RetornoBanco.CodRetorno) + sLineBreak + RemessaWS.RetornoBanco.Msg + sLineBreak)); end; end; finally RemessaWS.Free; end; end; E no ACBrBoletoWS.Rest mudei o definirProxy no inicio. Assim conseguir usar o proxy. Mas não sei se e a maneira correta. function TBoletoWSREST.Enviar: Boolean; begin BoletoWS.RetornoBanco.CodRetorno := 0; BoletoWS.RetornoBanco.Msg := ''; DefinirProxy; DefinirAuthorization; DefinirURL; DefinirContentType; DefinirCertificado; //Grava json gerado if Boleto.Configuracoes.Arquivos.LogNivel >= logSimples then BoletoWS.DoLog('Comando Enviar: ' + ClassName); if Boleto.Configuracoes.Arquivos.LogNivel >= logSimples then BoletoWS.DoLog('Comando Enviar: ' + FPDadosMsg); try Executar; finally Result := (BoletoWS.RetornoBanco.HTTPResultCode in [ 200 .. 207 ]); if Boleto.Configuracoes.Arquivos.LogNivel >= logSimples then begin BoletoWS.DoLog('Retorno Envio: ' + Self.ClassName); BoletoWS.DoLog('Código do Envio: ' + IntToStr(BoletoWS.RetornoBanco.HTTPResultCode)); end; if Boleto.Configuracoes.Arquivos.LogNivel >= logParanoico then begin if Result then //Grava retorno BoletoWS.DoLog('Retorno Envio: ' + FRetornoWS) else BoletoWS.DoLog('Retorno Envio: ' + IfThen(BoletoWS.RetornoBanco.CodRetorno > 0, sLineBreak + 'ErrorCode=' + IntToStr(BoletoWS.RetornoBanco.CodRetorno), '') + sLineBreak + 'Result=' + NativeStringToAnsi(FRetornoWS)); end; end; end; Link para o comentário Compartilhar em outros sites More sharing options...
Lucio Bittes Postado 1 Abril Autor Compartilhar Postado 1 Abril Bom dia. Podem me auxiliar se dessa maneira está correto? Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 1 Abril Moderadores Compartilhar Postado 1 Abril 9 horas atrás, Lucio Bittes disse: Bom dia. Podem me auxiliar se dessa maneira está correto? após essa alteração . tu rodou o instalador do acbr e testou o componente? ele passou Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Lucio Bittes Postado 1 Abril Autor Compartilhar Postado 1 Abril 1 minuto atrás, Juliomar Marchetti disse: após essa alteração . tu rodou o instalador do acbr e testou o componente? ele passou Boa tarde. Sim, funcionou corretamente com as informações do proxy do jeito que fiz. Link para o comentário Compartilhar em outros sites More sharing options...
Lucio Bittes Postado 10 Abril Autor Compartilhar Postado 10 Abril Bom dia. Deu certo da maneira q fiz 1 Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 10 Abril Moderadores Compartilhar Postado 10 Abril Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts