Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Desarrollo en Delphi para Android (https://www.clubdelphi.com/foros/forumdisplay.php?f=57)
-   -   crear carpetas en android (https://www.clubdelphi.com/foros/showthread.php?t=91510)

amorones 21-02-2017 23:11:28

crear carpetas en android
 
Hola buenas tardes, estoy haciendo una aplicación para Android en Delphi XE7, y necesito crear una carpeta en el directorio raíz del dispositivo, agradecería mucho si me pudieran orientar como se puede crear una carpeta en Android con Delphi.

Neftali [Germán.Estévez] 22-02-2017 09:16:59

Pues más o menos puedes hacerlo como en Windows.
Revisa la ayuda sobre la Clase TPath, que te servirá para acceder a directorios del sistema y a partir de ahí, por ejemplo puedes usar un ForceDirectories para crear una carpeta.

Revisa este link, por ejemplo:
http://docwiki.embarcadero.com/Libra...th.GetHomePath

amorones 22-02-2017 22:46:04

Gracias Neftalí, revisare la ayuda y el link que me pasaste, si me queda alguna duda, podría volver a preguntar?

Un saludo...

Casimiro Notevi 22-02-2017 23:17:48

Cita:

Empezado por amorones (Mensaje 513608)
... si me queda alguna duda, podría volver a preguntar?

Claro, sigue preguntando aquí mismo si no lo solucionas.

amorones 22-02-2017 23:27:49

Listo, muchas gracias por tu ayuda Neftalí, ya pude solucionar el problema, adjunto el código que me funciono por si a alguien mas le sirve:

Código Delphi [-]
 if forcedirectories(P) then
                 ShowMessage('Nuevo directorio creado') else
                 ShowMessage('Fallo al crear directorio nuevo, error : '+ IntToStr(GetLastError));

amorones 22-02-2017 23:30:01

Una disculpa, este es el código completo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
  P: String;
  Sr : TSearchRec;
begin
  P := '/storage/sdcard0/Prueba/';
      if forcedirectories(P) then
     ShowMessage('Se creo la carpeta "Partituras"') else
     ShowMessage('Fallo al crear directorio nuevo, error : '+ IntToStr(GetLastError));
end;


La franja horaria es GMT +2. Ahora son las 06:18:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi