网络图片批量下载对于网页源码很有用.docVIP

unit uYaHooPic; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,xpman, ComCtrls,PerlRegEx,ComObj,jpeg,IdHTTP, ExtDlgs, Gauges,Filectrl, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, IdComponent, IdTCPConnection, IdTCPClient,StrUtils,ShellApi, Grids, JvButtonDrawGrid; type TfYaHooPic = class(TForm) pnl1: TPanel; edt1: TEdit; btn1: TButton; pnl2: TPanel; btn2: TButton; btn3: TButton; dlg1: TSavePictureDialog; pnl3: TPanel; img1: TImage; pnl4: TPanel; pnl5: TPanel; edt2: TEdit; lbl1: TLabel; lbl2: TLabel; edt3: TEdit; lbl3: TLabel; Gauge1: TGauge; lbl4: TLabel; btn5: TButton; btn4: TButton; IdAntiFreeze1: TIdAntiFreeze; IdHTTP1: TIdHTTP; lv1: TListView; procedure btn1Click(Sender: TObject); procedure lv1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btn5Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); procedure edt1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } function GetPic :string; function GetPicNextPage :string; public { Public declarations } end; var fYaHooPic: TfYaHooPic; iPaGe:Integer; Words:string; bxiazhai:Boolean; iPicMing:Integer; DownPic:string; implementation {$R *.dfm} { TForm1 } function TfYaHooPic.GetPic: string; var xml: OleVariant; a,sZhi,r: string; i1,i2,p1, p2: Integer; item:OleVariant; sc: OleVariant; Words:string; reg: TPerlRegEx; num: Integer; //用 num 来计数 Lv:TListView; begin sc := CreateOleObject(MSScriptControl.ScriptControl.1); sc.Languag