path:="E:\\test\\aDog.jpg";//导出后文件的路径及名称
//图片网址
url:="https://pic.rmb.bdstatic.com/bjh/events/3ab1eabc9098f1d53952239bfdcecc0a8686.jpeg@h_1280";
  rdo2 InternetRequest(url,"","","","","",1,r,code,6000);
  ret:=rdo2 writefile(rwBinary(),"",path,0,length(r),r);
  return ret;