首页 > 移动平台 > 详细

将XML文件写入android

时间:2014-08-04 14:42:27      阅读:299      评论:0      收藏:0      [点我收藏+]

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

本文出自 “一切有为法,如梦幻泡影” 博客,请务必保留此出处http://kaixinbuliao.blog.51cto.com/2567365/1535172

将XML文件写入android,布布扣,bubuko.com

将XML文件写入android

原文:http://kaixinbuliao.blog.51cto.com/2567365/1535172

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!