transportunit.dfm

this a programme that you can use socket programme

      Color = clCream
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnKeyPress = edtChatKeyPress
    end
    object edtHost: TEdit
      Left = 88
      Top = 10
      Width = 101
      Height = 23
      AutoSize = False
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      Text = '127.0.0.1'
    end
  end
  object NMStrmServ: TNMStrmServ
    Port = 8902
    ReportLevel = 0
    OnStatus = NMStrmServStatus
    OnClientContact = NMStrmServClientContact
    OnMSG = NMStrmServMSG
    Left = 480
    Top = 76
  end
  object NMStrm: TNMStrm
    Port = 8902
    ReportLevel = 0
    OnDisconnect = NMStrmDisconnect
    OnConnect = NMStrmConnect
    OnInvalidHost = NMStrmInvalidHost
    OnHostResolved = NMStrmHostResolved
    OnStatus = NMStrmStatus
    OnConnectionFailed = NMStrmConnectionFailed
    OnPacketSent = NMStrmPacketSent
    OnMessageSent = NMStrmMessageSent
    Left = 424
    Top = 74
  end
  object OpenDialog: TOpenDialog
    Filter = 'All File|*.*'
    Left = 334
    Top = 74
  end
  object SaveDialog: TSaveDialog
    Filter = 'All File|*.*'
    Left = 308
    Top = 74
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 6712
    OnLookup = ClientSocketLookup
    OnConnecting = ClientSocketConnecting
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 364
    Top = 76
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 6712
    ServerType = stNonBlocking
    OnAccept = ServerSocketAccept
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 394
    Top = 74
  end
  object PopupMenu: TPopupMenu
    Left = 280
    Top = 74
    object PClearItem: TMenuItem
      Caption = #28165#38500#20449#24687
      OnClick = PClearItemClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object PAboutItem: TMenuItem
      Caption = #20851'  '#20110'...'
      OnClick = btnAboutClick
    end
  end
  object MainMenu: TMainMenu
    Left = 252
    Top = 74
    object F1: TMenuItem
      Caption = #25991' '#20214' [&F] '
      object O1: TMenuItem
        Caption = #25171'  '#24320' (&O)...'
        OnClick = btnLoadClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object SendItem: TMenuItem
        Caption = #21457#36865#25991#20214' (&S)'
        OnClick = btnSendClick
      end
      object SaveItem: TMenuItem
        Caption = #25509#25910#25991#20214' (&R)'
        OnClick = btnSaveClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object RefuseItem: TMenuItem
        Caption = #25298#25910#25991#20214' (&U) '
        OnClick = btnCancelClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object ExitItem: TMenuItem
        Caption = #36864#20986#31995#32479' (&X)'
        OnClick = btnExitClick
      end
    end
    object N3: TMenuItem
      Caption = #25511' '#21046' [&C] '
      object ConnectItem: TMenuItem
        Caption = #36830'  '#25509' (&N)'
        OnClick = btnConnectClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object DisConnectItem: TMenuItem
        Caption = #26029'  '#24320' (&D)'
        OnClick = btnDisconnectClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object ListenItem: TMenuItem
        Caption = #30417'  '#21548' (&L)'
        OnClick = btnListenClick
      end
    end
  end
  object Timer: TTimer
    OnTimer = TimerTimer
    Left = 510
    Top = 76
  end
  object TrayIcon: TTrayIcon
    Visible = True
    Hint = 'File Transport V1.0 - Hellf!Re.W'
    PopupMenu = TPopupMenu
    Hide = True
    RestoreOn = imLeftClickUp
    PopupMenuOn = imRightClickUp
    Icons = ImageList
    Left = 540
    Top = 76
  end
  object ImageList: TImageList
    Tag = 1
    Left = 570
    Top = 76
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000008831883188310000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000008831000000000000
      0000000000000000000000000000000000000000801080108810881088108010
      8010000000000000000000000000000000000000000008628811881100000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000080308030000088310000
      00000000000000000000000000000000000000001F0010101010101010101010
      8810881088310000000000000000000000000000081208120812081288118811
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000009F7D0060006000000000
      00000000000000000000000000000000000080101F001F001F001F001F001F00
      1F00101080100000000000008010000000000000081208120812081208128811
      0862000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000600060000000608030
      88310000000000000000000000000000000080101F001F001F001F001F001F00
      1F00101088108831000088310000000000000000081208120812081208620812
      8811881100000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000601F63006000600000
      00000000000000000000000000000000000080101F001F001F001F001F001F00
      1F001F0088108831801000000000000000000000E07F0812081208120812E07F
      0812881100000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000060FF7F00000060
      00000000000000000000000000000000000000001F001F001F001F001F001F00
      1F001F0010108831801000000000000000000000000008120812E07F08120812
      0812081200000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000600060
      00008831000000000000000000000000000000001F00FF431F001F001F001F00
      1F001F0080101F63000000008010000088310000000000000812081208620812
      0812081200000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000080101F00FF7F1F001F001F00
      1F001F0080108831000080100000000000000000000000000000FF43FF430812
      081208628811E07F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000010420060803000000000000000000000000000001F001F001F001F001F00
      1F008010881088108010000000000000000000000000000000000000FF43FF7F
      8010081208120000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000006010420060000000000000000000000000000000008010801080108010
      0000801010101010801080108010000000000000000000000000000000000000
      0000FF4300000812000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000600060000080300000000000000000000000000000000000008010
      8010801010101010801080100000000088310000000000000000000000000000
      00000000FF7FE07F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000600000000000000000000000000000883100000000
      0000801000000000FF7F80100000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000006000600000000000000000000000008831000000000000
      8010000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000FF7F00000000000000000000000000000000000000008010
      0000000000008831000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000008010
      0000000000008010000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFE3FFFEFF0000EFBF80FF83FF0000
      C3FF803F01FF000081FF003B00EF0000C0FF0017006F0000C0DF000F801F0000
      C0DF800F803F0000E057801AC03B0000FE0F8017E01F0000FE13C00F800F0000
      FF0FE103F60F0000C703FC06FE0F0000FEE1F767FEDB0000FDC1EEFFFFFD0000
      FFA1FDDFFDF70000FBBFFDDFFFFF000000000000000000000000000000000000
      000000000000}
  end
  object TPopupMenu: TPopupMenu
    Left = 222
    Top = 74
    object TPAboutItem: TMenuItem
      Caption = '&About...'
      OnClick = btnAboutClick
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object TPSettingItem: TMenuItem
      Caption = '&Setting...'
    end
    object TPShowItem: TMenuItem
      Caption = 'Sho&w...'
      OnClick = TPShowItemClick
    end
    object Update1: TMenuItem
      Caption = 'Update...'
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object TPExitItem: TMenuItem
      Caption = 'E&xit'
      OnClick = btnExitClick
    end
  end
  object CapStrm: TNMStrm
    Port = 8980
    ReportLevel = 0
    OnInvalidHost = CapStrmInvalidHost
    Left = 452
    Top = 74
  end
end