1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| program lazgetFile;
uses
classes, fphttpclient, opensslsockets;
const
Fichier = 'd:\temp\logo.gif';
var
cli: TFPHTTPClient;
FS: TStream;
begin
FS := TFileStream.Create(Fichier,fmCreate or fmOpenWrite);
cli := TFPHTTPClient.Create(nil);
cli.AddHeader('User-Agent','Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0');
try
try
cli.AllowRedirect := true;
cli.Get('https://www.freepascal.org/pic/logo.gif',FS);
except
writeln('oops');
readln;
end;
finally
writeln('tapez Return pour Terminer');
readln;
FS.free;
cli.free
end;
end. |
Partager