Copiar BD SQlite de android a PC

[jmbarrio]

Buenos días, tengo una aplicación en Delphi para Android que usa una BD SQLite embebida.
Estoy intentando copiar la BD del dispositivo Android, un tfno. Xiaomi 10 Lite a mi PC para poder realizar un backup cada cierto tiempo.
Estoy usando el comando ADB en el power shell de windows, para intentar copiar la BD en la SD del teléfono. Pero me da acceso denegado.

El comando que envío es el siguiente:

adb -s cf871144 -d shell run-as com.embarcadero.PDA_DelphiAniwin cp /data/user/0/com.embarcadero.PDA_DelphiAniwin/files/pruebaSQLite /storage/6935-D038

cf871144 es el nombre del dispositivo que se asigna a mi tfno y 6935-D038 es como aparece mi SD en el explorador de archivos de android. PDA_DelphiAniwin es mi proyecto de delphi y pruebaSQlite la BD

No soy capaz de dar permisos a la SD, ¿alguna idea?

Disculpar si este no es el foro adecuado para este tema, pero es que no veo otra opción de donde debería ir mi consulta.

Gracias, un saludo.

[jhonalone]

Hola, jmbarrio.

Esto me recuerda un programa que realicé para Windows, que tenía por objeto sincronizar los datos de dos programas gemelos, (uno para Windows y otro para Android) hace ya aalgunos años. Me parece que tuve que modificarlo hace unos dos o tres años por esas "cositas" que cambia Google cada vez que publica una nueva versión de Android.

El programa pasaba los datos del móvil al PC y viceversa.

Si aún no has resuelto el problema buscaré las fuentes en algún PC antiguo, ya que en el actual no las tengo.

Es muy seguro que tendrás que adaptar algunas funciones y algunas rutas que yo utilizaba, pero creo que podría ayudarte.

Dime si no has resuelto la cuestión, para buscar las fuentes.

Lo probaré antes en Delphi 11 porque creo que estaba hacho en delphi 10.

Un saludo.

[jmbarrio]

Buenos días, si fueras tan amable de enviarme el código te lo agradecería.

Muchísimas gracias, un saludo.

[jhonalone]

Hola jmbarrio.
RegiControlWinSINCRO - Con lista Ficheros.rar te envío el proyecto completo. Lo he revisado en Delphi 11 y funciona.

Te explico un poco:
1.- Como te dije es bidireccional, del PC al móvil y del móvil al PC.
2.- Tienes que conectar el móvil por USB al PC.
3.- Detecta automáticamente los dispositivos conectados.
4.- Debes seleccionar tu móvil por su identificador.
5.- A continuación tienes dos opciones para copiar los archivos. PC-->Móvil y viceversa.
6.- El programa original está hecho para W32, pero corre bien en W64

Previamente debes haber modificado el código en la unidad Sincoinizar.pas para cambiar las 2 rutas (en el PC y en el Móvil) donde esstá el fichero que quieras transferir y la carpeta donde debe ser tranferido. (EN LOS DOS APARATOS)
Espero que te sirva.
Un saludo.

[jmbarrio]

Buenas tardes, muchísimas gracias por tu ayuda, en cuanto tenga un momento lo pruebo.
A que te refieres por debes seleccionar tu móvil por su identificador? ¿Es el nombre que le asigna el adb al hacer un adb devices?

Un saludo

[jhonalone]

Hola jmbarrio.
El nombre es el que tú le has puesto al teléfono y que puedes modificarle en cualquier momento. Y el que te sale en Windows 10 cuando conectas el dispositivo por USB.

Cuando ejecutes el programa con el dispositivo conectado por USB, verás en la ventana del programa un ListBox en el que aparecerán los dispositivos conectados.

Al elegir uno de ellos es cuando el programa inspecciona los directorios del dispositivo en busca del que tú le has indicado en la unidad Sincronizar.pas, y te lo mostrará en la pantalla.

Ahora, cuando lo ejecutes, sin cambios, la primera vez, para probarlo, no aparecerá ninguna ruta, pues buscará la ruta qwue yo le puse en su momento, cambiala, en la unidad citada, por la ruta en la que tienes la base de datos en tu móvil y aparecerá.

Haz los cambios de rutas y nombres de ficheros que quieras. Yo lo tenía preparado para copiar todos los ficheros de un directorio concreto.

También podrias modificarlo para que te muestre todos los archivos de una carpeta. Es una idea.

Alguna duda, no te prives de preguntarla.

Un saludo.