unit_pacs_invoke_register.dfm

来自「a program written by delphi about middle」· DFM 代码 · 共 41 行

object dmPacsRegister: TdmPacsRegister
  OldCreateOrder = False
  Left = 440
  Top = 234
  Height = 273
  Width = 373
  object dmc_register: TDCOMConnection
    ServerGUID = '{074BEA2C-8F8B-4FD7-8162-ED245A0EFDD4}'
    ServerName = 'jk_server_nls.jk_server_pacs_register'
    Left = 64
    Top = 40
  end
  object cds_register: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_register'
    RemoteServer = dmc_register
    Left = 168
    Top = 40
  end
  object cs_register: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnLookup = cs_registerLookup
    OnConnect = cs_registerConnect
    OnRead = cs_registerRead
    OnError = cs_registerError
    Left = 272
    Top = 40
  end
  object cds_ip: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_ip'
    RemoteServer = dmc_register
    Left = 168
    Top = 112
  end
end