idHttp - IPv6 - IPVersion-ProtocolSwitch on Redirect (HandleRedirects=true)

[tobfel]

First reqest is done via IPv6, but when the server response with 301, the RedirectUrl ist not called with the same IP-Protocol-Version. Can be fixed via:

if Request.IPVersion=Id_IPv6 then
    begin
    with TIdURI.Create(LLocation) do
         begin
         URI := LLocation;
         IPVersion := Id_IPv6;
         LLocation := URI;
         Free;
         end;
    end;

in

function TIdHTTPProtocol.ProcessResponse(AIgnoreReplies: array of Int16): TIdHTTPWhatsNext;
...
after:
LLocation := Response.Location;
LMethod := Request.Method;