Acceder carpetas windows desde android

[viverosjosem]

Hola Amigos del foro.
Quisera saber si es posible crear una aplicacion Android, que sea capaz de leer y escribir un archivo de texto en una carpeta de windows. Estoy trabajando con delphi Tokyo 10.2.

E buscado informacion en internet, pero no e podido encontrar una instruccion o procedimiento para lograr esto.

De antemano.
Muchas gracias.

[Casimiro Notevi]

Tienes varios métodos para hacerlo y con distintos protocolos, puedes usar ftp, samba, webservice, etc.
Podrás elegir el que más se adapte a lo que vayas a hacer.
Por lo que dices, aunque dices poco, parece que en tu caso será más aconsejable samba.

[viverosjosem]

Hola Casimiri.
Agradesco tu respuesta. Pero no me ayuda. Lo que quiero es saber como hacerlo. Alguna instruccion, o algun fragmento de codigo para orientarme.
desarrolle una pequena aplicacion en android con delphi tokio. Pero necesito escribir un archivo de texto en una carpeta compartida de windows. Pero no se como hacer para que la aplicacion android pueda conectarse al equipo windows, y luego leer o escribir un archivo de texto simple en dicha carpeta compartida.

Alguna sugerencia.

Saludos.
Gracias de antemano.

[viverosjosem]

Hola nuevamente.
Escribi este pequeno programa que hace uso de las librerias Indy, para conectarse a un servidor FTP.
funciona perfectamente si lo compilo y ejecuto para una plataforma windows. Pero cuando lo compilo para android, al ejecutarlo no permite conectarse al servidor.

Si voy al host en internet el archivo esta ahi. subido sin problema. Pero desde android, no se conecta.

Alguna idea de porque no funciona en ANDROID?

Saludos.
Gracias.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   SubirArchivo( 'C:\Meson.TXT' );
end;

procedure  TForm1.SubirArchivo( sArchivo: String );
var
   FTP: TIdFTP;

begin
   FTP := TIdFTP.Create( nil );
   FTP.Host     := '190.1.....';  //Aqui el Host original 
   FTP.Username := 'xxxxx';       // Usuario
   FTP.Password := 'xxxxx';       // pasword

   try
     FTP.Connect;
     Label1.Caption := 'Estado: Conectado';

     FTP.ChangeDir( '/public_html' );
     FTP.Put( sArchivo, ExtractFileName( sArchivo ), False );
     FTP.Disconnect;
     FTP.Free;
     Label2.Caption := 'Archivo: Cargado exitosamente';

   except raise
      Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );

   end;
end;

[Neftali [Germán.Estévez]]

Empezado por viverosjosem

Pero cuando lo compilo para android, al ejecutarlo no permite conectarse al servidor.

Estaría bien saber algo más de información.
¿El error es seguro de conexión?
¿Cual es el error exactamente? "No se conecta", no es muy explicativo...
Es un servidor FTP/FTPS
...

[Casimiro Notevi]

Empezado por Neftali [Germán.Estévez]

Estaría bien saber algo más de información.
¿El error es seguro de conexión?
¿Cual es el error exactamente? "No se conecta", no es muy explicativo...
Es un servidot FTP/FTPS
...

Además de lo comentado por Neftali, hay que añadir que ese código es "peligroso", me explico:

Código Delphi [-]
FTP.ChangeDir( '/public_html' );
FTP.Put( sArchivo, ExtractFileName( sArchivo ), False );   // Envías el fichero
FTP.Disconnect;  // ¡¡¡ Desconectas !!!  :/
FTP.Free;  //  Y liberas, cuando todavía puede que ni haya enviado y/o conectado  :O
Label2.Caption := 'Archivo: Cargado exitosamente';

Es probable que en la mayoría de ocasiones, desconectes la conexión antes de que suba el fichero.

La desconexión debe hacerse al terminar, o en el evento "AfterPut", para estar seguro de que ya terminó de subir el fichero.