main.dfm

DELPHI 访问.net的WEB SERVICE的例子

object FormMain: TFormMain
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'DBWebShower Test'
  ClientHeight = 470
  ClientWidth = 698
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 698
    Height = 470
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Test WebPage'
      OnShow = TabSheet1Show
      object Edit1: TComboBox
        Left = 0
        Top = 0
        Width = 589
        Height = 20
        ItemHeight = 12
        TabOrder = 0
        Text = 'http://test/test.htm'
        OnChange = Edit1Change
      end
      object WebBrowser1: TWebBrowser
        Left = 0
        Top = 28
        Width = 690
        Height = 415
        Align = alBottom
        TabOrder = 1
        ControlData = {
          4C00000050470000E42A00000000000000000000000000000000000000000000
          000000004C000000000000000000000001000000E0D057007335CF11AE690800
          2B2E126208000000000000004C0000000114020000000000C000000000000046
          8000000000000000000000000000000000000000000000000000000000000000
          00000000000000000100000000000000000000000000000000000000}
      end
      object Button2: TButton
        Left = 596
        Top = 0
        Width = 75
        Height = 23
        Caption = 'GO'
        Default = True
        TabOrder = 2
        OnClick = Button2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Data Manage'
      ImageIndex = 1
      object DBNavigator1: TDBNavigator
        Left = 4
        Top = 4
        Width = 430
        Height = 25
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBGrid1: TDBGrid
        Left = 4
        Top = 64
        Width = 373
        Height = 373
        DataSource = DataSource1
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Edit2: TEdit
        Left = 4
        Top = 36
        Width = 441
        Height = 20
        TabOrder = 2
        OnChange = Edit2Change
      end
      object Button1: TButton
        Left = 536
        Top = 35
        Width = 75
        Height = 23
        Caption = 'Upload'
        TabOrder = 3
        OnClick = Button1Click
      end
      object Button3: TButton
        Left = 452
        Top = 35
        Width = 75
        Height = 23
        Caption = 'Browse..'
        TabOrder = 4
        OnClick = Button3Click
      end
      object DBMemo1: TDBMemo
        Left = 384
        Top = 64
        Width = 301
        Height = 373
        DataField = 'Content'
        DataSource = DataSource1
        ScrollBars = ssBoth
        TabOrder = 5
      end
    end
  end
  object dxMemData1: TdxMemData
    Active = True
    Indexes = <>
    SortOptions = []
    Left = 24
    Top = 164
    object dxMemData1Name: TStringField
      FieldName = 'Name'
    end
    object dxMemData1Content: TBlobField
      FieldName = 'Content'
    end
  end
  object DataSource1: TDataSource
    DataSet = dxMemData1
    Left = 336
    Top = 228
  end
  object OpenDialog1: TOpenDialog
    Left = 328
    Top = 91
  end
end