1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

program Project1;

{$APPTYPE CONSOLE}

uses
  URLMon, SysUtils;

var Datei,Ziel:PChar;
begin
 try
  Datei := 'http://home.arcor.de/meinaccount/test.zip';
  Ziel := 'D:Dokumente und EinstellungenKarlDesktop  est.zip';
  UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

{...}
begin
  try
    Datei := 'http://home.arcor.de/meinaccount/test.zip';
    Ziel := 'D:\Dokumente und Einstellungen\Karl\Desktop\test.zip';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
  except
    // mach irgendwas falls was schiefgeht
  end;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

program Project2;

{$APPTYPE CONSOLE}

uses
  URLMon, SysUtils;

var Datei,Ziel:PChar;

begin
  try
    Datei := 'http://home.arcor.de/meinaccount/hot_banditoz-veo_veo.ogg';
    Ziel := 'D:\Dokumente und Einstellungen\Karl\Desktop\hot_banditoz-veo_veo.ogg';
    UrlDownloadToFile(nil; Datei, Ziel, 0, nil);
  except
    // mach irgendwas falls was schiefgeht
  end;
end;


end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Eine Datei per HTTP runterladen


Mit der Funktion URLDownloadToFile kann man einfach Dateien aus dem Web laden.
Man muss dazu die Unit URLMon einbinden.

Die Funktion wendet man so an:

procedure TForm1.Button1Click(Sender: TObject);
var Datei,Ziel:PChar;
begin
 try
  Label1.Caption := 'Download gestartet';
  Datei := 'http://www.DieSeite/DieDatei.zip';
  Ziel := 'C:\Windows\Desktop\DieDatei.zip';
  UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
  Label1.Caption := 'Download beendet';
 except
  showmessage('Download abgebrochen');
 end;
end;

Schon befindet sich die angegebene Datei auf dem Desktop.					

1:
2:
3:

[Fehler] Project2.dpr(14): Nicht genügend wirkliche Parameter
[Fehler] Project2.dpr(17): '.' erwartet, aber ';' gefunden
[Warnung] Project2.dpr(18): Text hinter dem abschließenden 'END.' wird vom Compiler ignoriert