diff --git a/Database/udfs/LEEME.txt b/Database/udfs/LEEME.txt new file mode 100644 index 00000000..a53bbb09 --- /dev/null +++ b/Database/udfs/LEEME.txt @@ -0,0 +1,4 @@ +La UDF de conversión RTF->Texto se basa en el componente TRichView +que no está incluido en las librerías del proyecto. +Descargar del repositorio e instalar en Delphi cuando se quiera +cambiar o recompilar la UDF. \ No newline at end of file diff --git a/Database/udfs/funciones.pas b/Database/udfs/funciones.pas index b0001ae5..557fd622 100644 --- a/Database/udfs/funciones.pas +++ b/Database/udfs/funciones.pas @@ -7,7 +7,69 @@ function RtfToText(Cadena: PChar): PChar; cdecl; export; implementation uses - Forms, Classes, SysUtils, StdCtrls, ComCtrls; + Forms, Classes, SysUtils, StdCtrls, ComCtrls, + RVRTF, RVRTFErr, Menus, RVTypes; + +type + TConversor = class(TObject) + private + FirstLine: Boolean; + procedure DoReaderText(Sender: TRVRTFReader; const Text: TRVAnsiString; + Position: TRVRTFPosition); + public + RTFText: TRVAnsiString; + function ExtractTextFromRTF(const AStream: TStream): Boolean; + end; + +{ TConversor } + +procedure TConversor.DoReaderText(Sender: TRVRTFReader; + const Text: TRVAnsiString; Position: TRVRTFPosition); +begin + if (Position <> rtf_ts_ContinuePara) and not FirstLine then + RTFText := RTFText+#13#10; + FirstLine := False; + RTFText := RTFText+Text; +end; + +function TConversor.ExtractTextFromRTF(const AStream: TStream): Boolean; +var + Parser: TRVRTFReader; +begin + {FirstLine := True;} + parser := TRVRTFReader.Create(nil); + try + Parser.OnNewText := DoReaderText; + Result := (Parser.ReadFromStream(AStream) = rtf_ec_OK); + finally + Parser.Free; + end; +end; + +function RtfToText(Cadena: PChar): PChar; +var + AStream : TStringStream; + AConversor : TConversor; +begin + AStream := TStringStream.Create(Cadena); + AConversor := TConversor.Create; + try + AConversor.ExtractTextFromRTF(AStream); + Result := PChar(AConversor.RTFText); + finally + FreeAndNil(AConversor); + FreeAndNIL(AStream); + end; +end; + + + + + + + + +// NO USAR LAS FUNCIONES QUE VIENEN A CONTINUACIÓN // Esta función falla cuando hay caracteres especiales en el texto (ñ, por ejemplo). @@ -47,10 +109,12 @@ end; http://www.delphipraxis.net/topic45179.html } +// Esta función falla porque se come letras del final de cada línea (¿?) + // HAY QUE LIMPIAR LA CADENA DE ENTRADA DE SALTOS DE LÍNEA (#$D#$A) POR QUE // SI NO, NO ES UNA CADENA CON TEXTO RTF VÁLIDO -function RtfToText(Cadena: PChar): PChar; +function RtfToText3(Cadena: PChar): PChar; const SaltoLinea = #13#10; //--> #$D#$A var @@ -219,8 +283,8 @@ begin // Cambiar los saltos de línea que no son de RTF por un caracter para // que se limpien. - aSource := StringReplace(aSource, SaltoLinea, '^', [rfreplaceall]); - +// aSource := StringReplace(aSource, SaltoLinea, '^', [rfreplaceall]); + if InitSource then begin NChar:=1; @@ -231,7 +295,3 @@ begin end; end. - - - - diff --git a/Database/udfs/udf_RtfToText.dll b/Database/udfs/udf_RtfToText.dll index d326ff57..5f0c6b09 100644 Binary files a/Database/udfs/udf_RtfToText.dll and b/Database/udfs/udf_RtfToText.dll differ diff --git a/Database/udfs/udf_RtfToText.drc b/Database/udfs/udf_RtfToText.drc index f8a35417..95b9fbb6 100644 --- a/Database/udfs/udf_RtfToText.drc +++ b/Database/udfs/udf_RtfToText.drc @@ -8,222 +8,241 @@ resources were bound to the produced executable. */ -#define Consts_SDockZoneHasNoCtl 65312 -#define Consts_SDockZoneVersionConflict 65313 -#define Consts_SANSIEncoding 65314 -#define Consts_SASCIIEncoding 65315 -#define Consts_SUnicodeEncoding 65316 -#define Consts_SBigEndianEncoding 65317 -#define Consts_SUTF8Encoding 65318 -#define Consts_SUTF7Encoding 65319 -#define Consts_SmkcEnd 65328 -#define Consts_SmkcHome 65329 -#define Consts_SmkcLeft 65330 -#define Consts_SmkcUp 65331 -#define Consts_SmkcRight 65332 -#define Consts_SmkcDown 65333 -#define Consts_SmkcIns 65334 -#define Consts_SmkcDel 65335 -#define Consts_SmkcShift 65336 -#define Consts_SmkcCtrl 65337 -#define Consts_SmkcAlt 65338 -#define Consts_SIconToClipboard 65339 -#define Consts_SDuplicateMenus 65340 -#define Consts_SDockedCtlNeedsName 65341 -#define Consts_SDockTreeRemoveError 65342 -#define Consts_SDockZoneNotFound 65343 -#define Consts_SMsgDlgOK 65344 -#define Consts_SMsgDlgCancel 65345 -#define Consts_SMsgDlgHelp 65346 -#define Consts_SMsgDlgAbort 65347 -#define Consts_SMsgDlgRetry 65348 -#define Consts_SMsgDlgIgnore 65349 -#define Consts_SMsgDlgAll 65350 -#define Consts_SMsgDlgNoToAll 65351 -#define Consts_SMsgDlgYesToAll 65352 -#define Consts_SmkcBkSp 65353 -#define Consts_SmkcTab 65354 -#define Consts_SmkcEsc 65355 -#define Consts_SmkcEnter 65356 -#define Consts_SmkcSpace 65357 -#define Consts_SmkcPgUp 65358 -#define Consts_SmkcPgDn 65359 -#define Consts_SCancelButton 65360 -#define Consts_SYesButton 65361 -#define Consts_SNoButton 65362 -#define Consts_SHelpButton 65363 -#define Consts_SCloseButton 65364 -#define Consts_SIgnoreButton 65365 -#define Consts_SRetryButton 65366 -#define Consts_SAbortButton 65367 -#define Consts_SAllButton 65368 -#define Consts_SCannotDragForm 65369 -#define Consts_SMsgDlgWarning 65370 -#define Consts_SMsgDlgError 65371 -#define Consts_SMsgDlgInformation 65372 -#define Consts_SMsgDlgConfirm 65373 -#define Consts_SMsgDlgYes 65374 -#define Consts_SMsgDlgNo 65375 -#define Consts_SImageWriteFail 65376 -#define Consts_SWindowDCError 65377 -#define Consts_SWindowClass 65378 -#define Consts_SCannotFocus 65379 -#define Consts_SParentRequired 65380 -#define Consts_SMDIChildNotVisible 65381 -#define Consts_SVisibleChanged 65382 -#define Consts_SCannotShowModal 65383 -#define Consts_SMenuIndexError 65384 -#define Consts_SMenuReinserted 65385 -#define Consts_SMenuNotFound 65386 -#define Consts_SNoTimers 65387 -#define Consts_SGroupIndexTooLow 65388 -#define Consts_SNoMDIForm 65389 -#define Consts_SControlParentSetToSelf 65390 -#define Consts_SOKButton 65391 -#define RTLConsts_SWriteError 65392 -#define HelpIntfs_hNoTableOfContents 65393 -#define HelpIntfs_hNothingFound 65394 -#define HelpIntfs_hNoContext 65395 -#define HelpIntfs_hNoContextFound 65396 -#define HelpIntfs_hNoTopics 65397 -#define Consts_SInvalidBitmap 65398 -#define Consts_SInvalidIcon 65399 -#define Consts_SChangeIconSize 65400 -#define Consts_SUnknownClipboardFormat 65401 -#define Consts_SOutOfResources 65402 -#define Consts_SNoCanvasHandle 65403 -#define Consts_SInvalidImageSize 65404 -#define Consts_SInvalidImageList 65405 -#define Consts_SImageIndexError 65406 -#define Consts_SImageReadFail 65407 -#define RTLConsts_SInvalidPropertyPath 65408 -#define RTLConsts_SInvalidPropertyValue 65409 -#define RTLConsts_SInvalidRegType 65410 -#define RTLConsts_SListCapacityError 65411 -#define RTLConsts_SListCountError 65412 -#define RTLConsts_SListIndexError 65413 -#define RTLConsts_SMemoryStreamError 65414 -#define RTLConsts_SPropertyException 65415 -#define RTLConsts_SReadError 65416 -#define RTLConsts_SReadOnlyProperty 65417 -#define RTLConsts_SRegGetDataFailed 65418 -#define RTLConsts_SResNotFound 65419 -#define RTLConsts_SSeekNotImplemented 65420 -#define RTLConsts_SSortedListError 65421 -#define RTLConsts_SUnknownGroup 65422 -#define RTLConsts_SUnknownProperty 65423 -#define ComConst_SNoCloseActiveServer1 65424 -#define ComConst_SNoCloseActiveServer2 65425 -#define RTLConsts_SAncestorNotFound 65426 -#define RTLConsts_SAssignError 65427 -#define RTLConsts_SBitsIndexError 65428 -#define RTLConsts_SCantWriteResourceStreamError 65429 -#define RTLConsts_SCheckSynchronizeError 65430 -#define RTLConsts_SClassNotFound 65431 -#define RTLConsts_SDuplicateClass 65432 -#define RTLConsts_SDuplicateItem 65433 -#define RTLConsts_SDuplicateName 65434 -#define RTLConsts_SDuplicateString 65435 -#define RTLConsts_SFCreateErrorEx 65436 -#define RTLConsts_SFOpenErrorEx 65437 -#define RTLConsts_SInvalidImage 65438 -#define RTLConsts_SInvalidName 65439 -#define SysConst_SShortDayNameWed 65440 -#define SysConst_SShortDayNameThu 65441 -#define SysConst_SShortDayNameFri 65442 -#define SysConst_SShortDayNameSat 65443 -#define SysConst_SLongDayNameSun 65444 -#define SysConst_SLongDayNameMon 65445 -#define SysConst_SLongDayNameTue 65446 -#define SysConst_SLongDayNameWed 65447 -#define SysConst_SLongDayNameThu 65448 -#define SysConst_SLongDayNameFri 65449 -#define SysConst_SLongDayNameSat 65450 -#define ComConst_SOleError 65451 -#define ComConst_SNoMethod 65452 -#define ComConst_SVarNotObject 65453 -#define ComConst_STooManyParams 65454 -#define ComConst_SAutomationWarning 65455 -#define SysConst_SShortMonthNameDec 65456 -#define SysConst_SLongMonthNameJan 65457 -#define SysConst_SLongMonthNameFeb 65458 -#define SysConst_SLongMonthNameMar 65459 -#define SysConst_SLongMonthNameApr 65460 -#define SysConst_SLongMonthNameMay 65461 -#define SysConst_SLongMonthNameJun 65462 -#define SysConst_SLongMonthNameJul 65463 -#define SysConst_SLongMonthNameAug 65464 -#define SysConst_SLongMonthNameSep 65465 -#define SysConst_SLongMonthNameOct 65466 -#define SysConst_SLongMonthNameNov 65467 -#define SysConst_SLongMonthNameDec 65468 -#define SysConst_SShortDayNameSun 65469 -#define SysConst_SShortDayNameMon 65470 -#define SysConst_SShortDayNameTue 65471 -#define SysConst_SAssertError 65472 -#define SysConst_SAbstractError 65473 -#define SysConst_SModuleAccessViolation 65474 -#define SysConst_SOSError 65475 -#define SysConst_SUnkOSError 65476 -#define SysConst_SShortMonthNameJan 65477 -#define SysConst_SShortMonthNameFeb 65478 -#define SysConst_SShortMonthNameMar 65479 -#define SysConst_SShortMonthNameApr 65480 -#define SysConst_SShortMonthNameMay 65481 -#define SysConst_SShortMonthNameJun 65482 -#define SysConst_SShortMonthNameJul 65483 -#define SysConst_SShortMonthNameAug 65484 -#define SysConst_SShortMonthNameSep 65485 -#define SysConst_SShortMonthNameOct 65486 -#define SysConst_SShortMonthNameNov 65487 -#define SysConst_SVarArrayBounds 65488 -#define SysConst_SVarArrayLocked 65489 -#define SysConst_SInvalidVarCast 65490 -#define SysConst_SInvalidVarOp 65491 -#define SysConst_SInvalidVarOpWithHResultWithPrefix 65492 -#define SysConst_SVarTypeCouldNotConvert 65493 -#define SysConst_SVarTypeConvertOverflow 65494 -#define SysConst_SVarOverflow 65495 -#define SysConst_SVarInvalid 65496 -#define SysConst_SVarBadType 65497 -#define SysConst_SVarNotImplemented 65498 -#define SysConst_SVarUnexpected 65499 -#define SysConst_SExternalException 65500 -#define SysConst_SAssertionFailed 65501 -#define SysConst_SIntfCastError 65502 -#define SysConst_SSafecallException 65503 -#define SysConst_SUnderflow 65504 -#define SysConst_SInvalidPointer 65505 -#define SysConst_SInvalidCast 65506 -#define SysConst_SAccessViolationArg3 65507 -#define SysConst_SAccessViolationNoArg 65508 -#define SysConst_SStackOverflow 65509 -#define SysConst_SControlC 65510 -#define SysConst_SPrivilege 65511 -#define SysConst_SException 65512 -#define SysConst_SExceptTitle 65513 -#define SysConst_SInvalidFormat 65514 -#define SysConst_SArgumentMissing 65515 -#define SysConst_SDispatchError 65516 -#define SysConst_SReadAccess 65517 -#define SysConst_SWriteAccess 65518 -#define SysConst_SVarArrayCreate 65519 +#define Consts_SDockZoneHasNoCtl 65296 +#define Consts_SDockZoneVersionConflict 65297 +#define Consts_SANSIEncoding 65298 +#define Consts_SASCIIEncoding 65299 +#define Consts_SUnicodeEncoding 65300 +#define Consts_SBigEndianEncoding 65301 +#define Consts_SUTF8Encoding 65302 +#define Consts_SUTF7Encoding 65303 +#define JConsts_sChangeJPGSize 65304 +#define JConsts_sJPEGError 65305 +#define JConsts_sJPEGImageFile 65306 +#define Consts_SmkcLeft 65312 +#define Consts_SmkcUp 65313 +#define Consts_SmkcRight 65314 +#define Consts_SmkcDown 65315 +#define Consts_SmkcIns 65316 +#define Consts_SmkcDel 65317 +#define Consts_SmkcShift 65318 +#define Consts_SmkcCtrl 65319 +#define Consts_SmkcAlt 65320 +#define Consts_SInvalidClipFmt 65321 +#define Consts_SIconToClipboard 65322 +#define Consts_SCannotOpenClipboard 65323 +#define Consts_SDuplicateMenus 65324 +#define Consts_SDockedCtlNeedsName 65325 +#define Consts_SDockTreeRemoveError 65326 +#define Consts_SDockZoneNotFound 65327 +#define Consts_SMsgDlgHelp 65328 +#define Consts_SMsgDlgAbort 65329 +#define Consts_SMsgDlgRetry 65330 +#define Consts_SMsgDlgIgnore 65331 +#define Consts_SMsgDlgAll 65332 +#define Consts_SMsgDlgNoToAll 65333 +#define Consts_SMsgDlgYesToAll 65334 +#define Consts_SmkcBkSp 65335 +#define Consts_SmkcTab 65336 +#define Consts_SmkcEsc 65337 +#define Consts_SmkcEnter 65338 +#define Consts_SmkcSpace 65339 +#define Consts_SmkcPgUp 65340 +#define Consts_SmkcPgDn 65341 +#define Consts_SmkcEnd 65342 +#define Consts_SmkcHome 65343 +#define Consts_SRetryButton 65344 +#define Consts_SAbortButton 65345 +#define Consts_SAllButton 65346 +#define Consts_SCannotDragForm 65347 +#define Consts_SVMetafiles 65348 +#define Consts_SVEnhMetafiles 65349 +#define Consts_SVIcons 65350 +#define Consts_SVBitmaps 65351 +#define Consts_SMsgDlgWarning 65352 +#define Consts_SMsgDlgError 65353 +#define Consts_SMsgDlgInformation 65354 +#define Consts_SMsgDlgConfirm 65355 +#define Consts_SMsgDlgYes 65356 +#define Consts_SMsgDlgNo 65357 +#define Consts_SMsgDlgOK 65358 +#define Consts_SMsgDlgCancel 65359 +#define Consts_SVisibleChanged 65360 +#define Consts_SCannotShowModal 65361 +#define Consts_SMenuIndexError 65362 +#define Consts_SMenuReinserted 65363 +#define Consts_SMenuNotFound 65364 +#define Consts_SNoTimers 65365 +#define Consts_SGroupIndexTooLow 65366 +#define Consts_SNoMDIForm 65367 +#define Consts_SControlParentSetToSelf 65368 +#define Consts_SOKButton 65369 +#define Consts_SCancelButton 65370 +#define Consts_SYesButton 65371 +#define Consts_SNoButton 65372 +#define Consts_SHelpButton 65373 +#define Consts_SCloseButton 65374 +#define Consts_SIgnoreButton 65375 +#define Consts_SScanLine 65376 +#define Consts_SChangeIconSize 65377 +#define Consts_SUnknownExtension 65378 +#define Consts_SUnknownClipboardFormat 65379 +#define Consts_SOutOfResources 65380 +#define Consts_SNoCanvasHandle 65381 +#define Consts_SInvalidImageSize 65382 +#define Consts_SInvalidImageList 65383 +#define Consts_SImageIndexError 65384 +#define Consts_SImageReadFail 65385 +#define Consts_SImageWriteFail 65386 +#define Consts_SWindowDCError 65387 +#define Consts_SWindowClass 65388 +#define Consts_SCannotFocus 65389 +#define Consts_SParentRequired 65390 +#define Consts_SMDIChildNotVisible 65391 +#define RTLConsts_SSeekNotImplemented 65392 +#define RTLConsts_SSortedListError 65393 +#define RTLConsts_SUnknownGroup 65394 +#define RTLConsts_SUnknownProperty 65395 +#define RTLConsts_SWriteError 65396 +#define RTLConsts_SThreadCreateError 65397 +#define RTLConsts_SThreadError 65398 +#define HelpIntfs_hNoTableOfContents 65399 +#define HelpIntfs_hNothingFound 65400 +#define HelpIntfs_hNoContext 65401 +#define HelpIntfs_hNoContextFound 65402 +#define HelpIntfs_hNoTopics 65403 +#define Consts_SInvalidBitmap 65404 +#define Consts_SInvalidIcon 65405 +#define Consts_SInvalidMetafile 65406 +#define Consts_SInvalidPixelFormat 65407 +#define RTLConsts_SFOpenErrorEx 65408 +#define RTLConsts_SInvalidImage 65409 +#define RTLConsts_SInvalidName 65410 +#define RTLConsts_SInvalidProperty 65411 +#define RTLConsts_SInvalidPropertyPath 65412 +#define RTLConsts_SInvalidPropertyValue 65413 +#define RTLConsts_SInvalidRegType 65414 +#define RTLConsts_SListCapacityError 65415 +#define RTLConsts_SListCountError 65416 +#define RTLConsts_SListIndexError 65417 +#define RTLConsts_SMemoryStreamError 65418 +#define RTLConsts_SPropertyException 65419 +#define RTLConsts_SReadError 65420 +#define RTLConsts_SReadOnlyProperty 65421 +#define RTLConsts_SRegGetDataFailed 65422 +#define RTLConsts_SResNotFound 65423 +#define ComConst_SVarNotObject 65424 +#define ComConst_STooManyParams 65425 +#define ComConst_SAutomationWarning 65426 +#define ComConst_SNoCloseActiveServer1 65427 +#define ComConst_SNoCloseActiveServer2 65428 +#define RTLConsts_SAncestorNotFound 65429 +#define RTLConsts_SAssignError 65430 +#define RTLConsts_SBitsIndexError 65431 +#define RTLConsts_SCantWriteResourceStreamError 65432 +#define RTLConsts_SCheckSynchronizeError 65433 +#define RTLConsts_SClassNotFound 65434 +#define RTLConsts_SDuplicateClass 65435 +#define RTLConsts_SDuplicateItem 65436 +#define RTLConsts_SDuplicateName 65437 +#define RTLConsts_SDuplicateString 65438 +#define RTLConsts_SFCreateErrorEx 65439 +#define SysConst_SShortDayNameSun 65440 +#define SysConst_SShortDayNameMon 65441 +#define SysConst_SShortDayNameTue 65442 +#define SysConst_SShortDayNameWed 65443 +#define SysConst_SShortDayNameThu 65444 +#define SysConst_SShortDayNameFri 65445 +#define SysConst_SShortDayNameSat 65446 +#define SysConst_SLongDayNameSun 65447 +#define SysConst_SLongDayNameMon 65448 +#define SysConst_SLongDayNameTue 65449 +#define SysConst_SLongDayNameWed 65450 +#define SysConst_SLongDayNameThu 65451 +#define SysConst_SLongDayNameFri 65452 +#define SysConst_SLongDayNameSat 65453 +#define ComConst_SOleError 65454 +#define ComConst_SNoMethod 65455 +#define SysConst_SShortMonthNameSep 65456 +#define SysConst_SShortMonthNameOct 65457 +#define SysConst_SShortMonthNameNov 65458 +#define SysConst_SShortMonthNameDec 65459 +#define SysConst_SLongMonthNameJan 65460 +#define SysConst_SLongMonthNameFeb 65461 +#define SysConst_SLongMonthNameMar 65462 +#define SysConst_SLongMonthNameApr 65463 +#define SysConst_SLongMonthNameMay 65464 +#define SysConst_SLongMonthNameJun 65465 +#define SysConst_SLongMonthNameJul 65466 +#define SysConst_SLongMonthNameAug 65467 +#define SysConst_SLongMonthNameSep 65468 +#define SysConst_SLongMonthNameOct 65469 +#define SysConst_SLongMonthNameNov 65470 +#define SysConst_SLongMonthNameDec 65471 +#define SysConst_SAssertionFailed 65472 +#define SysConst_SIntfCastError 65473 +#define SysConst_SSafecallException 65474 +#define SysConst_SAssertError 65475 +#define SysConst_SAbstractError 65476 +#define SysConst_SModuleAccessViolation 65477 +#define SysConst_SOSError 65478 +#define SysConst_SUnkOSError 65479 +#define SysConst_SShortMonthNameJan 65480 +#define SysConst_SShortMonthNameFeb 65481 +#define SysConst_SShortMonthNameMar 65482 +#define SysConst_SShortMonthNameApr 65483 +#define SysConst_SShortMonthNameMay 65484 +#define SysConst_SShortMonthNameJun 65485 +#define SysConst_SShortMonthNameJul 65486 +#define SysConst_SShortMonthNameAug 65487 +#define SysConst_SWriteAccess 65488 +#define SysConst_SVarArrayCreate 65489 +#define SysConst_SVarArrayBounds 65490 +#define SysConst_SVarArrayLocked 65491 +#define SysConst_SInvalidVarCast 65492 +#define SysConst_SInvalidVarOp 65493 +#define SysConst_SInvalidVarNullOp 65494 +#define SysConst_SInvalidVarOpWithHResultWithPrefix 65495 +#define SysConst_SVarTypeCouldNotConvert 65496 +#define SysConst_SVarTypeConvertOverflow 65497 +#define SysConst_SVarOverflow 65498 +#define SysConst_SVarInvalid 65499 +#define SysConst_SVarBadType 65500 +#define SysConst_SVarNotImplemented 65501 +#define SysConst_SVarUnexpected 65502 +#define SysConst_SExternalException 65503 +#define SysConst_SOverflow 65504 +#define SysConst_SUnderflow 65505 +#define SysConst_SInvalidPointer 65506 +#define SysConst_SInvalidCast 65507 +#define SysConst_SAccessViolationArg3 65508 +#define SysConst_SAccessViolationNoArg 65509 +#define SysConst_SStackOverflow 65510 +#define SysConst_SControlC 65511 +#define SysConst_SPrivilege 65512 +#define SysConst_SOperationAborted 65513 +#define SysConst_SException 65514 +#define SysConst_SExceptTitle 65515 +#define SysConst_SInvalidFormat 65516 +#define SysConst_SArgumentMissing 65517 +#define SysConst_SDispatchError 65518 +#define SysConst_SReadAccess 65519 #define SysConst_SInvalidInteger 65520 -#define SysConst_SOutOfMemory 65521 -#define SysConst_SInOutError 65522 -#define SysConst_SFileNotFound 65523 -#define SysConst_SInvalidFilename 65524 -#define SysConst_STooManyOpenFiles 65525 -#define SysConst_SAccessDenied 65526 -#define SysConst_SEndOfFile 65527 -#define SysConst_SDiskFull 65528 -#define SysConst_SInvalidInput 65529 -#define SysConst_SDivByZero 65530 -#define SysConst_SRangeError 65531 -#define SysConst_SIntOverflow 65532 -#define SysConst_SInvalidOp 65533 -#define SysConst_SZeroDivide 65534 -#define SysConst_SOverflow 65535 +#define SysConst_SInvalidFloat 65521 +#define SysConst_SOutOfMemory 65522 +#define SysConst_SInOutError 65523 +#define SysConst_SFileNotFound 65524 +#define SysConst_SInvalidFilename 65525 +#define SysConst_STooManyOpenFiles 65526 +#define SysConst_SAccessDenied 65527 +#define SysConst_SEndOfFile 65528 +#define SysConst_SDiskFull 65529 +#define SysConst_SInvalidInput 65530 +#define SysConst_SDivByZero 65531 +#define SysConst_SRangeError 65532 +#define SysConst_SIntOverflow 65533 +#define SysConst_SInvalidOp 65534 +#define SysConst_SZeroDivide 65535 STRINGTABLE BEGIN Consts_SDockZoneHasNoCtl, " - Dock zone has no control" @@ -234,8 +253,9 @@ BEGIN Consts_SBigEndianEncoding, "Big Endian Unicode" Consts_SUTF8Encoding, "UTF-8" Consts_SUTF7Encoding, "UTF-7" - Consts_SmkcEnd, "End" - Consts_SmkcHome, "Home" + JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" + JConsts_sJPEGError, "JPEG error #%d" + JConsts_sJPEGImageFile, "JPEG Image File" Consts_SmkcLeft, "Left" Consts_SmkcUp, "Up" Consts_SmkcRight, "Right" @@ -245,13 +265,13 @@ BEGIN Consts_SmkcShift, "Shift+" Consts_SmkcCtrl, "Ctrl+" Consts_SmkcAlt, "Alt+" + Consts_SInvalidClipFmt, "Invalid clipboard format" Consts_SIconToClipboard, "Clipboard does not support Icons" + Consts_SCannotOpenClipboard, "Cannot open clipboard" Consts_SDuplicateMenus, "Menu '%s' is already being used by another form" Consts_SDockedCtlNeedsName, "Docked control must have a name" Consts_SDockTreeRemoveError, "Error removing control from dock tree" Consts_SDockZoneNotFound, " - Dock zone not found" - Consts_SMsgDlgOK, "OK" - Consts_SMsgDlgCancel, "Cancel" Consts_SMsgDlgHelp, "&Help" Consts_SMsgDlgAbort, "&Abort" Consts_SMsgDlgRetry, "&Retry" @@ -266,28 +286,24 @@ BEGIN Consts_SmkcSpace, "Space" Consts_SmkcPgUp, "PgUp" Consts_SmkcPgDn, "PgDn" - Consts_SCancelButton, "Cancel" - Consts_SYesButton, "&Yes" - Consts_SNoButton, "&No" - Consts_SHelpButton, "&Help" - Consts_SCloseButton, "&Close" - Consts_SIgnoreButton, "&Ignore" + Consts_SmkcEnd, "End" + Consts_SmkcHome, "Home" Consts_SRetryButton, "&Retry" Consts_SAbortButton, "Abort" Consts_SAllButton, "&All" Consts_SCannotDragForm, "Cannot drag a form" + Consts_SVMetafiles, "Metafiles" + Consts_SVEnhMetafiles, "Enhanced Metafiles" + Consts_SVIcons, "Icons" + Consts_SVBitmaps, "Bitmaps" Consts_SMsgDlgWarning, "Warning" Consts_SMsgDlgError, "Error" Consts_SMsgDlgInformation, "Information" Consts_SMsgDlgConfirm, "Confirm" Consts_SMsgDlgYes, "&Yes" Consts_SMsgDlgNo, "&No" - Consts_SImageWriteFail, "Failed to write ImageList data to stream" - Consts_SWindowDCError, "Error creating window device context" - Consts_SWindowClass, "Error creating window class" - Consts_SCannotFocus, "Cannot focus a disabled or invisible window" - Consts_SParentRequired, "Control '%s' has no parent window" - Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" + Consts_SMsgDlgOK, "OK" + Consts_SMsgDlgCancel, "Cancel" Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" Consts_SCannotShowModal, "Cannot make a visible window modal" Consts_SMenuIndexError, "Menu index out of range" @@ -298,15 +314,15 @@ BEGIN Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" Consts_SOKButton, "OK" - RTLConsts_SWriteError, "Stream write error" - HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" - HelpIntfs_hNothingFound, "No help found for %s" - HelpIntfs_hNoContext, "No context-sensitive help installed" - HelpIntfs_hNoContextFound, "No help found for context" - HelpIntfs_hNoTopics, "No topic-based help system installed" - Consts_SInvalidBitmap, "Bitmap image is not valid" - Consts_SInvalidIcon, "Icon image is not valid" + Consts_SCancelButton, "Cancel" + Consts_SYesButton, "&Yes" + Consts_SNoButton, "&No" + Consts_SHelpButton, "&Help" + Consts_SCloseButton, "&Close" + Consts_SIgnoreButton, "&Ignore" + Consts_SScanLine, "Scan line index out of range" Consts_SChangeIconSize, "Cannot change the size of an icon" + Consts_SUnknownExtension, "Unknown picture file extension (.%s)" Consts_SUnknownClipboardFormat, "Unsupported clipboard format" Consts_SOutOfResources, "Out of system resources" Consts_SNoCanvasHandle, "Canvas does not allow drawing" @@ -314,6 +330,32 @@ BEGIN Consts_SInvalidImageList, "Invalid ImageList" Consts_SImageIndexError, "Invalid ImageList Index" Consts_SImageReadFail, "Failed to read ImageList data from stream" + Consts_SImageWriteFail, "Failed to write ImageList data to stream" + Consts_SWindowDCError, "Error creating window device context" + Consts_SWindowClass, "Error creating window class" + Consts_SCannotFocus, "Cannot focus a disabled or invisible window" + Consts_SParentRequired, "Control '%s' has no parent window" + Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" + RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" + RTLConsts_SSortedListError, "Operation not allowed on sorted list" + RTLConsts_SUnknownGroup, "%s not in a class registration group" + RTLConsts_SUnknownProperty, "Property %s does not exist" + RTLConsts_SWriteError, "Stream write error" + RTLConsts_SThreadCreateError, "Thread creation error: %s" + RTLConsts_SThreadError, "Thread Error: %s (%d)" + HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" + HelpIntfs_hNothingFound, "No help found for %s" + HelpIntfs_hNoContext, "No context-sensitive help installed" + HelpIntfs_hNoContextFound, "No help found for context" + HelpIntfs_hNoTopics, "No topic-based help system installed" + Consts_SInvalidBitmap, "Bitmap image is not valid" + Consts_SInvalidIcon, "Icon image is not valid" + Consts_SInvalidMetafile, "Metafile is not valid" + Consts_SInvalidPixelFormat, "Invalid pixel format" + RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" + RTLConsts_SInvalidImage, "Invalid stream format" + RTLConsts_SInvalidName, "''%s'' is not a valid component name" + RTLConsts_SInvalidProperty, "Invalid property value" RTLConsts_SInvalidPropertyPath, "Invalid property path" RTLConsts_SInvalidPropertyValue, "Invalid property value" RTLConsts_SInvalidRegType, "Invalid data type for '%s'" @@ -326,10 +368,9 @@ BEGIN RTLConsts_SReadOnlyProperty, "Property is read-only" RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" RTLConsts_SResNotFound, "Resource %s not found" - RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" - RTLConsts_SSortedListError, "Operation not allowed on sorted list" - RTLConsts_SUnknownGroup, "%s not in a class registration group" - RTLConsts_SUnknownProperty, "Property %s does not exist" + ComConst_SVarNotObject, "Variant does not reference an automation object" + ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" + ComConst_SAutomationWarning, "COM Server Warning" ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing " ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?" RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" @@ -343,9 +384,9 @@ BEGIN RTLConsts_SDuplicateName, "A component named %s already exists" RTLConsts_SDuplicateString, "String list does not allow duplicates" RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s" - RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" - RTLConsts_SInvalidImage, "Invalid stream format" - RTLConsts_SInvalidName, "''%s'' is not a valid component name" + SysConst_SShortDayNameSun, "Sun" + SysConst_SShortDayNameMon, "Mon" + SysConst_SShortDayNameTue, "Tue" SysConst_SShortDayNameWed, "Wed" SysConst_SShortDayNameThu, "Thu" SysConst_SShortDayNameFri, "Fri" @@ -359,9 +400,9 @@ BEGIN SysConst_SLongDayNameSat, "Saturday" ComConst_SOleError, "OLE error %.8x" ComConst_SNoMethod, "Method '%s' not supported by automation object" - ComConst_SVarNotObject, "Variant does not reference an automation object" - ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" - ComConst_SAutomationWarning, "COM Server Warning" + SysConst_SShortMonthNameSep, "Sep" + SysConst_SShortMonthNameOct, "Oct" + SysConst_SShortMonthNameNov, "Nov" SysConst_SShortMonthNameDec, "Dec" SysConst_SLongMonthNameJan, "January" SysConst_SLongMonthNameFeb, "February" @@ -375,9 +416,9 @@ BEGIN SysConst_SLongMonthNameOct, "October" SysConst_SLongMonthNameNov, "November" SysConst_SLongMonthNameDec, "December" - SysConst_SShortDayNameSun, "Sun" - SysConst_SShortDayNameMon, "Mon" - SysConst_SShortDayNameTue, "Tue" + SysConst_SAssertionFailed, "Assertion failed" + SysConst_SIntfCastError, "Interface not supported" + SysConst_SSafecallException, "Exception in safecall method" SysConst_SAssertError, "%s (%s, line %d)" SysConst_SAbstractError, "Abstract Error" SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" @@ -391,13 +432,13 @@ BEGIN SysConst_SShortMonthNameJun, "Jun" SysConst_SShortMonthNameJul, "Jul" SysConst_SShortMonthNameAug, "Aug" - SysConst_SShortMonthNameSep, "Sep" - SysConst_SShortMonthNameOct, "Oct" - SysConst_SShortMonthNameNov, "Nov" + SysConst_SWriteAccess, "Write" + SysConst_SVarArrayCreate, "Error creating variant or safe array" SysConst_SVarArrayBounds, "Variant or safe array index out of bounds" SysConst_SVarArrayLocked, "Variant or safe array is locked" SysConst_SInvalidVarCast, "Invalid variant type conversion" SysConst_SInvalidVarOp, "Invalid variant operation" + SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)" SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)" @@ -407,9 +448,7 @@ BEGIN SysConst_SVarNotImplemented, "Operation not supported" SysConst_SVarUnexpected, "Unexpected variant error" SysConst_SExternalException, "External exception %x" - SysConst_SAssertionFailed, "Assertion failed" - SysConst_SIntfCastError, "Interface not supported" - SysConst_SSafecallException, "Exception in safecall method" + SysConst_SOverflow, "Floating point overflow" SysConst_SUnderflow, "Floating point underflow" SysConst_SInvalidPointer, "Invalid pointer operation" SysConst_SInvalidCast, "Invalid class typecast" @@ -418,15 +457,15 @@ BEGIN SysConst_SStackOverflow, "Stack overflow" SysConst_SControlC, "Control-C hit" SysConst_SPrivilege, "Privileged instruction" + SysConst_SOperationAborted, "Operation aborted" SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" SysConst_SExceptTitle, "Application Error" SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" SysConst_SArgumentMissing, "No argument for format '%s'" SysConst_SDispatchError, "Variant method calls not supported" SysConst_SReadAccess, "Read" - SysConst_SWriteAccess, "Write" - SysConst_SVarArrayCreate, "Error creating variant or safe array" SysConst_SInvalidInteger, "'%s' is not a valid integer value" + SysConst_SInvalidFloat, "'%s' is not a valid floating point value" SysConst_SOutOfMemory, "Out of memory" SysConst_SInOutError, "I/O error %d" SysConst_SFileNotFound, "File not found" @@ -441,11 +480,12 @@ BEGIN SysConst_SIntOverflow, "Integer overflow" SysConst_SInvalidOp, "Invalid floating point operation" SysConst_SZeroDivide, "Floating point division by zero" - SysConst_SOverflow, "Floating point overflow" END /* c:\archivos de programa\codegear\rad studio\5.0\Lib\Controls.res */ /* c:\archivos de programa\codegear\rad studio\5.0\Lib\Buttons.res */ /* c:\archivos de programa\codegear\rad studio\5.0\Lib\ExtDlgs.res */ +/* C:\TRichView\Units\D2007\RVTable.res */ +/* C:\TRichView\Units\D2007\RVStyle.RES */ /* C:\Codigo Acana\Database\udfs\udf_RtfToText.RES */ /* C:\Codigo Acana\Database\udfs\udf_RtfToText.drf */