u_104test.dfm

104规约服务端测试程序

object F_104test: TF_104test
  Left = 201
  Top = 220
  Width = 577
  Height = 500
  Caption = '('#23453#20449'EMS104'#35268#32422#20116#38450#38381#38145#21629#20196#27979#35797')'#29664#28023#20849#21019'[e-mail]'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 37
    Top = 40
    Width = 45
    Height = 15
    Caption = #20801#35768#31532
  end
  object Label2: TLabel
    Left = 143
    Top = 40
    Width = 75
    Height = 15
    Caption = #20301#21487#20197#25805#20316
  end
  object Label3: TLabel
    Left = 16
    Top = 8
    Width = 68
    Height = 15
    Caption = #20844#20849#22320#22336':'
  end
  object Label4: TLabel
    Left = 168
    Top = 8
    Width = 38
    Height = 15
    Caption = #31471#21475':'
  end
  object Label5: TLabel
    Left = 285
    Top = 8
    Width = 75
    Height = 15
    Caption = #20316#20026#26381#21153#31471
  end
  object SE_104_index: TSpinEdit
    Left = 87
    Top = 36
    Width = 49
    Height = 24
    MaxValue = 0
    MinValue = 0
    TabOrder = 0
    Value = 0
  end
  object Button1: TButton
    Left = 288
    Top = 34
    Width = 87
    Height = 25
    Caption = #21457#36865#20801#35768
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 384
    Top = 32
    Width = 93
    Height = 26
    Caption = #21457#38381#38145
    TabOrder = 2
    OnClick = Button2Click
  end
  object SE_104_Gadd: TSpinEdit
    Left = 88
    Top = 4
    Width = 49
    Height = 24
    MaxValue = 0
    MinValue = 0
    TabOrder = 3
    Value = 8
  end
  object SE_104_port: TSpinEdit
    Left = 216
    Top = 4
    Width = 65
    Height = 24
    MaxValue = 0
    MinValue = 0
    TabOrder = 4
    Value = 2404
  end
  object CB_104_fh: TComboBox
    Left = 224
    Top = 35
    Width = 56
    Height = 23
    ItemHeight = 15
    ItemIndex = 0
    TabOrder = 5
    Text = #21512
    Items.Strings = (
      #21512
      #20998)
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 63
    Width = 545
    Height = 392
    ActivePage = TabSheet1
    TabOrder = 6
    object TabSheet1: TTabSheet
      Caption = #20449#24687
      object Memo1: TMemo
        Left = 8
        Top = 2
        Width = 521
        Height = 338
        Lines.Strings = (
          'Memo1')
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20195#30721
      ImageIndex = 1
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 537
        Height = 362
        Align = alClient
        Lines.Strings = (
          
            'procedure TSocket104.BringBW(pcl: PClientLink ;ftype: Byte; Reas' +
            'on: Word;'
          '  Address: Integer; Info: Byte; SQ: Integer =0);'
          'var'
          '  buf : array[0..15] of byte;'
          'begin'
          '  if (pcl = nil) or (not pcl^.Ploy) then Exit;'
          ''
          '  if SQ = 0 then'
          '  begin'
          '    buf[0]:= $68;'
          '    buf[1]:= $0E; //'
          '    buf[2]:= $00; //I'#26684#24335#12288#31532'0'#24103
          '    buf[3]:= $00;'
          '    buf[4]:= $00;'
          '    buf[5]:= $00;'
          '    buf[6]:= ftype;'
          '    buf[7]:= $01; // SQ= 0 '#19968#20010#20449#24687#20307
          '    buf[8]:= Lo(Reason);'
          '    buf[9]:= Hi(Reason);'
          '    buf[10]:= LCom;'
          '    buf[11]:= HCom;'
          '    address:= address and $FFFFFF;//'#20801#35768#25805#20316#35774#22791#30340#39034#24207#21495
          '    buf[12]:= Byte(address);'
          '    buf[13]:= Byte((address shr 8));'
          '    buf[14]:= Byte((address shr 16));'
          '    buf[15]:= Info;//=1'#20801#35768#25805#20316'=0'#31105#27490#25805#20316
          '    pcl^.Socket.SendBuf(buf[0], Length(buf));'
          '  end;'
          'end;')
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object CheckBox1: TCheckBox
    Left = 392
    Top = 8
    Width = 145
    Height = 17
    Caption = #21551#21160#26381#21153
    TabOrder = 7
    OnClick = CheckBox1Click
  end
end