Delphi XE10 文件目录/路径操作 (Andorid、ios、windows)


本文整理自网络,侵删。

 
//获取临时文件路径(支持安卓、IOS)
function GeFileName(const AFileName: string): string;
begin
{$IFDEF ANDROID}
Result := TPath.GetTempPath + '/' + AFileName;
{$ELSE}
{$IFDEF IOS}
Result := TPath.GetHomePath + '/Documents/' + AFileName;
{$ELSE}
Result := AFileName;
{$ENDIF}
{$ENDIF}
end;
 
//引用 IOUtils.pas 文件说明
//路径类
TPath.GetTempPath; {获取临时文件夹路径}
TPath.GetTempFileName; {获取一个临时文件名}
TPath.GetPathRoot(); {提取盘符, 如: c:\}
TPath.GetDirectoryName(); {提取路径}
TPath.GetFileName(); {提取文件名}
TPath.GetExtension(); {提取扩展名}
TPath.GetFileNameWithoutExtension(); {提取无扩展名的文件名}
TPath.ChangeExtension(); {更换扩展名}
TPath.DriveExists(); {检查路径中的驱动器是否存在}
TPath.GetFullPath(); {根据相对路径给出全路径}
TPath.HasExtension(); {判断是否有扩展名}
TPath.IsPathRooted(); {判断是否是绝对路径}
TPath.Combine(); {结合路径}
TPath.GetRandomFileName; {产生一个随机文件名}
TPath.GetGUIDFileName(); {用于产生一个唯一的文件名, 布尔参数 决定名称中是否包含 -}
TPath.IsValidPathChar(); {判断给定的字符是否能用于路径名}
TPath.IsValidFileNameChar(); {判断给定的字符是否能用于文件名}
TPath.AltDirectorySeparatorChar; {Windows 下是 "\"}
TPath.AltDirectorySeparatorChar; {Windows 下是 "/"}
TPath.ExtensionSeparatorChar; {Windows 下是 "."}
TPath.PathSeparator; {Windows 下是 ";"}
TPath.VolumeSeparatorChar; {Windows 下是 ":"}
 
//目录类
TDirectory.CreateDirectory(); {建立新目录}
TDirectory.Exists(); {判断文件夹是否存在}
TDirectory.IsEmpty(); {判断文件夹是否为空}
TDirectory.Copy(); {复制文件夹}
TDirectory.Move(); {移动文件夹}
TDirectory.Delete(); {删除文件夹, 第二个参数为 True 可删除 非空文件夹}
TDirectory.GetDirectoryRoot(); {获取目录的根盘符, 如: C:\}
TDirectory.GetCurrentDirectory; {获取当前目录}
TDirectory.SetCurrentDirectory(); {设置当前目录}
TDirectory.GetLogicalDrives; {获取驱动器列表; 下有举例}
TDirectory.GetAttributes(); {获取文件夹属性, 譬如只读、存档等; 下有举例}
TDirectory.SetAttributes(); {设置文件夹属性; 下有举例}
 
//文件类
TFile.Exists();//判断指定的文件是否存在
TFile.Copy();//复制文件
TFile.Move();//移动文件
TFile.Delete();//删除文件
TFile.Replace();//替换文件
  

//Andorid、ios 常用获取路径方式:


function GetPicturesPath;   //图片路径
function GetSharedPicturesPath; 
function GetCameraPath;  //相机路径
function GetSharedCameraPath; 
function GetMusicPath;    //音乐路径
function GetSharedMusicPath;
function GetMoviesPath;  //视频
function GetSharedMoviesPath;
function GetAlarmsPath;
function GetSharedAlarmsPath;
function GetDownloadsPath; //下载
function GetSharedDownloadsPath;
function GetRingtonesPath;
function GetSharedRingtonesPath;
 

Andriod 测试返回示例:


GetRandomFileName:  0q136naA.5AG
GetTempFileName:  /storage/emulated/0/Android/data/****/files/tmp/tmp.AADOxuXzyW
GetTempPath:  /storage/emulated/0/Android/data/****/files/tmp
GetHomePath:  /data/user/0/*****/files
GetDocumentsPath:  /data/user/0/*****/files
GetSharedDocumentsPath:  /storage/emulated/0/Documents
GetLibraryPath:  /data/app/*****-Qxg_gUvSDZA6j6xi6bRHtQ==/lib/arm
GetCachePath:  /data/user/0/*****/cache
GetPublicPath:  /storage/emulated/0/Android/data/*****/files
GetPicturesPath:  /storage/emulated/0/Android/data/*****/files/Pictures
GetSharedPicturesPath:  /storage/emulated/0/Pictures
GetCameraPath:  /storage/emulated/0/Android/data/*****/files/DCIM
GetSharedCameraPath:  /storage/emulated/0/DCIM
GetMusicPath:  /storage/emulated/0/Android/data/*****/files/Music
GetSharedMusicPath:  /storage/emulated/0/Music
GetMoviesPath:  /storage/emulated/0/Android/data/*****/files/Movies
GetAlarmsPath:  /storage/emulated/0/Android/data/*****/files/Alarms
GetSharedAlarmsPath:  /storage/emulated/0/Alarms
GetDownloadsPath:  /storage/emulated/0/Android/data/*****/files/Download
GetSharedDownloadsPath:  /storage/emulated/0/Download
GetRingtonesPath:  /storage/emulated/0/Android/data/*****/files/Ringtones
GetSharedRingtonesPath:  /storage/emulated/0/Ringtones


创建时间:2019.07.05  更新时间:2020.06.06, 07.23


博客园 滔Roy https://www.cnblogs.com/guorongtao

相关阅读 >>

Delphi将图片转换成文本支持转换回去

Delphi判断操作系统是否win10

Delphi length 统计指定字符串的长度(即个数)

Delphi 覆盖模式处理透明

Delphi 创建进程时指定其父进程

windows 消息

Delphi xe7 up1 调用android振动功能

Delphi 如何确定windows安装的语言

Delphi 正则表达式tperlregex 详解

Delphi 设置本地系统时间

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...