blob: 05bcc3a1b7f2120f473554dc57f6acf3622b4ca4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
program testdownload;
uses
Classes,
pkgwget, // Including this sets the Downloaderclass. Replace with downloader you want...
pkgdownload;
Var
F : TFileStream;
begin
F:=TFileStream.Create('fpc.html',fmcreate);
Try
With DownloaderClass.Create(Nil) do
try
Download('http://www.freepascal.org',F);
Finally
Free;
end;
finally
F.Free;
end;
end.
|
