Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Descargar un fichero de una URL - ubicado en un Servidor Web - mediante HTTP - Delphi
Lenguaje de programación Borland Delphi



Con este truco en Delphi podréis descargar un fichero ubicado en un Servidor Web mediante HTTP. Para ello será necesario especificar la URL (dirección web) del fichero y el nombre y ruta del fichero destino. Necesitaremos un TForm, dos TEdit (URL fichero origen y carpeta y nombre del fichero destino) y un TButton. En el Uses del formulario añadiremos "URLMon":

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, URLMon, StdCtrls;


type
  TForm1 = class(TForm)
    txtOrigen: TEdit;
    Label1: TLabel;
    Button1: TButton;
    txtDestino: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function descargarFichero (origen, destino : string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(origen), PChar(destino), 0, nil) = 0;
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  descargarFichero(txtOrigen.Text, txtDestino.text);
end;

end.




Publicado el: 2005-08-07

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+