uclient.~dfm

轻巧的TCP 客户端与服务器端通讯测试套件.可以在两处分别安装客户端与服务器端,就可以测试TCP是否可以通讯了.采用了INDY的TCP套件完成

object Form1: TForm1
  Left = 182
  Top = 124
  Width = 548
  Height = 458
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object send: TMemo
    Left = 36
    Top = 48
    Width = 189
    Height = 285
    Lines.Strings = (
      'send')
    TabOrder = 0
  end
  object st: TStatusBar
    Left = 0
    Top = 405
    Width = 540
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object Button1: TButton
    Left = 40
    Top = 8
    Width = 75
    Height = 25
    Caption = 'connect'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 128
    Top = 8
    Width = 75
    Height = 25
    Caption = 'echo'
    TabOrder = 3
    OnClick = Button2Click
  end
  object recv: TMemo
    Left = 256
    Top = 56
    Width = 189
    Height = 269
    Lines.Strings = (
      'send')
    TabOrder = 4
  end
  object Button3: TButton
    Left = 216
    Top = 8
    Width = 75
    Height = 25
    Caption = 'sendMemo'
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 308
    Top = 4
    Width = 75
    Height = 25
    Caption = 'File'
    TabOrder = 6
    OnClick = Button4Click
  end
  object edtFile: TFilenameEdit
    Left = 308
    Top = 32
    Width = 113
    Height = 21
    NumGlyphs = 1
    TabOrder = 7
    Text = 'edtFile'
  end
  object edtRemDIr: TEdit
    Left = 428
    Top = 32
    Width = 89
    Height = 21
    TabOrder = 8
    Text = 'edtRemDIr'
  end
  object Button5: TButton
    Left = 412
    Top = 4
    Width = 75
    Height = 25
    Caption = 'FIlelarge'
    TabOrder = 9
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 168
    Top = 348
    Width = 75
    Height = 25
    Caption = 'QUERY'
    TabOrder = 10
    OnClick = Button6Click
  end
  object client: TIdTCPClient
    OnStatus = clientStatus
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 0
    Left = 112
    Top = 4
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=SA;Initia' +
      'l Catalog=master;Data Source=HISSERVER'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM SYSOBJECTS')
    Left = 112
    Top = 352
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 44
    Top = 356
  end
end