zzunit.dfm

用Delphi开发语言实现的对网络链路层的连续ARQ协议的仿真。

object Form1: TForm1
  Left = 218
  Top = 109
  Width = 661
  Height = 445
  Caption = #36716#21457#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 360
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #20256#36755#26102#24310
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 399
    Width = 653
    Height = 19
    Panels = <>
  end
  object Memo2: TMemo
    Left = 338
    Top = 0
    Width = 313
    Height = 281
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object LabeledEdit1: TLabeledEdit
    Left = 0
    Top = 304
    Width = 121
    Height = 21
    EditLabel.Width = 102
    EditLabel.Height = 13
    EditLabel.Caption = #20449#24687#24103#20002#22833#27010#29575'      '
    TabOrder = 2
    Text = '0'
  end
  object LabeledEdit2: TLabeledEdit
    Left = 344
    Top = 304
    Width = 121
    Height = 21
    EditLabel.Width = 105
    EditLabel.Height = 13
    EditLabel.Caption = #20449#24687#24103#20986#38169#27010#29575'       '
    TabOrder = 3
    Text = '0'
  end
  object Button1: TButton
    Left = 504
    Top = 360
    Width = 75
    Height = 25
    Caption = #24212#29992
    TabOrder = 4
    OnClick = Button1Click
  end
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 337
    Height = 281
    ItemHeight = 13
    TabOrder = 5
  end
  object SpinEdit1: TSpinEdit
    Left = 96
    Top = 360
    Width = 49
    Height = 22
    MaxValue = 100
    MinValue = 1
    TabOrder = 6
    Value = 3
  end
  object TcpServer1: TTcpServer
    LocalPort = '30000'
    OnAccept = TcpServer1Accept
    Left = 8
    Top = 56
  end
  object TcpClient1: TTcpClient
    RemoteHost = '127.0.0.1'
    RemotePort = '30003'
    Top = 24
  end
  object TcpClient2: TTcpClient
    RemoteHost = '127.0.0.1'
    RemotePort = '30001'
    Left = 624
    Top = 8
  end
  object TcpServer2: TTcpServer
    LocalPort = '30002'
    OnAccept = TcpServer2Accept
    Left = 584
    Top = 40
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 584
    Top = 8
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer2Timer
  end
end