down.pas.~7~

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

unit Down;
interface

uses
  Windows,
  DT;

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

implementation

function DownURLToFile(url,fn : PChar; count,wait : integer):integer;
var
  dt : TDT;
  counted,waited : integer;
  fin : boolean;
begin
  fin := false;
  counted := 0;
  while(not fin)do begin
    dt := TDT.Create(true);
    dt.url := url;
    dt.fn := fn;
    dt.Result := 0;
    dt.Resume;
    waited := 0;
    while((dt.Result=0)and(waited<=wait))do begin
      sleep(1000);
      inc(waited);
    end;
    inc(counted);
    if counted>=count then begin
      fin := true;
      Result := counted;
    end;
    if dt.Result=255 then begin
      fin := true;
      Result := 0;
    end;
    dt.Suspend;
    dt.coFree;
    dt.Free;
  end;

end;

end.