downloader.dpr.~13~

photo.163.com 相册下载器 多线程下载

program Downloader;
//library Downloader;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Down in 'Down.pas';

var
  fn,url : string;
  count,wait : integer;
begin if ParamCount >=2 then begin
  fn := ExtractFileDir(ParamStr(0))+'\'+ParamStr(2);
  url := ParamStr(1);
  if ParamCount>2 then count := StrToIntDef(ParamStr(3),5);
  if ParamCount>3 then wait := StrToIntDef(ParamStr(4),40)*1000;
  count := DownURLToFile(PChar(url),PChar(fn), count,wait);
  if count>0 then begin Halt(count);Writeln('Err: No_File_DownLoaded .');end;

end;Halt(0);end.

export DownURLToFile;