将XML文件写入android

----formshow

建网站原本是网站策划师、网络程序员、网页设计师等，应用各种网络程序开发技术和网页设计技术配合操作的协同工作。成都创新互联公司专业提供网站制作、网站设计,网页设计,网站制作(企业站、自适应网站建设、电商门户网站)等服务,从网站深度策划、搜索引擎友好度优化到用户体验的提升,我们力求做到极致!

  newpath := '/storage/sdcard0/DCIM/100ANDRO/GRJKDAGLGXYSF';
  if not TDirectory.Exists (newpath) then begin
      TDirectory.CreateDirectory (newpath); //Create a folder
    end;
  newpath := newpath + '/';

----存入本机

var

  filename:string;
   newfile:Tfilestream;

begin

   filename := 'update_sf_' + formatdatetime('yyyy-MM-dd',now) + gxyglkId;
   newfile := TFile.Create (newpath + filename);
   newfile.Free;
   clientdatasetlocal.SaveToFile(newpath + filename,dfXML);

end;

---创建文件

var
  newpath:string;
  newfile:Tfilestream;
begin
  newpath := '/storage/sdcard0/DCIM/100ANDRO/GRJKDAGLF';
  if TFile.Exists (newpath + '/update.xml') then begin
      ShowMessage ('File exists');
    end
    else begin
      newfile := TFile.Create (newpath + '/update.xml'); //Create a file (stream)
      newfile.Free; //Clear Stream
    //  SpeedButton5Click (Self); //Close the window
    //  TotalWork (path, True); //Update the list
    end;

---创建文件路径

var
  newpath:string;
begin
  newpath := '/storage/sdcard0/DCIM/100ANDRO/GRJKDAGLF';
  showmessage(newpath);
  if TDirectory.Exists (newpath) then begin
      ShowMessage ('Folder Exists!');
    end
    else begin
      TDirectory.CreateDirectory (newpath); //Create a folder
      ShowMessage ('Folder created!');
     // SpeedButton5Click (Self); //Close the window
     // TotalWork (path, True); //Update the list
    end;

分享文章：将XML文件写入android
标题路径：https://www.cdcxhl.com/article2/godjoc.html

成都网站建设公司_创新互联，为您提供关键词优化、自适应网站、全网营销推广、网站排名、定制开发、搜索引擎优化

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联