ftestclientmain.dfm

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

object Form1: TForm1
  Left = 174
  Top = 111
  Width = 759
  Height = 349
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 0
    Width = 751
    Height = 33
    DataSource = DataSource1
    Align = alTop
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 751
    Height = 232
    Align = alTop
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 16
    Top = 272
    Width = 145
    Height = 41
    Caption = 'Button1'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 160
    Top = 272
    Width = 169
    Height = 41
    Caption = 'Button2'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 328
    Top = 272
    Width = 145
    Height = 41
    Caption = 'Button3'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 480
    Top = 272
    Width = 137
    Height = 41
    Caption = 'Button4'
    TabOrder = 5
    OnClick = Button4Click
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 192
    Top = 8
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 224
    Top = 8
  end
  object HTTPRIO1: THTTPRIO
    WSDLLocation = 
      'http://localhost:1024/PMTDemo1WADServer.exe/wsdl/IMTDemo1DBServi' +
      'ce'
    Service = 'IMTDemo1DBServiceservice'
    Port = 'IMTDemo1DBServicePort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    HTTPWebNode.InvokeOptions = []
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 32
    Top = 280
  end
  object HTTPRIO2: THTTPRIO
    WSDLLocation = 
      'http://localhost/D6Scripts/PISAPIServer.dll/wsdl/IMTDemo1DBServi' +
      'ce'
    Service = 'IMTDemo1DBServiceservice'
    Port = 'IMTDemo1DBServicePort'
    HTTPWebNode.Agent = 'Borland SOAP 1.1'
    HTTPWebNode.UseUTF8InHeader = False
    HTTPWebNode.InvokeOptions = []
    Converter.Options = [soSendMultiRefObj, soTryAllSchema]
    Left = 696
    Top = 280
  end
end