Proxy

[Lucio Bittes]

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;

 

[Lucio Bittes]

Bom dia. Podem me auxiliar se dessa maneira está correto?

[Juliomar Marchetti]

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

[Lucio Bittes]

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.

[Lucio Bittes]

Bom dia. Deu certo da maneira q fiz 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.