fsoapdemo1clientmain.~dfm

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

object Form2: TForm2
  Left = 231
  Top = 173
  Width = 532
  Height = 339
  Caption = #25105#30340#31532#19968#20491'Web Service'#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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 524
    Height = 71
    Align = alTop
    TabOrder = 0
    object lblCaption: TLabel
      Left = 170
      Top = 20
      Width = 6
      Height = 22
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clRed
      Font.Height = -22
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 10
      Top = 10
      Width = 151
      Height = 51
      Caption = #25105#30340#25991#31456
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clWindowText
      Font.Height = -22
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
        70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
        70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
        70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 275
    Width = 524
    Height = 32
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object lvMyEssays: TListView
    Left = 0
    Top = 71
    Width = 524
    Height = 204
    Align = alClient
    Columns = <
      item
        Caption = #25105#30340#25991#31456
        Width = 318
      end>
    HideSelection = False
    TabOrder = 2
    ViewStyle = vsReport
  end
  object HTTPRIO1: THTTPRIO
    WSDLLocation = 'http://localhost:1024/PSoapDemo1.MyDelphiSoap1/wsdl/IMyEssays'
    Service = 'IMyEssaysservice'
    Port = 'IMyEssaysPort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    HTTPWebNode.InvokeOptions = []
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 176
    Top = 144
  end
end