mainform.dfm

局域网多线程文件传送delphi源码程序

      A57BCE8C42A57300CED6D6CED6D6AD7B52FFFFCEDEA57BCE8C42A57300CED6D6
      0000CED6D6AD7B52FFFFCEDEA57BCE8C42A57300CED6D6CED6D6AD7B52FFFFCE
      DEA57BCE8C42A57300CED6D60000CED6D6AD7B52FFFFCEFFFFCEDEA57BA57300
      CED6D6CED6D6AD7B52FFFFCEFFFFCEFF9C7BA57300CED6D60000CED6D6DEA57B
      AD7B52AD7B52AD7B52DEA57BCED6D6CED6D6DEA57BAD7B52AD7B52AD7B52DEA5
      7BCED6D60000CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D60000}
  end
  object BitBtn3: TBitBtn
    Left = 536
    Top = 432
    Width = 100
    Height = 25
    Hint = 
      'Resume all Suspended Threads (note. the threads waiting for sync' +
      '. object can'#39't be resumed)'
    Action = ResumeAll
    Caption = #20840#37096#24674#22797
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Glyph.Data = {
      66030000424D6603000000000000360000002800000010000000110000000100
      18000000000030030000C40E0000C40E00000000000000000000CED6D6CED6D6
      CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CE8C42A5520063310063
      3100A55200CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D6A57300DEA57BCE8C42CE8C42CE8C42633100CED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6A57300DEA57BDEA57BCE
      8C42CE8C42A57300A55200CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D6A57300DEA57BDEA57BDEA57BCE8C42A57300A55200CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6A57300DEA57BDEA57BDE
      A57BDEA57BA57300A55200CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D6CED6D6A57300FFFFCEFFFFCEFFFFCEFFFFCEA57300CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6A57300A5
      7300A57300A57300CE8C42CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D60018
      FFCED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CE
      D6D6CED6D6CED6D6CED6D60018FF0018FF0018FFCED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D60018FF0018FF0018
      FF0018FF0018FFCED6D6CED6D60018FFCED6D6CED6D6CED6D6CED6D6CED6D6CE
      D6D6CED6D6CED6D6CED6D6CED6D60018FFCED6D6CED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D60018FFCED6D6CED6D6CED6D6CED6D6CE
      D6D6CED6D6CED6D6CED6D60018FFCED6D6CED6D6CED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D60018FFCED6D6CED6D60018FFCED6D60018FFCED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CE
      D6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6
      CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6}
  end
  object BtnCreateSync: TBitBtn
    Left = 240
    Top = 160
    Width = 137
    Height = 25
    Hint = 'Create a synchronization object'
    Action = CreateSyncObject
    Caption = #21019#24314#21516#27493#23545#35937
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333000003333333333F77777FFF333333009999900
      3333333777777777FF33330998FFF899033333777333F3777FF33099FFFCFFF9
      903337773337333777F3309FFFFFFFCF9033377333F3337377FF098FF0FFFFFF
      890377F3373F3333377F09FFFF0FFFFFF90377F3F373FFFFF77F09FCFFF90000
      F90377F733377777377F09FFFFFFFFFFF90377F333333333377F098FFFFFFFFF
      890377FF3F33333F3773309FCFFFFFCF9033377F7333F37377F33099FFFCFFF9
      90333777FF37F3377733330998FCF899033333777FF7FF777333333009999900
      3333333777777777333333333000003333333333377777333333}
    NumGlyphs = 2
  end
  object BtnCreateThread: TBitBtn
    Left = 474
    Top = 136
    Width = 121
    Height = 25
    Hint = 'Create a Thread with the selected Priority'
    Action = CreateThread
    Caption = #20256#36865#25991#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C40E0000C40E00000000000000000000CED6D6CED6D6
      CED6D6CED6D6ADADAD7373735239295239295239295239295239295239295239
      29523929523929A5A5A5CED6D6CED6D6CED6D6CED6D6949494ADFFFFADFFFFAD
      FFFFADFFFFADFFFF9CFFFFADFFFF9CFFFFADFFFF9CFFFF523929CED6D6CED6D6
      CED6D6CED6D6949494ADFFFFADFFFFADFFFFADFFFFADFFFFADFFFF9CFFFFADFF
      FF9CFFFFADFFFF523929CED6D6CED6D6CED6D6CED6D6949494ADFFFFADFFFFAD
      FFFFADFFFFADFFFFADFFFFADFFFF9CFFFFADFFFF9CFFFF523929CED6D6CED6D6
      CED6D6CED6D6949494ADFFFFADFFFFADFFFFADFFFFADFFFFADFFFFADFFFFADFF
      FF9CFFFFADFFFF737373CED6D6CED6D6CED6D6CED6D6949494ADFFFFADFFFFAD
      FFFFADFFFFADFFFFADFFFFADFFFF9CFFFFADFFFF9CFFFF848484CED6D6CED6D6
      CED6D6CED6D69494949CF7FFADFFFF9CFFFFADFFFF9CFFFFADFFFF9CFFFFADFF
      FF9CFFFFADFFFF8C8C8CCED6D6CED6D6CED6D6CED6D6C6C6C6C6C6C69CF7FFAD
      FFFF9CFFFFADFFFF9CFFFFADFFFF9CFFFFADFFFF9CFFFF9C9C9CCED6D6CED6D6
      EFAD00A573007B5A00EFAD00C6C6C69CF7FF9CF7FF9CF7FF9CF7FF9CF7FF9CF7
      FF9CF7FF9CF7FFA5A5A5CED6D6CED6D67B5A00DEA57BDEA57B7B5A00C6C6C6C6
      C6C69CF7FF9CF7FF9CF7FF9CF7FF52DEFF52DEFF52BDD6737373EFAD00A57300
      A57300DEA57BDEA57BA573007B5A00EFAD00C6C6C69CF7FF9CF7FFB5B5B5A5A5
      A5737373737373B5B5B5AD7B00F7CE6BDEA57BDEA57BDEA57BDEA57BFF9C297B
      5A00C6C6C69CF7FF9CF7FFA5A5A5E7E7E7DEDEDEDEDEDEB5B5B5AD7B00FFFFCE
      FFFFCEF7CE6BDEA57BF7CE6BF7CE6BA57300C6C6C69CF7FF9CF7FFA5A5A5ADFF
      FFE7E7E7B5B5B5CED6D6F7D66BE7B521E7B529FFFF63F7CE6BAD7B00AD7B00F7
      CE6BCED6D6ADFFFFE7E7E78C8C8CCED6D6B5B5B5CED6D6CED6D6CED6D6CED6D6
      F7BD29FFFF9CFFFF9CAD7B00B5B5B5CECECEC6C6C6B5B5B58C8C8C8C8C8CC6C6
      C6CED6D6CED6D6CED6D6CED6D6CED6D6FFD66BFFCE29FFCE31F7CE6BCED6D6CE
      D6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6}
  end
  object BtnResetApp: TBitBtn
    Left = 200
    Top = 432
    Width = 100
    Height = 25
    Action = ResetApplication
    Caption = #22797#20301
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C40E0000C40E00000000000000000000CED6D6CED6D6
      CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D68C6B18CED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CE
      D6D6846300FF9C298C6B18CED6D6CED6D6CED6D6CED6D6CED6D6ADADAD737373
      523929523929393939393939B5B5B5846300FF9C29DEA57BFF9C298C6B187373
      73737373393939A5A5A5949494ADFFFF9CFFFF9CFFFF52DEFF52BDD6846300DE
      A57BDEA57BDEA57BDEA57BFF9C298C6B1852DEFF52C6D6393939949494ADFFFF
      ADFFFFADFFFFADFFFF846300DEA57BFFFFC6FFFFC6DEA57BDEA57BDEA57BFF9C
      298C6B1852DEFF393939949494ADFFFFADFFFFADFFFFE7BD7B8C6B188C6B188C
      6B18FFFFC6FFFFC6DEA57B8C6B188C6B188C6B18E7BD7B737373949494ADFFFF
      ADFFFFADFFFFADFFFFADFFFFADFFFF9C7B31FFFFC6FFFFC6FFF7AD9C7B31B5B5
      B59CFFFF52DEFF393939949494CED6D6ADFFFFADFFFFADFFFFADFFFFADFFFFAD
      8C42FFFFC6FFFFC6DEA57BFFD6949CF7FF52DEFFADDED6393939949494ADFFFF
      ADFFFFADFFFFADFFFFADFFFFBD944ADEA57BFFF7ADFFFFC6AD8C429CF7FF9CF7
      FF9CFFFF52DEFF5A5A5AADADADCED6D6ADFFFFCED6D6ADFFFFADFFFFBD944AFF
      E79CFFF7ADE7BD73FFD694ADFFFFADFFFFADFFFFADFFFF636363B5B5B5ADFFFF
      CED6D6ADFFFFADFFFFAD8C39DEA57BFFD694E7BD7BADFFFFADFFFFADFFFFADFF
      FFADFFFFADFFFF737373C6C6C6CED6D6ADFFFFCED6D6D6B56BD6B56BD6B56BD6
      B56BEFCE84C6C6C6C6C6C6ADDED652BDD652BDD652BDD6848484CECECEB5B5B5
      B5B5B5B5B5B5CECECEADDED6ADDED652DEFF52DEFF52DEFF52DEFF52DEFF52DE
      FF52DEFF52BDD6C6C6C6CED6D6DEDEDE00F7FF00F7FF00F7FF00F7FF52BDD6E7
      E7E78C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8CCED6D6CED6D69C9C9C
      52FFFF63F7FF63F7FF63F7FF00F7FFB5B5B5CED6D6CED6D6CED6D6CED6D6CED6
      D6CED6D6CED6D6CED6D6CED6D6CED6D69C9C9C8C8C8C8C8C8C8C8C8C9C9C9CCE
      D6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6CED6D6}
  end
  object CmbThreads: TComboBox
    Left = 344
    Top = 129
    Width = 33
    Height = 21
    Enabled = False
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 10
    Text = '2'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10')
  end
  object Panel1: TPanel
    Left = 606
    Top = 202
    Width = 25
    Height = 221
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 11
  end
  object RdGrpSync: TRadioGroup
    Left = 224
    Top = 10
    Width = 185
    Height = 111
    Caption = 'Synchronization Method'
    Items.Strings = (
      'No Synchronization'
      'Mutex'
      'Semaphore')
    TabOrder = 12
  end
  object cds_threads: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = True
    FieldDefs = <
      item
        Name = 'THREAD_ID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'THREAD_DATA'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 488
    Top = 296
    Data = {
      4C0000009619E0BD0100000018000000020000000000030000004C0009544852
      4541445F494401004900000001000557494454480200020014000B5448524541
      445F4441544104000100000000000000}
    object cds_threadsTHREAD_ID: TStringField
      FieldName = 'THREAD_ID'
    end
    object cds_threadsTHREAD_DATA: TIntegerField
      FieldName = 'THREAD_DATA'
    end
    object cds_threadsNR_THREADS: TAggregateField
      FieldName = 'NR_THREADS'
      Active = True
      Expression = 'COUNT(THREAD_ID)'
    end
  end
  object ds_threads: TDataSource
    DataSet = cds_threads
    Left = 136
    Top = 304
  end