fclientdemo.~dfm

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

object Form1: TForm1
  Left = 76
  Top = 35
  Width = 678
  Height = 535
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 670
    Height = 457
    ActivePage = TabSheet3
    Align = alTop
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 528
        Height = 234
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 662
        Height = 426
        Align = alClient
        Stretch = True
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      object Image2: TImage
        Left = 0
        Top = 0
        Width = 662
        Height = 426
        Align = alClient
        Stretch = True
      end
    end
  end
  object Button1: TButton
    Left = 8
    Top = 464
    Width = 169
    Height = 41
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 272
    Top = 467
    Width = 169
    Height = 41
    Caption = 'GetFile'
    TabOrder = 2
    OnClick = Button1Click
  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