idhttp组件判断类似"http://xx网站/xx.rar"这样的地址 是否能正常访问怎么判断

Question

idhttp组件判断类似"http://xx网站/xx.rar"这样的地址 是否能正常访问怎么判断 用idhttp.get('http://xx网站/xx.rar')  idhttp会直接弹对话框报错! 
谢谢

Answer 1

function checkUrl(Url: string): Boolean;
var
  Msm: TStream;
begin
  Result := False;
  Msm := TMemoryStream.Create;
  try
    try
      Form1.IdHTTP1.Get(Url, Msm);
      if Msm.Size > 0 then
        Result := True;
    except
    end;
  finally
    Msm.Free;
  end;
end;