Descargar archivo por FTP con Indy

[ethangio]

Buen dia a todos ...

Tengo un problema con mi funcion que se conecta al servidor y descarga un archivo .exe.

En resumen:
Se conecta bien camba de directorio y descarga el archivo pero lo baja dañado no se ejecuta.

Mi codigo es este :

Pero en mi funcion de descargar archivo si lo descarga pero lo descarga dañado ( es un exe ) ... no se puede ejecutar, estoy usando los componentes indy ...

Tienen alguna sugerencia que estoy haciendo mal .. ??

Código Delphi:

Código Delphi [-]
      //Descargar
      StringList:= TStringList.Create;
      //Cambiamos de directorio
      IdFTP1.ChangeDir('/public_html/actualizacion/');
       try
        IdFTP1.List(Stringlist, '', false);
        for i := 0 to Stringlist.Count-1 Do
        begin
          if (StringList[i] <> '') and ((StringList[i]<>'.') and (StringList[i]<>'..')) then
          begin
            //Descarga
            idFTP1.Get( ExtractFileName(StringList[i]), 'Update\'+StringList[i], True , False );
          end;
        end;
        except
        IdFTP1.disconnect;
       end;
      StringList.Free;
    end;
  //============================================================================================

El archivo pesa 2574 bytes y cuando lo descarga el peso es de 2584 bytes y no se ejecuta, el archivo esta bien
lo descargo por filezilla y si sirve se ejecuta.

[[escafandra]]

Usa la API URLDownloadToFile

Código Delphi [-]
uses  Urlmon  
URLDownloadToFile(nil, PCHAR(URL), PCHAR(FileName), 0, nil);

Saludos.

[[newtron]]

Hola.

¿Has configurado el "TransferType" a binario?

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

Saludos

[ethangio]

escafandra .. gracias por el dato pero ya tengo todo lo demas con los componentes indy ....

newtron gracias muchas gracias por el dato ... eso era ...

GRAAAAACIAAAAAAAAAAAAASSSSSSSSSSS .. ...

[[newtron]]

Nada hombre.... son 10,000

[Casimiro Notevi]

Empezado por newtron

Nada hombre.... son 10,000

Puede pagar el canon a nosotros, que ya te pagaremos lo que te corresponde como 'creador', newtron