mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-21 03:39:44 +01:00
23 lines
402 B
ObjectPascal
23 lines
402 B
ObjectPascal
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. |