unitsendfile.dfm

启用数据帧识别功能可使收到的数据永远是完整的每帧数据！ 单片机开发者再也不用为数据帧首尾识别而烦恼了！ 1.支持二进制数据和文本数据的收发 2.支持任意格式的数据的收发 3.支持两种数据包

object Form1: TForm1
  Left = 519
  Top = 402
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 278
  ClientWidth = 474
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object BitBtn1: TBitBtn
    Left = 208
    Top = 248
    Width = 75
    Height = 25
    Action = FileOpen1
    Caption = #21457#36865#25991#20214
    TabOrder = 0
  end
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 216
    Width = 457
    Height = 24
    Min = 0
    Max = 100
    Smooth = True
    TabOrder = 1
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 457
    Height = 201
    HideSelection = False
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object YbCommDevice1: TYbCommDevice
    PortNo = 1
    Baud = br115200
    ByteSize = 8
    InBufSize = 8192
    OutBufSize = 8192
    HwInSize = 1200
    HwOutSize = 1200
    QueueSize = 16
    PackageSize = 4096
    PackageType = cptFrameHeadTail
    OnPackage = YbCommDevice1Package
    Left = 8
    Top = 248
  end
  object ActionList1: TActionList
    Left = 40
    Top = 248
    object FileOpen1: TFileOpen
      Category = 'File'
      Caption = #21457#36865#25991#20214
      Dialog.Title = #36873#25321#35201#21457#36865#30340#25991#20214
      Hint = 'Open|Opens an existing file'
      ImageIndex = 7
      ShortCut = 16463
      OnAccept = FileOpen1Accept
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 72
    Top = 248
  end
end