soapdbattachclientunit.dfm

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

object Form1: TForm1
  Left = 204
  Top = 132
  Width = 563
  Height = 447
  Caption = 'Soap Attachment Sample'
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 555
    Height = 420
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'SOAP'#20363#31243
      object Label2: TLabel
        Left = 17
        Top = 0
        Width = 31
        Height = 13
        AutoSize = False
        Caption = #26381#21153#22120#22320#22336
        FocusControl = URLList
      end
      object Label1: TLabel
        Left = 17
        Top = 56
        Width = 40
        Height = 16
        AutoSize = False
        Caption = #21015#34920
        FocusControl = ListBox1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Image1: TImage
        Left = 18
        Top = 256
        Width = 503
        Height = 113
        AutoSize = True
      end
      object Label3: TLabel
        Left = 256
        Top = 200
        Width = 3
        Height = 13
      end
      object Label4: TLabel
        Left = 16
        Top = 232
        Width = 57
        Height = 21
        AutoSize = False
        Caption = #36873#23450#20869#23481
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ListBox1: TListBox
        Left = 17
        Top = 89
        Width = 504
        Height = 136
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        TabOrder = 0
        OnDblClick = ListBox1DblClick
      end
      object Connect: TButton
        Left = 464
        Top = 16
        Width = 75
        Height = 25
        Caption = #36830#25509
        TabOrder = 1
        OnClick = ConnectClick
      end
      object URLList: TComboBox
        Left = 17
        Top = 19
        Width = 432
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        ItemIndex = 1
        TabOrder = 2
        Text = 'http://localhost/cgi-bin/DBAttachServer.exe/soap/IDBAttachments'
        Items.Strings = (
          'http://localhost/scripts/DBAttachServer.exe/soap/IDBAttachments'
          'http://localhost/cgi-bin/DBAttachServer.exe/soap/IDBAttachments'
          
            'http://<your-web-server>/cgi-bin/DBAttachServer.exe/soap/IDBAtta' +
            'chments')
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25968#25454#21253
      ImageIndex = 1
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 547
        Height = 392
        Align = alClient
        TabOrder = 0
        object Splitter1: TSplitter
          Left = 1
          Top = 151
          Width = 545
          Height = 3
          Cursor = crVSplit
          Align = alTop
        end
        object Memo2: TMemo
          Left = 1
          Top = 1
          Width = 545
          Height = 150
          Align = alTop
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          Lines.Strings = (
            'Memo2')
          TabOrder = 0
        end
        object Memo3: TMemo
          Left = 1
          Top = 154
          Width = 545
          Height = 237
          Align = alClient
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          Lines.Strings = (
            'Memo3')
          TabOrder = 1
        end
      end
    end
  end
end