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