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

• 今天在s8s8上看到一个帖子，http://www.s8s8.net/forums/index.php?showtopic=13495人气极旺，大家用不同的语言和脚本来下载一个网站上的MM照片，有shell脚本的，c语言的，C++的，vbs的，php的，perl的，还有java的和C#的，可谓百花齐放，一时兴起，我也写了个Delphi版本的，使用了多线程，基本上不到半个小时就把几千张照片全部Down了下来，不过看了几张，全都是少儿不宜，难怪那些SL们都争先恐后，当然，我也不例外了：）

  
  程序完整代码：
  //写的比较粗糙，但基本能实现下载功能，管不了那么多了。
  unit GetMM;

  interface

  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
    IdTCPClient, IdHTTP;

  const
    Url='http://www.sergeaura.net/TGP/';  //下载图片的网站地址
    OffI=192; //目录个数
    OffJ=16;  //每个目录下的最大图片数
    girlPic='C:\girlPic\';  //保存在本地的路径

  //线程类
  type
    TGetMM = class(TThread)
    protected
      FMMUrl:string;
      FDestPath:string;
      FSubJ:string;
      procedure Execute;override;
    public
      constructor Create(MMUrl,DestPath,SubJ:string);
    end;
   
  type
    TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
      Memo1: TMemo;
      IdHTTP1: TIdHTTP;
      CheckBox1: TCheckBox;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
    private
      { Private declarations }
      RGetMM:TThread;
      procedure GetMMThread(MMUrl,DestPath,SubJ:string);
    public
      { Public declarations }
    end;

  var
    Form1: TForm1;

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

上一篇:Delphi控制Excel2000

下一篇:DELPHI基础开发技巧

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

精品推荐

热点TOP10

特别推荐