uaconst.pas

来自「基于Midas 技术的多层应用开发包第二版（带开发文档）」· PAS 代码 · 共 31 行

unit UAConst;

interface

const

  UA_CatDesc = 'Universal Agent Application Servers';
  CATID_UAService: TGUID = '{DE8276BF-7BED-4783-A72D-009273CEEEE5}';
  SClsid = 'CLSID\';
  SCatImplBaseKey = '%s\Implemented Categories';
  SCatImplKey = SCatImplBaseKey + '\%s';
  SPooled = 'Pooled';
  SMaxObjects = 'MaxObjects';
  STimeout = 'Timeout';
  SSingleton = 'Singleton';
  SSockets = 'Sockets';
  SFlagOn = '1';
  SFlagOff = '0';

resourcestring
  SServerNameBlank = 'Cannot connect, %s must contain a valid ServerName or ServerGUID';
  SSocketReadError = 'Error reading from socket';
  SInvalidDataPacket = 'Invalid data packet';
  SReturnError = 'Expected return value not received';
  SNoWinSock2 = 'WinSock 2 must be installed to use the socket connection';


implementation

end.