transportunit.dfm

this a programme that you can use socket programme

object MainForm: TMainForm
  Left = 201
  Top = 133
  Width = 703
  Height = 511
  Caption = 'FILE TRANSPORT V1.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clFuchsia
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object MsgMemo: TRichEdit
    Left = 0
    Top = 49
    Width = 695
    Height = 311
    Align = alClient
    BevelInner = bvNone
    Color = clCream
    Ctl3D = False
    Font.Charset = GB2312_CHARSET
    Font.Color = 12615935
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = PopupMenu
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 441
    Width = 695
    Height = 24
    AutoHint = True
    Anchors = [akLeft]
    BiDiMode = bdRightToLeftReadingOnly
    Panels = <
      item
        Text = 'Client Ready ! you can connect any Server'
        Width = 350
      end
      item
        Alignment = taCenter
        Width = 200
      end
      item
        Alignment = taCenter
        Text = 'Client Service'
        Width = 200
      end>
    ParentBiDiMode = False
    SimplePanel = False
  end
  object CoolBar: TCoolBar
    Left = 0
    Top = 0
    Width = 695
    Height = 49
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 45
        Width = 691
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 678
      Height = 45
      ButtonHeight = 39
      ButtonWidth = 8
      Caption = 'ToolBar1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object btnConnect: TSpeedButton
        Left = 0
        Top = 2
        Width = 81
        Height = 39
        Caption = #36830'  '#25509'  '
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003B3000000000
          003B37F77777777777F73BB09111111110BB3777F3F3F3F3F777311098080808
          10B33777F7373737377313309999999910337F373F3F3F3F3733133309808089
          03337F3373737373733313333099999033337FFFF7FFFFF7FFFFB011B0000000
          BBBB7777777777777777B01110BBBBB0BBBB77F37777777777773011108BB333
          333337F337377F3FFFF33099111BB3010033373F33777F77773F331999100101
          11033373FFF77773337F33300099991999033337773FFFF33373333BB7100199
          113333377377773FF7F333BB333BB7011B33337733377F7777FF3BB3333BB333
          3BB3377333377F33377FBB33333BB33333BB7733333773333377}
        NumGlyphs = 2
        OnClick = btnConnectClick
      end
      object ToolButton1: TToolButton
        Left = 81
        Top = 2
        Width = 6
        Caption = 'ToolButton1'
        ImageIndex = 2
        Style = tbsDivider
      end
      object btnDisconnect: TSpeedButton
        Left = 87
        Top = 2
        Width = 85
        Height = 39
        Caption = #26029'  '#24320' '
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
          003333377777777777F3333091111111103333F7F3F3F3F3F7F3311098080808
          10333777F737373737F313309999999910337F373F3F3F3F3733133309808089
          03337FFF7F7373737FFF1000109999901000777777FFFFF77777701110000000
          111037F337777777F3373099901111109990373F373333373337330999999999
          99033373FFFFFFFFFF7333310000000001333337777777777733333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = btnDisconnectClick
      end
      object ToolButton2: TToolButton
        Left = 172
        Top = 2
        Width = 6
        Caption = 'ToolButton2'
        ImageIndex = 0
        Style = tbsDivider
      end
      object btnAbout: TSpeedButton
        Left = 178
        Top = 2
        Width = 85
        Height = 39
        Caption = #20851'  '#20110' '
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
          333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
          C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
          F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
          F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
          00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
          3333333373FF7333333333333000333333333333377733333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = btnAboutClick
      end
      object ToolButton4: TToolButton
        Left = 263
        Top = 2
        Width = 6
        Caption = 'ToolButton4'
        ImageIndex = 2
        Style = tbsDivider
      end
      object btnListen: TSpeedButton
        Left = 269
        Top = 2
        Width = 96
        Height = 39
        Caption = #21551#21160#30417#21548
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300
          0000377777FFFF7777770FFFF099990FFFF07FFFF777777FFFF7000000333300
          00007777773333777777307703333330770337FF7F333337FF7F300003333330
          0003377773333337777333993333333399333F7FFFF3333FF7FF000000333300
          0000777777F3337777770FFFF033330FFFF07FFFF7F3337FFFF7000000333300
          00007777773333777777307703333330770337FF7F333337FF7F300003333330
          0003377773FFFFF777733393300000033933337F3777777F37F3339990FFFF09
          99333373F7FFFF7FF73333399000000993333337777777777333333333077033
          33333333337FF7F3333333333300003333333333337777333333}
        NumGlyphs = 2
        ParentFont = False
        OnClick = btnListenClick
      end
      object ToolButton5: TToolButton
        Left = 365
        Top = 2
        Width = 6
        Caption = 'ToolButton5'
        ImageIndex = 3
        Style = tbsDivider
      end
      object btnExit: TSpeedButton
        Left = 371
        Top = 2
        Width = 85
        Height = 39
        Caption = #36864'  '#20986
        Flat = True
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
          F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
          000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
          338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
          45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
          3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
          F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
          000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
          338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
          4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
          8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
          0000}
        NumGlyphs = 2
        OnClick = btnExitClick
      end
      object ToolButton3: TToolButton
        Left = 456
        Top = 2
        Width = 6
        Caption = 'ToolButton3'
        ImageIndex = 1
        Style = tbsDivider
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 403
    Width = 695
    Height = 38
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 3
    object Splitter1: TSplitter
      Left = 284
      Top = 1
      Width = 10
      Height = 36
      Cursor = crHSplit
      Align = alRight
      ResizeStyle = rsNone
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 283
      Height = 36
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object PortLabel: TLabel
        Left = 196
        Top = 11
        Width = 87
        Height = 16
        AutoSize = False
        Caption = 'PORT :  6712'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack