fclientmain.~dfm

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

object Form1: TForm1
  Left = 176
  Top = 41
  Width = 366
  Height = 511
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object clbFiles: TCheckListBox
    Left = 0
    Top = 0
    Width = 358
    Height = 210
    Align = alTop
    ItemHeight = 16
    TabOrder = 0
  end
  object bbtnGetFiles: TBitBtn
    Left = 30
    Top = 219
    Width = 150
    Height = 42
    Caption = #21462#24471#27284#26696
    TabOrder = 1
    OnClick = bbtnGetFilesClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337FF3333333333330003333333333333777F333333333333080333
      3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
      33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
      B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
      BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
      B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
      3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
      333333333337F33333333333333B333333333333333733333333}
    NumGlyphs = 2
  end
  object bbtnPlay: TBitBtn
    Left = 185
    Top = 218
    Width = 150
    Height = 42
    Caption = #25773#25918#27284#26696
    TabOrder = 2
    OnClick = bbtnPlayClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
      70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
      70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
      70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
  end
  object MediaPlayer1: TMediaPlayer
    Left = 45
    Top = 161
    Width = 253
    Height = 30
    Display = Panel1
    FileName = 'E:\leewei\WebServices\Ch10\DynArray\SEARCH.AVI'
    Visible = False
    TabOrder = 3
  end
  object Panel1: TPanel
    Left = 0
    Top = 267
    Width = 358
    Height = 217
    Align = alBottom
    TabOrder = 4
  end
  object HTTPRIO1: THTTPRIO
    WSDLLocation = 
      'http://localhost:1024/DynArrayServer.DynArrayDemoServer/wsdl/IDy' +
      'nArrayDemoServer'
    Service = 'IDynArrayDemoServerservice'
    Port = 'IDynArrayDemoServerPort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    HTTPWebNode.InvokeOptions = []
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 125
    Top = 46
  end
end