home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 March / pcp161b.iso / full / delphi / RUNIMAGE / DELPHI30 / SOURCE / VCL / webconst.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-08-04  |  1.7 KB  |  50 lines

  1. unit WebConst;
  2.  
  3. interface
  4.  
  5. resourcestring
  6.   sInvalidActionRegistration = 'Invalid Action registration';
  7.   sOnlyOneDataModuleAllowed = 'Only one data module per application';
  8.   sNoDataModulesRegistered = 'No data modules registered';
  9.   sNoDispatcherComponent = 'No dispatcher component found on data module';
  10.   sOnlyOneDispatcher = 'Only one WebDispatcher per form/data module';
  11.   sDuplicateActionName = 'Duplicate action name';
  12.   sTooManyActiveConnections = 'Maximum number of concurrent connections exceeded.  ' +
  13.     'Please try again later';
  14.   sHTTPItemName = 'Name';
  15.   sHTTPItemURI = 'PathInfo';
  16.   sHTTPItemEnabled = 'Enabled';
  17.   sHTTPItemDefault = 'Default';
  18.  
  19.   sInternalServerError = '<html><title>Internal Server Error 500</title>'#13#10 +
  20.     '<h1>Internal Server Error 500</h1><hr>'#13#10 +
  21.     'Exception: %s<br>'#13#10 +
  22.     'Message: %s<br></html>'#13#10;
  23.  
  24.   sWindowsSocketError = 'Windows socket error: %s (%d), on API ''%s''';
  25.   sNoAddress = 'No address specified';
  26.   sCannotCreateSocket = 'Can''t create new socket';
  27.   sCannotListenOnOpen = 'Can''t listen on an open socket';
  28.   sSocketAlreadyOpen = 'Socket already open';
  29.   sCantChangeWhileActive = 'Can''t change value while socket is active';
  30.   sMustCreateThread = 'Must create a thread when in Thread blocking mode';
  31.   sSocketMustBeBlocking = 'Socket must be in blocking mode';
  32.   sSocketIOError = '%s error %d, %s';
  33.   sSocketRead = 'Read';
  34.   sSocketWrite = 'Write';
  35.   sAsyncSocketError = 'Asynchronous socket error %d';
  36.  
  37.   sResNotFound = 'Resource %s not found';
  38.  
  39.   sTooManyColumns = 'Too many table columns';
  40.   sFieldNameColumn = 'Field Name';
  41.   sFieldTypeColumn = 'Field Type';
  42.  
  43.   sInvalidMask = '''%s'' is an invalid mask at (%d)';
  44.  
  45.  
  46. implementation
  47.  
  48. end.
  49.  
  50.