|
用Delphi实现整个网站图片的极速下载(1)
今天在s8s8上看到一个帖子，.net/forums/index.PHP?showtopic=13495">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;
|
