main.dfm

Delphi直接控制usb-232接口的例子

object Form1: TForm1
  Left = 404
  Top = 171
  Width = 524
  Height = 367
  Caption = 'FTDI D2XX Demo Program ( Delphi )'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 296
    Width = 516
    Height = 25
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Bevel = pbNone
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 516
    Height = 296
    Align = alClient
    TabOrder = 1
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 512
      Height = 136
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      Lines.Strings = (
        'Memo1')
      ParentFont = False
      TabOrder = 0
      OnKeyPress = Memo1KeyPress
    end
    object ListView1: TListView
      Left = 1
      Top = 152
      Width = 408
      Height = 143
      Columns = <
        item
          Caption = 'Device Number'
          Width = 100
        end
        item
          Caption = 'Serial Number'
          Width = 100
        end
        item
          Caption = 'Device Description'
          Width = 200
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Items.Data = {
        3A0000000200000000000000FFFFFFFFFFFFFFFF000000000000000008446576
        696365203100000000FFFFFFFFFFFFFFFF000000000000000000}
      ReadOnly = True
      RowSelect = True
      ParentFont = False
      TabOrder = 1
      ViewStyle = vsReport
      OnClick = ListView1Click
    end
    object BitBtn1: TBitBtn
      Left = 424
      Top = 152
      Width = 75
      Height = 25
      Caption = 'Open'
      Enabled = False
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 424
      Top = 216
      Width = 75
      Height = 25
      Caption = 'Refresh'
      TabOrder = 3
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 424
      Top = 184
      Width = 75
      Height = 25
      Caption = 'Close'
      Enabled = False
      TabOrder = 4
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 424
      Top = 264
      Width = 75
      Height = 25
      Caption = 'Quit'
      TabOrder = 5
      OnClick = BitBtn4Click
    end
  end
  object ImageList1: TImageList
    Left = 48
    Top = 120
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F186318631863FF7FFF7F000000000000FF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000FF7F
      F75E0000000000000000000000000000F75EF75E0000FF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FF75E00000000000000000000F75EF75E
      EF3DEF3DEF3D00000000000000000000000000000000000000000000F75EF75E
      EF3DEF3DEF3D000000000000000000000000F75EEF3D000000000000EF3DF75E
      F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000F75EF75EEF3D0000
      00000000EF3DEF3DEF3D0000000000000000000000000000F75EF75EEF3D0000
      00000000EF3DEF3DEF3D0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000F75EF75E000000000000
      0000000000000000EF3DEF3D00000000000000000000F75EF75E0000FF7F007C
      FF7F007CFF7F0000EF3DEF3D000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      00000000FF7FFF7FFF7FF75EF75E00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000F75E0000000000000000
      00000000000000000000EF3D00000000000000000000F75E0000FF7F00000000
      000000000000FF7F0000EF3D000000000000FF7F00000000000000000000FF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75EEF3D0000000000000040
      00400040000000000000EF3DEF3D000000000000F75EEF3DFF7F00000000007C
      0040004000000000FF7FEF3DEF3D00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000F75E00000000000000400040
      004000400040000000000000EF3D000000000000F75E0000007C0000007C0040
      007C004000400000007C0000EF3D00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000400040
      004000400040000000000000EF3D000000000000FF7F0000FF7F0000007C007C
      007C007C00400000FF7F0000EF3D00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F000000000000F75E0040
      004000400040000000000000F75E000000000000FF7F0000007C0000FF7F007C
      007C0040007C0000007C0000F75E00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FEF3D000000000000F75E
      F75E0040000000000000EF3DF75E000000000000FF7FEF3DFF7F00000000FF7F
      FF7F007C00000000FF7FEF3DF75E00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000F75E0000000000000000
      00000000000000000000F75E00000000000000000000F75E0000FF7F00000000
      000000000000FF7F0000F75E000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7F0000FF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FF75E000000000000
      0000000000000000F75EF75E00000000000000000000FF7FF75E0000FF7F007C
      FF7F007CFF7F0000F75EF75E000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FF75EEF3D0000
      00000000EF3DF75EF75E0000000000000000000000000000FF7FF75EEF3D0000
      00000000EF3DF75EF75E00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF7FFF7F
      FF7FF75EF75E00000000000000000000000000000000000000000000FF7FFF7F
      FF7FF75EF75E000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFBFBFBF00F83FF83FFFFFFF00
      E00FE00FFFFFFF00C007C0070000000080038003FFFFFF0080038003FFFFFF00
      00010001FFFFFF0000010001FFFFFF0000010001000000000001000100000000
      000100010000000080038003FFFFFF0080038003FFFFFF00C007C00765747570
      E00FE00F6172616DF83FF83F0000000000000000000000000000000000000000
      000000000000}
  end
  object MainMenu1: TMainMenu
    Left = 48
    Top = 80
    object File1: TMenuItem
      Caption = 'File'
      object SendFile1: TMenuItem
        Action = FTSendFile
      end
      object ReceiveFile1: TMenuItem
        Action = FTReceiveFile
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ReSend1: TMenuItem
        Action = FTResend
      end
      object SendRxvCompare1: TMenuItem
        Action = SndRxvCmp
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = FTQuit
      end
    end
    object Device1: TMenuItem
      Caption = 'Device'
      object Configure1: TMenuItem
        Action = FTPort_Configure
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Caption = 'About'
      end
    end
  end
  object ActionList1: TActionList
    Left = 48
    Top = 44
    object FTPort_Configure: TAction
      Caption = 'Configure Port'
      Enabled = False
      ShortCut = 16451
      OnExecute = FTPort_ConfigureExecute
    end
    object FTSendFile: TAction
      Caption = 'File -> Device'
      ShortCut = 16467
      OnExecute = FTSendFileExecute
    end
    object FTReceiveFile: TAction
      Caption = 'Device -> File'
      ShortCut = 16466
      OnExecute = FTReceiveFileExecute
    end
    object FTQuit: TAction
      Caption = 'Exit'
      ShortCut = 16472
      OnExecute = FTQuitExecute
    end
    object FTResend: TAction
      Caption = 'Re-Send'
      OnExecute = FTResendExecute
    end
    object SndRxvCmp: TAction
      Caption = 'Send/Rxv/Compare'
      OnExecute = SndRxvCmpExecute
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 48
    Top = 160
  end
  object OpenDialog1: TOpenDialog
    Left = 48
    Top = 200
  end
  object SaveDialog1: TSaveDialog
    Left = 48
    Top = 240
  end
end