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

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　//写的比较粗糙，但基本能实现下载功能，管不了那么多了。
　　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;

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。