Descargar un fichero

[sagitarius]

Gracias dec.

Googleando he localizado otro codigo mediante componentes indy mas concretamente con el componente TIdHttp.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  IdHTTP1.HandleRedirects:=true;
  IdHTTP1.Head(ComBobox1.Items.Strings[Combobox1.itemIndex]);
  ListBox1.Items.Assign(idhttp1.Response.RawHeaders);
  if IdHTTP1.ResponseCode=404 then
    ListBox1.Items.Add('A File nem letezik')
    else
    begin
     if IdHTTP1.ResponseCode=200 then
     ListBox1.Items.Add('A File letezik')
      else
      ListBox1.Items.Add('Hiba');
      ListBox1.Items.Add('*************************************');
      ListBox1.Items.Add('Visszateresi kod szoveges :'+IdHTTP1.ResponseText);
      ListBox1.Items.Add('Visszateresi kod ertek :'+inttostr(IdHTTP1.Responsecode));
      ListBox1.Items.Add('host:'+IdHTTP1.Request.Host+'   Filenev :'+IdHTTP1.Request.URL);
       if idhttp1.Response.RawHeaders.IndexOfName('Last-Modified') > -1 then
      ListBox1.Items.Add('Utolso modositas datum :'+idhttp1.Response.RawHeaders.Values['Last-Modified'])
       else
      ListBox1.Items.Add('Nincs info az utolso modositasrol');
       if idhttp1.Response.RawHeaders.IndexOfName('Date') > -1 then
      ListBox1.Items.Add('File datum :'+idhttp1.Response.RawHeaders.Values['Date'])
      else
       ListBox1.Items.Add('Nincs info a file datumarol');
        if idhttp1.Response.RawHeaders.IndexOfName('Content-length') > -1 then
      ListBox1.Items.Add('File meret byte :'+idhttp1.Response.RawHeaders.Values['Content-length'])
      else
       ListBox1.Items.Add('Nincs info a file mereterol');
   end;
end;