unit1.dfm

关于USB的一段源码,大家可以试下,第一次上传

object Form1: TForm1
  Left = 203
  Top = 225
  Width = 772
  Height = 540
  BorderIcons = [biSystemMenu]
  Caption = #32852#36890'1.2'#30701#20449#32593#20851#25511#20214#28436#31034
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 266
    Height = 506
    Align = alLeft
    Caption = #35774#32622
    TabOrder = 0
    object GroupBox4: TGroupBox
      Left = 2
      Top = 14
      Width = 262
      Height = 145
      Align = alTop
      Caption = #32593#32476#35774#32622
      TabOrder = 0
      object LabeledEdit3: TLabeledEdit
        Left = 112
        Top = 68
        Width = 136
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #26412#22320#31471#21475
        LabelPosition = lpLeft
        TabOrder = 0
      end
      object LabeledEdit1: TLabeledEdit
        Left = 112
        Top = 18
        Width = 136
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #32593#20851#22320#22336
        LabelPosition = lpLeft
        TabOrder = 1
      end
      object LabeledEdit2: TLabeledEdit
        Left = 112
        Top = 42
        Width = 136
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #32593#20851#31471#21475
        LabelPosition = lpLeft
        TabOrder = 2
      end
      object LabeledEdit4: TLabeledEdit
        Left = 112
        Top = 90
        Width = 136
        Height = 20
        EditLabel.Width = 24
        EditLabel.Height = 12
        EditLabel.Caption = #24080#21495
        LabelPosition = lpLeft
        TabOrder = 3
      end
      object LabeledEdit5: TLabeledEdit
        Left = 112
        Top = 115
        Width = 136
        Height = 20
        EditLabel.Width = 24
        EditLabel.Height = 12
        EditLabel.Caption = #23494#30721
        LabelPosition = lpLeft
        TabOrder = 4
      end
    end
    object GroupBox5: TGroupBox
      Left = 2
      Top = 159
      Width = 262
      Height = 290
      Align = alTop
      Caption = #20449#24687#25552#20132#35774#32622
      TabOrder = 1
      object LabeledEdit6: TLabeledEdit
        Left = 112
        Top = 16
        Width = 137
        Height = 20
        EditLabel.Width = 36
        EditLabel.Height = 12
        EditLabel.Caption = #25509#20837#21495
        LabelPosition = lpLeft
        TabOrder = 0
      end
      object LabeledEdit7: TLabeledEdit
        Left = 112
        Top = 40
        Width = 137
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #20184#36153#24080#21495
        LabelPosition = lpLeft
        TabOrder = 1
      end
      object LabeledEdit9: TLabeledEdit
        Left = 112
        Top = 88
        Width = 137
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #20225#19994#20195#30721
        LabelPosition = lpLeft
        TabOrder = 2
      end
      object LabeledEdit10: TLabeledEdit
        Left = 112
        Top = 112
        Width = 137
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #19994#21153#20195#30721
        LabelPosition = lpLeft
        TabOrder = 3
      end
      object LabeledEdit11: TLabeledEdit
        Left = 112
        Top = 136
        Width = 137
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #25910#36153#20195#30721
        LabelPosition = lpLeft
        TabOrder = 4
      end
      object LabeledEdit12: TLabeledEdit
        Left = 112
        Top = 160
        Width = 137
        Height = 20
        EditLabel.Width = 60
        EditLabel.Height = 12
        EditLabel.Caption = #30701#20449#25910#36153#20540
        LabelPosition = lpLeft
        TabOrder = 5
      end
      object LabeledEdit13: TLabeledEdit
        Left = 112
        Top = 184
        Width = 137
        Height = 20
        EditLabel.Width = 72
        EditLabel.Height = 12
        EditLabel.Caption = #36192#36865#35805#36153#37329#39069
        LabelPosition = lpLeft
        TabOrder = 6
      end
      object LabeledEdit14: TLabeledEdit
        Left = 112
        Top = 208
        Width = 137
        Height = 20
        EditLabel.Width = 60
        EditLabel.Height = 12
        EditLabel.Caption = #20195#25910#36153#26631#24535
        LabelPosition = lpLeft
        TabOrder = 7
      end
      object LabeledEdit8: TLabeledEdit
        Left = 112
        Top = 64
        Width = 137
        Height = 20
        EditLabel.Width = 48
        EditLabel.Height = 12
        EditLabel.Caption = #33410#28857#32534#21495
        LabelPosition = lpLeft
        TabOrder = 8
      end
      object LabeledEdit15: TLabeledEdit
        Left = 112
        Top = 232
        Width = 137
        Height = 20
        EditLabel.Width = 84
        EditLabel.Height = 12
        EditLabel.Caption = #36229#26102#26102#38388'('#20998#38047')'
        LabelPosition = lpLeft
        TabOrder = 9
      end
      object LabeledEdit16: TLabeledEdit
        Left = 112
        Top = 256
        Width = 137
        Height = 20
        EditLabel.Width = 96
        EditLabel.Height = 12
        EditLabel.Caption = #32593#20851#30331#38470#36229#26102'('#31186')'
        LabelPosition = lpLeft
        TabOrder = 10
      end
    end
  end
  object GroupBox6: TGroupBox
    Left = 266
    Top = 0
    Width = 498
    Height = 506
    Align = alClient
    Caption = #22522#26412#25805#20316#21450#26085#24535
    TabOrder = 1
    object GroupBox7: TGroupBox
      Left = 2
      Top = 14
      Width = 494
      Height = 52
      Align = alTop
      Caption = #25805#20316
      TabOrder = 2
      object Button3: TButton
        Left = 94
        Top = 16
        Width = 75
        Height = 25
        Caption = #20851#38381#26381#21153
        Enabled = False
        TabOrder = 0
        OnClick = Button3Click
      end
      object Button2: TButton
        Left = 176
        Top = 16
        Width = 75
        Height = 25
        Caption = #21457#36865#27979#35797
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button1: TButton
        Left = 16
        Top = 16
        Width = 75
        Height = 25
        Caption = #24320#21551#26381#21153
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 2
      Top = 216
      Width = 494
      Height = 288
      Align = alClient
      Caption = #20107#20214
      TabOrder = 0
      object Memo1: TMemo
        Left = 2
        Top = 14
        Width = 490
        Height = 272
        Align = alClient
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 66
      Width = 494
      Height = 150
      Align = alTop
      Caption = #30701#20449#20869#23481
      TabOrder = 1
      object Memo2: TMemo
        Left = 2
        Top = 56
        Width = 490
        Height = 92
        Align = alClient
        Lines.Strings = (
          #27979#35797)
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object GroupBox8: TGroupBox
        Left = 2
        Top = 14
        Width = 490
        Height = 42
        Align = alTop
        Caption = #25163#26426#21495#30721
        TabOrder = 1
        object LabeledEdit17: TLabeledEdit
          Left = 64
          Top = 15
          Width = 121
          Height = 20
          EditLabel.Width = 48
          EditLabel.Height = 12
          EditLabel.Caption = #25163#26426#21495#30721
          LabelPosition = lpLeft
          TabOrder = 0
          Text = '13322811771'
        end
      end
    end
  end
  object sms_send1: Tsms_send
    Active = False
    LoginTimeout = 10
    Seqid = 0
    Host = '127.0.0.1'
    Port = 8801
    LocalPort = 8802
    SNumber = 1234567890
    CorpID = '12345'
    ServiceType = 'a'
    FeeType = 1
    FeeValue = '0'
    GivenValue = '0'
    AgentFlag = 0
    TP_pid = 0
    Tp_udhi = 0
    Registed = 'ZWtnbWlva3Ftc291cXdzeXV7bXM='
    Onsendsms = sms_send1sendsms
    OnAftersendsms = sms_send1Aftersendsms
    Onsendsmserror = sms_send1sendsmserror
    Onreturnerror = sms_send1returnerror
    Onloginerror = sms_send1loginerror
    Onloginout = sms_send1loginout
    Onlogin = sms_send1login
    OnAfterlogin = sms_send1Afterlogin
    On_sgip_deliver = sms_send1_SGIP_DELIVER
    On_sgip_report = sms_send1_sgip_report
    Left = 532
    Top = 28
  end
end