求个思路,DELPHI怎么批量解析新云下载的地址?

Question

下载地址类似这样:
H ttp://www.zhaodll.com/dll/download.asp?softid=332929&downid=2&iz3=39c827a396f7559ccd973777530c3573&id=333029
 实际解析出来是这样的:
H ttp://z1.zhaodll.com:81//2013/3/BrowserEditor.zip谢谢!!

Answer 1

uses IdHTTP;
function getOriginUrl(const url: string): string;
var
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.RedirectMaximum := 0;
    try
      http.Get(url);
    except
    end;
    Result := http.Response.Location;
  finally
    http.Free;
  end;
end;