Subida FTP carpeta pictures - error de formato
 

Buenos días, estoy realizando una subida por FTP de la carpeta pictures de fotos en formato jpg.
Las fotos suben sin ningún problema al servidor, pero al abrirlas en el PC me da error de formato.
En el dispositivo android esas mismas fotos se ven sin problema. El código utilizado es el siguiente
El código utilizado es el siguiente:

Código Delphi [-]
procedure TF_Captura.Button1Click(Sender: TObject);
var
  FTP: TIdFTP;
  FileList: TStringDynArray;
  FileName, FolderPath: string;
begin
  FTP := TIdFTP.Create(nil);
  try
    // Configura el FTP
    FTP.Host := F_Config.edServidorFTP.Text;
    FTP.Username := F_Config.edUsuario.Text;;
    FTP.Password := F_Config.edPassword.Text;;
    FTP.Connect;
    FolderPath := TPath.Combine(TPath.GetSharedPicturesPath, '');
    // Lista todos los archivos en la carpeta
    FileList := TDirectory.GetFiles(FolderPath, 'foto_tomada*.*', TSearchOption.soTopDirectoryOnly);
    // Sube cada archivo
    for FileName in FileList do
    begin
      FTP.Put(FileName, ExtractFileName(FileName));
    end;
    ShowMessage('Subida completada');
  finally
    FTP.Disconnect;
    FTP.Free;
  end;
end;

No sé sí me falta configurar algo mas en el componente FTP.
¿Alguna idea?

Muchas gracias, saludos.

¿Y qué formato tienen las fotos?
Ya, jpg, pero ¿has comprobado que las imágenes subidas estén correctas y tenga la cabecera jpg?

Normalmente al conectar y enviar/recibir fichero de un FTP, se puede definir si los ficheros son texto o binarios.
Revisa esa propiedad (TransferType) en el TIdFTP o cámbiala a ver si obtienes mejores resultados.

Prueba configurando la transmisión como tipo datos binarios.

Código Delphi [-]
  FTP := TIdFTP.Create(nil);
  try
    // Configura el FTP
    FTP.Host := F_Config.edServidorFTP.Text;
    FTP.Username := F_Config.edUsuario.Text;;
    FTP.Password := F_Config.edPassword.Text;;
    FTP.TransferType := ftBinary;
    FTP.Connect;
    [...]

Gracias a todos por la ayuda.

Los ficheros tanto en el android como en el servidor van con la extensión jpg y en el móvil se ven perfectamente

Había visto lo del transfertype, pero

Código Delphi [-]
FTP.TransferType := ftBinary;

no me compila, me da undeclared identifier ftBinary.

No se si me falta alguna unidad en el uses o lo tengo que declarar de alguna manera. De ahí mi petición de ayuda.

Saludos.

De forma predeterminada, si no me equivoco, se añaden al uses:

IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP

Buenas tardes, ya he dado con la solución.
El componente FTP lo creaba en tiempo de ejecución y así no me funcionaba FTP.TransferType := ftBinary no se muy bien porqué.
En lugar de en tiempo de ejecución me he creado en diseño en el formulario el componente FTP y ahí en la propiedad TransferType si que me deja poner el ftBinary.
De esta manera ya veo bien los jpg en el servidor.

Gracias a todos por vuestra ayuda.