fclientmain.dfm

来自「Delphi开发webservice的一套例子」· DFM 代码 · 共 99 行

object Form2: TForm2
  Left = 277
  Top = 193
  Width = 506
  Height = 266
  Caption = #34389#29702'BLOB'#36039#26009#31684#20363
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -20
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 20
  object lbWavs: TListBox
    Left = 0
    Top = 49
    Width = 498
    Height = 185
    Align = alClient
    ItemHeight = 20
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 498
    Height = 49
    Align = alTop
    TabOrder = 0
    object bbtnGetWavs: TBitBtn
      Left = 61
      Top = 4
      Width = 185
      Height = 41
      Caption = #21462#24471#38899#27284#21015#34920
      TabOrder = 0
      OnClick = bbtnGetWavsClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
        00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
        00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
        F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
        FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
        0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
        0033333337FFFFFF773333333000000003333333377777777333}
      NumGlyphs = 2
    end
    object bbtnPlayWav: TBitBtn
      Left = 253
      Top = 4
      Width = 185
      Height = 41
      Caption = #25773#25918#38899#27284
      TabOrder = 1
      OnClick = bbtnPlayWavClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
        70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
        70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
        70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
    end
  end
  object MediaPlayer1: TMediaPlayer
    Left = 80
    Top = 104
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 1
  end
  object HTTPRIO1: THTTPRIO
    WSDLLocation = 'http://localhost:1024/PWAVSSERVER.EXE/wsdl/IWavsService'
    Service = 'IWavsServiceservice'
    Port = 'IWavsServicePort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    HTTPWebNode.InvokeOptions = []
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 64
    Top = 64
  end
end