unit1.dfm

XML 精要 范例 解析封装类库

object Form1: TForm1
  Left = 213
  Top = 138
  Width = 595
  Height = 456
  Caption = 'XML'#35299#26512#31034#33539
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 30
    Top = 238
    Width = 133
    Height = 14
    Caption = 'XMLPackage.memo  : '
  end
  object Label2: TLabel
    Left = 28
    Top = 120
    Width = 119
    Height = 14
    Caption = 'XMLPackage.data :'
  end
  object Label3: TLabel
    Left = 238
    Top = 120
    Width = 140
    Height = 14
    Caption = 'XMLPackage.actions :'
  end
  object labAction: TLabel
    Left = 396
    Top = 120
    Width = 120
    Height = 14
    AutoSize = False
    Caption = 'labAction'
    Color = clSkyBlue
    ParentColor = False
  end
  object sgdData: TStringGrid
    Left = 28
    Top = 138
    Width = 515
    Height = 94
    ColCount = 4
    FixedCols = 0
    TabOrder = 0
    ColWidths = (
      114
      65
      97
      198)
  end
  object Memo1: TMemo
    Left = 28
    Top = 256
    Width = 519
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end
  object Button3: TButton
    Left = 38
    Top = 360
    Width = 117
    Height = 25
    Caption = #36890#36807'xdb'#25991#20214#35835#20889
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button5: TButton
    Left = 210
    Top = 362
    Width = 189
    Height = 25
    Caption = #20351#29992'DOM'#35299#26512'XML'#20869#23481
    TabOrder = 3
    OnClick = Button5Click
  end
  object GroupBox1: TGroupBox
    Left = 30
    Top = 24
    Width = 529
    Height = 81
    Caption = '  XMLPackage.clinetinfo  '
    TabOrder = 4
    object Label5: TLabel
      Left = 20
      Top = 24
      Width = 28
      Height = 14
      Caption = 'ip'#65306
    end
    object labIP: TLabel
      Left = 70
      Top = 24
      Width = 163
      Height = 14
      AutoSize = False
      Caption = 'labIP'
      Color = clSkyBlue
      ParentColor = False
    end
    object Label7: TLabel
      Left = 262
      Top = 24
      Width = 63
      Height = 14
      Caption = 'handler'#65306
    end
    object labHandler: TLabel
      Left = 338
      Top = 24
      Width = 120
      Height = 14
      AutoSize = False
      Caption = 'labHandler'
      Color = clSkyBlue
      ParentColor = False
    end
    object Label9: TLabel
      Left = 22
      Top = 56
      Width = 42
      Height = 14
      Caption = 'unit'#65306
    end
    object labUnit: TLabel
      Left = 72
      Top = 58
      Width = 401
      Height = 14
      AutoSize = False
      Caption = 'labUnit'
      Color = clSkyBlue
      ParentColor = False
    end
  end
  object XMLDocument1: TXMLDocument
    FileName = 'D:\AppServ\www\xml\test.xml'
    Left = 6
    Top = 2
    DOMVendorDesc = 'MSXML'
  end
end