用Delphi实现整个网站图片的极速下载

• procedure TForm1.Button2Click(Sender: TObject);
  begin
    Close; 
  end;

  { TGetMM }

  constructor TGetMM.Create(MMUrl,DestPath,SubJ: string);
  begin
    FMMUrl :=MMUrl;
    FDestPath :=DestPath;
    FSubJ :=SubJ;
    inherited Create(False);
  end;

  procedure TGetMM.Execute;
  var
    strm:TMemoryStream;
    IdGetMM: TIdHTTP;
    DestFile:string;
  begin
    try
      strm :=TMemoryStream.Create;
      IdGetMM :=TIdHTTP.Create(nil);
      try
        DestFile :=FDestPath+FSubJ+'.jpg';
        if Not FileExists(DestFile) then
        begin
          strm.Clear;
          IdGetMM.Get(FMMUrl+FSubJ+'.jpg',strm);
          strm.SaveToFile(DestFile);
        end;
        DestFile :=FDestPath+'tn_'+FSubJ+'.jpg';
        if not FileExists(DestFile) then
        begin
          strm.Clear;
          IdGetMM.Get(FMMUrl+'tn_'+FSubJ+'.jpg',strm);
          strm.SaveToFile(DestFile);
        end;
      except
      end;
    finally
      strm.Free;
      IdGetMM.Free;
    end;
  end;

  procedure TForm1.GetMMThread(MMUrl, DestPath, SubJ: string);
  begin
    RGetMM :=TGetMM.Create(MMUrl,DestPath,SubJ);
  end;

• 上一页 [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用Delphi实现整个网站图片的极速下载 相关文章：
• ·用Delphi实现整个网站图片的极速下载
• 用Delphi实现整个网站图片的极速下载 相关软件

上一篇:Delphi控制Excel2000

下一篇:DELPHI基础开发技巧

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐