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

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

结果:

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

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

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

PS:

assets\:对应的是TPath.GetSharedDocumentsPath。

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

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

实例代码:

 unit Unit1;

 interface

 uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.ScrollBox, FMX.Memo; type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Image2: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation
uses
System.IOUtils;//需要引入
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID} procedure TForm1.Button1Click(Sender: TObject);
var
sFile1: string;
begin
// 文件名大小写敏感,切记
sFile1 := TPath.GetSharedDocumentsPath + PathDelim + '1.jpg';
if FileExists(sFile1) then
Image1.Bitmap.LoadFromFile(sFile1);//显示该图片 // 文件名大小写敏感,切记
sFile1 := TPath.GetDocumentsPath + PathDelim + '2.jpg';
if FileExists(sFile1) then
Image2.Bitmap.LoadFromFile(sFile1);//显示该图片
end; end.
上一篇:C#基础---Attribute(标签) 和 reflect(反射) 应用二


下一篇:Rem实现自适应