unitmsgdm.dfm

delphi写的基于server和client的聊天源码 有参考意义

object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 191
  Top = 107
  Height = 330
  Width = 441
  object SocketConn: TSocketConnection
    ServerGUID = '{B7DA64E4-198E-481F-85E7-084BC9DFD806}'
    ServerName = 'dataserver.messagedbase'
    SupportCallbacks = False
    ObjectBroker = Simple
    Left = 40
    Top = 16
  end
  object Simple: TSimpleObjectBroker
    LoadBalanced = True
    Left = 144
    Top = 16
  end
  object cdsggb: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    FetchOnDemand = False
    PacketRecords = 200
    Params = <>
    ProviderName = 'dsplmmx'
    RemoteServer = SocketConn
    Left = 48
    Top = 72
  end
  object Dsbbs: TDataSource
    DataSet = cdsggb
    Left = 48
    Top = 120
  end
end