unit1.~dfm

需要安装“MSCOMM”组件,api方件串口传输

object Form1: TForm1
  Left = 369
  Top = 177
  Width = 337
  Height = 252
  Caption = #29992'API'#20989#25968#23454#29616#25991#26412#25991#20214#30340#20256#36755
  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 MSComm1: TMSComm
    Left = 160
    Top = 195
    Width = 32
    Height = 32
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object Button1: TButton
    Left = 8
    Top = 168
    Width = 75
    Height = 25
    Caption = #25171#24320#25991#20214
    TabOrder = 1
    OnClick = Button1Click
  end
  object RichEdit1: TRichEdit
    Left = 8
    Top = 8
    Width = 313
    Height = 153
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Button2: TButton
    Left = 88
    Top = 168
    Width = 75
    Height = 25
    Caption = #21457#36865#25968#25454
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 168
    Top = 168
    Width = 75
    Height = 25
    Caption = #25509#25910#22788#29702
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 248
    Top = 168
    Width = 75
    Height = 25
    Caption = #20572#27490#22788#29702
    TabOrder = 5
    OnClick = Button4Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 206
    Width = 329
    Height = 19
    Panels = <
      item
        Text = ' '#30417#27979#25191#34892#36807#31243#65306
        Width = 100
      end
      item
        Width = 130
      end
      item
        Width = 50
      end>
  end
  object OpenDialog1: TOpenDialog
    Left = 176
    Top = 88
  end
  object XPManifest1: TXPManifest
    Left = 128
    Top = 88
  end
end