home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Anthology
/
aDELPHI.iso
/
Runimage
/
Delphi50
/
Source
/
Vcl
/
midconst.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1999-08-11
|
4KB
|
97 lines
{*******************************************************}
{ }
{ Borland Delphi Visual Component Library }
{ }
{ Copyright (c) 1997,99 Inprise Corporation }
{ }
{*******************************************************}
unit MidConst;
interface
const
{ Do not localize }
MIDAS_CatDesc = 'Borland MIDAS Application Servers';
CATID_MIDASAppServer: TGUID = '{13E85B3C-9508-11D2-AB63-00C04FA35CFA}';
SCatImplBaseKey = 'CLSID\%s\Implemented Categories';
SCatImplKey = SCatImplBaseKey + '\%s';
MIDAS_DLL = 'MIDAS.DLL';
SClsid = 'CLSID\';
SPooled = 'Pooled';
SMaxObjects = 'MaxObjects';
STimeout = 'Timeout';
SSingleton = 'Singleton';
SSockets = 'Sockets';
SWeb = 'Web';
SFlagOn = '1';
SFlagOff = '0';
resourcestring
{ App Server }
SProviderNotExported = 'Provider not exported: %s';
{ DBClient }
SNoDataProvider = 'Missing data provider or data packet';
SInvalidDataPacket = 'Invalid data packet';
SRefreshError = 'Must apply updates before refreshing data';
SProviderInvalid = 'Invalid provider. Provider was freed by the application server';
SServerNameBlank = 'Cannot connect, %s must contain a valid ServerName or ServerGUID';
SRepositoryIdBlank = 'Cannot connect, %s must contain a valid repository id';
SAggsGroupingLevel = 'Grouping level exceeds current index field count';
SAggsNoSuchLevel = 'Grouping level not defined';
SNoCircularReference = 'Circular provider references not allowed';
SErrorLoadingMidas = 'Error loading MIDAS.DLL';
SCannotCreateDataSet = 'No fields defined. Cannot create dataset';
{ MConnect }
SSocketReadError = 'Error reading from socket';
SInvalidProviderName = 'Provider name "%s" was not recognized by the server';
SBadVariantType = 'Unsupported variant type: %s';
SInvalidAction = 'Invalid action received: %d';
{ Resolver }
SInvalidResponse = 'Invalid response';
SRecordNotFound = 'Record not found';
STooManyRecordsModified = 'Update affected more than 1 record.';
{ Provider }
SInvalidOptParamType = 'Value cannot be stored in an optional parameter';
SMissingDataSet = 'Missing DataSet property';
SConstraintFailed = 'Record or field constraint failed.';
SField = 'Field';
SReadOnlyProvider = 'Cannot apply updates to a ReadOnly provider';
SNoKeySpecified = 'Unable to find record. No key specified';
SFieldNameTooLong = 'Field name cannot be longer then %d characters. Try ' +
'setting ObjectView to True on the dataset';
SNoDataSets = 'Cannot resolve to dataset when using nested datasets or references';
SRecConstFail = 'Preparation of record constraint failed with error "%s"';
SFieldConstFail = 'Preparation of field constraint failed with error "%s"';
SDefExprFail = 'Preparation of default expression failed with error "%s"';
SArrayElementError = 'Array elements of type %s are not supported';
SNoTableName = 'Unable to resolve records. Table name not found.';
SNoEditsAllowed = 'Modifications are not allowed';
SNoDeletesAllowed = 'Deletes are not allowed';
SNoInsertsAllowed = 'Inserts are not allowed';
SCannotChangeCommandText = 'CommandText changes are not allowed';
{ ObjectBroker }
SNoServers = 'No server available';
{ Socket Connection }
SReturnError = 'Expected return value not received';
SNoWinSock2 = 'WinSock 2 must be installed to use the socket connection';
{ Web Connection }
SURLRequired = 'URL required';
SDefaultURL = 'http://server.company.com/scripts/httpsrvr.dll';
SInvalidURL = 'URL must be in the form "http://server.company.com/scripts/httpsrvr.dll"';
SServerIsBusy = 'Server is busy';
SObjectNotAvailable = 'Object not available: %s';
implementation
end.