Httpgettext Com Proxy

[ronnei]

function HttpGetText(const URL: string; const Response: TStrings): Boolean;
var
  HTTP: THTTPSend;
begin
  HTTP := THTTPSend.Create;


  try
    Result := HTTP.HTTPMethod('GET', URL);
    if Result then
      Response.LoadFromStream(HTTP.Document);
  finally
    HTTP.Free;
  end;
end;

Eu utilizava a chamada ao Método HttpgetText para invocar algumas URLS do meu site e pegar o retorno, porém me deparei com a situação de um proxy no meio de caminho, percebi que o tipo THTTPSend tem umas propriedades para proxy, então copiei essa função e pretendo antes de dar o Http.HttpMethod preencher os dados do Proxy, isso está correto? Alguém teria algum exemplo com proxy para eu testar?

 

Obrigado pela atenção!

 

 

[Régys Silveira]

Tópico movido para o local correto.

[Régys Silveira]

Veja o ACBrHTTP, ele já possui tudo que precisa, pode inclusive ver um exemplo de implementação no ACBrSuframa ou outro componente que utilize esse classe.

[ronnei]

Obrigado Régys!