unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, OleCtrls, SHDocVw, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, DB, ADODB,StrUtils, ComCtrls,ugethtml,
  ExtCtrls;

type
 TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Splitter1: TSplitter;
    Button3: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Button4: TButton;
    Button5: TButton;

 procedure Button1Click(Sender: TObject);
 procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
      var Accept: Boolean);

 private
   { Private declarations }
 public
   { Public declarations }
   PROCEDURE ESQL(S:STRING);
   procedure getpageurls(s1:string);
   procedure getpages(s1:string);
  function GetNumberFromHTML(prefix, posfix, htmlfile: string): string;
  procedure Appendloginfo(htmlfilefolder,i, logstr: string);
  function GetSeqID():integer;
  function GetFileName():string;
  function do_break(sql:string):integer;
 end;

var
 Form1: TForm1;
 page,pages,seqID:integer;
 Thread_Max:integer;
 diqu_counter:integer;
 Thread_Counter:integer;
 get_Counter:integer;
 diqu:array[1..50] of string;
 IdHTTP1:tidhttp;
 dobreak:integer;
implementation
uses chinahr_gf;

{$R *.dfm}
procedure Delay();
begin
repeat
 Application.ProcessMessages;
 until (Thread_Counter<Thread_Max);
end;

procedure hehe();
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
        begin
        SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
        application.ProcessMessages;
    end;
end;

function TForm1.GetSeqID():integer;
begin
  IF seqID<=10000000 then
      inc(SeqID)
   else
   seqID:=1;
  GetSeqID:=SeqID;
end;

function TForm1.GetFileName():string;
var
 str,timestr : string;
begin
  timestr := formatDateTime('YYYYMMDDHHMMSS',now());
  str:=timestr+'chinahr'+inttostr(GetSeqID());
  GetFileName:=str;
end;

[1] [2] [3] [4] 下一页