Перевод кода с Delphi на С++

function TDHttp.GetRedirectUrl: string;
   var i: integer;
       Line: string;
begin
   Result:='';
   for i := 0 to FSend.Headers.Count-1 do
   begin
     Line:=LowerCase(FSend.Headers[i]);
     if Pos('location:',Line)>0 then
     begin
       Result:=Trim(StringReplace(Line,'Location:','',[rfIgnoreCase]));
       Exit;
     end;
   end;
end;

function TDHttp.GET(AUrl: string): string;
   var Stream: TStringStream;
       RedirectUrl: string;
begin
   try
     Stream:=TStringStream.Create('',FCodePage);
     try
       FSend.Headers.Clear;
       FSend.Document.Clear;
       if FReferer<>'' then FSend.Headers.Add('Referer: '+FReferer);
       if FSend.HTTPMethod('GET', AUrl) then
       begin
         FSend.Document.SaveToStream(Stream);
         Result:=Stream.DataString;
         RedirectUrl:=GetRedirectUrl;
         if RedirectUrl<>'' then
           Result:=GET(RedirectUrl);
       end else raise Exception.Create(GetError);
     finally
       Stream.Free;
     end;
   except
     on E: Exception do
       raise Exception.Create('TDHttp.GET('+AUrl+'): '+E.Message);
   end;
end;