Форум программистов [Powered by Invision Power Board]

Код

function HTTP_GetHeader(AHeaders: TStrings; const AHeaderName:AnsiString):AnsiString;
var j:Integer;
begin
  Result := '';
  for j:=0 to AHeaders.Count-1 do
  begin
    if Pos(AHeaderName, AHeaders[j])=1 then
    begin
      Result := Copy(AHeaders[j], Length(AHeaderName)+1, MaxInt);
      Exit;
    end;
  end;
end;

function HTTP_HeaderLocation(AHeaders: TStrings):AnsiString;
begin
  Result := HTTP_GetHeader(AHeaders, 'Location: ');
end;

function Http_Get(AHTTP: THTTPSend; const URL: string; const Response: TStrings): Boolean;
begin
  Result := AHTTP.HTTPMethod('GET', URL);
  if Result then
    if HTTP_HeaderLocation(AHTTP.Headers)<>'' then
      Result := Http_Get(AHTTP, HTTP_HeaderLocation(AHTTP.Headers), Response)
    else
      Response.LoadFromStream(AHTTP.Document)
end;

function HttpGetText(const URL: string; const Response: TStrings): Boolean;
var
  HTTP: THTTPSend;
begin
  HTTP := THTTPSend.Create;
  try
    result := Http_Get(HTTP, URL, Response)
  finally
    HTTP.Free;
  end;
end;