fclientdemo.~dfm

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

object Form1: TForm1
  Left = 86
  Top = 38
  Width = 730
  Height = 678
  Caption = 'Form1'
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 722
    Height = 571
    ActivePage = TabSheet3
    Align = alTop
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 660
        Height = 293
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 828
        Height = 533
        Align = alClient
        Stretch = True
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      object Image2: TImage
        Left = 0
        Top = 0
        Width = 714
        Height = 536
        Align = alClient
        Stretch = True
      end
    end
  end
  object Button1: TButton
    Left = 10
    Top = 580
    Width = 211
    Height = 51
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 340
    Top = 584
    Width = 211
    Height = 51
    Caption = 'GetFile'
    TabOrder = 2
  end
  object HTTPRIO1: THTTPRIO
    WSDLLocation = 
      'http://Localhost/Scripts/PCGIbitmapProvider.exe/wsdl/IBitmapProv' +
      'ider'
    Service = 'IBitmapProviderservice'
    Port = 'IBitmapProviderPort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 200
    Top = 472
  end
  object HTTPRIO2: THTTPRIO
    WSDLLocation = 
      'http://localhost/scripts/PCGIFileProvider.exe/wsdl/ICGIFileProvi' +
      'der'
    Service = 'ICGIFileProviderservice'
    Port = 'ICGIFileProviderPort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 464
    Top = 472
  end
end