fclientmain.~dfm

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

object Form2: TForm2
  Left = 86
  Top = 186
  Width = 746
  Height = 525
  Caption = 'Form2'
  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 Label1: TLabel
    Left = 400
    Top = 384
    Width = 120
    Height = 20
    Caption = #21407#22987#27284#26696#22823#23567
  end
  object Label2: TLabel
    Left = 400
    Top = 424
    Width = 120
    Height = 20
    Caption = #22739#32302#20043#24460#22823#23567
  end
  object Label3: TLabel
    Left = 400
    Top = 464
    Width = 120
    Height = 20
    Caption = #20659#36958#27284#26696#22823#23567
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 738
    Height = 369
    ActivePage = TabSheet3
    Align = alTop
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object mmCompressed: TMemo
        Left = 0
        Top = 0
        Width = 730
        Height = 334
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      object mmUnCompressed: TMemo
        Left = 0
        Top = 0
        Width = 730
        Height = 334
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      object ledtOriginal: TLabeledEdit
        Left = 48
        Top = 40
        Width = 465
        Height = 28
        EditLabel.Width = 140
        EditLabel.Height = 20
        EditLabel.Caption = #19981#22739#32302#27284#26696#26178#38291
        LabelPosition = lpAbove
        LabelSpacing = 3
        TabOrder = 0
      end
      object ledtCompressed: TLabeledEdit
        Left = 48
        Top = 120
        Width = 465
        Height = 28
        EditLabel.Width = 120
        EditLabel.Height = 20
        EditLabel.Caption = #22739#32302#27284#26696#26178#38291
        LabelPosition = lpAbove
        LabelSpacing = 3
        TabOrder = 1
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 16
    Top = 376
    Width = 305
    Height = 49
    Caption = #21628#21483'Web Service'#21462#24471#27284#26696
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337FF3333333333330003333333333333777F333333333333080333
      3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
      33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
      B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
      BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
      B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
      3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
      333333333337F33333333333333B333333333333333733333333}
    NumGlyphs = 2
  end
  object edtOriginal: TEdit
    Left = 528
    Top = 376
    Width = 185
    Height = 28
    TabOrder = 2
  end
  object edtCompressed: TEdit
    Left = 528
    Top = 416
    Width = 185
    Height = 28
    TabOrder = 3
  end
  object edtPassed: TEdit
    Left = 528
    Top = 456
    Width = 185
    Height = 28
    TabOrder = 4
  end
  object BitBtn2: TBitBtn
    Left = 16
    Top = 432
    Width = 305
    Height = 49
    Caption = #21628#21483'Web Service'#21462#24471#27284#26696#20043#26178#38291
    TabOrder = 5
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337FF3333333333330003333333333333777F333333333333080333
      3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
      33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
      B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
      BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
      B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
      3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
      333333333337F33333333333333B333333333333333733333333}
    NumGlyphs = 2
  end
  object HTTPRIO1: THTTPRIO
    WSDLLocation = 
      'http://localhost:1024/PCOMUNCOMPRESSSERVER.EXE/wsdl/IZlibFileSer' +
      'vice'
    Service = 'IZlibFileServiceservice'
    Port = 'IZlibFileServicePort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 336
    Top = 392
  end
end