От: | Firstborn | ||
Дата: | 21.04.05 10:24 | ||
Оценка: |
C:\FileDownload.exe http://tut.url.com/file.ext
C:\FileDownload.exe http://tut.url.com/file.ext proxy port username password
program FileDownload;
{$APPTYPE CONSOLE}
uses
SysUtils, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, Classes;
var HTTP: TIdHTTP;
FStream: TFileStream;
begin
// allocate resources
HTTP:=TIdHTTP.Create(Nil);
FStream:=TFileStream.Create('downloaded.dat', fmCreate);
// get params
if ParamCount=5 then
with HTTP.ProxyParams do begin
ProxyServer:=ParamStr(2);
ProxyPort:=StrToInt(ParamStr(3));
ProxyUsername:=ParamStr(4);
ProxyPassword:=ParamStr(5);
end; //with
// try downloading the specified file
try
HTTP.Get(ParamStr(1), FStream);
except
on E: Exception do WriteLn(E.Message);
end; //try..except
// clean-up
FStream.Free;
HTTP.Free;
end.
HTTP/1.0 407 Proxy Authentication Required