umainserver.dfm

著名的SecureBlackBox控件完整源码

object frmMainServer: TfrmMainServer
  Left = 331
  Top = 360
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Server Transfer Server'
  ClientHeight = 353
  ClientWidth = 249
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label13: TLabel
    Left = 8
    Top = 310
    Width = 52
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Upload To:'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 2
    Width = 233
    Height = 151
    Caption = 'IndyHTTPServer'
    TabOrder = 0
    object Label1: TLabel
      Left = 81
      Top = 29
      Width = 61
      Height = 13
      Caption = 'HTTP-Server'
    end
    object Label5: TLabel
      Left = 16
      Top = 59
      Width = 27
      Height = 13
      Caption = 'Port: '
    end
    object Label6: TLabel
      Left = 16
      Top = 90
      Width = 49
      Height = 13
      Caption = 'Message: '
    end
    object Button1: TButton
      Left = 8
      Top = 24
      Width = 65
      Height = 25
      Caption = 'Activate'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 152
      Top = 24
      Width = 69
      Height = 25
      Caption = 'Deactivate'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 8
      Top = 116
      Width = 213
      Height = 25
      Caption = 'Status'
      TabOrder = 2
      OnClick = Button3Click
    end
    object seTCPPort: TSpinEdit
      Left = 116
      Top = 55
      Width = 105
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 3
      Value = 8099
    end
    object cbTCPMsg: TComboBox
      Left = 116
      Top = 86
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 154
    Width = 233
    Height = 151
    Caption = 'IndyTCPServer'
    TabOrder = 1
    object Label2: TLabel
      Left = 81
      Top = 35
      Width = 55
      Height = 13
      Caption = 'TCP-Server'
    end
    object Label9: TLabel
      Left = 16
      Top = 59
      Width = 27
      Height = 13
      Caption = 'Port: '
    end
    object Label10: TLabel
      Left = 16
      Top = 90
      Width = 49
      Height = 13
      Caption = 'Message: '
    end
    object Button4: TButton
      Left = 8
      Top = 24
      Width = 65
      Height = 25
      Caption = 'Activate'
      TabOrder = 0
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 152
      Top = 24
      Width = 69
      Height = 25
      Caption = 'Deactivate'
      TabOrder = 1
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 8
      Top = 116
      Width = 213
      Height = 25
      Caption = 'Status'
      TabOrder = 2
      OnClick = Button6Click
    end
    object SpinEdit2: TSpinEdit
      Left = 116
      Top = 55
      Width = 105
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 3
      Value = 8098
    end
    object ComboBox2: TComboBox
      Left = 116
      Top = 86
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
    end
  end
  object eUploadDir: TEdit
    Left = 8
    Top = 326
    Width = 232
    Height = 21
    Anchors = [akLeft, akBottom]
    TabOrder = 2
    Text = 'c:\ServerUploads'
  end
  object ROMessage: TROBinMessage
    UseCompression = False
    Left = 8
    Top = 312
  end
  object IndyHTTPServer: TROIndyHTTPServer
    Dispatchers = <
      item
        Name = 'ROMessage'
        Message = ROMessage
        Enabled = True
        PathInfo = '/BIN'
      end>
    OnAfterServerActivate = IndyHTTPServerAfterServerActivate
    OnAfterServerDeactivate = IndyHTTPServerAfterServerDeactivate
    IndyServer.Bindings = <>
    IndyServer.DefaultPort = 8099
    IndyServer.IOHandler = IOHandler
    Port = 8099
    Left = 264
    Top = 32
  end
  object IndyTCPServer: TROIndyTCPServer
    Dispatchers = <
      item
        Name = 'ROMessage'
        Message = ROMessage
        Enabled = True
      end>
    OnAfterServerActivate = IndyTCPServerAfterServerActivate
    OnAfterServerDeactivate = IndyTCPServerAfterServerDeactivate
    IndyServer.Bindings = <>
    IndyServer.DefaultPort = 8098
    IndyServer.IOHandler = IOHandler
    Port = 8098
    Left = 192
    Top = 112
  end
  object IOHandler: TElIndySSLServerIOHandler
    CertStorage = ClientCertStorage
    ClientAuthentication = False
    OnCertificateValidate = IOHandlerCertificateValidate
    Passthrough = False
    ServerCertStorage = ServerCertStorage
    Versions = [sbSSL3, sbTLS1]
    Left = 176
    Top = 2
  end
  object ClientCertStorage: TElMemoryCertStorage
    Left = 88
    Top = 58
    BinaryCertificates = {
      4606000030820642020103308205FC06092A864886F70D010701A08205ED0482
      05E9308205E5308006092A864886F70D010701A080048202E6308202E2308202
      DE060B2A864886F70D010C0A0102A08202B6308202B2301C060A2A864886F70D
      010C0101300E0408AB1BE67BFA2FF20C020208000482029000AD1C531F60CC9E
      5DE433D7883548B557B4A7D0B75E7965A2CC002F22B4BEFB414E2259C5EC8B91
      B1CC5580E76D76B3E47DD1052E6AD90BE426A8C569460FFBE78F836DF201DCA5
      2DACC78D7D5867D05AD7360531CC61EDA8E960ABFF5BAB79DFFDF0433D2CE06C
      694861B88349649969406F4EBB6D0750E83A7F54AD202EA765970C227C4791BA
      B0B9DA74DEC802153B9549C4A8BE260B14CC03E8FBD28082813BB8BE2D82F0D9
      122A4CE573441384B94F28DB617D4989D8E542537ACABA9F6EE9849BEC025474
      FEF65D1729DCB2368B7345CBEE1310D357EE2F6D75757207FBD32523735D9ED2
      0A1661973EB015E385B3DA30B1AA125048D595ED6D7FE69DCE3F92C52A40B4B7
      65B49427539297648B7995EE62B3ADAF468834F5075D72E760D9B5DA2AFE6CD8
      C41E0DE205DD86EC1A9414E1BB0DC35EEF4D217D6D58ABAF2E6ED6D8E9F24C01
      CEDF9A4A1876F3785473BCF1CE4FF650D1751EC54CF29DDF1B40CBFC276A3408
      4A9CC4E175E3C0CE0A94E352C291BBAF6DD7624C3F1CC1188C3660012F2FBCB8
      FCB552494CAC04EAAF594A70E8EF2F3562F7A379E19DA3243B47910F3A61D84E
      B848A2DB2DBC1DAA5141A0105D1C9761044B0C681F78CAD0AAD1954B956C2CA7
      E02CFF92E74852F91539052D4A6932A07267882F0728611AE8B7599E967A4E24
      9EE1CA347BB096D61923C4C210105D3ABED02411259C334C37B5055E9B7F2562
      CC0641B26E68A0A36973AB68D6F8D3420387FB0BAA3B8A9AA1E642D38590BA76
      F853D77C2C59C2C6E3B1D42C2B16079554F112F1D003D2E7A6D67E0583FB7451
      676FA133C08BC266D5087D27B53C61D97A0990FD5F5098A83AE2CCB01310B5C7
      B518D8C477BC72E1C3E5350BC81DA3583262864061A9D3789D5CA39ED4A1F98D
      B034F7206652DB353115301306092A864886F70D010915310604040100000100
      000000308006092A864886F70D010706A0803080020100308006092A864886F7
      0D010701301C060A2A864886F70D010C0101300E0408518491CBAEDAB4B20202
      0800A08004820299A7A98634CAC4D2C89AE9A4B044499DC535920A5D6A15928E
      3AE2E32C04C5D1C5480E69073383306D53E6CC6D07ED62A41DB67E2BC37EA6B3
      D24652A66B2C2ED3E11AE7EAC22CE8C51A92986B42235A0C21F8B2DFC4059621
      BB9F512D45960E9F3906966C70F083ED800670B6557E8BE13C0585F32BEA69A4
      555C5D22E7D80E20A9BF21E093A1E5C1AC9497F830D30FB4CDFC581EBD902E34
      CA2D49F73824330839811A890400952995A2668F3DA821DE26AFEC32D0837073
      5F859AB7A556495187E4870C812858E4A6DFE038571A944EDC2874A321C33041
      672BDD016AA1D81CB2ED0FDB0AE75DD26151E32082B3DF25641ACFCB5B3D643D
      4C064FD0046100509F627C4F0AADE6114FAF0A8FA3C90FAAEBE707B220BA4B4C
      8EC152277E3F441AA92AF442F5F6A0F3A04B825378EF7195F90D08DF3356D7FB
      44D3BF9C929F3BF3274EC10148D2CFB12F7EC41987C4012FBAB0E00B9707B8FC
      9D29C7C0B9F4362BF08D9225129A1A91A8ADEAD08C67309B8994278CAAD4C563
      EFF5303727C1DB702F3EABD2FFA293E4FAC7D13850EC1B2E92C7EFF2F5D532CB
      11A4628F2C348BB9EFC8DF69B91278692E839AFD87D383F0FC508E1A4AEE273D
      D31B111C891923B72A0CD19690B1CF578E9615EE83552D04CF34ADA7FF81D7E2
      F355F49A010EB03A7326FAF0CB66A31ED2EA58BE7C89ACF47E7C560E7C337984
      F89CC1C0A5D50B4CBB783BCFE68C3D4398AC37FDD392DB06433AC83F0DC8F6E3
      D8E72A63CAE0C7E166BFAE5A0D95BD5FCDB5AC5FEC54D105FC6FD07CB9513683
      45AD9D7595AE1395AB7952B63C28AFAACA55FFB01A258C857E6E6E7F794CA120
      BAD965374F08C6373B7F1FCBBC48546302476ED0A30730535F148A63F20F40A2
      7FA08B7699FF80746622665EC9DF19BCAF1BD1DF48ED521C08C542E033D41E26
      E100000000000000000000303D3021300906052B0E03021A05000414BEC3FE81
      8DD4797491672914CAE1B5BCB3E06B8E041499A3620333CC32DB1B0268A52DD2
      2C45F9B059C502020800}
  end
  object ServerCertStorage: TElMemoryCertStorage
    Left = 128
    Top = 58
    BinaryCertificates = {
      4606000030820642020103308205FC06092A864886F70D010701A08205ED0482
      05E9308205E5308006092A864886F70D010701A080048202E6308202E2308202
      DE060B2A864886F70D010C0A0102A08202B6308202B2301C060A2A864886F70D
      010C0101300E0408E140F0610465CA3202020800048202903DAD508624163066
      BEC3F6F35F735F3A7725EDC2A82ACDF940F7BB090FF05C0658217F1481770EE8
      6DE268A373B75008CDCC7953AC9C0EDE059C02DBF9CBB4D6ECA374FE707419E9
      64CDB87E9C9F139E7123E3FC19A08F02E785E97C1ABD3EF82EF0DBF27918D2C6
      2A05E044ED3912013564E5D472448AB0B4D1E61D3C8AAD77B7752A0D8BA8BDC4
      0A0FFA4C7350AD5F6542F8192E20BC20EC70456ECA0C214844B2B6A95FF6B857
      F70CF0F25D938A5DFAF187A27B00205433972C8DFA837CE1CDB4B1E75E1C802A
      5705550A1D8B79B0D6579426205E03BA56848DEC76F791D534C81DBA0B60EC09
      271A7D9EA4006EE8AD71A9B778C32D81830A6A4C2BAB80A78EE9492350207F1C
      7813DF56D1B36EF27D0EC8EE014FAA9CBCB85985A746E6BE35E463574DD0D894
      256DC5ADDAAA43E1A4F1AFA6E571A2B75A93825730BDC58F543AEF03D54B1CF0
      4AA2A045062533CE929F32CC0D05858E4635EB105BF0FD22FA5CF88E288FDA04
      4A8584D7DB1EE97BCAD19A4731B73E4474A4E6A4BC66E98136ECF9A7FB338983
      65B61970824E28C88B33A1CBB9DB92AD9EC4C066A75F2AB5A6E2BDD0D8BB9441
      3F06CF29DC68742A92E6203D1F92BEB293F2042F2FB8E40219C1AB29A1873417
      A5C8125836AAA211B647280C79DF86B68FA1554E043F5C99F597F0454319F43F
      FA9F811BF6C313D52846047E92972D9EED7C3221CD42CAD93725AD7F4CCA0687
      5A3FC4D49D1479AF39AEA5DF5D900DB59AC961BAC0AD8C3A18740E30127E1D7A
      426B33CD3578DB3C7F13F076D6352D5DD1867A0B86FA06F04B641104DB557910
      8A914E12FA37D21A4D7E684E3EA07D82C9D8A8E9F04D84202CDFD7F3729575C0
      E8D0C2D107E1F6C4585190FB3C128C01BA4B8523939934E72F56F96B660C722F
      5152692712E659413115301306092A864886F70D010915310604040100000100
      000000308006092A864886F70D010706A0803080020100308006092A864886F7
      0D010701301C060A2A864886F70D010C0101300E0408CF6FE7CEA1F64DD20202
      0800A08004820299F8E8CB88A580C635B261FF7DCE8A7EE0015CD3C7DB51C4EB
      3C74BF0949DC34230E29D8EDDFDA0827577086D1B687168B891B15C2A092C348
      A50C4BCC3EA2566B3112F7B833633F3F85A61D230392D62F4E960B98BBD3D652
      8E7C3A0C382C83F8D6E77F3D153E0A2817BA7B7E74A366BF2C0E430BF4A97970
      91F112DD01202223205C91727A1696F80A90DBBF39D1A59680D4F0090B33B63A
      FBB92BB33ABAB66DC068F0B56B41D1E0476EC7510D3C7B6621A5A62E0C4FC911
      237AB3DC529212F8C0362BCD36DC10F8EDDF3FF48858ACBF26B0EFF971161A5A
      25D9B0FD7A78EA30E4CF9529E42B82156908EF66D48903CFF75734B76CA61B06
      BB4957A63997F58A5367C5D4C523714CF7C44EECDB69C437069CB5110D736003
      E1AC18E25397C5C76DADA906BEA213D1EBA0BCCEB292EE8FCC4A71A41EDCCE43
      C2C58622EA4C1529C0BBB6D6B9A482231B5D7E432FA50EEEABB3C1056626BA51
      CB6094611F39EC1BCF55E0F16F950517216BFB8F4E2DEC1FBB8CA7288C4A2C6B
      F29814B73099EC7C624C882DB60FA8814B449816BE17023ADBE20D7D8A8E24E8
      8A914A6AC1150E74BF067E63F154A1DA9A69EA144A3640BE83E2C23911F8838B
      5790551A2D7C9B77E43772AFCB0CB414487AB3A3485ADDD1C41F6B9A9036EE2C
      55A108E32EA493F790ABA5E2434528A5BAEA74939F575006A5664F1DFD020140
      13883F792BB761394151AD4F2BF9676DCAF8F017B26222701BD8F76C6BC0B116
      34B7349A0BE182BE19B329A41FFC8FBE37705C16448863C63778E227D100BB6D
      2EDFBCAB3010878A2D57C8697157F15101D09B28CE374FB80FCE57509888E1D6
      7345C0940941D82CBC036531088476FFDAF7AE213CB8B4618B7A89CF45B7D3D6
      34EE299516C7BFF6D6E60F2F99C8B9BCF335500A1A419475AA7E3111EA278136
      BD00000000000000000000303D3021300906052B0E03021A050004146215A726
      B6C2C16A617C3973A891D4016BC9E7900414117234B7D09B00B618A533AA3EF4
      D73B92D984BB02020800}
  end
end