home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Vcl / MIDCONST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  3.9 KB  |  97 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1997,99 Inprise Corporation       }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit MidConst;
  11.  
  12. interface
  13.  
  14. const
  15. { Do not localize }
  16.   MIDAS_CatDesc = 'Borland MIDAS Application Servers';
  17.   CATID_MIDASAppServer: TGUID = '{13E85B3C-9508-11D2-AB63-00C04FA35CFA}';
  18.   SCatImplBaseKey = 'CLSID\%s\Implemented Categories';
  19.   SCatImplKey = SCatImplBaseKey + '\%s';
  20.   MIDAS_DLL = 'MIDAS.DLL';
  21.   SClsid = 'CLSID\';
  22.   SPooled = 'Pooled';
  23.   SMaxObjects = 'MaxObjects';
  24.   STimeout = 'Timeout';
  25.   SSingleton = 'Singleton';
  26.   SSockets = 'Sockets';
  27.   SWeb = 'Web';
  28.   SFlagOn = '1';
  29.   SFlagOff = '0'; 
  30.  
  31. resourcestring
  32.   { App Server }
  33.   SProviderNotExported = 'Provider not exported: %s';
  34.  
  35.   { DBClient }
  36.   SNoDataProvider = 'Missing data provider or data packet';
  37.   SInvalidDataPacket = 'Invalid data packet';
  38.   SRefreshError = 'Must apply updates before refreshing data';
  39.   SProviderInvalid = 'Invalid provider. Provider was freed by the application server';
  40.   SServerNameBlank = 'Cannot connect, %s must contain a valid ServerName or ServerGUID';
  41.   SRepositoryIdBlank = 'Cannot connect, %s must contain a valid repository id';
  42.   SAggsGroupingLevel = 'Grouping level exceeds current index field count';
  43.   SAggsNoSuchLevel = 'Grouping level not defined';
  44.   SNoCircularReference = 'Circular provider references not allowed';
  45.   SErrorLoadingMidas = 'Error loading MIDAS.DLL';
  46.   SCannotCreateDataSet = 'No fields defined.  Cannot create dataset';
  47.  
  48.   { MConnect }
  49.   SSocketReadError = 'Error reading from socket';
  50.   SInvalidProviderName = 'Provider name "%s" was not recognized by the server';
  51.   SBadVariantType = 'Unsupported variant type: %s';
  52.   SInvalidAction = 'Invalid action received: %d';
  53.  
  54.   { Resolver }
  55.   SInvalidResponse = 'Invalid response';
  56.   SRecordNotFound = 'Record not found';
  57.   STooManyRecordsModified = 'Update affected more than 1 record.';
  58.  
  59.   { Provider }
  60.   SInvalidOptParamType = 'Value cannot be stored in an optional parameter';
  61.   SMissingDataSet = 'Missing DataSet property';
  62.   SConstraintFailed = 'Record or field constraint failed.';
  63.   SField = 'Field';
  64.   SReadOnlyProvider = 'Cannot apply updates to a ReadOnly provider';
  65.   SNoKeySpecified = 'Unable to find record.  No key specified';
  66.   SFieldNameTooLong = 'Field name cannot be longer then %d characters.  Try ' +
  67.                       'setting ObjectView to True on the dataset';
  68.   SNoDataSets = 'Cannot resolve to dataset when using nested datasets or references';
  69.   SRecConstFail = 'Preparation of record constraint failed with error "%s"';
  70.   SFieldConstFail = 'Preparation of field constraint failed with error "%s"';
  71.   SDefExprFail = 'Preparation of default expression failed with error "%s"';
  72.   SArrayElementError = 'Array elements of type %s are not supported'; 
  73.   SNoTableName = 'Unable to resolve records.  Table name not found.';
  74.   SNoEditsAllowed = 'Modifications are not allowed';
  75.   SNoDeletesAllowed = 'Deletes are not allowed';
  76.   SNoInsertsAllowed = 'Inserts are not allowed';
  77.   SCannotChangeCommandText = 'CommandText changes are not allowed';
  78.  
  79.   { ObjectBroker }
  80.   SNoServers = 'No server available';
  81.  
  82.   { Socket Connection }
  83.   SReturnError = 'Expected return value not received';
  84.   SNoWinSock2 = 'WinSock 2 must be installed to use the socket connection';
  85.  
  86.   { Web Connection }
  87.   SURLRequired = 'URL required';
  88.   SDefaultURL = 'http://server.company.com/scripts/httpsrvr.dll';
  89.   SInvalidURL = 'URL must be in the form "http://server.company.com/scripts/httpsrvr.dll"';
  90.   SServerIsBusy = 'Server is busy';
  91.  
  92.   SObjectNotAvailable = 'Object not available: %s';
  93.  
  94. implementation
  95.  
  96. end.
  97.