socketfiletrans_unit.~dfm

柴油机的控制和状态检测使用的是电子设备ECU,ECU内运行的程序(生产文件)要在柴油机下线前装入。装入程序使用的是罐装设备

object SocketFileTrans_Form: TSocketFileTrans_Form
  Left = 325
  Top = 173
  Width = 608
  Height = 427
  Caption = 'Socket'#25991#20214#20256#36755
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 381
    Width = 600
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 593
    Height = 177
    Caption = 'SocketServer_Status'
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 152
      Width = 68
      Height = 16
      Caption = #21457#36865#25968#25454
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 16
      Width = 68
      Height = 16
      Caption = #25509#25910#25968#25454
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 336
      Top = 16
      Width = 68
      Height = 16
      Caption = #23458#25143#20449#24687
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Button1: TButton
      Left = 328
      Top = 144
      Width = 75
      Height = 25
      Caption = #30417#21548
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 416
      Top = 144
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 504
      Top = 144
      Width = 75
      Height = 25
      Caption = #21457#36865
      TabOrder = 2
      OnClick = Button3Click
    end
    object Edit1: TEdit
      Left = 88
      Top = 144
      Width = 225
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 3
      Text = 'Edit1'
    end
    object ListBox1: TListBox
      Left = 16
      Top = 40
      Width = 297
      Height = 97
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 4
    end
    object ListBox2: TListBox
      Left = 328
      Top = 40
      Width = 249
      Height = 97
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 5
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 184
    Width = 593
    Height = 193
    Caption = 'File_Status'
    TabOrder = 2
    object ListBox3: TListBox
      Left = 352
      Top = 16
      Width = 233
      Height = 169
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 0
    end
    object Button4: TButton
      Left = 8
      Top = 72
      Width = 75
      Height = 25
      Caption = 'CloseFile'
      TabOrder = 1
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 8
      Top = 32
      Width = 75
      Height = 25
      Caption = 'OpenFile'
      TabOrder = 2
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 8
      Top = 112
      Width = 75
      Height = 25
      Caption = 'GetFileLength'
      TabOrder = 3
      OnClick = Button6Click
    end
    object Edit2: TEdit
      Left = 152
      Top = 32
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 4
    end
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 5010
    ServerType = stNonBlocking
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientError = ServerSocket1ClientError
    Left = 96
    Top = 176
  end
end