Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Descargar archivo por FTP con Indy (https://www.clubdelphi.com/foros/showthread.php?t=77655)

ethangio 16-02-2012 06:30:58

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.

escafandra 16-02-2012 08:57:54

Usa la API URLDownloadToFile

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


Saludos.

newtron 16-02-2012 10:50:45

Hola.

¿Has configurado el "TransferType" a binario?

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

Saludos

ethangio 16-02-2012 18:08:44

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

newtron 17-02-2012 20:47:17

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

Casimiro Notevi 17-02-2012 21:14:39

Cita:

Empezado por newtron (Mensaje 425378)
Nada hombre.... son 10,000 :D

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

newtron 18-02-2012 10:51:35

Cita:

Empezado por Casimiro Notevi (Mensaje 425384)
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

Casimiro Notevi 18-02-2012 13:17:04

Cita:

Empezado por newtron (Mensaje 425426)
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)

ethangio 18-02-2012 17:39:38

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 ??

Casimiro Notevi 18-02-2012 17:49:22

Cita:

Empezado por ethangio (Mensaje 425444)
Yo soy de Puebla, México y por lo que deduzco ustedes son españoles o no ?

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)

ethangio 18-02-2012 18:55:41

Gracias Casimiro Notevi y Newtron ...

Saludos ...

newtron 19-02-2012 10:22:04

Cita:

Empezado por Casimiro Notevi (Mensaje 425436)
M'as pillao :confused:
Traducción: Me has pillado (atrapado)

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

Cita:

Empezado por ethangio (Mensaje 425444)
es un chiste local lo de teddy ??? :S ....

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.

Cita:

Empezado por ethangio (Mensaje 425444)
Y si heee lo he pensado ... la forma de agradecerle por su ayuda ...

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


La franja horaria es GMT +2. Ahora son las 01:04:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi