Descargar archivo por FTP con Indy
 

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.

Usa la API URLDownloadToFile

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

Saludos.

Hola.

¿Has configurado el "TransferType" a binario?

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

Saludos

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 .. :D ...

Nada hombre.... son 10,000 :D

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

Vaya... a ver si te vas a tener que cambiar el nick a "Teddy". :p

M'as pillao :confused:



Traducción: Me has pillado (atrapado)

es un chiste local lo de teddy ??? :S ....

Y si heee lo he pensado ... la forma de agradecerle por su ayuda ... Yo soy de Puebla, México y por lo que deduzco ustedes son españoles o no ? . Y mucho de esto es por aprender delphi (autodidacta) , por que quizá algun dia haya un desarrollo en delphi y si lo hay y hay ganancia pues ya saben ,,, como dicen aki en mexico me mocho con algo, me pongo la del puebla, les doy para el refresco * (todo esto quiere decir darles algo de dinero :D ) ..

Pero a todo esto, en el foro hay algo semejante a donaciones a los que ayudan ya sea por paypal, deposito o algo asi ??? Como funciona ??

Pues "nosotros" sí, newtron y yo, pero aquí la mayoría es "del mundo" :)
Para que te hagas una idea, los moderadores son de México, Guatemala, Colombia, República Dominicana, Bolivia, Argentina, España... y se me olvidan algunos, (Disculpas, compañeros :o)

Gracias Casimiro Notevi y Newtron ...

Saludos ...

Está bien que lo aclares vayamos a que piensen otra cosa de nosotros. :p

Algo así, Teddy viene por Teddy Bautista, que recientemente está metido en un lío de desvío de dineros a su "buchaca" procedente de los fondos de la "sociedad general de autores" que es la entidad que recauda los importes que se pagan por derechos de autor de cantantes y artistas varios.

No hombre, el mejor agradecimiento que puedes hacer es dar las gracias y si alguna vez puedes echar una mano a alguien hacerlo, "hoy por mi, mañana por mi"... uis... no.... "hoy por ti, mañana por mi". :D:D

Saludos