资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

将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;

另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。


本文题目:将XML文件写入android-创新互联
文章分享:http://cdkjz.cn/article/digooh.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220