down.pas.~2~

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

unit Down;
interface

uses
  SysUtils,
  Classes,
  idhttp;

function GetFileSizeI(FileName: PChar): LongInt;
function DownURLToFile(url,fn : PChar; count,wait : integer):integer;

implementation

function GetFileSizeI(FileName: PChar): LongInt;
  var
    SearchRec: TSearchRec;
  begin
    if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
      Result := SearchRec.Size
    else
      Result := -1;
  end;
function DownURLToFile(url,fn : PChar; count,wait : integer):integer;
var
  http : TIdHTTP;
  s : tstringlist;
  MyStream:TMemoryStream;
  fin : boolean;
  i : integer;

begin if ParamCount >=2 then begin
  fn := PChar(ExtractFileDir(ParamStr(0))+'\'+ParamStr(2));
  if FileExists(fn)then begin
    if(GetFileSizeI(fn)>0)then Halt(1);
  end;
  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;
end;
end.