dm.~dfm

delphi实现 webservice的例子.有服务端和客户段 利用xml交互.

object DataModule_U: TDataModule_U
  OldCreateOrder = False
  Left = 480
  Top = 327
  Height = 242
  Width = 326
  object SDS_Product: TSimpleDataSet
    Aggregates = <>
    Connection = SysSQLConnection
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 72
    Top = 16
  end
  object SDS_User: TSimpleDataSet
    Aggregates = <>
    Connection = SysSQLConnection
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 72
    Top = 80
  end
  object Q_Product: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SysSQLConnection
    Left = 120
    Top = 40
  end
  object SysSQLConnection: TCRSQLConnection
    ConnectionName = 'Oracle (Core Lab)'
    DriverName = 'Oracle (Core Lab)'
    GetDriverFunc = 'getSQLDriverORA'
    LibraryName = 'dbexpoda.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'DataBase=mart'
      'DriverName=Oracle (Core Lab)'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=979979'
      'Oracle TransIsolation=ReadCommited'
      'RoleName=Normal'
      'User_Name=mart'
      'LongStrings=True'
      'EnableBCD=True'
      'InternalName='
      'UseQuoteChar=False'
      'FetchAll=False'
      'CharLength=0'
      'Charset=')
    VendorLib = 'OCI.DLL'
    Left = 24
    Top = 32
  end
end