shortsmsactiveimpl1.dfm

利用AT指令,直接控制GSM的控制.实现

object ShortSMSActiveX: TShortSMSActiveX
  Left = 192
  Top = 107
  Width = 112
  Height = 53
  AutoSize = True
  Caption = 'ShortSMSActiveX'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = ActiveFormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 24
    Height = 26
    Center = True
    Picture.Data = {
      07544269746D6170A6060000424DA60600000000000036040000280000001800
      00001A000000010008000000000070020000120B0000120B0000000100000000
      0000D5CDD80084787900B0A3B300AFCCFF00655C4D0036373400B8CAFF008582
      8400B3C7FF007B7B7300A5A79B00948D930056542B00E9EAE90091918D009DA2
      9D00FAFBFE0026282600DCDCD100C5D2FF00D1E0FD00C2D9FE00EDF1EC007564
      5C004F5236007B7A6A00F5FBFF00928789006B5B6700C6DCFF00B4D1F2007372
      6E006D786D00B6B8B800A8D6FF00FEFEFE00AEC7FE00FCFFFF003A3928005B61
      5C006C626100BDBDBB00FBFEFD004A4B3C00E5E5E500525344002F281A005559
      4A00EDEEEE0017181A007369690096929300FFFDFF00FDFCFD00B7D1FF00B0D0
      FF007F82760006070700B1CBFF00A5CCFF00A1CAFF0043453C004F4F5100F4F4
      F400FFFBFF00C8D3FB006D6C4F008E8690009F8E9000A5A79400C3D1F100BCBB
      BA00FAFBFB008A827F008D8B9800565945005958490085889400EFF2FF006A6C
      6200D4DFFF0063636200F7FEFE00B9E2F800ECF5FD00576057005A635200A6CF
      ED005E6B50005F695E00C9CFD500B9CBEA00B7D1FA0055474500B4CCFF001C13
      2100B5C9FE00C5D8D800B6C8C700634E6000ADADB20063557000D3F4FF00D2EC
      FD00FFFFFA008D838B0054535100C3D9F600565658006265460069624600F6F0
      FF0062645200584B3100D3C5CA00DBEAFF0092939700BFD5FD000F1C1400DADA
      DA0061554F00798B8800E7F1FF00D9F1FF00817C8500605C5B00F0E4EF00C2B9
      BE00D3E4FF00AAB5FF00F0F8FF00F1FBFF009AADA800D0D1CF00D1D5FC00FCF4
      FB00A5CAFF0079724900424449004F4C4C00F6F5F400D5D0D200F7F7F700423C
      40005E604C00D6D8D700A3939400DBD3D800A39C9B00D7D9D900CAC7C700ECDF
      EB008F8F7800BAB0B90047405900716B5300B5D6FF00B1C9FF00EDE6E700B3CA
      FF00F3F4F100EEF8EF009C939A007F776E00AAAAA400DFDFDE00B1CCFF00AAD0
      D100DBECF300C8DFFF005C5655005E515800E7F1F800E8F7FD008A7F8E00BABA
      BA00B8BCBA0053664E0041404600454B4B00A8A7A9005F6B4600414B33006D6E
      5F00B8BEB70091919200B9B9B20043492800B3BFBE00BFBFC100AAC5F3006F64
      4A00A49CA100A8C7FB00B9BFE600EAE9FF00A5C7F60096948A00C1E0F400C7E2
      FF00C4C3C400CAC7CA00ACBEC200F7FCFB00FBEEFB00E9E7EB007B727100A399
      9700CAE4FF00CEEDFF00DAF4EC00B8BFF100C6C8C900CBCBCB00F8F8F700B7BC
      D8005B606000826D6800575A620031262B00959485003E3D52009A9C8A00FCFE
      FC00EDFDF900F8F7F500BAADA80073747500415B5800757E70007D7B7C00F1F3
      F300CCC2C100C9C5C200A4A4A600B3CAFC00B2C9FF00F7F7FB00C9BCBA00D1CE
      CD00B8D4F800FDF8FC009CABA000F1EAEC00AFB7FA00F4F8FF00E7EEFF00DCF7
      FF00C8C8EA00BCD8E200F3F5F400BCCBB300949A9700BBBAAC009D9E9D00FFFF
      FF00FFFFFF10E167AD4EA9C6C2F8D06683827A15F625FFFFFFFF40C373141EF4
      1E364149429BCA4622369D24C725FFFFFFFFA8BE3CA68860EB5CFC0C4C5D19D7
      9FEC0357CBFFFFFFFFFF86243A3A06371533176D598AD979800808C152FFFFFF
      FFFFF51D9C03376B0EB570553E7698185322088110FFFFFFFFFFFFF5F75EF045
      7190AA277839E3BF84D13BD3F1FFFFFFFFFFFF34D2135B172D3201202F392BCE
      E5A93BC454FFFFFFFFFFFF407536A70C0FDC202B31112E4D18F9133C50FFFFFF
      FFFFFFFF7B37BC047C283D5FB22E390E4B64FF1A34FFFFFFFFFFFFFF6F80E9A3
      BB2611DA8F8F31093209FFFFFFFFFFFFFFFFFFFFFFFFEF05019AB3B105E4DB6E
      6928ACFFFFFFFFFFFFFFFFFFFF8C3EB9164A63057865894FFE11D4FFFFFFFFFF
      FFFFFFFFFF72F2FF68C527B63D47E0DDE22FC0FFFFFFFFFFFFFFFFFFFFF32AFF
      23747D588DFF16260B381C35FFFFFFFFFFFFFFFFFFFFFFFF23E6AB93FF3F0EA3
      384304D6FFFFFFFFFFFFFFFFFFFFFFFFFFA40AFFCCB0690AAEDE6AC8FFFFFFFF
      FFFFFFFFFFFFFFFFFFBD07FF0029006244927DEAFFFFFFFFFFFFFFFFFFFFFFFF
      FFD58B61EE0D305A7F07B70E35FFFFFFFFFFFFFFFFFFFFFFFF30FE212C8E857E
      FB51392DEDFFFFFFFFFFFFFFFFFFFFFFFFFF9E12A5AF7729A2331F6CBAFFFFFF
      FFFFFFFFFFFFFFFFFFFF97C9B095910B1CB8FF2719A0FFFFFFFFFFFFFFFFFFFF
      FFFFFA2C87E8071FFDA1FF027812FFFFFFFFFFFFFFFFFFFFFFFFFF3F9994960D
      FFFFFFCD56B423FFFFFFFFFFFFFFFFFFFFFFFF23DFFFFFFFFFFFFFDFCF1B48FF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE70DFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object Comm1: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 1
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 32
  end
end