将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许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。