u_web_dm.dfm

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

object F_WEB_DM: TF_WEB_DM
  OldCreateOrder = False
  Left = 249
  Top = 172
  Height = 284
  Width = 412
  object db_webmis: TDBISAMDatabase
    EngineVersion = '4.17'
    DatabaseName = 'web_local'
    Directory = '.\db'
    KeepTablesOpen = False
    SessionName = 'Default'
    Left = 32
    Top = 16
  end
  object qy_wangy_dbi: TDBISAMQuery
    AutoDisplayLabels = False
    CopyOnAppend = False
    DatabaseName = 'web_local'
    EngineVersion = '4.17'
    MaxRowCount = -1
    SQL.Strings = (
      'select ipaddr,port,ptype from servip order by c_sort')
    Params = <>
    Left = 104
    Top = 16
  end
  object ID_TCP: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 0
    Left = 32
    Top = 184
  end
  object ID_UDP: TIdUDPServer
    Bindings = <>
    DefaultPort = 0
    OnUDPRead = ID_UDPUDPRead
    Left = 32
    Top = 128
  end
  object WEBDB: TDatabase
    AliasName = 'webmis'
    DatabaseName = 'WEBDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=liaosy'
      'PASSWORD=518')
    SessionName = 'Default'
    Left = 32
    Top = 64
  end
  object qy_wangy: TQuery
    DatabaseName = 'WEBDB'
    Left = 104
    Top = 64
  end
end