downloader.dpr.~10~

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

program Downloader;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  idhttp;

var
  http : TIdHTTP;
  s : tstringlist;
  MyStream:TMemoryStream;
  fin : boolean;
  i : integer;
  fn : string;
begin if ParamCount >=2 then begin
  fn := ExtractFileDir(ParamStr(0))+'\'+ParamStr(2);
  if FileExists(fn) then Halt(1);   
  MyStream := TMemoryStream.Create;
  http := TIdHTTP.Create;
  //s := tstringlist.Create;
  fin := false;
  i := 0;
  while((not fin)and(i<10))do begin
    Try
      http.Get(ParamStr(1),MyStream);
      fin := true;
    except
      fin := false;
      inc(i);
    end;
  end;
  if not fin then WriteLn('Error When Get : ',ParamStr(1));
  //s.SaveToFile(ExtractFileDir(ParamStr(0))+'\'+ParamStr(2));
  MyStream.SaveToFile(fn);
end;Halt(0)end.