main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 248
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Soap Demo'
  ClientHeight = 233
  ClientWidth = 452
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 387
    Height = 26
    Caption = 
      'This demo demonstrates how to  use the  SOAPMessage component wi' +
      'th a freely available web service to get a 20 minute delayed sto' +
      'ck quote. '
    WordWrap = True
  end
  object Label2: TLabel
    Left = 16
    Top = 96
    Width = 297
    Height = 13
    Caption = 'Select or type the company symbol  for getting the stock quote.'
  end
  object Label3: TLabel
    Left = 16
    Top = 120
    Width = 34
    Height = 13
    Caption = 'Symbol'
  end
  object Label4: TLabel
    Left = 16
    Top = 192
    Width = 59
    Height = 13
    Caption = 'Quote Value'
  end
  object Label5: TLabel
    Left = 16
    Top = 56
    Width = 412
    Height = 26
    Caption = 
      'This demo uses a free service available from www.xmethods.net. T' +
      'his service is for trial purposes only and may not be available ' +
      'in the future. '
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object cbCompany: TComboBox
    Left = 88
    Top = 120
    Width = 345
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = 'IBM'
    Items.Strings = (
      'IBM'
      'MSFT'
      'BORL'
      'DELL'
      'GOOG')
  end
  object btnStart: TButton
    Left = 200
    Top = 152
    Width = 75
    Height = 25
    Caption = 'Get Quote'
    TabOrder = 1
    OnClick = btnStartClick
  end
  object edtQuote: TEdit
    Left = 88
    Top = 192
    Width = 345
    Height = 21
    ReadOnly = True
    TabOrder = 2
  end
  object clSoapMessage: TclSoapMessage
    Header.Connection = 'Keep-Alive'
    Header.Accept = 'text/html, */*'
    Header.AcceptLanguage = 'en-us'
    IdName = 'id'
    Left = 88
    Top = 152
  end
  object clHttp1: TclHttp
    UserAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite 6.0)'
    Cookies = <>
    Request = clSoapMessage
    Left = 128
    Top = 152
  end
end