----formshow

公司主營業(yè)務(wù)：做網(wǎng)站、成都網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出蒼南免費做網(wǎng)站回饋大家。

 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;

---創(chuàng)建文件

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;

---創(chuàng)建文件路徑

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;

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

網(wǎng)站欄目：將XML文件寫入android-創(chuàng)新互聯(lián)
瀏覽地址：http://weahome.cn/article/digooh.html