将XML文件写入android

2016-08-22 10:23:54来源:http://kaixinbuliao.blog.51cto.com/2567365/1535172作者:鹅倌人点击


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


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台