[SOLUCIONADO] Bajar/Subir Ficheros desde/a mi web por FTP

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

Empezado por jhonalone

Veo que todos los ejemplos están orientados a Windows y creo que no dije (quizá lo dí por sentado al hacer la publicación en el foro de Android), no dije que la descarga la intento hacer desde un dispositivo Android.

Error mio, por no fijarme en el foro.
En este caso i recomendación va por otro lado.

En esta aplicación del último concurso de Embarcadero (http://neftali.clubdelphi.com/funwit...a-foto-del-da/) tienes el código fuente de cómo descargar una imagen desde un HTTPS.
Que es lo que hare la aplicación para cada foto diaria.
En ese caso también se utiliza un Thread, pero funciona en Android.

[jhonalone]

¡¡Maravilloso...! Neftali.
El vídeo y el código.
Si no ganaste el concurso, por lo menos mereces un premio.

Da gusto ver tu código tan ordenadito y tan hipermegacomentado.

Llegué hasta aqui...

Código Delphi [-]
procedure TFrameImagen.DescargarImagen(ABitmapND:TBitmap; pForceDownload:boolean=False);
var
  pathImages, fMini:string;
  URI:TidURI;
  LSart:Int64;
begin

Pero me pierdo. Es demasiado para mí...

Yo necesito cosas más simples... (no llego a tanto)

Sabes que mi idea es hacerlo por FTP para evitar entradas no deseadas sobre todo.

Agradezco tu buena voluntad.
Seguiré buscando una solución.

Saludos ¡Genio!

[jhonalone]

Hola a todos.

En contra de la extendida costumbre en este foro de comentar, "gracias a todos, pero ya he resuelto el problema" y no dejar constancia de la solución que se ha utilizado, yo no comulgo con ésa idea y, cuando resuelvo algo, bien o mal, me gusta compartir el resultado, por si puede ser útil a otro visitante que tenga el mismo problema.

Os dejo la solución que me ha funcionado a mí:

Código Delphi [-]

unit Unit4;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, IdFTP,  IdFTPCommon, FMX.Objects, IOUtils;

type
TForm4 = class(TForm)
       Button1: TButton;
       Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.fmx}

procedure TForm4.Button2Click(Sender: TObject);
var
F : TextFile;
sPath :String;
S : String;
begin
    sPath := TPath.Combine(TPath.GetDocumentsPath, 'Prueba.txt');
    AssignFile(F,sPath);
    Reset(F);                                                                             
    ReadLn(F,S);
       ShowMessage(S);
    CloseFile(F);
end;

procedure TForm4.Button1Click(Sender: TObject);
var
filename : String;
idFTP1 : TidFTP;
FS : TMemoryStream;
sPath :String;
begin
   FileName := '/Prueba.txt';
    sPath := TPath.Combine(TPath.GetDocumentsPath, 'Prueba.txt');
    IdFTP1 := TidFTP.Create(Nil);
    IdFTP1.Host := 'ftp.xxxxxx.com';
    IdFTP1.Username := 'xxxxxxxxxxx';
    IdFTP1.Password := 'xxxxxxxxxxxx';
    IdFTP1.Passive := True;
    IdFTP1.ConnectTimeout := 6000;
    Fs := TMemoryStream.Create;
    try
      IdFTP1.Connect;
      try
        IdFTP1.TransferType := ftBinary;
        IdFTP1.Get(FileName, FS);
        FS.Position := 0;
        FS.SaveToFile(sPATH);
      finally
        IdFTP1.Disconnect;
      end;

    finally
      Fs.Free;
    end;
 //if FileExists(sPath) then   ShowMessage('Existe');
 end;
end.

Saludos a todos.

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

Empezado por jhonalone

Os dejo la solución que me ha funcionado a mí

Gracias.

[jhonalone]

¡¡Enhorabuena, Neftalí!!
Hubiera sido injusto que no lo ganaras. Lo merecías.
Un saludo.

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

Empezado por jhonalone

El vídeo y el código.
Si no ganaste el concurso, por lo menos mereces un premio.

Pues sí lo gané , aunque todavía estoy esperando el premio...