main.dfm

飞库网 电子书下载

object MainForm: TMainForm
  Left = 305
  Top = 198
  Width = 617
  Height = 327
  Caption = 'MainForm'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 129
    Height = 300
    Align = alLeft
    TabOrder = 0
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 280
      Width = 127
      Height = 19
      DataSource = DataSource1
      VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      Align = alBottom
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 127
      Height = 279
      Align = alClient
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'title'
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 129
    Top = 0
    Width = 480
    Height = 300
    Align = alClient
    TabOrder = 1
    object Gauge1: TGauge
      Left = 1
      Top = 279
      Width = 478
      Height = 20
      Align = alBottom
      Progress = 0
    end
    object Label1: TLabel
      Left = 16
      Top = 20
      Width = 48
      Height = 12
      Caption = #19979#36733#39318#39029
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 48
      Height = 12
      Caption = #19979#36733#22320#22336
    end
    object Label3: TLabel
      Left = 4
      Top = 101
      Width = 60
      Height = 12
      Caption = #19979#36733#25193#23637#21517
    end
    object Label4: TLabel
      Left = 16
      Top = 69
      Width = 48
      Height = 12
      Caption = #20445#23384#36335#24452
    end
    object Label5: TLabel
      Left = 1
      Top = 267
      Width = 478
      Height = 12
      Align = alBottom
      Caption = 'Label5'
    end
    object Label6: TLabel
      Left = 4
      Top = 181
      Width = 12
      Height = 48
      Caption = #36807#28388#26465#20214
      WordWrap = True
    end
    object Button1: TButton
      Left = 232
      Top = 128
      Width = 75
      Height = 25
      Caption = #19979#36733'(&D)'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit1_1: TEdit
      Left = 70
      Top = 16
      Width = 381
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
      Text = 'http://www.feiku.com/html/book/130/151136/List.shtm'
      Visible = False
    end
    object Edit2_1: TEdit
      Left = 70
      Top = 44
      Width = 381
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
      Text = 'http://www.feiku.com/html/book/130/151136/'
      Visible = False
    end
    object Edit3: TEdit
      Left = 70
      Top = 96
      Width = 61
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
      Text = 'shtm'
    end
    object Edit4_1: TEdit
      Left = 70
      Top = 70
      Width = 380
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 4
      Text = 'C:\temp\'#33714#33457#23453#37492'\145717\'
      Visible = False
    end
    object Button2: TButton
      Left = 88
      Top = 128
      Width = 75
      Height = 25
      Caption = #26367#25442'(&R)'
      TabOrder = 5
      OnClick = Button2Click
    end
    object Memo1: TMemo
      Left = 40
      Top = 168
      Width = 425
      Height = 81
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Lines.Strings = (
        '(\/Skin\/feiku2007\/Css\/)'
        '(\/js\/Html\/)'
        '(http:\/\/www\.feiku\.com)'
        
          '(\<div id\="Menu"\>\<script\>ShowTopMenu)(.+?)(;\<\/script\>\<\/' +
          'div\>)'
        
          '(\<table border\="0"\>\s*\<tr height\="252"\>\s*\<td width\="252' +
          '"\>)(.+?)(\<\/a\>\<\/td\>\s*\<\/tr\>\<\/table\>)'
        
          '(\<table border\="0"\>\s*\<tr height\="110"\>\s*\<td width\="760' +
          '"\>\<fieldset)(.+?)(\<\/script\>\s*\<script src\="\/js\/gb\.js"\' +
          '>\<\/script\>\s*\<div align\=center\>\s*\<\/div\>)'
        
          '(\<table border\="0"\>\s*\<tr height\="252"\>\s*\<td width\="252' +
          '"\>)(.+?)(\s*\s*\<\/tr\>\s*\<\/table\>)'
        
          '(\<div id\="EndMenu"\>\<script\>ShowEndMenu)(.+?)(\<\/a\>\<\/nos' +
          'cript\>\<\/div\>\s*\s*\s*\s*)'
        
          '(\<a href\="\/User\/Messages\.aspx)(.+?)(\<\/font\>\<\/u\>\<\/a\' +
          '>\<\/div\>)')
      ScrollBars = ssVertical
      TabOrder = 6
      WordWrap = False
    end
    object Edit1: TDBEdit
      Left = 71
      Top = 16
      Width = 377
      Height = 20
      DataField = 'listurl'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 7
    end
    object Edit2: TDBEdit
      Left = 71
      Top = 44
      Width = 377
      Height = 20
      DataField = 'bootadd'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 8
    end
    object Edit4: TDBEdit
      Left = 71
      Top = 70
      Width = 377
      Height = 20
      DataField = 'savedir'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 9
    end
  end
  object Reg: TPerlRegEx
    Options = []
    Left = 408
    Top = 80
  end
  object Dn: TIEHTTP
    Timeout = 90
    TimerIntervalSeconds = 0
    BlockingMode = True
    RequestMethod = 'GET'
    MultipartPOST = False
    Left = 376
    Top = 80
  end
  object Rec: TPerlRegEx
    Options = [preSingleLine]
    Left = 440
    Top = 80
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp\bin\book.md' +
      'b;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    Parameters = <>
    SQL.Strings = (
      'select * from book')
    Left = 48
    Top = 8
    object ADOQuery1iCode: TIntegerField
      FieldName = 'iCode'
    end
    object ADOQuery1title: TWideStringField
      FieldName = 'title'
      Size = 100
    end
    object ADOQuery1listurl: TWideStringField
      FieldName = 'listurl'
      Size = 255
    end
    object ADOQuery1bootadd: TWideStringField
      FieldName = 'bootadd'
      Size = 255
    end
    object ADOQuery1savedir: TWideStringField
      FieldName = 'savedir'
      Size = 255
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 88
    Top = 8
  end
  object Query: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from book')
    Left = 8
    Top = 48
  end
end