dt.pas.~4~

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

unit DT;

interface

uses
  SysUtils,
  Classes,
  IdHttp;

type
  TDT = class(TThread)
  private
    { Private declarations }
  protected
    http : TIdHTTP;
    MyStream:TMemoryStream;
    procedure Execute; override;
  public
    url,fn : PChar;
    Result : integer;
    procedure coFree;
  end;

function GetFileSizeI(FileName: PChar): LongInt;

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;

procedure TDT.Execute;
var
  fin : boolean;
begin
  MyStream := TMemoryStream.Create;
  http := TIdHTTP.Create;
  fin := false;
  Try
    http.Get(ParamStr(1),MyStream);
    fin := true;
  except
    fin := false;
  end;
  if((not fin)or(MyStream.Size=0))then Result := 1 else Result := 255;
  MyStream.SaveToFile(fn);

end;

procedure TDT.coFree;
begin
  {try
    self.http.Disconnect;
  except
    //
  end;}
  self.http.Free;
  self.MyStream.Free;
end;

end.