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

文章作者 100test 发表时间 2011:03:22 18:44:40
来源 100Test.Com百考试题网

　　//写的比较粗糙，但基本能实现下载功能，管不了那么多了。
　　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.
　　implementation
　　{$R *.dfm}
　　//下载过程
　　procedure TForm1.Button1Click(Sender: TObject).
　　var
　　i,j:integer.
　　SubI,SubJ,CurUrl,DestPath:string.
　　strm:TMemoryStream.