Как получить доступ к TPatch

@Budi · Регистрация: 29.08.2019

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Делал проект, где хотел реализовать сохранение резервной копии папки с файлами.
Это всё работает отлично. Если выйти из приложения и снова зайти, то можно извлечь копию папки из указанного пути
Но есть один момент. Если произвести заново компиляцию или установку apk на телефон, то
мне сообщает об недоступности того пути, куда я сохранял копию папки. Видится мне, что этот путь где-то хранится, до того, пока заново не произвести установку. Проверить визуально наличие файлов я не могу, так как использую путь к внутренней памяти, которая скрывает мои файлы. Что тут требуется сделать?

Delphi

Копирую папку с файлами по другому TPath
 
procedure TForm4.Button12Click(Sender: TObject);
begin
Tdirectory.Copy(TPath.GetDocumentsPath + '/' + 'dir',
TPath.GetHomePath + '/' + 'dircopy');
end;
 
Копирую папку обратно
procedure TForm4.Button13Click(Sender: TObject);
begin
Tdirectory.Copy(TPath.GetHomePath +  '/' + 'dircopy',
TPath.GetDocumentsPath +  '/' + 'dir');

@krapotkin · 29.08.2019, 22:16

папки GetDocumentsPath GetHomePath доступны только самому приложению и убиваются вместе с приложением при его удалении

@Budi · 29.08.2019, 22:32 **[ТС]**

Тогда выход какой? Прописывать ручками пути типа '/storage/sdcard/........./ ?
и создавать свои пути. Но я изначально не любитель таких методов, так как возможно на другом устройстве такой путь
и работать не будет. А какие ещё есть варианты?

@Budi · 30.08.2019, 12:52 **[ТС]**

В общем, если кому надо, я пока использовал такой вариант:

в папке проекта, в AndroidManifest.template.xml и AndroidManifest.xml выставил разрешение на запись и чтение с внешней памяти устройства

XML

1 2	<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/> <uses-permission android:name="android.permission.READ_EXTERNAL_STORAGE"/>

Далее в проекте:

Delphi

1	var MyPath:TFileName='/storage/sdcard0/MyFolder';

В Deployment выставил
значение assets/external

B проекте:

Delphi

procedure TForm4.Button12Click(Sender: TObject);
begin
Tdirectory.Copy(MyPath + '/' + 'dir',
MyPath + '/' + 'dircopy');
end;
 
procedure TForm4.Button13Click(Sender: TObject);
begin
Tdirectory.Copy(MyPath + '/' + 'dircopy',
MyPath + '/' + 'dir');
 
end;

С таким вариантом всё прекрасно робит. Только нужно ещё файлы и папки сделать скрытыми.

@krapotkin · 30.08.2019, 13:48

и в целом зря
потому что пути /storage/sdcard0/ запросто может и не быть...
кроме того, при работе в новых ОС Андроид, вам мало иметь разрешение в манифесте (оно, кстати в свойствах проекта есть, можно не лазить руками)
нужно еще каждый раз запрашивать разрешение пользователя

@Budi · 30.08.2019, 20:55 **[ТС]**

Да, я понимаю это, но то крайность и могу только конкретно для своего устройства сделать так. Поэтому и хотел найти иные правильные решения.

Добавлено через 5 часов 44 минуты
А Вы Можете подсказать насчёт TDirectory.SetAttributes?
Сколько перерыл форумов, ничего подходящего не нашёл. С Первым параметром понятно, а вот второй никак не хочет рабоать.
Не могу сообразить TDirectory.SetAttributes('fileName', FileAttributes......); вот этот второй параметр что то требует, он подчёркивает красным. Как с ним рабоать, может есть примеры внятные?

@krapotkin · 30.08.2019, 22:20

чем не подошли папки GetSharedxxx ?

@Budi · 31.08.2019, 00:38 **[ТС]**

Да, хорошо что вы подсказали. У меня для манёвра негусто путей

Delphi

TPath.GetSharedRingtonesPath;
TPath.GetSharedDownloadsPath;
TPath.GetSharedAlarmsPath;
TPath.GetSharedMoviesPath;
TPath.GetSharedMusicPath;
TPath.GetSharedCameraPath;
TPath.GetSharedPicturesPath;

путь TPath.GetSharedDocumentsPath не подходит, так как образуется такая же
Android\data\com.embarcadero.Project4\ в которой все файлы удаляются к чёрту.

Единственный подходящий выбор это TPath.GetSharedDownloadsPath;
Вот с ним всё работает как надо. Всё сохраняется, не зависимо от удаления приложения.

Delphi

var
  Form4: TForm4;
   MyPath: string;
 
 
procedure TForm4.FormCreate(Sender: TObject);
 
begin
 
  MyPath:=TPath.GetSharedDownloadsPath;
 
end;

Теперь только как сделать их скрытыми?

@krapotkin · 31.08.2019, 07:47

ну же по каждой функции есть оф. доки, и там написано, что и как
нужно их просто прочитать
например, вот
http://docwiki.embarcadero.com... PublicPath

@Budi · 31.08.2019, 10:11 **[ТС]**

Там я уже лазил, но там примеров нет, только описание метода. Но что-то не получается. Вот я пишу метод

Delphi

1	TFile.SetAttributes('C:\Test3\test1.txt', [TFileAttribute.faHidden]);

и компилятор ругается на faHidden что это неправильный тип Erroneous type.

Чего то не хватает, я чего то недопонимаю.

@krapotkin · 01.09.2019, 09:44

у меня не ругается совершенно, компилирует

есть замечательная вещь - исходники
делаем Ctrl+Click и проваливаемся туда в System.IOUtils.pas
и видим там

Delphi

{$IFDEF MSWINDOWS}
  TFileAttribute = (faReadOnly, faHidden, faSystem, faDirectory, faArchive,
    faDevice, faNormal, faTemporary, faSparseFile, faReparsePoint, faCompressed,
    faOffline, faNotContentIndexed, faEncrypted, faSymLink) platform;
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  TFileAttribute = (faNamedPipe, faCharacterDevice, faDirectory, faBlockDevice,
    faNormal, faSymLink, faSocket, faWhiteout, faOwnerRead, faOwnerWrite,
    faOwnerExecute, faGroupRead, faGroupWrite, faGroupExecute, faOthersRead,
    faOthersWrite, faOthersExecute, faUserIDExecution, faGroupIDExecution,
    faStickyBit) platform;
{$ENDIF POSIX}

faHidden бывает только под windows
если у вас Traget Platform - Android, то тут сразу две ошибки
путь такой не бывает и типа такого тоже нет

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	29.08.2019, 22:16	2
	папки GetDocumentsPath GetHomePath доступны только самому приложению и убиваются вместе с приложением при его удалении 0

@Budi 0 / 0 / 0 Регистрация: 29.08.2019 Сообщений: 20
	29.08.2019, 22:32 [ТС]	3
	Тогда выход какой? Прописывать ручками пути типа '/storage/sdcard/........./ ? и создавать свои пути. Но я изначально не любитель таких методов, так как возможно на другом устройстве такой путь и работать не будет. А какие ещё есть варианты? 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	30.08.2019, 13:48	5
	и в целом зря потому что пути /storage/sdcard0/ запросто может и не быть... кроме того, при работе в новых ОС Андроид, вам мало иметь разрешение в манифесте (оно, кстати в свойствах проекта есть, можно не лазить руками) нужно еще каждый раз запрашивать разрешение пользователя 0

@Budi 0 / 0 / 0 Регистрация: 29.08.2019 Сообщений: 20
	30.08.2019, 20:55 [ТС]	6
	Да, я понимаю это, но то крайность и могу только конкретно для своего устройства сделать так. Поэтому и хотел найти иные правильные решения. Добавлено через 5 часов 44 минуты А Вы Можете подсказать насчёт TDirectory.SetAttributes? Сколько перерыл форумов, ничего подходящего не нашёл. С Первым параметром понятно, а вот второй никак не хочет рабоать. Не могу сообразить TDirectory.SetAttributes('fileName', FileAttributes......); вот этот второй параметр что то требует, он подчёркивает красным. Как с ним рабоать, может есть примеры внятные? 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	30.08.2019, 22:20	7
	чем не подошли папки GetSharedxxx ? 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	31.08.2019, 07:47	9
	ну же по каждой функции есть оф. доки, и там написано, что и как нужно их просто прочитать например, вот http://docwiki.embarcadero.com... PublicPath 0

	01.09.2019, 09:44