Android实例-如何将文件打包到安装文件(XE8+小米2)

 

结果：

1.文件名支持英文字母、数字，不支持中文，大小写敏感。

2.文件最好放在根目录下，或是子目录下，如果放在根目外，根目录改名后，找不到文件。

3.打开Project->Deployment->ADD Files->选择文件(支持多选)->Remote Path->assets\internal\(或者assets\)。

PS:

assets\:对应的是TPath.GetSharedDocumentsPath。

assets\internal\:对应的是TPath.GetDocumentsPath。

还有一种说是支持SD卡，但本人未能实现。希望哪位高手指点。

 

实例代码： 

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
 8   FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.ScrollBox, FMX.Memo;
 9 
10 type
11   TForm1 = class(TForm)
12     Button1: TButton;
13     Image1: TImage;
14     Image2: TImage;
15     procedure Button1Click(Sender: TObject);
16   private
17     { Private declarations }
18   public
19     { Public declarations }
20   end;
21 
22 var
23   Form1: TForm1;
24 
25 implementation
26 uses
27   System.IOUtils;//需要引入
28 {$R *.fmx}
29 {$R *.NmXhdpiPh.fmx ANDROID}
30 
31 procedure TForm1.Button1Click(Sender: TObject);
32 var
33   sFile1: string;
34 begin
35   // 文件名大小写敏感，切记
36   sFile1 := TPath.GetSharedDocumentsPath + PathDelim + '1.jpg';
37   if FileExists(sFile1) then
38     Image1.Bitmap.LoadFromFile(sFile1);//显示该图片
39 
40   // 文件名大小写敏感，切记
41   sFile1 := TPath.GetDocumentsPath + PathDelim + '2.jpg';
42   if FileExists(sFile1) then
43     Image2.Bitmap.LoadFromFile(sFile1);//显示该图片
44 end;
45 
46 end.

 

 

posted on 2015-08-20 08:59  疯狂delphi  阅读(779)  评论(0)  编辑  收藏  举报

导航