unit_frmmain.dfm

端口服务程序（ServerService.rar）及常用网络函数及加解密

object FrmMain: TFrmMain
  Left = 195
  Top = 128
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #32593#32476#26381#21153#31243#24207
  ClientHeight = 227
  ClientWidth = 408
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {
    0000010001002020000001000800C00800001600000028000000200000004000
    000001000800000000000004000000000000000000000001000000000000FFFF
    FF00080808001010100018181800212121002929290031313100393939004242
    42004A4A4A00525252005A5A5A00636363006B6B6B0073737300848484008C8C
    8C00949494009C9C9C00A5A5A500B5B5B500BDBDBD00C6C6C600CECECE00D6D6
    D600DEDEDE00E7E7E700EFEFEF00F7F7F700DEDEE700B5B5BD00ADADB5009C9C
    A50073737B007B7B840063636B004A4A520031314200CED6E700101829002129
    390010214200737B840029394A0021314200ADC6DE00294A6B0010528C0073A5
    C6005A8CA5004294BD00297BA500185A7B00084A6B00DEEFF7009CADB5003984
    A500BDE7F7008CC6DE004A849C00315A6B004A8CA500298CB50029424A007BC6
    DE0063BDD60042BDDE00185A6B000094BD0021637300426B7300428C9C003184
    940021738400184A5200106B7B005A9CA500316B730042ADBD00108C9C004A94
    9C0052A5AD00217B840052B5BD004ABDC60039A5AD0029A5AD00109CA500008C
    9400E7EFEF00D6DEDE00DEE7E700A5ADAD008C949400ADCECE00A5C6C6002129
    29009CCECE0031424200425A5A0018212100395A5A0063C6C60042A5A5001842
    42004ACECE0031949400319C9C00216B6B00217B7B00299C9C001894940010B5
    B5000094940000ADA50042B5AD0039C6BD0031ADA50029B5AD0021ADA50052B5
    AD004AA59C00398C84005A9C94004A948C00A5E7DE007BB5AD004AC6B50042BD
    AD0021635A00BDEFE700396B630052B5A50052BDAD0073BDAD005AC6AD003984
    73005294840042BD9C0084D6BD00ADDECE0084CEB50094D6BD0073C6A50052BD
    8C0052846B0094A59C0073AD8C0063AD84006BAD8400A5CEAD00A5BDA5006B7B
    6B003139310094BD94007BB57B0073946B0094B5840084A56B007B847300EFF7
    E700ADB5A500E7EFDE00BDCEA500B5C6940094A57300CED6B500737B5A00525A
    3100B5BD8400EFEFD60084846B00ADAD7B00525239004A4A31005A5A39009C9C
    63006B6B42002929180031311800CEC68400BDB56B009C944A00A59C5A007B6B
    2100FFF7D600CEC6A5008C7B390039311000E7DEBD00E7D69C00BDA55200947B
    2900C6AD6300AD8C2900292108007B6B4200DEC68C008C733900C69C39005A42
    0800F7E7C60094846300947B4200BD9439008C630800E7D6B500F7D69400E7C6
    8400CEAD6B00D6A54A004A391800946B1800C68C18006B4A08007B5200009463
    0000C6BDAD00847B6B00F7D69C00E7BD7300DEB56B00DEAD5A00B58C4200CE94
    310073521800AD7B21006B4A1000BD7B0800CE8408008C5A0000B5730000F7DE
    B500E7CEA500DEB57300D6A55A00CE9C4A0052391000CE8C2100C6841800BD7B
    1000B5730800EFC68C00D6943900CE841800D6BD9C00B59C7B00F7D6AD00E7D6
    C60063524200C6BDBD00A59C9C006B636300524A4A00635A630000000000FFFF
    FFFFFFFF1B1918181AFFFFFFFF1A161F12111314191CFFFFFFFFFFFFFFFFFFFF
    FFFF1C1E210B090A0C131B1B1224050302020203070D18FFFFFFFFFFFFFFFFFF
    FF1A0F08211F151F0F09090703B2B2B204030302020206221AFFFFFFFFFFFFFF
    FF11081F1BFFFFFF1BCAC8D6E1D7D7D6EDD3B204020260602319FFFFFFFFFFFF
    180812FFFFFFFFFFF5D8F1E4E4F0E4F1F1CDE3D30660642B2C241DFFFFFFFFFF
    120C19FFFFFFFFBDEFF0EFEFEFEFEFEFC008090A08D304603F2C2A1CFFFFFF1A
    0C101CFFFFFF1CECF0EEEEE0E0E0E0C2082CC0E2C0CDD3B20364605CFFFFFF19
    0B13FFFFFFFFBDEFEEE0E0F3F3F3DF0B2C2CC6EFF0BBCDED04020208FFFFFF19
    0AFBFFFFFFFFDDE0F3D2D2D2DEECA7653F498163B1CBE4D8ED04020116FFFF19
    0B0F1CFFFFAAD2E0D2D2D2DEDEB046463C6F52434AA7EFF1D7BC03010FFFFFFF
    100919FFFFC9F3D2EBDEDDDCEA8F6B3B3D76776F4546D5EFF1D6B2020C1CFFFF
    150614FFFFBDD2EBDEEAD0BEBE8D675154736A899846DFEFF0CDBC020B1BFFFF
    1B0722FFFFBDD2DDDCF2F7E8BDA666547355799D9C889CEEEFF1C8040A1BFFFF
    1A080CFFFFC9DEDCF2F7BDC9AA8C78748A867B6B89839CCCEFF0D7B20B1CFFFF
    590D151C16F8EAD0DBC9AA1B1C618080738F869D9C6CB1B6D5F0CDBC0E1CFFFF
    1C151822080DEAF2E8AA1B001C3A73878773BAD0946DB1DFEEF0D8ED0EFFFFFF
    FF1608060706B1BEC9AA1B1B265167868784A4B4A5C1ECE0EEEFD8A81AFFFFFF
    FF100506070706A5BDA01C395347678E5F96A3A4B0DEEAF3EEEFD8CAFFFFFFFF
    FF0F060606070609E9AA1C1C307C5A1B5AA6A4A9DCBDD0E0EEF0BB18FFFFFFFF
    FF1407080606060DBDAAA27D2D261C1CA2A6A4BDAAAABFE0C2D4D9FFFFFFFFFF
    FF1B0F09FE06061600BDA34E531C1CA0AAE9BAAACEEAECE0C413FFFFFFFFFFFF
    FFFF190A0D0E05111C1B1551335EAAC9E8E9F2D0DED2CBC4111BFFFFFFFFFFFF
    FFFFFF160C131005101B597E2E62ABA1F5D0DDEBCBADDA17FFFFFFFFFFFFFFFF
    FFFFFF1C1521161006221A1C17110A070ACACACA105C1AFFFFFFFFFFFFFFFFFF
    FFFFFFFFFF171017140809151CFFFF1C1A1620181CFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFF1913171723060F1DFFFF1C10080B22141BFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFF1B151E191F0A0722140F06070706060814FFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFF1C175C16171008060606070706060611FFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFF1B15131415120D08060506060614FFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFF1D140F0F11100E0B08060718FFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF1C15100DFCFC0D0D13FFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1C19171514171CFFFFFFFFFFFFFFFC1E
    00FFF000007FE000001FE1C0000FC7C00007C7800003870000038F0000038F00
    000186000001C6000000C6000000C6000000C6000000C0000000C0000001E000
    0001E0000003E0000003E0000007E000000FF000000FF800003FF800007FFE01
    81FFFF00C07FFF80003FFFC0003FFFF0003FFFFC003FFFFF007FFFFFC07F0000
    00000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  DesignSize = (
    408
    227)
  PixelsPerInch = 96
  TextHeight = 13
  object Image3: TImage
    Left = 8
    Top = 136
    Width = 33
    Height = 33
    Picture.Data = {
      055449636F6E0000010001002020000001000800C00800001600000028000000
      2000000040000000010008000000000000040000000000000000000000010000
      00000000FFFFFF00080808001010100018181800212121002929290031313100
      39393900424242004A4A4A00525252005A5A5A00636363006B6B6B0073737300
      848484008C8C8C00949494009C9C9C00A5A5A500B5B5B500BDBDBD00C6C6C600
      CECECE00D6D6D600DEDEDE00E7E7E700EFEFEF00F7F7F700DEDEE700B5B5BD00
      ADADB5009C9CA50073737B007B7B840063636B004A4A520031314200CED6E700
      101829002129390010214200737B840029394A0021314200ADC6DE00294A6B00
      10528C0073A5C6005A8CA5004294BD00297BA500185A7B00084A6B00DEEFF700
      9CADB5003984A500BDE7F7008CC6DE004A849C00315A6B004A8CA500298CB500
      29424A007BC6DE0063BDD60042BDDE00185A6B000094BD0021637300426B7300
      428C9C003184940021738400184A5200106B7B005A9CA500316B730042ADBD00
      108C9C004A949C0052A5AD00217B840052B5BD004ABDC60039A5AD0029A5AD00
      109CA500008C9400E7EFEF00D6DEDE00DEE7E700A5ADAD008C949400ADCECE00
      A5C6C600212929009CCECE0031424200425A5A0018212100395A5A0063C6C600
      42A5A500184242004ACECE0031949400319C9C00216B6B00217B7B00299C9C00
      1894940010B5B5000094940000ADA50042B5AD0039C6BD0031ADA50029B5AD00
      21ADA50052B5AD004AA59C00398C84005A9C94004A948C00A5E7DE007BB5AD00
      4AC6B50042BDAD0021635A00BDEFE700396B630052B5A50052BDAD0073BDAD00
      5AC6AD00398473005294840042BD9C0084D6BD00ADDECE0084CEB50094D6BD00
      73C6A50052BD8C0052846B0094A59C0073AD8C0063AD84006BAD8400A5CEAD00
      A5BDA5006B7B6B003139310094BD94007BB57B0073946B0094B5840084A56B00
      7B847300EFF7E700ADB5A500E7EFDE00BDCEA500B5C6940094A57300CED6B500
      737B5A00525A3100B5BD8400EFEFD60084846B00ADAD7B00525239004A4A3100
      5A5A39009C9C63006B6B42002929180031311800CEC68400BDB56B009C944A00
      A59C5A007B6B2100FFF7D600CEC6A5008C7B390039311000E7DEBD00E7D69C00
      BDA55200947B2900C6AD6300AD8C2900292108007B6B4200DEC68C008C733900
      C69C39005A420800F7E7C60094846300947B4200BD9439008C630800E7D6B500
      F7D69400E7C68400CEAD6B00D6A54A004A391800946B1800C68C18006B4A0800
      7B52000094630000C6BDAD00847B6B00F7D69C00E7BD7300DEB56B00DEAD5A00
      B58C4200CE94310073521800AD7B21006B4A1000BD7B0800CE8408008C5A0000
      B5730000F7DEB500E7CEA500DEB57300D6A55A00CE9C4A0052391000CE8C2100
      C6841800BD7B1000B5730800EFC68C00D6943900CE841800D6BD9C00B59C7B00
      F7D6AD00E7D6C60063524200C6BDBD00A59C9C006B636300524A4A00635A6300
      00000000FFFFFFFFFFFF1B1918181AFFFFFFFF1A161F12111314191CFFFFFFFF
      FFFFFFFFFFFFFFFF1C1E210B090A0C131B1B1224050302020203070D18FFFFFF
      FFFFFFFFFFFFFF1A0F08211F151F0F09090703B2B2B204030302020206221AFF
      FFFFFFFFFFFFFF11081F1BFFFFFF1BCAC8D6E1D7D7D6EDD3B204020260602319
      FFFFFFFFFFFF180812FFFFFFFFFFF5D8F1E4E4F0E4F1F1CDE3D30660642B2C24
      1DFFFFFFFFFF120C19FFFFFFFFBDEFF0EFEFEFEFEFEFC008090A08D304603F2C
      2A1CFFFFFF1A0C101CFFFFFF1CECF0EEEEE0E0E0E0C2082CC0E2C0CDD3B20364
      605CFFFFFF190B13FFFFFFFFBDEFEEE0E0F3F3F3DF0B2C2CC6EFF0BBCDED0402
      0208FFFFFF190AFBFFFFFFFFDDE0F3D2D2D2DEECA7653F498163B1CBE4D8ED04
      020116FFFF190B0F1CFFFFAAD2E0D2D2D2DEDEB046463C6F52434AA7EFF1D7BC
      03010FFFFFFF100919FFFFC9F3D2EBDEDDDCEA8F6B3B3D76776F4546D5EFF1D6
      B2020C1CFFFF150614FFFFBDD2EBDEEAD0BEBE8D675154736A899846DFEFF0CD
      BC020B1BFFFF1B0722FFFFBDD2DDDCF2F7E8BDA666547355799D9C889CEEEFF1
      C8040A1BFFFF1A080CFFFFC9DEDCF2F7BDC9AA8C78748A867B6B89839CCCEFF0
      D7B20B1CFFFF590D151C16F8EAD0DBC9AA1B1C618080738F869D9C6CB1B6D5F0
      CDBC0E1CFFFF1C151822080DEAF2E8AA1B001C3A73878773BAD0946DB1DFEEF0
      D8ED0EFFFFFFFF1608060706B1BEC9AA1B1B265167868784A4B4A5C1ECE0EEEF
      D8A81AFFFFFFFF100506070706A5BDA01C395347678E5F96A3A4B0DEEAF3EEEF
      D8CAFFFFFFFFFF0F060606070609E9AA1C1C307C5A1B5AA6A4A9DCBDD0E0EEF0
      BB18FFFFFFFFFF1407080606060DBDAAA27D2D261C1CA2A6A4BDAAAABFE0C2D4
      D9FFFFFFFFFFFF1B0F09FE06061600BDA34E531C1CA0AAE9BAAACEEAECE0C413
      FFFFFFFFFFFFFFFF190A0D0E05111C1B1551335EAAC9E8E9F2D0DED2CBC4111B
      FFFFFFFFFFFFFFFFFF160C131005101B597E2E62ABA1F5D0DDEBCBADDA17FFFF
      FFFFFFFFFFFFFFFFFF1C1521161006221A1C17110A070ACACACA105C1AFFFFFF
      FFFFFFFFFFFFFFFFFFFFFF171017140809151CFFFF1C1A1620181CFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFF1913171723060F1DFFFF1C10080B22141BFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF1B151E191F0A0722140F06070706060814FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF1C175C16171008060606070706060611FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1B15131415120D08060506060614FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1D140F0F11100E0B08060718FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1C15100DFCFC0D0D13FFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1C19171514171CFFFFFF
      FFFFFFFFFC1E00FFF000007FE000001FE1C0000FC7C00007C780000387000003
      8F0000038F00000186000001C6000000C6000000C6000000C6000000C0000000
      C0000001E0000001E0000003E0000003E0000007E000000FF000000FF800003F
      F800007FFE0181FFFF00C07FFF80003FFFC0003FFFF0003FFFFC003FFFFF007F
      FFFFC07F000000000000000000000000000000000000000000000000}
    Visible = False
  end
  object DataAvailableLabel: TLabel
    Left = 16
    Top = 8
    Width = 3
    Height = 13
  end
  object Edit4: TEdit
    Left = 440
    Top = 41
    Width = 161
    Height = 21
    Anchors = [akLeft]
    BevelInner = bvSpace
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clMoneyGreen
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Button2: TButton
    Left = 432
    Top = 72
    Width = 65
    Height = 17
    Caption = 'Button2'
    TabOrder = 1
    Visible = False
  end
  object DisplayMemo: TMemo
    Left = 8
    Top = 32
    Width = 393
    Height = 189
    Anchors = [akLeft, akTop, akRight, akBottom]
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object StartButton: TButton
    Left = 288
    Top = 0
    Width = 75
    Height = 25
    Caption = '&Start'
    Default = True
    TabOrder = 3
  end
  object MSNPop: TMSNPopUp
    Text = 'text'
    URL = 'http://www.url.com/'
    IconLeft = 8
    IconTop = 8
    Width = 148
    Height = 121
    GradientColor1 = 16764057
    GradientColor2 = clWhite
    ScrollSpeed = 9
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HoverFont.Charset = DEFAULT_CHARSET
    HoverFont.Color = clBlue
    HoverFont.Height = -11
    HoverFont.Name = 'MS Sans Serif'
    HoverFont.Style = [fsUnderline]
    Title = #25552#31034
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Options = [msnAutoOpenURL, msnCascadePopups, msnAllowScroll, msnAllowHyperlink]
    TextAlignment = taCenter
    TextCursor = crDefault
    PopupMarge = 2
    PopupStartX = 16
    PopupStartY = 2
    DefaultMonitor = dmDesktop
    Left = 256
    Top = 32
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 8
    Top = 32
  end
  object Timer2: TTimer
    Interval = 5000
    OnTimer = Timer2Timer
    Left = 80
    Top = 64
  end
  object WSocketServer1: TWSocketServer
    LineMode = False
    LineLimit = 65536
    LineEnd = #13#10
    LineEcho = False
    LineEdit = False
    Proto = 'tcp'
    LocalAddr = '127.0.0.1'
    LocalPort = '0'
    MultiThreaded = False
    MultiCast = False
    MultiCastIpTTL = 1
    ReuseAddr = False
    ComponentOptions = []
    OnBgException = WSocketServer1BgException
    FlushTimeout = 60
    SendFlags = wsSendNormal
    LingerOnOff = wsLingerOn
    LingerTimeout = 0
    SocksLevel = '5'
    SocksAuthentication = socksNoAuthentication
    Banner = 'Welcome to TcpSrv'
    BannerToBusy = 'Sorry, too many clients'
    MaxClients = 0
    OnClientDisconnect = WSocketServer1ClientDisconnect
    OnClientConnect = WSocketServer1ClientConnect
    Left = 152
    Top = 40
  end
end