...

La cara oculta de DELPHI 4

by user

on
Category: Documents
0

views

Report

Comments

Transcript

La cara oculta de DELPHI 4
La cara
oculta de
DELPHI 4
...Mientras intentaba inútilmente atrapar un rayo de luz
en los confines de una oscura galaxia,
Ella escuchaba a los tres guardianes
del secreto de la Pirámide,
y con el Resplandor de sus manos
me indicaba el camino de regreso a casa...
A Naroa, porque sigo creyendo en ella.
\
INDICE
PRÓLOGO DEL AUTOR
19
CONVENIOS SINTÁCTICOS
ACERCA DE LA TERMINOLOGÍA EMPLEADA
AGRADECIMIENTOS
21
21
21
PRÓLOGO A LA SEGUNDA EDICIÓN
23
PARA MÁS EJEMPLOS Y ACTUALIZACIONES...
23
ENTORNO Y HERRAMIENTAS
27
1. ¿ES DELPHI SU LENGUAJE?
29
BREVE HISTORIA DE UN LENGUAJE LLAMADO DELPHI
¿ES DELPHI UN LENGUAJE “SENCILLO”?
PROGRAMACIÓN ORIENTADA A OBJETOS VERDADERA
ARQUITECTURA INTEGRADA DE COMPONENTES
DELPHI GENERA CONTROLES ACTIVEX
TRATAMIENTO DE EXCEPCIONES
VELOCIDAD DE EJECUCIÓN
VELOCIDAD DE COMPILACIÓN Y ENLACE
RETROALIMENTACIÓN INMEDIATA
EL DEPÓSITO DE OBJETOS Y LA HERENCIA VISUAL
APLICACIONES DISTRIBUIDAS
COMPONENTES DE DELPHI
29
31
32
33
34
34
35
35
36
36
37
38
2. HERRAMIENTAS Y UTILIDADES
41
DELPHI Y EL TECLADO
CODE INSIGHT: AYUDA DURANTE LA EDICIÓN
CLASS COMPLETION
HERRAMIENTAS DE DEPURACIÓN
OBJECT BROWSER
BDE ADMINISTRATOR
DATABASE EXPLORER
DATABASE DESKTOP
DATA MIGRATION WIZARD
SQL MONITOR
IMAGE EDITOR
41
44
48
49
51
51
52
53
54
55
55
4 La Cara Oculta de Delphi
3. UNIDADES, PROYECTOS Y PAQUETES
57
LA ESTRUCTURA DE UN PROYECTO DE APLICACIÓN
¿QUÉ SE PUEDE DECLARAR?
SINTAXIS DE LAS UNIDADES
LA CLÁUSULA USES Y LAS REFERENCIAS CIRCULARES
LA INCLUSIÓN AUTOMÁTICA DE UNIDADES
LOS FICHEROS DFM
BIBLIOTECAS DE ENLACE DINÁMICO
PAQUETES
EL ABC DEL USO DE PAQUETES
PAQUETES DE TIEMPO DE DISEÑO Y DE EJECUCIÓN
LOS GRUPOS DE PROYECTOS
58
60
62
64
65
66
68
69
72
73
74
4. SISTEMAS DE BASES DE DATOS
77
ACERCA DEL ACCESO TRANSPARENTE A BASES DE DATOS
BASES DE DATOS RELACIONALES
INFORMACIÓN SEMÁNTICA = RESTRICCIONES
RESTRICCIONES DE UNICIDAD Y CLAVES PRIMARIAS
INTEGRIDAD REFERENCIAL
¿QUÉ TIENE DE MALO EL MODELO RELACIONAL?
BASES DE DATOS LOCALES Y SERVIDORES SQL
CARACTERÍSTICAS GENERALES DE LOS SISTEMAS SQL
EL FORMATO PARADOX
EL FORMATO DBF7
CRITERIOS PARA EVALUAR UN SERVIDOR SQL
INTERBASE
MICROSOFT SQL SERVER
ORACLE
OTROS SISTEMAS DE USO FRECUENTE
77
78
80
81
82
83
85
87
88
91
92
95
97
99
100
5. EL MOTOR DE DATOS DE BORLAND
103
QUÉ ES, Y CÓMO FUNCIONA
CONTROLADORES LOCALES Y SQL LINKS
ACCESO A FUENTES DE DATOS ODBC
¿DÓNDE SE INSTALA EL BDE?
EL ADMINISTRADOR DEL MOTOR DE DATOS
CONFIGURACIÓN DEL REGISTRO E INFORMACIÓN DE VERSIÓN
EL CONCEPTO DE ALIAS
PARÁMETROS DEL SISTEMA
PARÁMETROS DE LOS CONTROLADORES PARA BD LOCALES
BLOQUEOS OPORTUNISTAS
PARÁMETROS COMUNES A LOS CONTROLADORES SQL
CONFIGURACIÓN DE INTERBASE
104
105
106
106
108
108
110
110
112
114
114
117
Indice 5
CONFIGURACIÓN DE MS SQL SERVER
CONFIGURACIÓN DE ORACLE
CONFIGURACIÓN DE OTROS SISTEMAS
CREACIÓN DE ALIAS PARA BASES DE DATOS LOCALES Y SQL
ALTERNATIVAS AL MOTOR DE DATOS
118
120
121
121
122
FUNDAMENTOS DEL LENGUAJE
125
6. PROGRAMACIÓN ORIENTADA A OBJETOS: ENCAPSULAMIENTO
127
EL PROBLEMA DE LA DIVISIÓN EN MÓDULOS
LOS MÓDULOS EN LA PROGRAMACIÓN ESTRUCTURADA
REUSABILIDAD Y EL PRINCIPIO “ABIERTO/CERRADO”
LLEGAN LOS OBJETOS
OPERACIONES SOBRE UN TIPO DE DATOS: FUNCIONES
OPERACIONES SOBRE UN TIPO DE DATOS: MÉTODOS
LA PRIMERA VENTAJA: NOMBRES MÁS CORTOS
LA IMPLEMENTACIÓN DE UN MÉTODO
EL ESTADO INTERNO DE UN OBJETO
PARÁMETROS POR OMISIÓN
PÚBLICO Y PRIVADO
LAS VARIABLES DE OBJETOS SON PUNTEROS
CONSTRUCCIÓN Y DESTRUCCIÓN: EL CICLO DE LA VIDA
DEFINIENDO CONSTRUCTORES Y DESTRUCTORES
127
128
129
130
132
134
135
136
138
140
140
142
143
144
7. HERENCIA Y POLIMORFISMO
147
HERENCIA = EXTENSIÓN + ESPECIALIZACIÓN
UN GATO CON BOTAS SIGUE SIENDO UN GATO
LA CLASE TOBJECT
JERARQUÍAS DE HERENCIA
HERENCIA MÚLTIPLE, ¿SÍ O NO?
REDEFINICIÓN DE MÉTODOS
LA TABLA DE MÉTODOS VIRTUALES
UTILIZANDO EL COMPORTAMIENTO HEREDADO
SOBRECARGA: HAY MUY POCOS NOMBRE BUENOS
PÚBLICO, PROTEGIDO, PRIVADO...
MÉTODOS ABSTRACTOS
REFERENCIAS DE CLASE
CONSTRUCTORES VIRTUALES
INFORMACIÓN DE TIPOS EN TIEMPO DE EJECUCIÓN
MÉTODOS DE CLASE
147
149
152
153
154
155
158
160
161
163
164
165
167
168
170
6 La Cara Oculta de Delphi
8. ELEMENTOS DE PROGRAMACIÓN CON WINDOWS
173
SI ME NECESITAS, ¡LLÁMAME!
¿QUÉ ES UNA VENTANA?
CLASES DE VENTANA
EVENTOS O, MÁS BIEN, MENSAJES
EL CICLO DE MENSAJES Y LA COLA DE MENSAJES
EJECUCIÓN MODAL Y NO MODAL
EL PROCEDIMIENTO DE VENTANA
INTERCEPTANDO MENSAJES EN DELPHI
TAMBIÉN PODEMOS ENVIAR MENSAJES
APLICACIONES EN LA BANDEJA DE ICONOS
CICLO DE MENSAJES Y CONCURRENCIA
CUANDO NO HAY NADA MEJOR QUE HACER…
EJECUTAR Y ESPERAR
173
174
175
176
177
180
180
181
184
184
187
188
189
9. PROPIEDADES
191
LOS PROBLEMAS DE LA POO CLÁSICA
PROPIEDADES
IMPLEMENTACIÓN DE PROPIEDADES MEDIANTE ATRIBUTOS
SI NO CREEMOS EN LA ALQUIMIA…
LA SEMÁNTICA DE LA ASIGNACIÓN A PROPIEDADES
PROPIEDADES VECTORIALES
PROPIEDADES VECTORIALES POR OMISIÓN
ESPECIFICACIONES DE ALMACENAMIENTO
ACCESO A PROPIEDADES POR SU NOMBRE
191
194
195
197
198
200
202
202
205
10. EVENTOS
207
PUNTEROS A FUNCIONES
PUNTEROS A MÉTODOS
OBJETOS ACTIVOS: ¡ABAJO LA VIGILANCIA!
EVENTOS VS REDEFINICIÓN DE MÉTODOS VIRTUALES
EL EMISOR Y EL RECEPTOR DEL EVENTO
RECEPTORES COMPARTIDOS
TIPOS DE EVENTOS
NOS PIDEN NUESTRA OPINIÓN...
LOS EVENTOS EXPRESAN CONTRATOS SIN OBLIGACIONES
ACTIVACIÓN RECURSIVA
207
208
210
212
214
215
216
218
218
219
11. EXCEPCIONES
223
SISTEMAS DE CONTROL DE ERRORES
CONTRATOS INCUMPLIDOS
CÓMO SE INDICA UN ERROR
223
224
225
Indice 7
LA EJECUCIÓN DEL PROGRAMA FLUYE EN DOS DIMENSIONES
EL ESTADO DE PÁNICO
PAGAMOS NUESTRAS DEUDAS
EL CONCEPTO DE "RECURSO DE PROGRAMACIÓN"
CÓMO TRANQUILIZAR A UN PROGRAMA ASUSTADO
EJEMPLOS DE CAPTURA DE EXCEPCIONES
CAPTURANDO EL OBJETO DE EXCEPCIÓN
DISTINGUIR EL TIPO DE EXCEPCIÓN
LAS TRES REGLAS DE MARTEENS
CICLO DE MENSAJES Y MANEJO DE EXCEPCIONES
EXCEPCIONES A LA TERCERA REGLA DE MARTEENS
EL EVENTO ONEXCEPTION
LA EXCEPCIÓN SILENCIOSA
CONSTRUCTORES Y EXCEPCIONES
ASERCIONES
226
227
227
228
229
230
231
231
233
234
235
236
239
240
243
12. TIPOS DE DATOS DE DELPHI
247
TIPOS NUMÉRICOS
FECHAS Y HORAS
CADENAS DE CARACTERES CORTAS
PUNTEROS A CARACTERES, AL ESTILO C
CADENAS DE CARACTERES LARGAS
VECTORES ABIERTOS
VECTORES DINÁMICOS
VECTORES ABIERTOS VARIANTES
VARIANTES
CLASES PARA LA REPRESENTACIÓN DE LISTAS
STREAMS: FICHEROS CON INTERFAZ DE OBJETOS
247
249
251
253
254
256
258
259
260
261
264
13. TÉCNICAS DE GESTIÓN DE VENTANAS
267
¿QUÉ HACE DELPHI CUANDO LO DEJAMOS SOLO?
CREACIÓN INMEDIATA DE VENTANAS MODALES
CREACIÓN INMEDIATA DE VENTANAS NO MODALES
MÉTODOS DE CLASE PARA LA CREACIÓN DINÁMICA
CÓMO TRANSFORMAR INTROS EN TABS
CÓMO LIMITAR EL TAMAÑO DE UNA VENTANA
CÓMO DISTRIBUIR EL ÁREA INTERIOR ENTRE DOS REJILLAS
VENTANAS DE PRESENTACIÓN
267
269
271
273
276
277
279
281
14. LOS MÓDULOS DE DATOS Y EL DEPÓSITO DE OBJETOS
283
LA GALERÍA DE PLANTILLAS DE DELPHI 1
EL DEPÓSITO DE OBJETOS
LAS PROPIEDADES DEL DEPÓSITO
283
284
286
8 La Cara Oculta de Delphi
LA UBICACIÓN DEL DEPÓSITO DE OBJETOS
¿USAR, COPIAR O HEREDAR?
HERENCIA VISUAL DENTRO DEL PROYECTO
HERENCIA DE EVENTOS
LAS PLANTILLAS DE COMPONENTES
LOS MÓDULOS DE DATOS
287
289
292
292
293
294
COMPONENTES PARA BASES DE DATOS
297
15. CONJUNTOS DE DATOS: TABLAS
299
LA JERARQUÍA DE LOS CONJUNTOS DE DATOS
LA ARQUITECTURA DE OBJETOS DEL MOTOR DE DATOS
TABLAS
CONEXIÓN CON COMPONENTES VISUALES
NAVEGANDO POR LAS FILAS
MARCAS DE POSICIÓN
ENCAPSULAMIENTO DE LA ITERACIÓN
LA RELACIÓN MASTER/DETAIL
NAVEGACIÓN Y RELACIONES MASTER/DETAIL
EL ESTADO DE UN CONJUNTO DE DATOS
299
301
303
306
308
310
311
313
316
321
16. ACCESO A CAMPOS
323
CREACIÓN DE COMPONENTES DE CAMPOS
CLASES DE CAMPOS
NOMBRE DEL CAMPO Y ETIQUETA DE VISUALIZACIÓN
ACCESO A LOS CAMPOS POR MEDIO DE LA TABLA
EXTRAYENDO INFORMACIÓN DE LOS CAMPOS
LAS MÁSCARAS DE FORMATO Y EDICIÓN
LOS EVENTOS DE FORMATO DE CAMPOS
VALIDACIÓN A NIVEL DE CAMPOS
PROPIEDADES DE VALIDACIÓN
CAMPOS CALCULADOS
CAMPOS DE BÚSQUEDA
LA CACHÉ DE BÚSQUEDA
EL ORDEN DE EVALUACIÓN DE LOS CAMPOS
EL DICCIONARIO DE DATOS
CONJUNTOS DE ATRIBUTOS
IMPORTANDO BASES DE DATOS
EVALUANDO RESTRICCIONES EN EL CLIENTE
INFORMACIÓN SOBRE CAMPOS
CREACIÓN DE TABLAS
323
325
327
328
328
330
331
333
334
335
336
338
339
340
341
342
343
346
347
Indice 9
17. CONTROLES DE DATOS Y FUENTES DE DATOS
351
CONTROLES DATA-AWARE
LOS ENLACES DE DATOS
CREACIÓN DE CONTROLES DE DATOS
LOS CUADROS DE EDICIÓN
EDITORES DE TEXTO
TEXTOS NO EDITABLES
COMBOS Y LISTAS CON CONTENIDO FIJO
COMBOS Y LISTAS DE BÚSQUEDA
CASILLAS DE VERIFICACIÓN Y GRUPOS DE BOTONES
IMÁGENES EXTRAÍDAS DE BASES DE DATOS
LA TÉCNICA DEL COMPONENTE DEL POBRE
PERMITIENDO LAS MODIFICACIONES
BLOB, BLOB, BLOB…
LA CLASE TBLOBSTREAM
351
353
354
355
356
357
357
360
362
363
363
365
367
368
18. REJILLAS Y BARRAS DE NAVEGACIÓN
371
EL FUNCIONAMIENTO BÁSICO DE UNA REJILLA DE DATOS
OPCIONES DE REJILLAS
COLUMNAS A LA MEDIDA
GUARDAR Y RESTAURAR LOS ANCHOS DE COLUMNAS
LISTAS DESPLEGABLES Y BOTONES DE EDICIÓN
NÚMEROS VERDES Y NÚMEROS ROJOS
MÁS EVENTOS DE REJILLAS
LA BARRA DE DESPLAZAMIENTO DE LA REJILLA
REJILLAS DE SELECCIÓN MÚLTIPLE
BARRAS DE NAVEGACIÓN
HABÍA UNA VEZ UN USUARIO TORPE, MUY TORPE…
AYUDAS PARA NAVEGAR
EL COMPORTAMIENTO DE LA BARRA DE NAVEGACIÓN
REJILLAS DE CONTROLES
371
372
373
376
377
379
381
382
383
384
385
385
386
388
19. INDICES
391
INDICES EN PARADOX
INDICES EN DBASE
INDICES EN INTERBASE
INDICES EN MS SQL SERVER
INDICES EN ORACLE
CON QUÉ ÍNDICES PODEMOS CONTAR
ESPECIFICANDO EL ÍNDICE ACTIVO
ESPECIFICANDO UN ORDEN EN TABLAS SQL
BÚSQUEDA BASADA EN ÍNDICES
IMPLEMENTACIÓN DE REFERENCIAS MEDIANTE FINDKEY
391
392
394
394
395
396
398
399
401
403
10 La Cara Oculta de Delphi
BÚSQUEDAS UTILIZANDO SETKEY
EXPERIMENTANDO CON SETKEY
¿POR QUÉ EXISTE SETKEY?
RANGOS: DESDE EL ALFA A LA OMEGA
EL EJEMPLO DE RANGOS DE CASI TODOS LOS LIBROS
MÁS PROBLEMAS CON LOS ÍNDICES DE DBASE
CÓMO CREAR UN ÍNDICE TEMPORAL
403
404
405
406
408
410
411
20. MÉTODOS DE BÚSQUEDA
413
FILTROS
ESTO NO LO DICE LA DOCUMENTACIÓN…
UN EJEMPLO CON FILTROS RÁPIDOS
EL EVENTO ONFILTERRECORD
LOCALIZACIÓN Y BÚSQUEDA
UN DIÁLOGO GENÉRICO DE LOCALIZACIÓN
FILTROS LATENTES
FILTER BY EXAMPLE
BÚSQUEDA EN UNA TABLA DE DETALLES
413
414
415
418
419
422
424
426
430
PROGRAMACIÓN CON SQL
433
21. BREVE INTRODUCCIÓN A SQL
435
LA ESTRUCTURA DE SQL
PARA SEGUIR LOS EJEMPLOS DE ESTE LIBRO…
LA CREACIÓN Y CONEXIÓN A LA BASE DE DATOS
TIPOS DE DATOS EN SQL
CREACIÓN DE TABLAS
COLUMNAS CALCULADAS
VALORES POR OMISIÓN
RESTRICCIONES DE INTEGRIDAD
CLAVES PRIMARIAS Y ALTERNATIVAS
INTEGRIDAD REFERENCIAL
ACCIONES REFERENCIALES
NOMBRES PARA LAS RESTRICCIONES
DEFINICIÓN Y USO DE DOMINIOS
CREACIÓN DE ÍNDICES
MODIFICACIÓN DE TABLAS E ÍNDICES
CREACIÓN DE VISTAS
CREACIÓN DE USUARIOS
ASIGNACIÓN DE PRIVILEGIOS
ROLES
UN EJEMPLO COMPLETO DE SCRIPT SQL
435
436
438
439
440
441
442
442
444
445
446
447
448
449
450
451
451
453
454
455
Indice 11
22. CONSULTAS Y MODIFICACIONES EN SQL
457
LA INSTRUCCIÓN SELECT: EL LENGUAJE DE CONSULTAS
LA CONDICIÓN DE SELECCIÓN
OPERADORES DE CADENAS
EL VALOR NULO: ENFRENTÁNDONOS A LO DESCONOCIDO
ELIMINACIÓN DE DUPLICADOS
PRODUCTOS CARTESIANOS Y ENCUENTROS
ORDENANDO LOS RESULTADOS
EL USO DE GRUPOS
FUNCIONES DE CONJUNTOS
LA CLÁUSULA HAVING
EL USO DE SINÓNIMOS PARA TABLAS
SUBCONSULTAS: SELECCIÓN ÚNICA
SUBCONSULTAS: LOS OPERADORES IN Y EXISTS
SUBCONSULTAS CORRELACIONADAS
EQUIVALENCIAS DE SUBCONSULTAS
ENCUENTROS EXTERNOS
LAS INSTRUCCIONES DE ACTUALIZACIÓN
VISTAS
457
459
459
460
461
462
464
465
466
467
467
468
469
471
472
473
475
476
23. PROCEDIMIENTOS ALMACENADOS Y TRIGGERS
479
¿PARA QUÉ USAR PROCEDIMIENTOS ALMACENADOS?
CÓMO SE UTILIZA UN PROCEDIMIENTO ALMACENADO
EL CARÁCTER DE TERMINACIÓN
PROCEDIMIENTOS ALMACENADOS EN INTERBASE
PROCEDIMIENTOS QUE DEVUELVEN UN CONJUNTO DE DATOS
RECORRIENDO UN CONJUNTO DE DATOS
TRIGGERS, O DISPARADORES
LAS VARIABLES NEW Y OLD
MÁS EJEMPLOS DE TRIGGERS
GENERADORES
SIMULANDO LA INTEGRIDAD REFERENCIAL
EXCEPCIONES
ALERTADORES DE EVENTOS
479
481
482
483
486
488
489
491
491
493
495
497
498
24. MICROSOFT SQL SERVER
501
HERRAMIENTAS DE DESARROLLO EN EL CLIENTE
CREACIÓN DE BASES DE DATOS CON MS SQL SERVER
TIPOS DE DATOS PREDEFINIDOS
TIPOS DE DATOS DEFINIDOS POR EL PROGRAMADOR
CREACIÓN DE TABLAS Y ATRIBUTOS DE COLUMNAS
INTEGRIDAD REFERENCIAL
INDICES
501
502
504
505
506
507
508
12 La Cara Oculta de Delphi
SEGURIDAD EN MS SQL SERVER
PROCEDIMIENTOS ALMACENADOS
CURSORES
TRIGGERS EN TRANSACT-SQL
INTEGRIDAD REFERENCIAL MEDIANTE TRIGGERS
508
509
510
512
514
25. ORACLE
517
SOBREVIVIENDO A SQL*PLUS
INSTANCIAS, BASES DE DATOS, USUARIOS
TIPOS DE DATOS
CREACIÓN DE TABLAS
PROCEDIMIENTOS ALMACENADOS EN PL/SQL
CURSORES
TRIGGERS EN PL/SQL
SECUENCIAS
TIPOS DE OBJETOS
EXTENSIONES DE DELPHI PARA LOS TIPOS DE OBJETOS
517
519
520
521
522
524
525
526
528
532
26. USANDO SQL CON DELPHI
537
EL COMPONENTE TQUERY COMO CONJUNTO DE DATOS
¿QUIÉN EJECUTA LAS INSTRUCCIONES?
CONSULTAS ACTUALIZABLES
SIEMPRE HACIA ADELANTE
CONSULTAS PARAMÉTRICAS
CONSULTAS DEPENDIENTES
LA PREPARACIÓN DE LA CONSULTA
ACTUALIZACIÓN DE DATOS CON SQL
ALMACENAR EL RESULTADO DE UNA CONSULTA
¿EJECUTAR O ACTIVAR?
UTILIZANDO PROCEDIMIENTOS ALMACENADOS
VISUAL QUERY BUILDER
537
538
539
540
543
545
546
548
549
550
553
555
27. COMUNICACIÓN CLIENTE/SERVIDOR
559
NUESTRA ARMA LETAL: SQL MONITOR
¿TABLA O CONSULTA?
LA CACHÉ DE ESQUEMAS
OPERACIONES DE NAVEGACIÓN SIMPLE
BÚSQUEDAS EXACTAS CON LOCATE
BÚSQUEDAS PARCIALES
UNA SOLUCIÓN PARA BÚSQUEDAS PARCIALES RÁPIDAS
BÚSQUEDAS CON FILTROS LATENTES
559
560
562
563
564
564
565
567
Indice 13
ACTUALIZACIONES Y CONCURRENCIA
569
28. ACTUALIZACIONES
571
LOS ESTADOS DE EDICIÓN Y LOS MÉTODOS DE TRANSICIÓN
ASIGNACIONES A CAMPOS
CONFIRMANDO LAS ACTUALIZACIONES
DIFERENCIAS ENTRE INSERT Y APPEND
COMO POR AZAR…
MÉTODOS ABREVIADOS DE INSERCIÓN
ACTUALIZACIÓN DIRECTA VS VARIABLES EN MEMORIA
AUTOMATIZANDO LA ENTRADA DE DATOS
ENTRADA DE DATOS CONTINUA
ELIMINANDO REGISTROS
COMPRESIÓN DE TABLAS LOCALES
571
572
574
575
576
577
577
579
581
582
583
29. EVENTOS DE TRANSICIÓN DE ESTADOS
585
CUANDO EL ESTADO CAMBIA…
REGLAS DE EMPRESA: ¿EN EL SERVIDOR O EN EL CLIENTE?
INICIALIZACIÓN DE REGISTROS: EL EVENTO ONNEWRECORD
VALIDACIONES A NIVEL DE REGISTROS
ANTES Y DESPUÉS DE UNA MODIFICACIÓN
PROPAGACIÓN DE CAMBIOS EN CASCADA
ACTUALIZACIONES COORDINADAS MASTER/DETAIL
ANTES Y DESPUÉS DE LA APERTURA DE UNA TABLA
VACIANDO LOS BUFFERS
LOS EVENTOS DE DETECCIÓN DE ERRORES
LA ESTRUCTURA DE LA EXCEPCIÓN EDBENGINEERROR
APLICACIONES DE LOS EVENTOS DE ERRORES
UNA VEZ MÁS, LA ORIENTACIÓN A OBJETOS…
585
586
587
588
589
591
592
593
594
595
597
600
602
30. BASES DE DATOS Y SESIONES
603
EL COMPONENTE TDATABASE
OBJETOS DE BASES DE DATOS PERSISTENTES
CAMBIANDO UN ALIAS DINÁMICAMENTE
BASES DE DATOS Y CONJUNTOS DE DATOS
PARÁMETROS DE CONEXIÓN
LA PETICIÓN DE CONTRASEÑAS
EL DIRECTORIO TEMPORAL DE WINDOWS
PROBLEMAS CON LA HERENCIA VISUAL
SESIONES
CADA SESIÓN ES UN USUARIO
SESIONES E HILOS PARALELOS
603
604
605
607
609
609
611
611
613
613
614
14 La Cara Oculta de Delphi
INFORMACIÓN SOBRE ESQUEMAS
EL MINIEXPLORADOR DE BASES DE DATOS
GESTIÓN DE ALIAS A TRAVÉS DE TSESSION
DIRECTORIOS PRIVADOS, DE RED Y CONTRASEÑAS
617
618
620
622
31. TRANSACCIONES Y CONTROL DE CONCURRENCIA
625
EL GRAN EXPERIMENTO
EL GRAN EXPERIMENTO: TABLAS LOCALES
EL GRAN EXPERIMENTO: TABLAS SQL
PESIMISTAS Y OPTIMISTAS
EL MODO DE ACTUALIZACIÓN
LA RELECTURA DEL REGISTRO ACTUAL
LAS PROPIEDADES “ÁCIDAS” DE UNA TRANSACCIÓN
TRANSACCIONES SQL Y EN BASES DE DATOS LOCALES
TRANSACCIONES IMPLÍCITAS Y EXPLÍCITAS
ENTRADA DE DATOS Y TRANSACCIONES
AISLAMIENTO DE TRANSACCIONES
AISLAMIENTO DE TRANSACCIONES MEDIANTE BLOQUEOS
EL JARDÍN DE LOS SENDEROS QUE SE BIFURCAN
DE NUEVO LOS OPTIMISTAS
625
626
628
628
630
632
633
635
636
638
639
641
643
644
32. ACTUALIZACIONES EN CACHÉ
649
¿CACHÉ PARA QUÉ?
ACTIVACIÓN DE LAS ACTUALIZACIONES EN CACHÉ
CONFIRMACIÓN DE LAS ACTUALIZACIONES
MARCHA ATRÁS
EL ESTADO DE ACTUALIZACIÓN
EL FILTRO DE TIPOS DE REGISTROS
UN EJEMPLO INTEGRAL
EL GRAN FINAL: EDICIÓN Y ENTRADA DE DATOS
COMBINANDO LA CACHÉ CON GRABACIONES DIRECTAS
PROTOTIPOS Y MÉTODOS VIRTUALES
CÓMO ACTUALIZAR CONSULTAS “NO” ACTUALIZABLES
EL EVENTO ONUPDATERECORD
DETECCIÓN DE ERRORES DURANTE LA GRABACIÓN
649
650
651
653
653
655
656
658
660
663
665
668
669
33. LIBRETAS DE BANCOS
673
DESCRIPCIÓN DEL MODELO DE DATOS
CREACIÓN DE VISTAS
MANTENIENDO ACTUALIZADOS LOS SALDOS
LIBRETAS DE BANCO Y MS SQL SERVER
AHORA, EN ORACLE
EL MÓDULO DE DATOS
673
675
675
677
679
681
Indice 15
GESTIÓN DE LIBRETAS
CÓDIGOS DE OPERACIONES
LA VENTANA PRINCIPAL
ENTRADA DE APUNTES
CORRIGIENDO EL IMPORTE DE UN APUNTE
684
686
688
690
692
LOS DETALLES FINALES
695
34. IMPRESIÓN DE INFORMES CON QUICKREPORT
697
LA HISTORIA DEL PRODUCTO
LA FILOSOFÍA DEL PRODUCTO
PLANTILLAS Y EXPERTOS PARA QUICKREPORT
EL CORAZÓN DE UN INFORME
LAS BANDAS
EL EVENTO BEFOREPRINT
COMPONENTES DE IMPRESIÓN
EL EVALUADOR DE EXPRESIONES
DEFINIENDO NUEVAS FUNCIONES
UTILIZANDO GRUPOS
ELIMINANDO DUPLICADOS
INFORMES MASTER/DETAIL
INFORMES COMPUESTOS
PREVISUALIZACIÓN A LA MEDIDA
LISTADOS AL VUELO
ENVIANDO CÓDIGOS BINARIOS A UNA IMPRESORA
697
699
700
701
703
704
705
706
708
709
711
712
714
715
716
718
35. GRÁFICOS DE DECISIÓN
721
GRÁFICOS Y BIORRITMOS
EL COMPONENTE TDBCHART
COMPONENTES NO VISUALES DE DECISION CUBE
REJILLAS Y GRÁFICOS DE DECISIÓN
MODIFICANDO EL MAPA DE DIMENSIONES
721
725
727
729
731
36. BIBLIOTECAS DE ENLACE DINÁMICO
733
ARQUITECTURA BÁSICA
PROYECTOS DLL
EXPORTACIÓN DE FUNCIONES
IMPORTACIÓN DE FUNCIONES Y UNIDADES DE IMPORTACIÓN
TIPOS DE DATOS EN FUNCIONES EXPORTADAS
CÓDIGO DE INICIALIZACIÓN Y FINALIZACIÓN
EXCEPCIONES EN BIBLIOTECAS DINÁMICAS
CARGA DINÁMICA DE BIBLIOTECAS
733
735
736
739
740
742
744
745
16 La Cara Oculta de Delphi
DEPURACIÓN DE BIBLIOTECAS DINÁMICAS
FUNCIONES DE USUARIO EN INTERBASE
BIBLIOTECAS DE RECURSOS E INTERNACIONALIZACIÓN
FICHEROS ASIGNADOS EN MEMORIA
746
746
749
752
37. SERVIDORES DE INTERNET
757
EL MODELO DE INTERACCIÓN EN LA WEB
APRENDA HTML EN 14 MINUTOS
EXTENSIONES DEL SERVIDOR Y PÁGINAS DINÁMICAS
¿QUÉ NECESITO PARA ESTE SEGUIR LOS EJEMPLOS?
MÓDULOS WEB
ACCIONES
RECUPERACIÓN DE PARÁMETROS
GENERADORES DE CONTENIDO
GENERADORES DE TABLAS
MANTENIMIENTO DE LA INFORMACIÓN DE ESTADO
UN EJEMPLO: BÚSQUEDA DE PRODUCTOS
EL MOTOR DE BÚSQUEDAS
CREANDO LA EXTENSIÓN WEB
GENERANDO LA TABLA DE RESULTADOS
DOCUMENTOS HTML Y SUSTITUCIÓN DE ETIQUETAS
RESPONDIENDO A LAS ACCIONES
757
758
761
762
763
765
767
768
770
771
773
775
778
780
781
783
38. CONJUNTOS DE DATOS CLIENTES
785
CREACIÓN DE CONJUNTOS DE DATOS
CÓMO EL TCLIENTDATASET CONSIGUIÓ SUS DATOS...
NAVEGACIÓN, BÚSQUEDA Y SELECCIÓN
FILTROS
EDICIÓN DE DATOS
CONJUNTOS DE DATOS ANIDADOS
CAMPOS CALCULADOS INTERNOS
INDICES, GRUPOS Y VALORES AGREGADOS
785
787
788
789
790
791
794
795
39. EL MODELO DE OBJETOS COMPONENTES: LA TEORÍA
799
COM, DCOM, OLE...
INTERFACES
LA INTERFAZ IUNKNOWN
IMPLEMENTACIÓN DE INTERFACES EN DELPHI
CÓMO OBTENER UN OBJETO COM
DENTRO DEL PROCESO, EN LA MISMA MÁQUINA, REMOTO...
EL HUEVO, LA GALLINA Y LAS FÁBRICAS DE CLASES
OLE Y EL REGISTRO DE WINDOWS
¿CÓMO SE REGISTRA UN SERVIDOR?
800
801
803
805
807
808
809
810
812
Indice 17
AUTOMATIZACIÓN OLE
CONTROLADORES DE AUTOMATIZACIÓN EN DELPHI
INTERFACES DUALES
EVENTOS Y CONTROLES ACTIVEX
BIBLIOTECAS DE TIPOS
ACTIVEFORMS: FORMULARIOS EN LA WEB
812
814
815
816
817
819
40. EL MODELO DE OBJETOS COMPONENTES: EJEMPLOS
823
CREACIÓN DE OBJETOS Y MANEJO DE INTERFACES
INTERCEPTANDO OPERACIONES EN DIRECTORIOS
INFORMES AUTOMATIZADOS
CONTROLADORES DE AUTOMATIZACIÓN
DECLARANDO UNA INTERFAZ COMÚN
UN SERVIDOR DE BLOQUEOS
LA IMPLEMENTACIÓN DE LA LISTA DE BLOQUEOS
CONTROL DE CONCURRENCIA
PONIENDO A PRUEBA EL SERVIDOR
823
824
828
833
835
836
838
840
843
41. MIDAS
845
¿QUÉ ES MIDAS?
CUÁNDO UTILIZAR Y CUÁNDO NO UTILIZAR MIDAS
MIDAS Y LAS BASES DE DATOS DE ESCRITORIO
MÓDULOS DE DATOS REMOTOS
PROVEEDORES
SERVIDORES REMOTOS Y CONJUNTOS DE DATOS CLIENTES
GRABACIÓN DE DATOS
RESOLUCIÓN
CONTROL DE ERRORES DURANTE LA RESOLUCIÓN
RECONCILIACIÓN
RELACIONES MASTER/DETAIL Y TABLAS ANIDADAS
ENVÍO DE PARÁMETROS
EXTENDIENDO LA INTERFAZ DEL SERVIDOR
LA METÁFORA DEL MALETÍN
TIPOS DE CONEXIÓN
BALANCE DE CARGA SIMPLE
INTERFACES DUALES EN MIDAS
845
847
849
850
853
854
856
859
862
864
866
866
867
870
871
874
875
42. CREACIÓN DE INSTALACIONES
877
LOS PROYECTOS DE INSTALLSHIELD EXPRESS
LA PRESENTACIÓN DE LA INSTALACIÓN
LAS MACROS DE DIRECTORIOS
GRUPOS Y COMPONENTES
INSTALANDO EL BDE Y LOS SQL LINKS
877
879
881
881
884
18 La Cara Oculta de Delphi
CONFIGURACIÓN ADICIONAL DEL BDE
INSTALACIÓN DE PAQUETES
INTERACCIÓN CON EL USUARIO
LAS CLAVES DEL REGISTRO DE WINDOWS
CÓMO SE REGISTRAN LOS COMPONENTES ACTIVEX
ICONOS Y CARPETAS
GENERANDO Y PROBANDO LA INSTALACIÓN
LA VERSIÓN COMPLETA DE INSTALLSHIELD EXPRESS
LAS EXTENSIONES DE INSTALLSHIELD EXPRESS
885
887
888
890
891
892
894
894
895
Prólogo del Autor
And if the band you’re in start playing different tunes
I’ll see you on the dark side of the moon
Pink Floyd
…those dark and hideous mysteries which lie in the outer regions of the moon, regions which,
owing to the almost miraculous accordance of the satellite’s rotation on its own axis
with its sidereal revolution about the earth, have never yet turned,
and, by God’s mercy, never shall be turned, to the scrutiny of the telescopes of man.
Edgar Allan Poe, The Adventure Of One Hans Pfaall
E
N LA PRIMAVERA DEL 95 APARECIÓ DELPHI.
En aquel momento, el autor
trabajaba para una empresa de cartografía, programando en C/C++ para el
entorno Windows, y estaba metido en un proyecto bastante complicado. La
aplicación en cuestión debía trabajar con grandes cantidades de datos, con relaciones
complejas entre los mismos, y tenía que realizar cálculos algebraicos a diestra y siniestra; todo esto aprovechando la interfaz gráfica de Windows 3.11. De entrada
descarté a Visual Basic, pues aunque simplificaba la programación de la interfaz de
usuario, era demasiado lento para las operaciones de cálculo y, al no ser un lenguaje
orientado a objetos, no me permitía modelar elegantemente las clases que manipulaba mi proyecto. En cuanto al acceso a datos, ya había trabajado con CodeBase, una
biblioteca de funciones para manipular tablas en formato dbf. En un principio, podía
utilizar algo así, aunque la versión 5.1, que era la que estaba utilizando, fallaba cuando
los ficheros de datos pasaban de cierto volumen.
Necesitaba una herramienta de programación que cumpliera con estos requerimientos, y escribí a Borland, pensando en comprar un C++ con las Database Tools. En
cambio, Borland me envió información sobre un nuevo producto llamado Delphi,
cuyo lenguaje de programación parecía ser Pascal, ofrecía un entorno de desarrollo
visual parecido al de Visual Basic, y que permitía el acceso a bases de datos en diversos formatos. No lo pensé mucho y compré el producto; tengo que reconocer que
el precio, relativamente barato, también influyó en mi decisión. La historia tuvo, por
supuesto, un final feliz como los de los anuncios de detergentes: el proyecto se terminó a tiempo, la aplicación se ejecutaba de maravillas y todos quedaron contentos,
excepto yo, que tardé más de seis meses en cobrar lo que me correspondía.
Mi primera experiencia con Delphi fue similar a la de miles de programadores, y la
conclusión que extraje de este primer encuentro con el lenguaje debe haber sido
semejante a la de ellos: Delphi es un sistema muy fácil de aprender y utilizar, y ofrece
una potencia de programación similar a la de los lenguajes tradicionales como
C/C++.
20 La Cara Oculta de Delphi
No obstante, tras esta aparente sencillez se oculta una trampa. La programación con
Delphi es, efectivamente, muy sencilla si nos limitamos a las tareas básicas. Pero dominar el lenguaje requiere tiempo y dedicación. Los tres problemas básicos a los que
se enfrenta el programador en Delphi son:
•
•
•
La Programación Orientada a Objetos.
La arquitectura basada en mensajes o eventos.
El control de errores mediante excepciones.
Además, el programador que quiere desarrollar aplicaciones serias de bases de datos
tiene que afrontar las dificultades de la programación concurrente: mecanismos de
control de acceso, transacciones, integridad y consistencia, el dominio del lenguaje
SQL... Si el entorno del cual procede es la programación para bases de datos locales,
todos estos conceptos son nuevos o se abordan desde enfoques diferentes en su
sistema de programación original.
Por todas estas razones, decidí escribir un libro dedicado especialmente a la programación para bases de datos con Delphi, que entrara en profundidad en los conceptos específicos de este área. Un libro de carácter “tutorial”, que además considerase todos los temas anteriores con la profundidad necesaria, hubiera tenido el tamaño de una enciclopedia, y su redacción necesitaría mucho más tiempo. En vez de
llevar una línea de desarrollo, conducida quizás por una aplicación única de ejemplo,
he preferido utilizar ejemplos pequeños para cada tema. De este modo, cada capítulo
puede leerse de forma independiente a los demás, y el libro puede utilizarse como
referencia.
El mayor problema de un libro escrito en ese estilo es el de las referencias circulares:
necesito explicarle qué es un campo antes de poder hacer ejemplos sencillos con las
tablas, pero también necesito presentar las tablas antes de poder explicar los campos.
Y la única solución que se me ocurre es ofrecer adelantos: escribir un poco sobre el
recurso necesario, prometiendo más información sobre éste más adelante.
“La Cara Oculta de Delphi” está destinada a personas que ya han estado sentadas
frente a Delphi. No es necesario que hayan programado en Delphi, pero no es mi intención enseñar cómo se inicia Delphi, qué comandos ofrece, qué es un menú... Hay
bastante literatura por ahí que se ocupa de estos temas. En particular, me permito
recomendar el “Manual Fundamental de Borland Delphi 2.0”, de un tal Ian Marteens; no será el mejor, pero conozco al autor y no es mala persona.
Prólogo del Autor 21
Convenios sintácticos
A lo largo de este libro tendré que explicar la sintaxis de algunas construcciones de
Delphi, especialmente en el área de objetos y clases, y de las instrucciones del lenguaje SQL. Utilizaré en estos casos la notación habitual, que explico a continuación
para los lectores no familiarizados:
Cursivas
Nombres o constantes que el programador debe
suministrar.
[Corchetes]
Lo que se pone entre corchetes es opcional.
Puntos suspensivos... Los puntos suspensivos indican la repetición de la cláusula
anterior.
Verdadero|Falso
La barra vertical se utiliza para indicar una alternativa.
Acerca de la terminología empleada
La mayor parte de este libro ha sido redactada directamente en mi (pobre) castellano.
He tratado, en lo posible, de mantener los nombres originales de los objetos y conceptos utilizados. En los casos en que he traducido el término, incluyo también su
nombre en inglés. No tiene sentido traducir términos nuevos o que se utilizan con
poca frecuencia; el próximo autor posiblemente utilizará una traducción diferente,
aunque sea por ansias de originalidad.
Durante la corrección del libro, he insistido en dos traducciones que pueden resultar
extrañas para el lector español. Una de ellas es traducir library como biblioteca, cuando
el término más extendido es librería. La otra “singularidad” es utilizar el género femenino para la palabra interfaz. El castellano moderno tiende a masculinizar las palabras
importadas de otro idioma, así que casi todos dicen en España: “el interfaz”. Pero
esta palabra no es realmente una importación; se deriva de faz, que es de género femenino.
Agradecimientos
En primer lugar, quiero agradecer la acogida que tuvo el “Manual Fundamental”. Sin
el apoyo del público, no me hubiera decidido a escribir un segundo libro acerca de
Delphi. Por otra parte, gracias a los que compraron el libro, Christine (mi ordenador
personal) pasó de ser un 486 a 100MHz con 12MB, a convertirse en un Pentium
potente de mente fría y corazón caliente; vamos, que le habéis financiado el lifting.
Quiero decir, no obstante, que antes de la actualización Delphi 3 podía ejecutarse en
mi máquina; no muy felizmente, pero podía.
22 La Cara Oculta de Delphi
Durante la redacción de “La Cara Oculta…” tuve el placer de impartir unos cuantos
cursos de programación con Delphi. En cada curso aprendí algo, por lo que es de
justicia mencionar a todos los profesionales y estudiantes que asistieron a los mismos.
Dos personas han resultado ser imprescindibles en la revisión del libro. Nuevamente,
Octavio Hernández ha tenido que soportar largas charlas cada vez que se me ocurría
“una idea genial”. Muchos de los ejemplos que utilizo son fruto de su imaginación;
además, le debo el título del libro. Octavio, desgraciadamente, no comparte mi aversión a C++: nadie es perfecto. Y Marta Fernández ha tenido el mérito de hacerme
comprender que el sentido del humor no es mi punto fuerte. Si este libro resulta al
final “legible” e “inteligible” es gracias a ella. A propósito, Marta tampoco es perfecta: le he dicho que si acertaba con la lotería le daría la mitad, y no se lo ha creído.
Finalmente, de no ser por Danysoft International, este libro no hubiera visto la luz,
literalmente. Estuvieron las copias de evaluación, las horas de prácticas en red con
los más diversos sistemas de bases de datos ... y el apoyo personal de Martha y José
Luis Castaño al autor, todas las veces que éste pensó que hacer libros de Informática
en España era como escribir frases en la arena de una playa.
A todos, gracias.
Ian Marteens
Pamplona, Agosto de 1997
Prólogo a la Segunda Edición
Uno escribe un libro cuando siente que tiene algo interesante que contar ... y claro,
cuando hay alguien dispuesto a leerlo, y tienes el tiempo disponible, y alguien te
ofrece dinero por hacerlo ... Uno escribe una segunda edición cuando se da cuenta de
todo lo que faltaba en la primera. Así que quiero dar las gracias en primer lugar a
todos los lectores de la primera edición, por la cálida acogida que le dieron a este
libro, y por hacerme llegar todos sus consejos, sugerencias y comentarios.
Un libro de este tamaño no puede ser obra exclusiva de la experiencia de una sola
persona. Aquí está reflejado el trabajo de muchos programadores que tuvieron a bien
compartir sus conocimientos conmigo. Me gustaría mencionarlos a todos, pero la
lista es larga y temo dejarme a alguien en el tintero. Gracias de todos modos.
Agradecimientos especiales a Octavio Hernández, que ha sufrido la revisión de estas
páginas sin saltarse un capítulo. Después de ver todos los errores que ha encontrado,
he decidido matricularme en clases nocturnas de Expresión Escrita. Como único
podré pagárselo es revisando sus tres próximos libros.
Para más ejemplos y actualizaciones...
Es inevitable que se quede algo en el tintero al terminar un libro. Por este motivo, he
decidido mantener una página Web en la dirección www.marteens.com. Consulte
periódicamente esta página para nuevos ejemplos y ampliaciones del material cubierto en este libro.
Ian Marteens
Madrid, Agosto de 1998
Who is the third who walks always beside you?
When I count, there are only you and I together
But when I look ahead up the white road
There is always another one walking beside you
Gliding wrapt in a brown mantle, hooded
I do not know whether a man or a woman,
— But who is that on the other side of you?
T.S. Eliot, The Waste Land
Œ
Entorno y Herramientas
• ¿Es Delphi su lenguaje?
• Herramientas y utilidades
• Unidades, proyectos y paquetes
• Sistemas de bases de datos
• El Motor de Datos de Borland
Parte
Capítulo
1
¿Es Delphi su lenguaje?
E
STIMADO LECTOR:
si está leyendo estas líneas, es muy probable que haya
comprado el libro y tenga claro que la mejor forma de abordar su próximo
proyecto de programación es utilizar Delphi. Puede también que hayan impuesto Delphi en su departamento y no le quede otro remedio que aprenderlo lo
mejor posible. Pero cabe la posibilidad de que esté hojeando este libro en la tienda, y
que todavía tenga dudas acerca de cuál es el lenguaje de programación que más le
conviene para sus aplicaciones de bases de datos.
Si está usted convencido de que Delphi es el lenguaje que necesita, adelante: sáltese
esta introducción y entre en materia en el siguiente capítulo. Para los que decidan
seguir leyendo, describiré en este capítulo las principales características de Delphi
como herramienta de desarrollo, comparándolo con otros lenguajes y entornos
cuando sea necesario. Espero entonces que este breve resumen le sea de utilidad.
Breve historia de un lenguaje llamado Delphi
Delphi 1 salió al mercado en la primavera del 95. Estaba diseñado para ejecutarse en
Windows 3.1, aunque era compatible con las versiones beta de Windows 95, que aún
no se había comercializado. Fue el primer entorno de desarrollo RAD que ofrecía un
compilador de código nativo. El lenguaje en que se basaba, como todos sabemos, era
Pascal; de hecho, internamente el compilador definía directivas de compilación como
VER80, para indicar que se consideraba la versión 8 de Turbo Pascal. Se comercializaron dos versiones: la Desktop y la Client/Server. Ambas incluían un producto de
Borland que ya se distribuía con ciertas versiones del Borland C++: el Motor de
Bases de Datos de Borland, o Borland Database Engine (BDE). Este era un conjunto
de DLLs que permitían el acceso funcional a dBase, Paradox, fuentes de datos
ODBC y diversos sistemas SQL: Oracle, InterBase, Informix y Sybase. En la versión
Desktop, sin embargo, no se incluían los controladores necesarios para acceder a
bases de datos en un servidor, conformándose con las bases de datos locales y
ODBC.
30 La Cara Oculta de Delphi
Aunque en el momento de la aparición de Delphi 1 Visual Basic llevaba unos cuantos años en el mercado, la nueva herramienta tuvo una clamorosa acogida en la comunidad de programadores. Por primera vez se alcanzaban velocidades de ejecución
profesionales en programas desarrollados con el paradigma RAD. Por primera vez,
un lenguaje RAD era totalmente extensible, permitiendo sin ningún tipo de maniobras de distracción el acceso al temido API de Windows. Por primera vez, un lenguaje basado en componentes permitía crear también esos componentes, sin necesidad de recurrir a otro entorno de programación
La siguiente versión de Delphi apareció también en la primavera (¡qué romántico!)
del 96. El principal avance fue la conversión del compilador para generar aplicaciones de 32 bits, para Windows 95 (que todos pensábamos que iba a ser Windows 96) y
para Windows NT. Además, se incluyó una fase de optimización de código, todo un
lujo para un lenguaje compilado, mientras Visual Basic 4 seguía generando código
interpretado. La metodología de programación experimentó mejoras importantes: la
inclusión de módulos de datos, el Depósito de Objetos, el Diccionario de Datos, la
herencia visual, etc. Y, gracias a la retroalimentación por parte de los programadores,
los componentes existentes se hicieron más potentes y manejables. Se incluyó también la posibilidad de crear controladores y servidores de automatización, para aprovechar las nuevas características de OLE de Windows 95 y NT. El Motor de Datos
se aumentó con un controlador para DB2. Posteriormente, en ese mismo año, se
realizó una actualización de Delphi con el número de versión 2.01 que, además de
corregir errores, incluyó el Internet Solutions Pack, un conjunto de controles ActiveX para aplicaciones de Internet.
En mayo del 97 (¡también primavera!), después de una tensa espera, apareció la versión 3. Las novedades se centraron en tres campos: la tecnología de paquetes (packages), el aprovechamiento de la tecnología OLE (ActiveX, automatización, bases de
datos en múltiples capas) y la programación para servidores Web. El objetivo global
¿Es Delphi su lenguaje? 31
de todas estas incorporaciones fue convertir a Delphi en un verdadero entorno de
desarrollo cliente/servidor, permitiendo la programación de aplicaciones que se
ejecutan en el servidor. El Motor de Datos siguió añadiendo formatos: en aquel
momento le tocó a Access y a FoxPro. Por otra parte, la arquitectura de acceso a
datos fue modificada para facilitar el desarrollo de componentes de acceso a datos
que dejaran a un lado el BDE. En esta línea, Borland lanzó Delphi/400, para acceder
a bases de datos de AS/400, que utilizaba la técnica de saltarse el BDE.
Al poco tiempo, Borland lanzó una versión de actualización de Delphi, con el número de serie 3.01. Además de la corrección de bugs, incorporaba un nuevo componente, TMIDASConnection, para permitir el desarrollo de aplicaciones en múltiples
capas en redes TCP/IP. Con este componente, se podía evitar la instalación y configuración de DCOM en redes mayoritariamente formadas por terminales Windows
95. También hubo un parche, el 3.02, que corrigió algunos problemas relacionados
con la tecnología Midas y con los dichosos controles del Internet Explorer, que iban
cambiando de versión mes tras mes. Una versión intermedia del BDE, la 4.51 que
apareció con Visual dBase 7, añadió el soporte nativo para Access 97, pues la versión
incluida en Delphi solamente soportaba Access 95.
Finalmente, en julio del 98, Delphi 4 vio la luz. ¡En verano, no en primavera, por
primera vez! Delphi 4 ha mejorado ostensiblemente el entorno de programación y
desarrollo, al añadir el Explorador de Código, las facilidades de completamiento de
clases, etc. Hay mejoras en el lenguaje, pero usted no las notará en su programación
cotidiana. Hay novedades en los controles visuales, como el soporte de dockable windows (ponga aquí su traducción preferida) y las listas de acciones. En el apartado de
bases de datos, se ha añadido soporte para las extensiones de objetos de Oracle 8 (¡la
única herramienta RAD que ofrece este soporte, por el momento!) y se ha oficializado el soporte de Access 97. La tecnología Midas se ha beneficiado de adelantos
impresionantes, tanto en estabilidad como en posibilidades de conexión: ahora es
posible utilizar CORBA como mecanismo de enlace en aplicaciones multicapas y hay
soporte para Microsoft Transaction Server. También se ha mejorado el sistema de
base de datos en el cliente de Midas, con la posibilidad de utilizar tablas anidadas,
campos agregados, etc. No estamos, sin embargo, ante cambios revolucionarios: es
muy difícil mejorar algo que ya era muy bueno.
¿Es Delphi un lenguaje “sencillo”?
La respuesta al título de la sección depende de lo que usted quiera hacer con él.
¿Quiere montar un mantenimiento simple, con objetos que se pueden representar en
registros independientes? En ese caso, sí, es muy fácil. ¿Quiere trabajar sobre un
esquema relacional complejo, con referencias complicadas entre tablas, estructuras
jerárquicas y todo eso? Bueno, con un poco de disciplina, la aplicación se desarrolla
en poco tiempo; es fácil plantearse una metodología de trabajo, y el resultado será un
32 La Cara Oculta de Delphi
programa “robusto”, que es algo de agradecer. ¿Quiere que el programa anterior sea
independiente del formato de bases de datos subyacente, que se acople lo mismo a
sistemas locales, como Paradox y dBase, que a Oracle, InterBase o MS SQL Server?
Entonces, amigo mío, necesita leer este libro, para que sepa en qué terreno se ha
metido.
El problema no reside en Delphi, pues las mismas dificultades se le presentarán con
C++ Builder, Visual Basic ó PowerBuilder. La causa de las complicaciones es, a mi
entender, el modelo de programación y acceso concurrente que es necesario dominar
para este tipo de aplicaciones. El programador de bases de datos locales (léase Clipper, Paradox, los distintos COBOL para PCs, etcétera) aborda las cuestiones de
concurrencia imponiendo bloqueos en cada registro antes de editarlos. En el 95 por
ciento de los casos, no se plantea la garantía de atomicidad de las actualizaciones
compuestas, ni la recuperación en transacciones, ni el elevar al máximo la concurrencia de la aplicación (conozco aplicaciones de facturación escritas en Clipper “para
red” que sólo dejan facturar desde un puesto a la vez). Por supuesto, al programador
que solamente ha trabajado en este tipo de entorno le cuesta más acostumbrarse a
distinguir entre bloqueos optimistas, pesimistas y arquitecturas multigeneracionales.
Este libro tiene el propósito de ayudar en el aprendizaje de estos conceptos.
En las secciones que vienen a continuación analizaremos en detalle cada una de las
principales características de Delphi.
Programación orientada a objetos verdadera
A 28 años de la definición del primer lenguaje de programación orientado a objetos,
y a casi 10 años de la popularización de sus conceptos con la aparición de C++,
nadie duda ya de las grandes ventajas aportadas por este estilo de programación y
pensamiento. A pesar de esto, muchos de los lenguajes populares RAD no soportan
verdaderamente la programación orientada a objetos. Para que un lenguaje sea
orientado a objetos debe dar soporte a estas tres características:
1. Encapsulación
2. Herencia
3. Polimorfismo
En particular, Visual Basic no permite la herencia, en ninguna de sus versiones. VB
está basado completamente en el modelo COM, propuesto por Microsoft. En este
modelo, el concepto fundamental es el de interfaz: un conjunto de funciones que
deben ser implementadas por cada objeto perteneciente a una clase determinada.
Otros modelos de objetos, como CORBA y JavaBeans, admiten que una clase herede
las características de otras, lo cual no sucede en COM.
¿Es Delphi su lenguaje? 33
Delphi incorpora un modelo completo de programación orientada a objetos, incluyendo encapsulación, herencia simple y polimorfismo. En este sentido Delphi se
puede comparar con lenguajes que son paradigmas de ese estilo de programación,
como C++. Por ejemplo, aunque Delphi no implementa la herencia múltiple al estilo
C++, la versión 3 incluye en compensación el concepto de interfaces, que se encuentra
en lenguajes modernos como Java, y que puede utilizarse como mecanismo alternativo en la gran mayoría de las aplicaciones prácticas de la herencia múltiple. El soporte de interfaces hace posible la programación de objetos COM, controles ActiveX, automatización OLE, etc.
Por ser un lenguaje desarrollado cuando los conceptos de Programación Orientada a
Objetos han alcanzado su madurez, Delphi ofrece técnicas de programación que no
se encuentran en lenguajes más antiguos como C++. Por ejemplo, Delphi implementa como parte fundamental de su arquitectura los constructores virtuales, métodos dinámicos, manejadores de mensajes y un estilo mucho más “humano” y fácil
de trabajar con la Información de Tipos en Tiempo de Ejecución (RTTI). Estas extensiones se han incorporado también al nuevo C++ Builder, de Inprise Corporation, la compañía antes conocida como Borland International1.
Arquitectura integrada de componentes
Una de las principales características de Delphi es la arquitectura de sus componentes, que permite una completa integración de estos dentro del lenguaje. Los componentes de Delphi están basados en clases desarrolladas en el propio lenguaje; no hay
que utilizar otros entornos de programación para crear o extender componentes.
Otra consecuencia es que el código de estas clases se ejecuta dentro del mismo espacio de direcciones de la aplicación, con la consiguiente ventaja en necesidades de
memoria y tiempo de ejecución. Al conjunto de componentes básicos de Delphi se le
denomina la Biblioteca de Componentes Visuales; en inglés, Visual Component Library, ó
VCL.
Visual Basic utiliza como componentes los llamados controles ActiveX, que Delphi
también admite. Desde el punto de vista de su implementación, los componentes
ActiveX son objetos COM implementados en bibliotecas de enlace dinámico, o
DLLs. Un objeto COM (Component Object Model), a su vez, es un objeto con un formato binario estándar definido por Microsoft, que permite que diferentes lenguajes
de programación hagan uso de las propiedades, métodos y eventos del mismo. Esta
es una buena idea, que ahora llega a su madurez al implementarse el llamado DCOM,
o Distributed COM, que permite la activación y uso de objetos remotos en red.
¿Os imagináis a Mr. Yocam cantando Purple Rain en la próxima conferencia de Borland ...
ejem, perdón ... de Inprise?
1
34 La Cara Oculta de Delphi
Sin embargo, este modelo tiene sus luces y sus sombras. Anteriormente hemos mencionado uno de sus defectos: no hay soporte directo de herencia, lo cual limita la
extensibilidad de las clases. Hay otro inconveniente importante de orden práctico: los
controles ActiveX se implementan como DLLs de Windows. Una DLL es, desde el
punto de vista del enlazador (linker), un sistema autoconsistente; esto quiere decir que
si implementamos un control ActiveX en C, el control debe cargar con el runtime de
C; si lo implementamos en Delphi o VB5/6, la librería básica de estos lenguajes deberá estar presente en tiempo de ejecución. Si nuestra aplicación está basada completamente en este tipo de recursos y tenemos que utilizar (como es lo típico) unas
cuantas decenas de ellos procedentes de las más diversas fuentes, piense en el gasto
de recursos en que incurriremos.
Por el contrario, los componentes VCL se integran directamente dentro de los ejecutables producidos por Delphi y por C++ Builder. No tenemos que cargar con
copias duplicadas de una biblioteca de tiempo de ejecución. Las llamadas a métodos,
propiedades y eventos transcurren de modo más eficiente, pues no tienen que pasar
por la capa OLE. Además, son completamente extensibles por medio de la herencia.
Delphi genera controles ActiveX
A pesar de todo lo comentado en la sección anterior, Delphi ofrece, a partir de la
versión 3, lo mejor de ambos mundos: los controles VCL pueden ser convertidos,
mediante un sencillo paso automático, en controles ActiveX. Hasta el momento, el
mercado de componentes ha estado orientado a la producción de controles ActiveX;
si tanto Delphi como VB podían utilizar estos controles, y VB no tenía capacidad
para trabajar con controles VCL, era evidente que los fabricantes de componentes
producirían controles compatibles con estos dos lenguajes. Normalmente, estos
controles se programaban en C/C++, y todo el mecanismo de generación de interfaces y tablas de métodos virtuales era manual y tedioso.
Al introducir el concepto de interfaces, Delphi da soporte directo a la programación
de objetos COM. El proceso de implementar una interfaz consiste en declarar una
clase que incluya en la lista de ancestros la interfaz que se va a implementar, y en
suministrar cuerpos para los métodos de la interfaz. Delphi tiene clases predefinidas
que proporcionan la mayoría de los métodos requeridos por los controles ActiveX y
otras interfaces COM comunes, además de expertos que facilitan el desarrollo.
Tratamiento de excepciones
El tratamiento de errores mediante excepciones es la alternativa moderna al tratamiento tradicional mediante códigos de retorno de errores. Gracias a esa técnica, se
evita mezclar la lógica de control del algoritmo con las instrucciones de salto de la
¿Es Delphi su lenguaje? 35
detección de errores por medio de códigos de estado. Tanto Delphi como VB implementan excepciones, pero solamente Delphi ofrece un conjunto de instrucciones
estructuradas correctamente desde el punto de vista del diseño de lenguajes. El diseño de las excepciones de VB, por el contrario, está basado en el sistema tradicional
de Basic (¡que no es un lenguaje estructurado!) y sufre la influencia del carácter interpretado del código generado, en las versiones anteriores a la actual.
Velocidad de ejecución
Delphi, con mucho, sigue siendo el más rápido de los lenguajes RAD. En pruebas
realizadas por una prestigiosa revista de Informática, se constató que Delphi es de 3
a 6 veces más rápido que Visual Basic 5 a pesar de que, gracias al compilador incorporado en la esa versión, los programas de VB5 pueden ejecutarse hasta 20 veces
más rápido que antes (según la propia Microsoft). La versión 4 de Delphi es la tercera versión de este producto que genera código de 32 bits, por lo cual estamos ante
un compilador más estable y confiable. Según pruebas realizadas con Delphi 4 y
Visual Basic 6, se sigue manteniendo la proporción 5:1 en las velocidades de ejecución de los programas desarrollados con estos sistemas.
Delphi comparte la misma etapa final de optimización y generación de código nativo
que la línea de compiladores de C/C++ de Borland. Las optimizaciones implementadas por estos compiladores son muy sofisticadas. Se incluye la detección de subexpresiones comunes a nivel local y global, la optimización de registros, la detección de
invariantes de bucles, etc.
En el área de la Automatización OLE, es de destacar que a partir de la versión 3 se
puede trabajar con las interfaces de objetos COM utilizando la v-table: la tabla de
punteros a funciones de la interfaz. Esta mejora a OLE permite alcanzar mayor velocidad en las llamadas a funciones en objetos con interfaces duales, en contraste con
la técnica anterior, que pasaba por invocar una función del API de Windows.
Velocidad de compilación y enlace
Uno de los puntos fuertes de Delphi es la velocidad con que se compilan y enlazan
las aplicaciones. En este aspecto no tiene parangón con los sistemas competidores. Y
es que la velocidad de compilación es muy importante, tratándose de sistemas de
diseño y programación interactivos. El formato de unidades de compilación nativo
de Delphi, el formato dcu, permite alcanzar mayores velocidades de compilación y
enlace al estar basado en el formato obj, especificado por Intel hace ya muchos años,
con la mente puesta en técnicas obsoletas de enlace. No obstante, Delphi acepta y
genera ficheros obj (a partir de la versión 2), incluso si han sido generados por otros
lenguajes. Delphi ofrece un enlazador “inteligente”, que es capaz de eliminar todo el
36 La Cara Oculta de Delphi
código que no va a ser utilizado por la aplicación. ¿Imagina las consecuencias? Aplicaciones más compactas, que se cargan más rápido y que ocupan menos espacio en
memoria RAM y en el disco.
A partir de la versión 3 de Delphi, los tiempos de enlace disminuyen aún más gracias
a los packages. Estos packages, o paquetes, se pueden utilizar opcionalmente, y son
DLLs que contienen el código de componentes. De esta forma, dos aplicaciones
escritas en Delphi que se ejecutan en paralelo en la misma máquina utilizan una sola
copia en memoria del código de las librerías de tiempo de ejecución del lenguaje.
Como consecuencia, el tamaño físico de los ejecutables disminuye dramáticamente,
junto con el tiempo invertido por el enlazador en generar el fichero.
De forma adicional, el Entorno de Desarrollo es mucho más rápido y eficiente. Este
programa está escrito en Delphi (¡hay que predicar con el ejemplo!) y utiliza la VCL.
Antes, la librería de componentes, la complib.dcl (16 bits) ó complib32.dcl (32 bits), y el
Entorno de Desarrollo utilizaban copias diferentes de la VCL. Ahora, gracias a los
paquetes, este código se comparte, de modo que disminuyen las necesidades de memoria. A esto añádale que cuando se depura una aplicación nos ahorramos otra copia
de la VCL en memoria.
Retroalimentación inmediata
Se supone que uno de los objetivos fundamentales de un sistema RAD es permitir
que el programador pueda hacerse una idea, mientras desarrolla su aplicación, del
aspecto que va a tener la misma, sin necesidad de efectuar el tedioso ciclo de compilación/enlace/puesta a punto. ¿Ha visto alguna vez la rejilla de datos de Visual Basic
durante el tiempo de diseño? Este control no es capaz de mostrar la disposición
visual que tendrá en tiempo de ejecución, por lo que el programador debe trabajar a
ciegas. Esto, hay que aclarar, no es una consecuencia del lenguaje en sí, sino de un
mal diseño de la librería. En cambio, todos los controles de bases de datos de Delphi
ofrecen una retroalimentación inmediata, en tiempo de diseño, de su aspecto final.
Incluso al establecer relaciones master/detail entre varias tablas, es posible explorar
todas ellas de forma sincronizada, utilizando el Editor de Campos. Del mismo modo,
cualquier modificación en el formato de campos se refleja inmediatamente en los
controles visuales afectados, e incluso los campos de búsqueda (lookup fields), que
permiten representar referencias entre tablas, se pueden visualizar durante el diseño
de la aplicación.
El Depósito de Objetos y la herencia visual
La herencia visual es una potente técnica disponible cuando utilizamos plantillas del
Depósito de Objetos de Delphi. Es una técnica dirigida tanto a desarrolladores aisla-
¿Es Delphi su lenguaje? 37
dos como a grupos de trabajo. El comportamiento típico de otros entornos de desarrollo en relación con el uso de plantillas y expertos, consiste en que la aplicación que
solicita una plantilla obtenga una copia local del código necesario. Si posteriormente
se realizan modificaciones en la plantilla, estos datos no se propagan a la copia local,
por lo cual es necesario repetir los cambios en esta copia, o comenzar nuevamente
desde cero.
Delphi implementa un Depósito de Objetos, en el cual pueden colocarse plantillas
desarrolladas por nosotros mismo e incluso asistentes desarrollados en el propio
lenguaje. Delphi permite, al traer plantillas desde el Depósito, hacer una copia, utilizar el original o crear un objeto por herencia a partir del objeto plantilla. Incluso
permite llamadas a eventos heredados con una sintaxis simple y sin demoras en
tiempo de ejecución.
Por supuesto, Visual Basic no implementa ningún tipo de herencia, mucho menos la
herencia visual.
Aplicaciones distribuidas
Quizás la novedad más importante que introdujo Delphi 3, y que sigue rindiendo
frutos en la versión 4, es la posibilidad de crear aplicaciones de bases de datos multicapas, en las que todas las peticiones de datos se dirigen a un servidor de aplicaciones remoto. Este servidor se comunica con los clientes utilizando DCOM, OLEnterprise (un producto cuya versión de evaluación se incluye con Delphi), TCP/IP o
CORBA. El Motor de Datos de Borland reside, en esta configuración, en el ordenador en que se ejecuta este servidor remoto. Si vamos a utilizar DCOM como protocolo de transporte, por ejemplo, el ordenador que actúa como servidor debe ejecutar
Windows NT 4 o Windows 95 con los parches DCOM que ofrece Microsoft en su
Web, o el nuevo Windows 98. Los clientes, o estaciones de trabajo, no necesitan el
Motor de Datos, ahorrándose el desarrollador la instalación y configuración del
38 La Cara Oculta de Delphi
mismo. ¡Piense cuanto tiempo se ahorra si se trata de instalar una aplicación de bases
de datos con decenas de usuarios accediendo a la misma! El conjunto de técnicas que
hacen posible esta comunicación se conoce como Midas (Multi-tiered Distributed Application Services), y le dedicaremos todo un capítulo en este libro.
A propósito del Motor de Datos, ahora Delphi puede acceder directamente a bases
de datos de Access y FoxPro, si existe una copia del JetEngine de Microsoft en el
ordenador. Se siguen soportando todos los formatos anteriores: Paradox, dBase,
InterBase, Oracle, Informix, DB2, Sybase y MS SQL Server. El Motor de Datos ha
sido mejorado para permitir la adición de nuevos controladores SQL-Links, y la arquitectura de la VCL ha sido modificada para permitir la incorporación incruenta de
sustitutos del BDE, tales como Titan, Apollo, etc.
Componentes de Delphi
Por último, se han incorporado en Delphi componentes para dar respuesta a las principales necesidades de las aplicaciones de gestión: gráficos, tablas cruzadas para soporte de decisiones, informes. ¿Gráficos tridimensionales? No hay problema. ¿Los
quiere en pantalla?, tenemos TChart. ¿Alimentados por una base de datos?, entonces
necesita TDbChart. ¿En un informe?, para eso está TQrChart. Y no tema, que estos
controles son componentes VCL, nada de controles ActiveX ni cosas semejantes.
Una nueva página, Decision Cube, contiene componentes para sofisticados análisis de
datos dinámicos. Estos componentes serán fundamentales en la programación de
aplicaciones de negocios, que ofrezcan posibilidades de análisis multi-dimensional, lo
que comúnmente se clasifica como técnicas de data warehousing.
QuickReport, la herramienta de creación e impresión de informes, también ha sido
mejorada y aumentada. Ahora es más fácil el diseño de la página de impresión, con
un componente más “visual”, y un editor de propiedades más amigable. Se han incluido componentes para imprimir imágenes de forma más rápida y conveniente,
texto con formato e incluso gráficos de negocios. También se puede guardar el resultado en formato HTML, para ser distribuido en la Web.
¿Es Delphi su lenguaje? 39
La versión cliente/servidor de Delphi permite, finalmente, la programación de extensiones para servidores Web. De este modo, es muy sencillo exportar datos que
pueden ser visualizados en Internet, sin necesidad de comprar herramientas adicionales.
En esta misma línea se incluye un amplio conjunto de componentes para el desarrollo de todo tipo de aplicaciones clientes de Internet: correo electrónico, clientes de
FTP, visores para el formato HTML, etc.
Capítulo
2
Herramientas y utilidades
E
es presentar las herramientas que
acompañan a Delphi, y las novedades del propio Entorno de Desarrollo
dignas de mención en la versión 4. No es mi intención entrar en detalles con
estas herramientas: mejor que leer una larga parrafada, es preferible familiarizarse
con las mismas mediante la práctica.
L PROPÓSITO DE ESTE BREVE CAPÍTULO
Delphi y el teclado
Nadie discute las ventajas de alcanzar una buena velocidad de edición y diseño con
cualquier herramienta de programación. Es doloroso, en consecuencia, ver a ciertos
programadores de Delphi sufrir calladamente mientras realizan determinadas operaciones que desconocen que se pueden realizar de una forma más sencilla. En esta
sección menciono algunos trucos para acelerar el trabajo con el Entorno de Desarrollo.
Comencemos por la adición de componentes a un formulario. Delphi ofrece, que yo
conozca, cuatro formas diferentes de traer un componente a un formulario, aunque
muchos programadores solamente aprovechen una o dos:
•
•
•
Realizar un doble clic sobre el componente en la Paleta: Se añade un nuevo componente
con el tamaño predeterminado y situado sobre el centro del componente activo
del formulario. Supongamos que tiene un panel que ocupa todo el formulario
(Align=alClient), y que quiere añadir una barra de mensajes debajo del panel. Si
pincha la barra sobre el panel, la barra pertenecerá al panel, no al formulario. La
solución es seleccionar el formulario (ver truco con la tecla ESC más adelante), ir
al botón TStatusBar y hacer el doble clic.
Realizar un clic en la Paleta y un clic sobre el futuro padre del componente: El componente
se crea en el sitio indicado, pero con un tamaño predeterminado. Es la mejor
forma de colocar botones, cuadros de edición y otros componentes que se benefician con una apariencia estándar.
Realizar un clic en la Paleta, y arrastrar sobre el padre para definir el tamaño: Este método
ahorra tiempo cuando se va a utilizar un tamaño diferente del predefinido. Es el
42 La Cara Oculta de Delphi
•
método soportado por Visual Basic, y el único que muchos programadores principiantes utilizan.
Pulsar la mayúscula y realizar un clic en la Paleta: Con este método, el botón de la
Paleta queda seleccionado, aún después de añadir el componente. Así se pueden
traer varias instancias del mismo componente con menos clics del ratón. Para
volver al modo de selección, hay que pulsar el botón con la flecha de cursor que
aparece a la izquierda de la Paleta de Componentes.
Las siguientes combinaciones de teclas y ratón sirven durante el diseño de formularios, y se aplican cuando hay algún componente seleccionado, y el formulario de
diseño está activo, con la barra de títulos en color azul:
CTRL+FLECHA
MAY+FLECHA
ESC
MAY+RATÓN
Mueve el componente seleccionado, píxel a píxel
Cambia el tamaño del componente seleccionado, píxel a píxel
Selecciona el “padre” del componente activo
Selecciona el formulario, que puede estar oculto bajo varias capas de
componentes
También podemos activar el movimiento o cambio de tamaño de un componente
píxel a píxel si pulsamos la tecla ALT mientras lo manipulamos con el ratón.
Para el Editor de Código también existen trucos. Cuando hay un bloque seleccionado en el editor, pueden aplicarse las siguientes operaciones:
CTRL+K P Imprime el bloque
CTRL+K I Aumenta el margen del bloque
CTRL+K U Disminuye el margen del bloque
Herramientas y utilidades 43
Y hablando de bloques, ¿sabía que se pueden definir bloques “rectangulares” en el
Editor de Código? El modo de definición de los bloques se controla mediante los
siguiente comandos:
CTRL+O+C
CTRL+O+I
CTRL+O+K
CTRL+O+L
Bloques por columnas
Bloques “inclusivos” (¡pruébelos!)
Bloques no inclusivos (los de toda la vida)
Bloques por líneas
¿Tiene una unidad mencionada en la cláusula uses de un formulario, y quiere abrir el
fichero con el código fuente? Si el fichero se encuentra en el directorio activo, pulse
la combinación CTRL+INTRO, estando situado sobre el nombre de la unidad, y Delphi
se encargará del asunto. Pulsando CTRL+K y un número del cero al nueve, creamos
una marca de posición a la cual podemos regresar en cualquier momento pulsando
CTRL+Q, más el número en cuestión.
Pero quizás la mayor sorpresa es descubrir que Delphi ofrece un mecanismo rudimentario para grabar y ejecutar una macro de teclado:
CTRL+MAY+R Inicia y termina la grabación de una macro
CTRL+MAY+P Reproduce la última macro grabada
Por último, las siguientes combinaciones de teclas pueden resultar útiles para no
perdernos dentro de la maraña de ventanas y diálogos de una sesión típica de desarrollo con Delphi:
F11
F12
MAY+F12
CTRL+F12
ALT+0
Trae al Inspector de Objetos al primer plano
Intercambia representación visual de un formulario con su código
Muestra la lista de formularios de un proyecto
Muestra la lista de unidades de código de un proyecto
Muestra todas las ventanas abiertas del Entorno de Desarrollo
La tecla F12 funciona no sólo con el Editor de Código y los formularios en diseño,
sino también con el editor de paquetes (ver el capítulo 3) y con el editor de Bibliotecas
de Tipos. Finalmente, el nuevo comando Search|Find in files nos permite buscar textos dentro de ficheros, que pueden ser los del proyecto activo o los de un directorio
determinado.
He dejado para el final el mejor truco: ¿sabía usted que en el fichero de ayuda
aparecen estos comandos, y muchos más, perfectamente documentados? Quizás
merezca la pena que pierda unos minutos aprendiendo trucos de teclado, pues le
harán ser más productivo.
44 La Cara Oculta de Delphi
Code Insight: ayuda durante la edición
El Editor de Código ha experimentado mejoras sustanciales a partir de Delphi 3.
Una de ellas es el uso de plantillas de código, o code templates. Sitúese en el editor y
pulse la combinación de teclas CTRL+J. En respuesta, aparece una lista de nombres
de plantillas. Cuando seleccionamos una, se copia el código asociado, y el cursor se
desplaza a un punto que depende de la definición de la plantilla.
Otra forma de lograr el mismo efecto es tecleando primero el nombre de la plantilla
y pulsando entonces CTRL+J; pruebe, por ejemplo, con whileb, que crea el esqueleto
de un bloque while con una instrucción compuesta begin…end:
while { Aquí se queda el cursor } do
begin
end;
Aunque existe una gran variedad de plantillas predefinidas, también podemos añadir
las nuestras. Las plantillas de código se configuran en el diálogo asociado al comando
de menú Tools|Environment options, en la página Code Insight:
El texto de las plantillas se guardan en el subdirectorio bin de Delphi, en el fichero
delphi32.dci. Para definir una plantilla nueva, el programador debe pulsar el botón
Herramientas y utilidades 45
Add. En respuesta aparece un cuadro de diálogo que pide el nombre y la descripción
de la plantilla:
Luego, debe utilizarse el editor para suministrar el texto de la plantilla. La barra vertical | sirve para indicar dónde debe quedar el cursor al ejecutarse la plantilla. Por
ejemplo:
with T|.Create(Self) do
try
finally
Free;
end;
Las definiciones de macros de Code Insight se almacenan en el fichero delphi32.dci,
en el directorio bin de Delphi.
Pero seguramente el programador utilizará con mayor frecuencia las ayudas interactivas de Delphi acerca de los métodos aplicables a un objeto, y de los parámetros de
los procedimientos y funciones. Cuando tecleamos el nombre de una variable de
objeto, o de un tipo de clase, y añadimos un punto, aparece una ventana emergente
con la lista de métodos y propiedades aplicables. Da lo mismo que el tipo del objeto
sea predefinido o haya sido creado por nosotros, con tal de que esté compilado.
Si quiere que aparezca esta ventana en cualquier otro momento, debe pulsar la combinación de teclas CTRL+ESPACIO.
Para los procedimientos, funciones y métodos, la ayuda se presenta cuando tecleamos el paréntesis de apertura a continuación del nombre de una rutina. La ventana
46 La Cara Oculta de Delphi
de ayuda es una ventana de indicaciones (esos recuadros amarillos que se interponen
en nuestro campo visual cuando dejamos tranquilo al ratón por un tiempo), con el
nombre y tipo de los parámetros, según aparecen en la declaración de la rutina. Si se
nos pierde la ventana, tenemos el comando de teclado CTRL+MAY+ESPACIO, para que
reaparezca la ayuda:
La misma combinación CTRL+ESPACIO, que nos ofrece ayuda para seleccionar métodos y propiedades, sirve para ayudarnos con los posibles valores de un parámetro
cuando nos encontramos dentro de la lista de parámetros de un método, procedimiento o función:
Hay que utilizar con precaución esta técnica, porque en la lista de posibilidades aparecen todas las constantes, variables y funciones de tipos compatibles, y esto incluye
a las de tipo Variant, que salen hasta en la sopa.
Ahora mencionaremos las novedades de Delphi 4. La primera es la presencia del
nuevo Explorador de Código:
Herramientas y utilidades 47
Esta ventana muestra los símbolos definidos dentro de una unidad. Si está activa,
podemos realizar búsquedas incrementales de símbolos utilizando el teclado. También es útil para cambiar el nombre a un símbolo. Tenga en cuenta, no obstante, que
el cambio solamente se aplicará a la declaración, y que habrá que cambiar manualmente el código en los sitios donde se utiliza el símbolo. Ah, y si le molesta mucho
esta ventana, recuerde que puede arrastrarla fuera del Editor, o simplemente cerrarla.
La segunda novedad se conoce como Navegación por el Código. Si colocamos el
ratón (más bien, el puntero del mismo) sobre un símbolo, ya sea una variable, una
clase, un método, un procedimiento, aparece una indicación acerca de dónde está
definido tal símbolo.
Si además pulsamos la tecla CONTROL mientras estamos sobre el símbolo, éste adopta
la apariencia de un enlace HTML (¡ah, la moda!), y nos permite ir inmediatamente al
lugar donde ha sido definido o implementado. La historia de esta navegación se almacena en las listas desplegables asociadas al par de botones de la esquina superior
derecha del Editor, que nos permiten movernos hacia delante y hacia atrás por la
misma.
Por último, las combinaciones de teclas CTRL+MAY+ABAJO y CTRL+MAY+ARRIBA,
sirven para alternar rápidamente entre la declaración de un método en la interfaz de
una unidad, y su cuerpo, en la sección de implementación.
48 La Cara Oculta de Delphi
Class completion
Class completion es otra de las técnicas de mejora de la productividad introducidas por
Delphi 4. Como el lector conoce, los métodos de una clase deben definir sus cabeceras dentro de la declaración de la misma, pero su cuerpo debe definirse por separado.
Esto implica, casi siempre, navegar desesperadamente desde la sección de interfaz de
la unidad a la sección de implementación, y un uso habilidoso de los comandos de
copiar y pegar. Delphi nos releva de esta tortura cuando crea métodos de respuesta a
eventos, pero nos deja abandonados cuando tenemos que definir otro tipo de métodos. Lo mismo sucede cuando queremos definir propiedades para una clase. La declaración de una propiedad debe ir precedida por la declaración de sus métodos de
acceso. Estos, a su vez, llevan doble trabajo: la declaración de sus cabeceras y su
posterior implementación. Es cierto que estas labores son más frecuentes durante la
escritura de componentes ... pero todos tenemos derecho a una vida mejor.
Delphi 4 ofrece la combinación CTRL+MAY+C para ayudarnos en estos menesteres.
Supongamos que tecleamos la siguiente declaración de clase:
type
TYoQueSe = class(TCiertaClase)
public
constructor Create(AOwner: TComponent);
destructor Destroy; override;
published
property Entero: Integer;
property Vector[Index: Integer]: string;
end;
Hemos dejado incompletas las dos declaraciones de propiedades. Si ahora tecleamos
CTRL+MAY+C, Delphi modifica la clase de esta manera:
type
TYoQueSe = class(TCiertaClase)
private
FEntero: Integer;
function GetVector(Index: Integer): string;
procedure SetEntero(const Value: Integer);
procedure SetVector(Index: Integer; const Value: string);
public
constructor Create(AOwner: TComponent);
destructor Destroy; override;
published
property Entero: Integer read FEntero write SetEntero;
property Vector[Index: Integer]: string
read GetVector write SetVector;
end;
También añade, en la sección de implementación de la clase, un cuerpo para el constructor, el destructor y para los tres métodos de acceso que ha generado. Incluso, en
el caso de los métodos de acceso, se atreve a sugerirnos una posible implementación:
Herramientas y utilidades 49
procedure TYoQueSe.SetEntero(const Value: Integer);
begin
FEntero := Value;
end;
Herramientas de depuración
Para desarrollar eficientemente aplicaciones con Delphi, es sumamente conveniente
dominar las técnicas de depuración. Estas técnicas siguen siendo similares a las del
depurador integrado en las primeras versiones de Turbo Pascal. Sin embargo, las
diferencias quedan determinadas por la diferente estructura de los programas escritos
para MS-DOS y Windows. En un programa para Windows es imposible seguir paso
a paso la ejecución de todas las instrucciones del mismo. Hay un momento en que
perdemos de vista el puntero de las instrucciones: cuando nos sumergimos en una
rutina conocida como el ciclo de mensajes. A partir de este punto, recuperamos periódicamente el control, cuando Delphi, C++ Builder ó Visual Basic ejecutan algunas de
las respuestas a eventos, o cuando C++ ejecuta alguna función de respuesta o método
asociado a mensajes.
Por lo tanto, lo que debe saber el programador de Delphi es cómo interceptar al
programa cuando pase por los sitios que le interesa, y para esto tiene dos posibilidades. La primera es establecer un punto de ruptura (ó breakpoint) en una instrucción,
para lo cual puede pulsar la tecla F5 (CTRL+F8, si se utiliza a configuración de teclado
tradicional de Borland), o ejecutar el comando de menú Run|Add breakpoint, estando
seleccionada la línea en la cual nos queremos detener. Cuando el programa se ejecute
y pase por esa línea, se detendrá, se activará el Entorno de Desarrollo, y podremos
decidir qué hacer: evaluar el estado actual de las variables, seguir ejecutando paso a
paso, detener el programa ... La otra posibilidad es utilizar el comando de menú
Run|Run to cursor, o pulsar la tecla F4, estando situados sobre la línea deseada. El
efecto es similar a colocar un punto de ruptura temporal, ejecutar el programa y
liberar el punto una vez llegados al mismo.
A un punto de ruptura se le puede asociar una condición de parada, que debe cumplirse para que el programa detenga allí su ejecución, y un contador de pasadas, para
activar el punto a las tantas veces que se pase por él. Los puntos de ruptura pueden
50 La Cara Oculta de Delphi
controlarse con el comando de menú View|Breakpoints. El margen izquierdo del
Editor de Código muestra también los puntos de ruptura y el estado de los mismos.
Una vez que el programa se ha detenido temporalmente en un lugar determinado,
comenzamos a seguirle la pista a las instrucciones por las que pasa. Tenemos a nuestra disposición los siguientes comandos del menú Run:
Trace into (F7) Avanzar una instrucción. Si es una rutina y
tenemos el código fuente, entramos en su
interior.
Step over (F8) Igual a la anterior, pero esquivando el interior
de las rutinas.
Trace to next source line (MAY+F7) Ir hasta la siguiente línea de código disponible.
También se puede pulsar F9, y dejar que el programa se ejecute hasta terminar o
encontrar un punto de ruptura.
La otra técnica importante nos permite conocer el contenido de las variables, atributos y propiedades del espacio de datos del programa. Los comandos Run|Evaluate
y Add watch nos permiten evaluar dinámicamente una expresión ó inspeccionar constantemente el valor, respectivamente.
Recuerde también que, si se trata de una variable o propiedad de un objeto, basta con
situar el cursor sobre una referencia a la misma en el código del programa para obtener su contenido en una ventana de indicaciones. También podemos utilizar el comando de menú Run|Inspect, que solamente está disponible en tiempo de ejecución,
para mostrar una ventana como la siguiente con los datos, métodos y propiedades del
objeto que deseemos:
Herramientas y utilidades 51
Por último, Delphi 4 añade una nueva ventana de depuración: el event log, o registro
de eventos que almacena y muestra opcionalmente los siguientes sucesos: carga y
descarga de módulos por la aplicación, mensajes de Windows recibidos por nuestra
aplicación, activación de puntos de rupturas y mensajes generados con el procedimiento de Delphi OutputDebugString. ¿Recuerda que en la época de MS-DOS la técnica más potente de depuración era con frecuencia escribir en la consola mensajes
del tipo “Killroy was here”? Ahora podemos retornar nuestra adolescencia gracias al
registro de eventos.
Object Browser
Uno de los grandes desconocidos del Entorno de Desarrollo de Delphi es el Explorador de Objetos; en inglés: Object Browser. Es una herramienta integrada en el entorno,
que se ejecuta desde el comando de menú View|Browser. La información que se
muestra con la misma se extrae del ejecutable de la aplicación, por lo que el proyecto
debe haber sido compilado previamente para poder activar la utilidad.
La siguiente figura muestra la ventana principal del Explorador. Consta de dos paneles; en el de la izquierda se muestra la jerarquía de las clases incluidas en el proyecto,
mientras que sus métodos, eventos y propiedades se muestran en el panel derecho.
La barra de herramientas de la porción superior de la ventana sirve para restringir la
información visualizada. Una posibilidad interesante es la navegación por referencias.
BDE Administrator
El Administrador del Motor de Datos (BDE Administrator) es el programa necesario
para configurar las opciones de acceso a bases de datos de Delphi. Esta aplicación
también se instala cuando distribuimos el Motor de Datos con nuestras aplicaciones.
Puede ejecutarse desde el grupo de programas de Delphi. También puede configurarse el menú Tools del entorno de desarrollo de Delphi para incluir el Administrador,
52 La Cara Oculta de Delphi
si es que vamos a utilizarlo con frecuencia. Para configurar Tools ejecute el comando
de menú Tools|Configure tools. En el cuadro de diálogo que aparece, pulse el botón
Add para añadir la nueva opción. El ejecutable del Administrador, en mi ordenador,
corresponde al fichero:
C:\Archivos de programa\Borland\Common Files\BDE\Bdeadmin.exe
Para más detalles sobre esta herramienta, lea el capítulo sobre el Motor de Bases de
Datos.
Database Explorer
Para conocer la estructura de una base de datos, saber qué tablas contiene, qué columnas, índices y restricciones se han definido para cada tabla, y para visualizar los
datos almacenados en las mismas, Delphi ofrece Database Explorer: el Explorador de
Bases de Datos. Para activar este programa desde Delphi, basta con seleccionar el
comando de menú Database|Explore, pero también puede ejecutarse como utilidad
independiente desde el grupo de programas de Delphi. En la versión cliente/servidor, en la que se incluye, como es lógico, el acceso a bases de datos SQL, la utilidad
se nombra SQL Explorer.
La ventana principal de la utilidad contiene dos páginas: Databases y Dictionary. En la
primera es donde aparecen las distintas bases de datos asociadas a los alias persis-
Herramientas y utilidades 53
tentes del Motor de Datos. El árbol del panel de la izquierda puede expandirse para
mostrar jerárquicamente los objetos de la base de datos. Se pueden realizar modificaciones en todos estos objetos en el panel de la derecha.
El Explorador de Bases de Datos también sirve para configurar el Diccionario de Datos.
Esta entidad es utilizada por Delphi en tiempo de diseño; no tiene función alguna en
tiempo de ejecución. En el Diccionario de Datos pueden almacenarse, en primer
lugar, definiciones de conjuntos de atributos de campos. Los conjuntos de atributos se
pueden asociar a los campos de las tablas al ser creados desde Delphi, y permiten
uniformizar las propiedades de visualización, edición y validación de los mismos.
También se consultan cuando arrastramos un campo sobre un formulario y Delphi
crea un control de edición; el tipo del control puede determinarse de acuerdo a los
atributos asociados.
La otra operación importante con el Diccionario de Datos es la importación de bases de
datos al diccionario. Cuando importamos una base de datos, se copian sus definiciones de tablas, campos e índices al Diccionario. Se pueden entonces asociar conjuntos
de atributos a los campos, de modo tal que estos atributos se asocian automáticamente cuando se crean los campos. Cuando una base de datos ha sido importada,
pueden también importarse las restricciones de integridad a determinadas propiedades de los campos y tablas de Delphi. Esto es útil en la programación
cliente/servidor, pues permite evaluar las verificaciones en los ordenadores clientes
antes de ser enviadas, disminuyendo el tráfico en la red.
Los datos del Diccionario por omisión se almacenan en formato Paradox, en la tabla
bdesdd.db. Sin embargo, pueden crearse nuevos diccionarios en diferentes formatos,
incluso en bases de datos cliente/servidor, y ser compartidos por todos los miembros de un equipo de desarrollo.
Database Desktop
Sin embargo, mi herramienta preferida para crear tablas de Paradox y dBase sigue
siendo Database Desktop, que acompaña a Delphi desde su primera versión. A pesar
de la apariencia más moderna de Database Explorer, determinadas tareas se ejecutan
más cómodamente y con mayor eficiencia con la “vieja” interfaz del Database
Desktop. Por ejemplo, es muy fácil copiar tablas, modificar su estructura y editar su
contenido. La siguiente figura muestra el diálogo de creación de una tabla en el formato de Paradox 7:
54 La Cara Oculta de Delphi
De todos modos, es recomendable que la administración de la estructura de las bases
de datos SQL se realice, en general, utilizando las herramientas propias del sistema
de bases de datos.
Desgraciadamente, el Database Desktop que acompaña a Delphi 4 no permite
aprovechar las nuevas posibilidades del formato DBF7. Ha sido un lamentable
descuido que esperamos se corrija pronto.
Data Migration Wizard
Las versiones cliente/servidor de Delphi incluyen el programa Data Migration Wizard,
que sirve para copiar tablas de una base de datos a otra. Este es un programa asistente, en el que se van presentando secuencialmente páginas en un cuadro de diálogo
para ayudar paso a paso a realizar determinada operación.
Aunque es muy fácil copiar una tabla utilizando el componente TBatchMove de Delphi, esta utilidad permite mover también las restricciones de integridad, índices, et-
Herramientas y utilidades 55
cétera, algo que no está previsto para TBatchMove. Se puede también modificar la
“traducción” que se genera para tipos de datos diferentes, como se puede ver en la
figura anterior.
SQL Monitor
SQL Monitor es una utilidad incluida en las versiones cliente/servidor de Delphi, que
sirve para seguir la pista de las instrucciones SQL generadas por el BDE que se envían al servidor.
Cuando el Motor de Datos tiene que conectarse a una base de datos SQL, toda la
comunicación transcurre enviando instrucciones SQL a la misma. El Motor trata con
una interfaz uniforme a las tablas locales y a las tablas situadas en un servidor. Por
este motivo, a veces la traducción a SQL de determinada rutina de alto nivel del BDE
no es muy evidente. Gracias a esta utilidad, podemos saber qué órdenes le da el Motor de Datos al servidor SQL, y qué le responde éste.
SQL Monitor puede ejecutarse tanto desde el grupo de programas de Delphi, como
desde Delphi, mediante el comando de menú Database|SQL Monitor. El contenido
del capítulo 27 está basado completamente en el análisis de los datos que ofrece SQL
Monitor.
Image Editor
Por último, Delphi ofrece un sencillo editor de imágenes, Image Editor, para los gráficos nuestros de cada día. Este programa permite editar imágenes en formato de
mapas de bits e iconos. Pero también nos permite abrir y modificar ficheros de recursos y los ficheros de recursos compilados de Delphi (Delphi Compiled Resources), de extensión dcr.
56 La Cara Oculta de Delphi
Un fichero dcr es simplemente un fichero de recursos binarios que almacena solamente mapas de bits e iconos. Se utiliza fundamentalmente para definir los iconos
asociados a los componentes de la Paleta de Componentes.
Image Editor no puede trabajar con cadenas contenidas en recursos. A partir de
Delphi 3, se podía utilizar declaraciones resourcestring para que el compilador generara y enlazara los recursos correspondientes dentro de nuestros ejecutables. Pero
no se podía extraer o modificar estas definiciones a partir de ejecutables o DLLs
existentes. Delphi 4, por fin, ha añadido un editor de recursos de tablas de cadenas al
entorno de desarrollo.
Capítulo
3
Unidades, proyectos y paquetes
P
ASCAL ES UN LENGUAJE CON BASTANTE HISTORIA,
quizás con demasiada.
Comenzó siendo un proyecto docente para la enseñanza de la entonces reciente Programación Estructurada; ya sabemos: eliminar los saltos a etiquetas
dentro del código y sustituirlos por elegantes instrucciones de control. Era un lenguaje de pequeño tamaño y poca complejidad, fácil de aprender, pero inadecuado
para la programación real, sobre todo por carecer de la posibilidad de descomponer
el programa en módulos independientes capaces de ser compilados por separado.
Todo programa en el Pascal original se escribía en un mismo fichero, y se compilaba
y enlazaba en una sola operación.
Al convertirse Pascal en un lenguaje para la programación “real” tuvo que transformarse, incluyendo nuevas estructuras sintácticas para la compilación por separado y
el trabajo en equipo. La implementación que trazó el camino a seguir fue la de UCSD
Pascal, un experimento interesante que integraba lenguaje más sistema operativo
(¡quiera Dios que a Microsoft no se le ocurra repetir la experiencia!). Luego Borland
y la compañía de Redmond utilizaron variantes de la sintaxis establecida por esta
implementación y la incorporaron a sus productos: estoy hablando de las units o unidades.
El otro cambio importante que sufrió Pascal se produjo cuando se popularizó la
Programación Orientada a Objetos. No se introdujeron cambios en la estructura de
proyectos, pero cambió bastante la metodología de trabajo, que se tuvo que adaptar a
la forma histórica de organización del lenguaje. Por ejemplo, como veremos al estudiar las técnicas de Programación Orientada a Objetos, los mecanismos de control de
acceso de las unidades y los de las declaraciones de clase se interfieren mutuamente,
lo cual no es muy elegante. Y mientras menos elegante sea un lenguaje de programación es más difícil de aprender.
En este capítulo describiré a grandes rasgos los ficheros y formatos que se utilizan en
los proyectos de Delphi, y los tipos de proyectos que se pueden crear.
58 La Cara Oculta de Delphi
La estructura de un proyecto de aplicación
El proyecto más frecuente en Delphi es el proyecto de aplicación. Su objetivo: la
creación de un ejecutable. Delphi divide las aplicaciones en módulos relativamente
independientes. Aunque más adelante veremos toda la flexibilidad del esquema de
partición, en principio se utiliza un sistema muy sencillo: cada ventana se coloca en
una unidad separada, y la integración de las unidades se produce gracias a un fichero
especial, el fichero de proyecto. Todo el esqueleto básico del proyecto de aplicación es
creado automáticamente por Delphi, y muy pocas veces es necesario modificarlo
explícitamente, pero es aconsejable conocer qué está sucediendo detrás del telón.
El fichero de proyecto tiene la extensión dpr: Delphi PRoject, es decir, Proyecto de Delphi.
El contenido de este fichero es Pascal, y su estructura es similar a la que tenían los
programas escritos en el lenguaje Pascal original:
program NombreProyecto;
uses
Lista de Unidades;
Declaraciones
begin
Lista de instrucciones
end.
En primer lugar, tenemos el nombre del proyecto; este nombre debe ser un identificador de Pascal: debe comenzar con un carácter alfabético y el resto de sus caracteres
deben ser dígitos o letras sin acentos2. El nombre utilizado para el proyecto debe
coincidir con el nombre del fichero en que se almacena. De hecho, este nombre
cambia cuando guardamos el fichero de proyecto bajo otro nombre. La principal
consecuencia de la regla anterior es que no se pueden generar en Delphi, al menos de
forma directa, aplicaciones cuyos nombres contengan acentos, espacios en blanco y
otros caracteres válidos como nombres de fichero, pero no permitidos en identificadores Pascal.
La siguiente sección es la cláusula uses, en la que se nombran las unidades que forman
parte del proyecto. En el esqueleto generado por Delphi, todas las unidades integradas en el proyecto son mencionadas en esta cláusula, aunque no es estrictamente
necesario. Mediante la sección uses del fichero de proyecto, el enlazador de Delphi
sabe qué unidades deben enlazarse para crear el ejecutable. En contraste, otros lenguajes requieren de la presencia por separado de un fichero de opciones de enlace en
2
Bueno, sí, vale ... y también el carácter subrayado, ¡al cual detesto de todo corazón!
Unidades, proyectos y paquetes 59
el cuál se especifiquen explícitamente las dependencias entre los módulos. Toda esta
información la deduce Delphi automáticamente.
No obstante, el objetivo primordial de la inclusión de una unidad en la cláusula uses
es proporcionar acceso a las declaraciones públicas efectuadas dentro de la misma.
En particular, estas declaraciones se utilizan en el proyecto por omisión de Delphi
para la creación automática de los objetos de ventanas durante la inicialización de la
aplicación. Más adelante, en este capítulo, estudiaremos más detalles de las cláusulas
uses y de las declaraciones en unidades. La creación automática de formularios se
estudia en el capítulo 13.
A continuación de la cláusula uses pueden incluirse declaraciones de constantes,
tipos, variables y rutinas; todas para uso exclusivo del fichero de proyecto. Por último, es obligatoria la presencia de una lista de instrucciones delimitada por las palabras reservadas begin y end. La ejecución de la aplicación comienza por esta lista de
instrucciones. En contraste, en otros lenguajes de programación es más difícil determinar a priori por dónde comienza la ejecución; en C y C++, por ejemplo, hay
que buscar en qué módulo o fichero se ha definido una función de nombre main, en
MS-DOS, o WinMain, en Windows.
El siguiente listado muestra un fichero de proyecto típico de Delphi. Este proyecto
contiene tres ventanas que se crean automáticamente al principio de la aplicación:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
Observe la ausencia de la lista de declaraciones. La línea encerrada entre llaves será
explicada más adelante.
¿Para qué se necesitan unidades? En realidad, todo el código y los datos del programa pudiera colocarse teóricamente en el mismo fichero de proyecto. Pero en la
práctica se haría imposible el mantenimiento de la aplicación resultante. Por eso se
reparten las rutinas y los datos de la aplicación entre diversos ficheros, actuando el
proyecto como coordinador de la estructura de ficheros generada. El diagrama a
60 La Cara Oculta de Delphi
continuación ilustra las relaciones establecidas en el ejemplo de proyecto anterior.
Las flechas representan la mención de las unidades en la cláusula uses. Este diagrama es una simplificación, pues pueden existir referencias entre las propias unidades. Más adelante estudiaremos la sintaxis de las unidades, la forma de establecer
referencias entre ellas y los motivos que pueden existir para estas referencias.
Project1
Unit1
Unit2
Unit3
¿Qué se puede declarar?
En la sección anterior he mencionado la palabra “declaraciones”. Pascal tiene una
regla básica: todo identificador que utilicemos debe haber sido previamente declarado. Ahora bien, ¿qué entidades pueden utilizarse en un programa Pascal que deban
ser declaradas? En primer lugar, están las declaraciones de constantes, como las siguientes:
const
PiSobre2 = 1.57079637;
Lenguaje = 'Pascal';
Delphi = 'Object' + Lenguaje;
Luego tenemos la posibilidad de que el programador defina tipos de datos. Pascal
ofrece de entrada un amplio conjunto de tipos básicos predefinidos, y en sus bibliotecas se incluyen multitud de tipos formados a partir de los básicos, para resolver los
problemas comunes más frecuentes de la programación. En particular, cuando diseñamos una ventana en Delphi, estamos definiendo realmente un tipo especial: una
clase. Las clases y objetos son característicos de la Programación Orientada a Objetos;
los capítulos 6 y 7 de este libro se dedican al estudio de la misma. Por ejemplo, una
ventana vacía genera automáticamente la siguiente declaración de tipo:
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
Tendremos que esperar un poco para poder explicar el significado del fragmento de
código anterior.
Unidades, proyectos y paquetes 61
A continuación, están las declaraciones de variables. Estas declaraciones reservan
memoria para almacenar información. En Pascal, cada variable debe pertenecer a un
tipo determinado, ya sea predefinido o creado anteriormente por el programador. En
una unidad creada por Delphi para contener un formulario, a continuación de la
declaración del tipo de formulario (la definición mostrada anteriormente de TForm1),
se declara una variable de ese tipo:
var
Form1: TForm1;
Por último, tenemos los procedimientos y funciones, pues antes de llamar a una rutina el compilador necesita conocer su prototipo. Las declaraciones de rutinas en un
fichero de proyecto van acompañadas por el cuerpo de las mismas; en las siguientes
secciones veremos que las declaraciones de procedimientos y funciones en las interfaces de unidades pueden prescindir temporalmente de su implementación. Esta es la
sintaxis, grosso modo, de una declaración de procedimiento; la de una función es
similar:
procedure Nombre [(Parámetros)];
Declaraciones
begin
ListaDeInstrucciones
end;
Tome nota de que dentro de un procedimiento vuelve a repetirse la sintaxis de las declaraciones. De este modo, un procedimiento puede utilizar internamente a otras
rutinas que solamente estarán a su disposición. Este era el estilo de programación en
boga cuando Wirth diseñó el lenguaje Pascal; el estilo sigue siendo válido, pero existen alternativas modernas para la organización del código de un programa.
He dejado aparte, intencionalmente, a las declaraciones de etiquetas, que utilizan la
palabra clave label. Estas etiquetas se utilizan en conjunción con las políticamente
incorrectas instrucciones de salto goto, como en el siguiente ejemplo:
function BuscarCuadricula(const M: TMatrizNombres;
const S: string): Boolean;
label
TERMINAR;
var
I, J: Integer;
begin
BuscarCuadricula := False;
for I := 1 to M.Filas do
for J := 1 to M.Columnas do
if M.Cuadricula[I, J] = S then
begin
BuscarCuadricula := True;
goto TERMINAR;
end;
62 La Cara Oculta de Delphi
TERMINAR:
// Ponga aquí su código favorito
end;
En el Pascal moderno hubiéramos empleado la instrucción Exit para terminar ambos
bucles saliendo de la función. Las instrucciones Break y Continue también ayudan a
evitar estas situaciones, pero no estaban disponibles en la primera definición de Pascal.
El orden de las secciones de declaraciones original de Pascal era rígido:
label – const – type – var – procedure/function
La teoría era que las constantes podían utilizarse en la declaración de tipos, los tipos
podían ser utilizados en la declaración de variables, y las funciones y procedimientos
podían aprovecharse entonces de todas las declaraciones anteriores. ¿Y las etiquetas
de salto? Bueno, si hay que declararlas en algún lugar, ¿qué más da si es al principio o
al final? Turbo Pascal permitió intercambiar arbitrariamente el orden de las secciones
de declaración, e incluso escribir varias secciones independientes del mismo tipo.
Sintaxis de las unidades
En realidad, los ladrillos básicos con los que se construye una aplicación, y en los que
se escribe casi todo el código de la misma, son las unidades. Una unidad es una colección de declaraciones que puede ser compilada por separado, y de esta forma puede
volver a utilizarse en otros proyectos. Por omisión, el código fuente de una unidad
Pascal se almacena en un fichero de extensión pas. Cada unidad está dividida en dos
secciones principales: la interfaz (interface) y la implementación (implementation). Todas las
declaraciones de la interfaz son públicas, y están a disposición de cualquier otra unidad o proyecto interesado en las mismas. Por el contrario, las declaraciones realizadas
en la sección de implementación son privadas para la unidad. En contraste, otros
lenguajes de programación requieren que cada declaración indique explícitamente su
carácter público o privado. En la época oscura de la Programación Tradicional, las
declaraciones consistían fundamentalmente en funciones y procedimientos; con el
advenimiento de la Programación Orientada a Objetos, son las clases las declaraciones más frecuentes. Esta es la estructura de una unidad de Delphi:
unit NombreUnidad;
interface
Declaraciones
Unidades, proyectos y paquetes 63
implementation
Más declaraciones y cuerpos de rutinas
initialization
Instrucciones de inicialización
finalization
Instrucciones de finalización
end.
Las cláusulas de inicialización y finalización son opcionales; la palabra reservada begin puede utilizarse en lugar de initialization3. Las unidades de Delphi 1 no tienen
la cláusula de finalización.
El siguiente listado corresponde a una unidad que contiene la declaración de una
ventana con un botón; todo el código que se muestra es generado automáticamente
por Delphi:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
La compilación de una unidad produce un fichero de extensión dcu (Delphi Compiled
Unit), que contiene tanto el código de las funciones traducido a código nativo del
El origen americano de Delphi se evidencia en la grafía initialization, en contraste con la
forma inglesa initialisation.
3
64 La Cara Oculta de Delphi
procesador, como las declaraciones públicas de la unidad en forma binaria. Para generar un fichero ejecutable, es necesario que todas las unidades referidas por el
mismo estén en ese formato binario. El compilador se encarga automáticamente de
producir los ficheros dcu según sea necesario. Para asegurar que los cambios realizados en el código fuente se reflejen en la unidad compilada, se utiliza la fecha de los
ficheros: si el fichero pas es posterior al dcu, se compila nuevamente la unidad.
La cláusula uses y las referencias circulares
Como se puede apreciar en el listado de la sección anterior, una unidad puede necesitar las declaraciones realizadas en otras unidades, por lo cual puede también utilizar
cláusulas uses. Las unidades admiten hasta dos cláusulas, una en la interfaz y otra en
la sección de implementación. ¿Qué diferencia existe entre ambas? Aquí entra en
juego el viejo principio de Pascal: todo símbolo que se utilice debe declararse con
anterioridad. Si hace falta utilizar, en la interfaz de la unidad A, algún tipo de dato o
constante declarados en la unidad B, tenemos que mencionar a esta última en la cláusula uses de la interfaz de A. Pero si las declaraciones de B sólo se utilizan en la implementación de A, podemos (y de hecho, es recomendable) postergar la referencia
hasta la sección de implementación.
Aclaremos un error de interpretación frecuente. Muchos lenguajes de programación,
C++ incluido, utilizan un mecanismo de inclusión para referirse a declaraciones externas. Típicamente, para tener acceso a funciones programadas en C++ es necesario
“insertar” al principio de un fichero un listado con los prototipos de las mismas; a
este listado se le conoce como fichero de cabecera (header file), y su extensión casi
siempre es h ó hpp. Por ejemplo:
// Fichero de cabecera de C++
// declara.hpp
// Fichero que utiliza a declara.hpp
#include <declara.hpp>
int unaFuncion();
// Código que utiliza las declaraciones
// incluidas
La línea del segundo fichero que comienza con la directiva #include hace que el compilador procese en ese punto todas las líneas del fichero mencionado. El problema
ocurre cuando el fichero de cabecera, declara.hpp, requiere declaraciones realizadas en
otro fichero, digamos que declara2.hpp. El primero debe especificar entonces una
segunda directiva de inclusión: #include <declara2.hpp>. Pero cuando alguien incluya
ahora a declara.hpp, estará también incluyendo de forma automática a declara2.hpp. Y lo
malo es que posiblemente el programador no es consciente de esta inclusión, por lo
que erróneamente puede producirse la inclusión múltiple del fichero.
Esta situación no se produce en Delphi, pues la cláusula uses solamente da acceso a
las declaraciones realizadas exactamente en la unidad mencionada:
Unidades, proyectos y paquetes 65
unit A;
unit B;
interface
uses A;
unit C;
interface
uses B;
En el ejemplo anterior, la unidad C no tiene acceso en su interfaz a las declaraciones
realizadas en la unidad A. Precisamente, el comportamiento de la cláusula uses en
comparación con el de la directiva #include es uno de los motivos por los que Pascal
es un lenguaje que, intrínsecamente, puede compilarse a mayores velocidades que los
actuales C y C++.
Un caso particular de relación de referencia entre unidades ocurre cuando existen
ciclos dentro del diagrama de referencias: la unidad A referencia a la unidad B, la cual
necesita a la unidad C, que finalmente hace referencia a A. No hay problema alguno
con la relación anterior, y este tipo de situaciones se produce con frecuencia, incluso
directamente entre pares de unidades. Por ejemplo, la unidad Rejilla contiene la definición de una tabla y de una rejilla de datos para explorar la misma. Las altas y modificaciones sobre esta tabla, en cambio, se realizan en una ventana declarada en la
unidad Dialogo. Rejilla debe hacer referencia a Dialogo, para poder lanzar la ventana de
edición en respuesta a comandos del usuario. Pero Dialogo posiblemente tenga que
referirse a su vez a Rejilla, para poder acceder a los datos de la tabla con la que trabajamos.
Cuando existen referencias circulares entre pares de unidades, sólo hay que tener en
cuenta una regla: debido a problemas técnicos de compilación, no se admiten referencias circulares cuando ambas unidades se refieren entre sí desde sus respectivas
interfaces. Una de las unidades debe ser mencionada en la otra mediante una cláusula
uses ubicada en la sección de implementación.
La inclusión automática de unidades
Todas las versiones de Delphi manejan automáticamente la actualización de la cláusula uses de la interfaz de una unidad visual, mencionando las unidades necesarias
para poder utilizar los componentes que el programador va agregando al diseño. Por
ejemplo, si el programador agrega una rejilla de datos a un formulario, en la unidad
asociada se añade la unidad DbCtrls a su primera cláusula uses. Es necesario aclarar
que esta cláusula se actualiza solamente cuando se compila o guarda el proyecto, para
optimizar el proceso.
Delphi va más allá a partir de la versión 2, pues en ciertos casos puede actualizar de
forma automática la cláusula uses de la implementación. Esto se produce cuando
desde una unidad se hace referencia a una variable de formulario definida en otra
unidad del mismo proyecto. Supongamos que desde Unit1 se utiliza la variable Form2,
que se refiere a un formulario definido en la unidad Unit2; la variable se utiliza dentro
66 La Cara Oculta de Delphi
del código de algún procedimiento o función, por supuesto. Al compilar el proyecto,
si la segunda unidad no es mencionada desde Unit1, Delphi reporta el error, pero nos
pregunta si queremos añadir automáticamente la referencia. Si contestamos afirmativamente, se modifica la cláusula uses de la implementación, como hemos dicho
antes. ¿Por qué precisamente esta cláusula? En primer lugar, porque solamente necesitamos las declaraciones de la misma en el código de la implementación. Y en segundo lugar, para evitar posibles referencias circulares incorrectas.
El proceso de inclusión automática solamente se lleva a cabo para las variables de
formulario de las interfaces de las unidades del proyecto. Otras declaraciones realizadas en estas unidades no disparan el proceso. Por ejemplo, mencionar el tipo de datos de un formulario no produce la inclusión automática.
A partir de la versión 2 también se incluye el comando de menú File|Use unit. Al
ejecutar este comando, Delphi presenta la lista de unidades del proyecto que no están
en las cláusulas uses de la unidad activa. Si seleccionamos una de ellas y aceptamos el
cuadro de diálogo, la unidad seleccionada se añade en la cláusula uses de la implementación de la unidad que se encuentra en la página activa el Editor de Código.
Esto es casi siempre más conveniente que buscar manualmente la posición de la
cláusula, recordar exactamente el nombre de la unidad, teclearlo y regresar a la posición en la que estamos editando.
Los ficheros dfm
¿Dónde, en qué parte del proyecto, se dice que el título del botón Button1 debe ser
'Púlsame y verás'? ¿Dónde está escrito que al pulsar este mismo botón se ejecute el
método DestrozarDiscoDuro? ¿Acaso la respuesta está en el viento? Por supuesto que
no: toda esta información se almacena, en tiempo de diseño, en los ficheros de formularios de Delphi, de extensión dfm (Delphi Form).
El programador diseña una ventana o formulario añadiendo componentes al mismo
y especificando valores iniciales para sus propiedades; estos valores iniciales son los
Unidades, proyectos y paquetes 67
que se almacenan en los ficheros dfm. Delphi trata a los eventos de los componentes
como propiedades de tipo especial. Por lo tanto, también se colocan en estos ficheros las direcciones de los métodos que dan tratamiento a los eventos. Bueno, en realidad se almacenan los nombres de los métodos y Delphi, al leer el fichero durante la
creación del formulario, los convierte en direcciones.
Los ficheros de formularios no son necesarios para la ejecución de la aplicación.
Cuando Delphi compila un proyecto, estos ficheros se traducen a un formato binario
aceptable por Windows, y se incorporan al ejecutable (o paquete, o DLL), como un
recurso de Windows. Los recursos son datos estáticos que se acoplan a los módulos de
códigos, y que luego pueden leerse en tiempo de ejecución mediante funciones estándar de la Interfaz de Programación de Aplicaciones del sistema operativo.
Los ficheros dfm no son ficheros de texto, pero pueden convertirse a un formato
legible abriéndolos en el Editor de Código de Delphi. Sólo tenemos que activar el
diálogo File|Open, y elegir el tipo de archivo *.dfm, o pulsar el botón derecho del ratón sobre un formulario en pantalla, y ejecutar el comando View as text. Por ejemplo,
este es el código dfm correspondiente a un formulario de Delphi 4, con un botón
solitario en su interior:
object Form1: TForm1
Left = 200
Top = 108
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 231
Top = 162
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
end
end
Si modificamos este texto, al grabarlo Delphi lo compila nuevamente al formato dfm.
Sin embargo, no es recomendable utilizar esta técnica a no ser en circunstancias excepcionales. El autor, en particular, sólo la ha empleado para portar formularios de
nuevas versiones de Delphi a las anteriores.
68 La Cara Oculta de Delphi
La utilidad convert.exe, que se encuentra en el directorio de ficheros ejecutables de
Delphi, permite convertir un fichero dfm a su representación textual, y viceversa.
Bibliotecas de Enlace Dinámico
Otro tipo de proyecto de Delphi son las Bibliotecas de Enlace Dinámico, conocidas
como DLLs (Dynamic Link Libraries). Las DLLs son un componente esencial de la arquitectura de los sistemas operativos Windows, pues permiten el enlace de rutinas en
tiempo de carga y ejecución, y posibilitan que varios procesos compartan concurrentemente una misma imagen en memoria del código de la biblioteca. Otra posibilidad es utilizar una DLL como fuente de datos estáticos e inicializados, en particular,
mapas de bits, iconos, ficheros de animación y sonido, etc. En principio, además, una
DLL puede se utilizada desde una aplicación escrita en un lenguaje diferente al lenguaje original en que fue programada. Son, por lo tanto, un puente natural para la
comunicación entre lenguajes.
Desde el punto de vista sintáctico, la diferencia fundamental de una DLL de Delphi
con respecto a un proyecto ejecutable está en el fichero de proyecto, cuya sintaxis es
ahora la siguiente:
library NombreDLL;
uses
Lista de Unidades;
Declaraciones
exports
begin
Lista de rutinas exportadas
Lista de instrucciones
end.
La cláusula exports, al final del fichero de proyecto, es fundamental, pues es la que
determina las funciones que serán visibles fuera de la DLL. Estas funciones pueden
ser declaradas en el mismo fichero de proyecto, en su sección de declaraciones, o
pueden estar declaradas en cualquiera de las unidades incluidas en la cláusula uses.
Ahora bien, si estamos trabajando con Delphi 1, una función necesita para poder ser
exportada que haya sido declarada previamente utilizando la directiva export. Esta
directiva se encarga de generar el código de inicio y fin de la rutina necesario para
tratar con el cambio de contexto de ejecución, principalmente, el cambio de dirección base del segmento de código entre el ejecutable (o biblioteca) que llama a la
función y la biblioteca donde reside la misma. La siguiente declaración muestra un
Unidades, proyectos y paquetes 69
ejemplo sencillo de DLL, diseñada para ser utilizada como una ampliación de InterBase:
library IMUdfs;
type
TIBDate = record
Days: LongInt;
Frac: LongInt;
end;
function DateDiff(var Date1, Date2: TIBDate): Integer; cdecl;
begin
Result := Abs(Date1.Days - Date2.Days);
end;
exports
DateDiff name 'DATEDIFF';
begin
end.
En el capítulo 36 trataremos con más detalles la creación y utilización de ficheros
DLL con Delphi. Mencionemos también que los proyectos de controles ActiveX, los
formularios activos (ActiveForms) y las aplicaciones servidoras Web (ISAPI/NSAPI)
son casos particulares de bibliotecas dinámicas.
Paquetes
¿Tiene a mano alguna de las versiones de Delphi? En caso afirmativo, cree una nueva
aplicación, que contenga únicamente un formulario en blanco, guarde el proyecto y
compile. Luego, con el Explorador de Windows busque el fichero ejecutable y
apunte el tamaño del mismo. Las cifras que he obtenido son las siguientes:
Delphi 1
Delphi 2
Delphi 3
Delphi 4
187 KB
154 KB
176 KB
274 KB
¡Ciento y tantos miles de bytes para mostrar una ventana vacía en pantalla! ¿Qué es lo
que consume tanto espacio? La respuesta es: el núcleo de rutinas básicas de la biblioteca de componentes de Delphi, la VCL. El problema es que, al estar trabajando con
clases y objetos, el enlazador no puede eliminar código superfluo con la misma eficacia que en un lenguaje que no sea orientado a objetos. Para disculpar a Delphi digamos que, una vez que comenzamos el desarrollo de nuestro código propio, el crecimiento del fichero ejecutable es bastante mesurado.
Si dos aplicaciones escritas en Delphi se están ejecutando en memoria al mismo
tiempo, la parte correspondiente al núcleo de la biblioteca se repite en la memoria
RAM del ordenador. “Bueno” – piensa el lector – “¿qué posibilidad tengo de ven-
70 La Cara Oculta de Delphi
derle dos aplicaciones en Delphi a un cliente, y que éste las ejecute a la vez?” Dos
aplicaciones quizás no, es la respuesta, pero el problema se agrava si estamos trabajando con controles ActiveX. Es muy probable que si estamos utilizando controles
ActiveX en una aplicación, necesitemos varios controles de este tipo. Si han sido programados con Delphi, ¡tendremos varias copias del runtime del lenguaje activas a la
vez! Un problema similar ocurre cuando se incluye uno de estos controles en una
página HTML. Cada vez que un cliente se conecta a la página debe cargar vía Internet una y otra vez el entorno de ejecución de Delphi, lo cual es inaceptable en términos de eficiencia.
La solución es relativamente simple, y consiste en mover el código de la biblioteca de
componentes, que es común a todos los proyectos, a una biblioteca dinámica, ó
DLL. A estas bibliotecas dinámicas de componentes es a lo que Delphi llama packages, o paquetes. Delphi, para distinguir los paquetes de las bibliotecas dinámicas de
otros lenguajes, utiliza la extensión bpl (Borland Package Library); en Delphi 3 la extensión utilizada era dpl. Un fichero con extensión bpl no es más que una DLL que contiene el código y los datos necesarios para cierto conjunto de componentes.
El código fuente de un paquete se almacena en un fichero de extensión dpk. La sintaxis de un paquete es muy sencilla, pues solamente consta de un encabezamiento y
las cláusulas contains y requires. El siguiente listado, por ejemplo, corresponde al
paquete dclusr30.dpk en mi ordenador. Este paquete es el que Delphi ofrece para
instalar componentes de prueba en el entorno de desarrollo, por lo cual las unidades
mencionadas en la cláusula contains no resultarán familiares al lector:
package Dclusr40;
{$R *.RES}
{$ALIGN ON}
{ ASSERTIONS ON}
{$BOOLEVAL OFF}
{ DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{ LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $00400000}
{$DESCRIPTION 'Borland User''s Components'}
Unidades, proyectos y paquetes 71
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
vcl40,
VCLDB40;
contains
LeadLib_TLB,
LImgs,
HolaXP_TLB,
CalendarXControl_TLB;
end.
La cláusula contains menciona las unidades cuyo código va a situarse en el paquete,
mientras que requires especifica otros paquetes necesarios para la ejecución del
actual. Por ejemplo, el paquete vcldb40, que contiene el código de los componentes de
bases de datos, necesita para su funcionamiento los componentes estándar de Delphi, que se encuentran en vcl40; el texto fuente de vcldb40.dpk hace referencia en su
cláusula requires al paquete vcl40. La mayor parte del listado anterior, sin embargo, la
consumen las directivas de compilación, que han sido situadas explícitamente en el
mismo.
Aunque podemos crear directamente un fichero dpk, editarlo manualmente y compilarlo, es mas sencillo utilizar el editor especializado de Delphi, que se muestra a continuación:
Esta ventana aparece cada vez que creamos un nuevo paquete, o abrimos uno existente. Para añadir unidades al paquete basta con pulsar el botón Add. Para modificar
las opciones, tenemos el botón Options. Además, se puede pulsar el botón derecho
del ratón para acceder al menú local que, entre otros comandos, nos permite almacenar en disco el texto generado para el paquete, o activar el Editor de Código para trabajar directamente sobre el dpk.
La compilación de un paquete produce, además del paquete en sí (el fichero de extensión bpl) otro fichero con el mismo nombre que el fuente y con extensión dcp
(Delphi Compiled Package). Este fichero contiene, sencillamente, todas las unidades
72 La Cara Oculta de Delphi
compiladas en formato dcu concatenadas. De este modo, para compilar un código
que hace uso de paquetes no necesitamos todos los ficheros dcu sueltos de cada unidad contenida, lo cual es conveniente.
¿Por qué Delphi recurre a los paquetes, en vez de utilizar sencillamente DLLs?
La razón consiste en que si no tenemos cuidado, la información de clases y tipos
en tiempo de ejecución puede duplicarse en los distintos módulos (ejecutables y
bibliotecas), dando lugar a una serie de anomalías que describiremos en el capítulo 36. Los paquetes evitan este problema en tiempo de compilación, al exigir
que cada unidad aparezca solamente en un paquete.
El ABC del uso de paquetes
Con esta nueva característica, podemos seguir generando aplicaciones “a la vieja
usanza”, con todo el código enlazado estáticamente, o podemos elegir el uso de paquetes, para producir ejecutables de menor tamaño. Si queremos esto último, solamente tenemos que activar el comando de menú Project|Options, buscar la página
Packages, y marcar la casilla Build with runtime packages, en la parte inferior de la página.
Con la opción anterior activada, logramos adicionalmente un menor tiempo de enlace, porque el fichero generado en cada compilación ocupa mucho menos espacio.
Debajo de la casilla mencionada, hay un cuadro de edición con la lista de los paquetes que la aplicación va a utilizar. Podemos eliminar paquetes de esta lista, o añadir
alguno nuevo. En cuanto a la lista de paquetes que aparece en la parte superior de la
página, explicaremos su uso en el siguiente epígrafe.
El mayor problema del uso de paquetes es cómo identificar a cuál de ellos pertenece
un componente determinado, y cómo incluirlo en el programa de instalación de
Unidades, proyectos y paquetes 73
nuestra aplicación. Lo primero tiene una solución razonablemente sencilla: los manuales de Borland y la ayuda en línea nos dicen claramente dónde se encuentra cada
componente de los que trae Delphi. En cuanto a la segunda dificultad, no es un problema en Delphi 4, pues la versión de InstallShield que acompaña a este producto
nos permite automatizar esta tarea. Para Delphi 3, en cambio, las noticias no son tan
buenas, pues la correspondiente versión de InstallShield no soporta la instalación
automática de paquetes. Por el contrario, hay que incluir los ficheros dpl (recuerde
que esta era la extensión utilizada por esta versión de Delphi) explícitamente en el
proyecto de instalación. El último capítulo de este libro lo dedicaremos a InstallShield, la herramienta de creación de instalaciones que viene con Delphi, y explicaremos como realizar una instalación con paquetes.
Paquetes de tiempo de diseño y de ejecución
Delphi realiza una clara separación entre paquetes de tiempo de ejecución y de diseño, aunque físicamente ambos son ficheros de extensión bpl. La razón para esta
distinción es la peculiar arquitectura de componentes de Delphi. Con frecuencia,
para poder utilizar un componente en el diseño de una aplicación es necesario disponer, además del código asociado al componente, de editores de propiedades, expertos y otras rutinas para la asistencia durante el desarrollo. Estas rutinas, sin embargo,
no son necesarias para la ejecución posterior de la aplicación.
Las siguientes directivas de compilación controlan la clasificación de un paquete:
{$RUNONLY ON}
{$DESIGNONLY ON}
El propio Delphi es, por lo tanto, el primer beneficiario de la arquitectura de paquetes, pues el Entorno de Desarrollo basa su funcionamiento en los mismos. En versiones anteriores del producto, la biblioteca de componentes que se utilizaba durante
el desarrollo residía en un fichero monolítico, llamado complib.dcl ó complib32.dcl, en
dependencia de la versión. Por lo tanto, instalar o eliminar un componente provocaba la reconstrucción de este enorme fichero. Ahora para agregar un nuevo componente basta con registrar el paquete de tiempo de diseño en el cuál viene el mismo. Si
solamente poseemos el paquete de tiempo de ejecución, podemos añadir la unidad
en que se encuentra el componente al paquete dclusr40.dpk, cuyo código fuente
ofrece Delphi. Este paquete es precisamente el que hemos listado con anterioridad.
Incluso podemos eliminar temporalmente de la Paleta de Componentes los paquetes
que son innecesarios para un proyecto dado. Esto lo podemos realizar en la página
Packages del cuadro de diálogo de opciones del proyecto, utilizando la lista que se encuentra en la parte superior de la página.
74 La Cara Oculta de Delphi
Para facilitar la distribución de paquetes a otros programadores, Delphi ofrece la
herramienta Package Collection Editor, que permite comprimir varios paquetes en un
mismo fichero de extensión dpc (Delphi Package Collection). Estas colecciones pueden
después instalarse automáticamente desde el comando de menú Components|Install
packages.
Los grupos de proyectos
Mientras más se complican las cosas, más organizados debemos ser. Muchas veces
no basta con un fichero ejecutable para echar a andar una aplicación. Podemos necesitar, por ejemplo, otros ejecutables auxiliares, bibliotecas dinámicas (también conocidas como DLLs), servidores de automatización, paquetes de componentes, ficheros
de recursos, etc. ¿No sería apropiado poder organizar todos estos elementos dentro
de una sola entidad? Esto es lo que intentan hacer los grupos de proyectos de Delphi 4.
La siguiente imagen muestra el nuevo Administrador de Proyectos, con un grupo de
proyectos activo que contiene dos programas ejecutables:
Unidades, proyectos y paquetes 75
El grupo de proyectos se almacena en un fichero, de extensión bpg (Borland Project
Group), cuyo contenido corresponde aproximadamente al de un fichero make de otros
lenguajes:
#--------------------------------------------------------------VERSION = BWS.01
#--------------------------------------------------------------!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#--------------------------------------------------------------MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#--------------------------------------------------------------PROJECTS = Project1.exe Project2.exe
#--------------------------------------------------------------default: $(PROJECTS)
#--------------------------------------------------------------Project1.exe: Project1.dpr
$(DCC)
Project2.exe: Project2.dpr
$(DCC)
Siempre hay un proyecto activo dentro de un grupo de proyectos, por lo cual podemos olvidarnos de la existencia del grupo y seguir trabajando igual que antes. Tampoco hay problemas con obviar totalmente los grupos de proyectos, pues Delphi
permite que sigamos trabajando directamente con los ficheros dpr de toda la vida.
Capítulo
4
Sistemas de bases de datos
E
para presentar a los protagonistas de este
drama: los sistemas de gestión de bases de datos con los que intentaremos
trabajar. En mi trabajo de consultor, la primera pregunta que escucho, y la
más frecuente, es en qué lenguaje debe realizarse determinado proyecto. Enfoque
equivocado. La mayoría de los proyectos que llegan a mis manos son aplicaciones
para redes de área local, y os garantizo que la elección del lenguaje es asunto relativamente secundario para el éxito de las mismas; por supuesto, siempre recomiendo
Delphi. La primera pregunta debería ser: ¿qué sistema de bases de datos es el más
apropiado a mis necesidades?
STE ES EL MOMENTO APROPIADO
En este capítulo recordaremos los principios básicos de los sistemas de bases de
datos relacionales, y haremos una rápida introducción a algunos sistemas concretos
con los que Delphi puede trabajar de modo directo. La explicación relativa a los sistemas de bases de datos locales será más detallada que la de los sistemas cliente/servidor, pues las características de estos últimos (implementación de índices, integridad
referencial, seguridad) irán siendo desveladas a lo largo del libro.
Acerca del acceso transparente a bases de datos
¿Pero acaso Delphi no ofrece cierta transparencia con respecto al formato de los
datos con los que estamos trabajando? Pues sí, sobre todo para los formatos soportados por el Motor de Bases de Datos de Borland (BDE), que estudiaremos en el
siguiente capítulo. Sin embargo, esta transparencia no es total, incluso dentro de las
bases de datos accesibles mediante el BDE. Hay una primera gran división entre las
bases de datos locales y los denominados sistemas SQL. Luego vienen las distintas
posibilidades expresivas de los formatos; incluso las bases de datos SQL, que son las
más parecidas entre sí, se diferencian en las operaciones que permiten o no. Si usted
está dispuesto a utilizar el mínimo común denominador entre todas ellas, su aplicación puede que funcione sin incidentes sobre determinado rango de posibles sistemas ... pero le aseguro que del mismo modo desperdiciará recursos de programación
y diseño que le hubieran permitido terminar mucho antes la aplicación, y que ésta se
ejecutara más eficientemente.
78 La Cara Oculta de Delphi
Bases de datos relacionales
Por supuesto, estimado amigo, todos los sistemas de bases de datos con los que vamos a trabajar en Delphi serán sistemas relacionales. Por desgracia. ¿Cómo que por
desgracia, hereje insensato? Para saber qué nos estamos perdiendo con los sistemas
relacionales tendríamos que conocer las alternativas. Necesitaremos, lo lamento, un
poco de vieja Historia.
En el principio no había ordenadores, claro está. Pero cuando los hubo, y después de
largos años de almacenar información “plana” en grandes cintas magnéticas o perforadas, los informáticos comenzaron a organizar sus datos en dos tipos de modelos: el
modelo jerárquico y el modelo de redes. El modelo jerárquico era un invento digno
de un oficial prusiano. Los diferentes tipos de información se clasificaban en forma
de árbol. En determinada base de datos, por ejemplo, la raíz de este árbol eran los
registros de empresas. Cada empresa almacenaría los datos de un conjunto de departamentos, estos últimos serían responsables de guardar los datos de sus empleados, y así sucesivamente. Además del conjunto de departamentos, una empresa podría ser propietaria de otro conjunto de registros, como bienes inmuebles o algo así.
El problema, como es fácil de imaginar, es que el mundo real no se adapta fácilmente
a este tipo de organización. Por lo tanto, a este modelo de datos se le añaden chapuzas tales como “registros virtuales” que son, en el fondo, una forma primitiva de
punteros entre registros.
El modelo de redes era más flexible. Un registro podía contener un conjunto de
otros registros. Y cada uno de estos registros podía pertenecer a más de un conjunto.
La implementación más frecuente de esta característica se realizaba mediante punteros. El sistema más famoso que seguía este modelo, curiosamente, fue comprado por
cierta compañía tristemente conocida por comprar sistemas de bases de datos y convertirlos en historia... No, no es esa Compañía en la que estáis pensando... sí, esa
Otra...
Vale, el modelo jerárquico no era muy completo, pero el modelo de redes era razonablemente bueno. ¿Qué pasó con ellos, entonces? ¿Por qué se extinguieron en el
Jurásico? Básicamente, porque eran sistemas navegacionales. Para obtener cualquier
información había que tener una idea muy clara de cómo estaban organizados los
datos. Pero lo más molesto era que no existían herramientas sencillas que permitieran
realizar consultas arbitrarias en una base de datos. Si el presidente de la compañía
quería saber cuantos clientes del área del Pacífico bebían Coca-Cola a las cinco de la
tarde en vez de té, tenía que llamar al programador para que le desarrollara una pequeña aplicación.
Entonces apareció Mr. Codd, un matemático de IBM. No inventó el concepto de
registro, que ya existía hacía tiempo. Pero se dio cuenta que si obligaba a que todos
los campos de los registros fueran campos simples (es decir, que no fueran punteros,
Sistemas de bases de datos 79
vectores o subregistros) podía diseñarse un grácil sistema matemático que permitía
descomponer información acerca de objetos complejos en estos registros planos, con
la seguridad de poder restaurar la información original más adelante, con la ayuda de
operaciones algebraicas. Lo más importante: casi cualquier tipo de información podía
descomponerse de este modo, así que el modelo era lo suficientemente general. A la
teoría matemática que desarrolló se le conoce con el nombre de álgebra relacional, y es
la base de nuestro conocido lenguaje SQL y del quizás menos popular Query By
Example, o QBE. De este modo, el directivo del párrafo anterior podía sentarse
frente a una consola, teclear un par de instrucciones en SQL y ahorrarse el pago de
las horas extras del programador4.
Tomemos como ejemplo una base de datos que almacene datos acerca de Departamentos y sus Empleados. Los modelos jerárquicos y de redes la representarían con
un diagrama similar al siguiente:
Departamentos
Investigación &
Desarrollo
Ventas
$1.000.000
$10.000
Empleados
A. Einstein
P. Dirac
Nelson R.
H. Ford
Alfred C.
Como puede verse, los punteros son parte ineludible del modelo. ¿Hay algún matemático que sepa cómo comportarse frente a un puntero? Al parecer, no los había en
los 60 y 70. Sin embargo, los datos anteriores pueden expresarse, en el modelo relacional, mediante dos conjuntos uniformes de registros y sin utilizar punteros, al menos de forma explícita. De esta manera, es factible analizar matemáticamente los
datos, y efectuar operaciones algebraicas sobre los mismos:
DEPARTAMENTOS
Codigo Nombre
I+D Investigación y Desarrollo
V Ventas
Presupuesto
$10.000
$1.000.000
EMPLEADOS
Dpto Nombre
I+D
I+D
V
V
V
A. Einstein
P. Dirac
Nelson R.
Henri F.
Alfred C.
¡Mira, mamá, sin punteros! Departamentos y Empleados son tablas, aunque matemáticamente se les denomina relaciones. A los registros de estas tablas se les llama filas, para
hacer rabiar a los matemáticos que les llaman tuplas. Y para no desentonar, Codigo,
Nombre y Presupuesto son columnas para unos, mientras que para los otros son campos.
Aunque personalmente no conozco a ningún individuo con alfiler de corbata y BMW que
sepa SQL, no cabe duda de que debe existir alguno por ahí.
4
80 La Cara Oculta de Delphi
¡Qué más da! Ah, la colección de tablas o relaciones es lo que se conoce como base de
datos.
Las personas inteligentes (como usted y como yo) se dan cuenta enseguida de que en
realidad no hemos eliminado los punteros, sino que los hemos disfrazado. Existe un
vínculo5 entre los campos Código y Dpto que es el sustituto de los punteros. Pero
cuando se representan los datos de esta manera, es más fácil operar con ellos matemáticamente. Note, por ejemplo, que para ilustrar los modelos anteriores necesité un
dibujo, mientras que una vulgar tabla de mi procesador de texto me ha bastado en el
segundo caso. Bueno, en realidad han sido dos tablas.
¿Me deja el lector que resuma en un par de frases lo que lograba Codd con su modelo relacional? Codd apuntaba su pistola de rayos desintegradores a cualquier objeto
que se ponía a tiro, incluyendo a su perro, y lo reducía a cenizas atómicas. Después,
con un elegante par de operaciones matemáticas, podía resucitar al animalito, si antes
el viento no barría sus restos de la alfombra.
Información semántica = restricciones
Todo lo que he escrito antes le puede sonar al lector como un disco rayado de tanto
escucharlo. Sin embargo, gran parte de los programadores que se inician en Delphi
solamente han llegado a asimilar esta parte básica del modelo relacional, y presentan
lagunas aterradoras en el resto de las características del modelo, como veremos dentro de poco. ¿Qué le falta a las ideas anteriores para que sean completamente prácticas y funcionales? Esencialmente, información semántica: algo que nos impida o
haga improbable colocar la cabeza del perro donde va la cola, o viceversa (el perro de
una vecina mía da esa impresión).
Casi siempre, esta información semántica se expresa mediante restricciones a los
valores que pueden tomar los datos de una tabla. Las restricciones más sencillas tienen que ver con el tipo de valores que puede albergar una columna. Por ejemplo, la
columna Presupuesto solamente admite valores enteros. Pero no cualquier valor entero:
tienen que ser valores positivos. A este tipo de verificaciones se les conoce como
restricciones de dominio.
El paso siguiente son las restricciones que pueden verificarse analizando los valores
de cada fila de forma independiente. Estas no tienen un nombre especial. En el
ejemplo de los departamentos y los empleados, tal como lo hemos presentado, no
Observe con qué exquisito cuidado he evitado aquí la palabra relación. En inglés existen dos
palabras diferentes: relation y relationship. Pero el equivalente más cercano a esta última sería
algo así como relacionalidad, y eso suena peor que un párrafo del BOE.
5
Sistemas de bases de datos 81
hay restricciones de este tipo. Pero nos podemos inventar una, que deben satisfacer
los registros de empleados:
Dpto <> "I+D" or Especialidad <> "Psiquiatría"
Es decir, que no pueden trabajar psiquiatras en Investigación y Desarrollo (terminarían igual de locos). Lo más importante de todo lo que he explicado en esta sección
es que las restricciones más sencillas pueden expresarse mediante elegantes fórmulas
matemáticas que utilizan los nombres de las columnas, o campos, como variables.
Restricciones de unicidad y claves primarias
Los tipos de restricciones siguen complicándose. Ahora se trata de realizar verificaciones que afectan los valores almacenados en varias filas. Las más importantes de
estas validaciones son las denominadas restricciones de unicidad. Son muy fáciles de explicar en la teoría. Por ejemplo, no pueden haber dos filas en la tabla de departamentos con el mismo valor en la columna Codigo. Abusando del lenguaje, se dice que
“la columna Codigo es única”.
En el caso de la tabla de departamentos, resulta que también existe una restricción de
unicidad sobre la columna Nombre. Y no pasa nada. Sin embargo, quiero que el lector
pueda distinguir sin problemas entre estas dos diferentes situaciones:
1. (Situación real) Hay una restricción de unicidad sobre Codigo y otra restricción de
unicidad sobre Nombre.
2. (Situación ficticia) Hay una restricción de unicidad sobre la combinación de columnas Codigo y Nombre.
Esta segunda restricción posible es más relajada que la combinación real de dos restricciones (compruébelo). La unicidad de una combinación de columnas puede visualizarse de manera sencilla: si se “recortan” de la tabla las columnas que no participan en la restricción, no deben quedar registros duplicados después de esta operación. Por ejemplo, en la tabla de empleados, la combinación Dpto y Nombre es única.
La mayoría de los sistemas de bases de datos se apoyan en índices para hacer cumplir
las restricciones de unicidad. Estos índices se crean automáticamente tomando como
base a la columna o combinación de columnas que deben satisfacer estas condiciones. Antes de insertar un nuevo registro, y antes de modificar una columna de este
tipo, se busca dentro del índice correspondiente para ver si se va a generar un valor
duplicado. En tal caso se aborta la operación.
Así que una tabla puede tener una o varias restricciones de unicidad (o ninguna).
Escoja una de ellas y desígnela como clave primaria. ¿Cómo, de forma arbitraria? Casi:
82 La Cara Oculta de Delphi
se supone que la clave primaria identifica unívocamente y de forma algo misteriosa la
más recóndita esencia de los registros de una tabla. Pero para esto vale lo mismo
cualquier otra restricción de unicidad, y en programación no vale recurrir al misticismo. Hay quienes justifican la elección de la clave primaria entre todas las restricciones de unicidad en relación con la integridad referencial, que estudiaremos en la
próxima sección. Esto tampoco es una justificación, como veremos en breve. En
definitiva, que todas las restricciones de unicidad son iguales, aunque algunas son
más iguales que otras.
¿Quiere saber la verdad? He jugado con trampa en el párrafo anterior. Esa esencia
misteriosa del registro no es más que un mecanismo utilizado por el modelo relacional para sustituir a los desterrados punteros. Podréis llamarlo identidad del registro, o
cualquier nombre rimbombante, pero no es más que una forma de disfrazar un
puntero, y muy poco eficiente, por cierto. Observe la tabla de departamentos: entre
el código y el nombre, ¿cuál columna elegiría como clave primaria? Por supuesto que
el código, pues es el tipo de datos que menos espacio ocupa, y cuando tengamos el
código en la mano podremos localizar el registro de forma más rápida que cuando
tengamos el nombre.
De todos modos, hay alguien que aprovecha inteligentemente la existencia de claves
primarias: el Motor de Datos de Borland. De hecho, estas claves primarias son la
forma en que el Motor de Datos puede simular el concepto de registro activo en una
tabla SQL. Pero tendremos que esperar un poco para desentrañar este ingenioso
mecanismo.
Integridad referencial
Este tipo de restricción es aún más complicada, y se presenta en la columna Dpto de
la tabla de empleados. Es evidente que todos los valores de esta columna deben corresponder a valores almacenados en la columna Codigo de la tabla de departamentos.
Siguiendo mi teoría de la conspiración de los punteros encubiertos, esto equivale a
que cada registro de empleado tenga un puntero a un registro de departamento.
Un poco de terminología: a estas restricciones se les denomina integridad referencial, o
referential integrity. También se dice que la columna Dpto de Empleados es una clave externa de esta tabla, o foreign key, en el idioma de Henry Morgan. Podemos llamar tabla
dependiente, o tabla de detalles, a la tabla que contiene la clave externa, y tabla
maestra a la otra. En el ejemplo que consideramos, la clave externa consiste en una
sola columna, pero en el caso general podemos tener claves externas compuestas.
Como es fácil de ver, las columnas de la tabla maestra a las que se hace referencia en
una integridad referencial deben satisfacer una restricción de unicidad. En la teoría
original, estas columnas deberían ser la clave primaria, pero la mayoría de los siste-
Sistemas de bases de datos 83
mas relacionales actuales admiten cualquiera de las combinaciones de columnas únicas definidas.
Cuando se establece una relación de integridad referencial, la tabla dependiente
asume responsabilidades:
•
•
No se puede insertar una nueva fila con un valor en las columnas de la clave
externa que no se encuentre en la tabla maestra.
No se puede modificar la clave externa en una fila existente con un valor que no
exista en la tabla maestra.
Pero también la tabla maestra tiene su parte de responsabilidad en el contrato, que se
manifiesta cuando alguien intenta eliminar una de sus filas, o modificar el valor de su
clave primaria. En las modificaciones, en general, pueden desearse dos tipos diferentes de comportamiento:
•
•
Se prohibe la modificación de la clave primaria de un registro que tenga filas de
detalles asociadas.
Alternativamente, la modificación de la clave se propaga a las tablas dependientes.
Si se trata de un borrado, son tres los comportamientos posibles:
•
•
•
Prohibir el borrado, si existen filas dependientes del registro.
Borrar también las filas dependientes.
Permitir el borrado y, en vez de borrar las filas dependientes, romper el vínculo
asociando a la clave externa un valor por omisión, que en SQL casi siempre es el
valor nulo (ver más adelante, en el capítulo 21).
La forma más directa de implementar las verificaciones de integridad referencial es
utilizar índices. Las responsabilidades de la tabla dependiente se resuelven comprobando la existencia del valor a insertar o a modificar en el índice asociado a la restricción de unicidad definida en la tabla maestra. Las responsabilidades de la tabla maestra se resuelven generalmente mediante índices definidos sobre la tabla de detalles.
¿Qué tiene de malo el modelo relacional?
El modelo relacional funciona. Además, funciona razonablemente bien. Pero como
he tratado de explicar a lo largo de las secciones anteriores, en determinados aspectos
significa un retroceso en comparación con modelos de datos anteriores. Me refiero a
lo artificioso del proceso de eliminar los punteros implícitos de forma natural en el
modelo semántico a representar. Esto se refleja también en la eficiencia de las opera-
84 La Cara Oculta de Delphi
ciones. Supongamos que tenemos un registro de empleados en nuestras manos y
queremos saber el nombre del departamento al que pertenece. Bien, pues tenemos
que buscar el código de departamento dentro de un índice para después localizar
físicamente el registro del departamento correspondiente y leer su nombre. Al menos, un par de accesos al disco duro. Compare con la sencillez de buscar directamente el registro de departamento dado su puntero (existen implementaciones eficientes del concepto de puntero cuando se trabaja con datos persistentes).
En este momento, las investigaciones de vanguardia se centran en las bases de datos
orientadas a objetos, que retoman algunos conceptos del modelo de redes y del propio modelo relacional. Desde la década de los 70, la investigación matemática ha
avanzado lo suficiente como para disponer de potentes lenguajes de interrogación
sobre bases de datos arbitrarias. No quiero entrar a analizar el porqué no se ha acabado de imponer el modelo orientado a objetos sobre el relacional, pues en esto
influyen tanto factores técnicos como comerciales. Pero es bueno que el lector sepa
qué puede pasar en un futuro cercano.
Es sumamente significativo que la principal ventaja del modelo relacional, la posibilidad de realizar consultas ad hoc estuviera fuera del alcance del modelo “relacional”
más popular a lo largo de los ochenta: dBase, y sus secuelas Clipper y FoxPro.
Cuando escucho elogios sobre Clipper por parte de programadores que hicieron
carrera con este lenguaje, pienso con tristeza que los elogios los merecen los propios
programadores que pudieron realizar software funcional con herramientas tan primitivas. Mi aplauso para ellos; en ningún caso para el lenguaje. Y mi consejo de que
abandonen el viejo buque (y las malas costumbres aprendidas durante la travesía)
antes de que termine de hundirse.
Ilustración 1 El perro de Codd
Y a todas estas, ¿qué pasó con la mascota de Mr. Codd? Lo inevitable: murió como
consecuencia de un experimento fallido. Sin embargo, Brahma se apiadó de él, y
reencarnó al año en un chico que, con el tiempo, se ha convertido en un exitoso programador afincado en el sur de la Florida. Al verlo, nadie pensaría que fue un perro
Sistemas de bases de datos 85
en su vida anterior, de no ser por la manía que tiene de rascarse periódicamente la
oreja. No obstante, por haber destrozado la tapicería del sofá de su dueño y orinarse
un par de veces en la alfombra del salón, fue condenado a programar dos largos años
en Visual Basic, hasta que Delphi llegó a su vida y se convirtió en un hombre feliz.
Bases de datos locales y servidores SQL
Basta ya de teoría, y veamos los ingredientes con que contamos para cocinar aplicaciones de bases de datos. La primera gran división entre los sistemas de bases de
datos existentes se produce entre los sistemas de bases de datos locales, o de escritorio, y las bases de datos SQL, o cliente/servidor.
A los sistemas de bases de datos locales se les llama de este modo porque comenzaron su existencia como soluciones baratas para un solo usuario, ejecutándose en un
solo ordenador. Sin embargo, no es un nombre muy apropiado, porque más adelante
estos sistemas crecieron para permitir su explotación en red. Tampoco es adecuado
clasificarlas como “lo que queda después de quitar las bases de datos SQL”. Es cierto
que en sus inicios ninguna de estas bases de datos soportaba un lenguaje de consultas
decente, pero esta situación también ha cambiado.
En definitiva, ¿cuál es la esencia de las bases de datos de escritorio? Pues el hecho de
que la programación usual con las mismas se realiza en una sola capa. Todos estos
sistemas utilizan como interfaz de aplicaciones un motor de datos que, en la era de la
supremacía de Windows, se implementa como una DLL. En la época de MS-DOS,
en cambio, eran funciones que se enlazaban estáticamente dentro del ejecutable.
Observe el siguiente diagrama, que representa el uso en red de una base de datos “de
escritorio”:
Aplicación
Aplicación
BDE
BDE
Base de
Datos
Aunque la segunda burbuja dice “BDE”, el Motor de Datos de Borland, sustituya
estas siglas por DAO, y podrá aplicar el diagrama a Access. He representado la aplicación y el motor de datos en dos burbujas separadas, pero en realidad, constituyen
un mismo ejecutable. Lo más importante, sin embargo, es que no existe un software
central que sirva de árbitro para el acceso a la base de datos “física”. Es como si las
dos aplicaciones deambularan a ciegas en un cuarto oscuro, tratando de sentarse en
86 La Cara Oculta de Delphi
algún sitio libre. Por supuesto, la única forma que tienen de saberlo es intentar hacerlo y confiar en que no haya nadie debajo.
Debido a esta forma primitiva de resolver las inevitables colisiones, la implementación de la concurrencia, las transacciones y, en último término, la recuperación después de fallos, ha sido tradicionalmente el punto débil de las bases de datos de escritorio. Si está pensando en decenas o cientos de usuarios atacando simultáneamente a
sus datos, y en ejércitos de extremidades inferiores listas para tropezar con cables,
olvídese de Paradox, dBase y Access, pues necesitará una base de datos
cliente/servidor.
Las bases de datos cliente/servidor, o bases de datos SQL, se caracterizan por utilizar al menos dos capas de software, como se aprecia en el siguiente diagrama:
Aplicación
Aplicación
Servidor SQL
Cliente SQL
Cliente SQL
Base de
Datos
El par aplicación + motor local de datos ya no tiene acceso directo a los ficheros de
la base de datos, pues hay un nuevo actor en el drama: el servidor SQL. He cambiado
el rótulo de la burbuja del motor de datos, y ahora dice “cliente SQL”. Esta es una
denominación genérica. Para las aplicaciones desarrolladas con Delphi y el Motor de
Datos de Borland, este cliente consiste en la combinación del BDE propiamente
dicho más alguna biblioteca dinámica o DLL suministrada por el fabricante de la base
de datos. En cualquier caso, todas estas bibliotecas se funden junto a la aplicación
dentro de una misma capa de software, compartiendo el mismo espacio de memoria
y procesamiento.
La división entre bases de datos de escritorio y las bases de datos SQL no es una
clasificación tajante, pues se basa en la combinación de una serie de características.
Puede que uno de estos días aparezca un sistema que mezcle de otra forma estos rasgos definitorios.
Sistemas de bases de datos 87
Características generales de los sistemas SQL
El hecho de que exista un árbitro en las aplicaciones cliente/servidor hace posible
implementar una gran variedad de técnicas y recursos que están ausentes en la mayoría de los sistemas de bases de datos de escritorio. Por ejemplo, el control de concurrencia se hace más sencillo y fiable, pues el servidor puede llevar la cuenta de qué
clientes están accediendo a qué registros durante todo el tiempo. También es más
fácil implementar transacciones atómicas, esto es, agrupar operaciones de modificación de forma tal que, o se efectúen todas, o ninguna llegue a tener efecto.
Pero una de las principales características de las bases de datos con las que vamos a
trabajar es la forma peculiar en que “conversan” los clientes con el servidor. Resulta
que estas conversaciones tienen lugar en forma de petición de ejecución de comandos del lenguaje SQL. De aquí el nombre común que reciben estos sistemas. Supongamos que un ordenador necesita leer la tabla de inventario. Recuerde que ahora no
podemos abrir directamente un fichero situado en el servidor. Lo que realmente hace
la estación de trabajo es pedirle al servidor que ejecute la siguiente instrucción SQL:
select * from Inventario order by CodigoProducto asc
El servidor calcula qué registros pertenecen al resultado de la consulta, y todo este
cálculo tiene lugar en la máquina que alberga al propio servidor. Entonces, cada vez
que el usuario de la estación de trabajo se mueve de registro a registro, el cliente SQL
pide a su servidor el siguiente registro mediante la siguiente instrucción:
fetch
Más adelante necesitaremos estudiar cómo se realizan las modificaciones, inserciones,
borrados y búsquedas, pero con esto basta por el momento. Hay una conclusión
importante a la que ya podemos llegar: ¿qué es más rápido, pulsar un botón en la
máquina de bebidas o mandar a un acólito a que vaya por una Coca-Cola? A no ser
que usted sea más vago que yo, preferirá la primera opción. Bien, pues un sistema
SQL es inherentemente más lento que una base de datos local. Antes manipulábamos directamente un fichero. Ahora tenemos que pedírselo a alguien, con un protocolo y con reglas de cortesía. Ese alguien tiene que entender nuestra petición, es
decir, compilar la instrucción. Luego debe ejecutarla y solamente entonces procederá
a enviarnos el primer registro a través de la red. ¿Está de acuerdo conmigo?
No pasa una semana sin que conozca a alguien que ha desarrollado una aplicación
para bases de datos locales, haya decidido pasarla a un entorno SQL, y haya pensado
que con un par de modificaciones en su aplicación era suficiente. Entonces descubre
que la aplicación se ejecuta con mayor lentitud que antes, cae de rodillas, mira al cielo
y clama: ¿dónde está entonces la ventaja de trabajar con sistemas cliente/servidor?
88 La Cara Oculta de Delphi
Está, amigo mío, en la posibilidad de meter código en el servidor, y si fallamos en
hacerlo estaremos desaprovechando las mejores dotes de nuestra base de datos.
Hay dos formas principales de hacerlo: mediante procedimientos almacenados y
mediante triggers. Los primeros son conjuntos de instrucciones que se almacenan
dentro de la propia base de datos. Se activan mediante una petición explícita de un
cliente, pero se ejecutan en el espacio de aplicación del servidor. Por descontado,
estos procedimientos no deben incluir instrucciones de entrada y salida. Cualquier
proceso en lote que no contenga este tipo de instrucciones es candidato a codificarse
como un procedimiento almacenado. ¿La ventaja?, que evitamos que los registros
procesados por el procedimiento tengan que atravesar la barrera del espacio de memoria del servidor y viajar a través de la red hasta el cliente.
Los triggers son también secuencias de instrucciones, pero en vez de ser activados
explícitamente, se ejecutan como preludio y coda de las tres operaciones básicas de
actualización de SQL: update, insert y delete. No importa la forma en que estas
tres operaciones se ejecuten, si es a instancias de una aplicación o mediante alguna
herramienta incluida en el propio sistema; en cualquiera de estos dos casos, los triggers
que se hayan programado se activarán.
Estos recursos se estudiarán más adelante, cuando exploremos el lenguaje SQL.
El formato Paradox
Comenzaremos nuestra aventura explicando algunas características de los sistemas de
bases de datos de escritorio que pueden utilizarse directamente con Delphi. De estos,
mi actual favorito es Paradox. Pongo el adjetivo “actual” porque el nuevo formato de
Visual dBase VII comienza a aproximarse a la riqueza expresiva soportada desde
hace mucho por Paradox. Dedicaremos a dBase la siguiente sección.
Paradox no reconoce directamente el concepto de base de datos, sino que administra
tablas en ficheros independientes. Cada tabla se almacena en un conjunto de ficheros,
todos con el mismo nombre, pero con las extensiones que explicamos a continuación:
Extensión
.db
.mb
.px
.Xnn, .Ynn
.val
Explicación
Definición de la tabla y campos de longitud máxima fija
Campos de longitud variable, como los memos y gráficos
El índice de la clave primaria
Indices secundarios
Validaciones e integridad referencial
Sistemas de bases de datos 89
En el fichero .db se almacena una cabecera con la descripción de la tabla, además de
los datos de los registros que corresponden a campos de longitud fija. Este fichero
está estructurado en bloques de idéntico tamaño; se pueden definir bloques de 1, 2,
4, 8, 16 y 32KB. El tamaño de bloque se determina durante la creación de la tabla
mediante el parámetro BLOCK SIZE del controlador de Paradox del BDE (por omisión, 2048 bytes); en el próximo capítulo aprenderemos a gestionar éste y muchos
otros parámetros. El tamaño de bloque influye en la extensión máxima de la tabla,
pues Paradox solamente permite 216 bloques por fichero. Si se utiliza el tamaño de
bloque por omisión tendríamos el siguiente tamaño máximo por fichero de datos:
2048 × 65536 = 211 × 216 = 227 = 27 × 220 = 128MB
Un registro debe caber completamente dentro de un bloque, y si la tabla tiene una
clave primaria (¡recomendable!) deben existir al menos tres registros por bloque; esto
se refiere a los datos de longitud fija del registro, excluyendo campos de texto largos,
de imágenes y binarios. Dentro de cada bloque, los registros se ordenan según su
clave primaria, para agilizar la búsqueda una vez que el bloque ha sido leído en la
caché. Un registro, además, siempre ocupa el mismo espacio dentro del fichero .db,
incluso si contiene campos alfanuméricos que, a diferencia de lo que sucede en
dBase, no se rellenan con blancos hasta ocupar el ancho total del campo.
Como explicamos anteriormente, el índice primario de la tabla se almacena en el
fichero de extensión .px. No es necesario que una tabla tenga índice primario, pero es
altamente ventajoso. Al estar ordenados los registros dentro los bloques de datos,
sólo se necesita almacenar en el índice la clave del primer registro de cada bloque.
Esto disminuye considerablemente los requerimientos de espacio del índice, y acelera
las búsquedas.
Es interesante conocer cómo Paradox implementa los índices secundarios. En realidad, cada índice secundario es internamente una tabla, con su propio fichero de datos, de extensión .Xnn, y su índice asociado .Ynn. La numeración de los índices sigue
un esquema sencillo: los dos últimos caracteres de la extensión indican el número del
campo en hexadecimal, si es un índice sobre un solo campo. Si es un índice compuesto, se utiliza una pseudo numeración hexadecimal, pero comenzando desde el
“valor” G0 y progresando en forma secuencial. Desde el punto de vista del usuario,
los índices secundarios tienen un nombre asociado. El índice primario, en cambio, no
tiene nombre.
Paradox permite la definición de relaciones de integridad referencial. La siguiente
imagen muestra el diálogo de Database Desktop que lo hace posible:
90 La Cara Oculta de Delphi
El motor de datos crea automáticamente un índice secundario sobre las columnas de
la tabla dependiente que participan en una restricción de integridad. Si la restricción
está basada en una sola columna, el índice recibe el nombre de la misma. La tabla que
incluyo a continuación describe la implementación en Paradox del comportamiento
de la integridad referencial respecto a actualizaciones en la tabla maestra:
Prohibir la operación
Propagar en cascada
Asignar valor por omisión
Borrados
Modificaciones
Sí
No
No
Sí
Sí
-
No se permiten los borrados en cascada. No obstante, este no es un impedimento
significativo, pues dichos borrados pueden implementarse fácilmente en las aplicaciones clientes. En cambio, trate el lector de implementar una propagación en cascada de un cambio de clave cuando existe una integridad referencial...
No fue hasta la aparición de la versión 3.0 del BDE, que acompañó a Delphi 2, que
Paradox y dBase contaron con algún tipo de soporte para transacciones. No obstante, este soporte es actualmente muy elemental. Utiliza un undo log, es decir, un
fichero en el que se van grabando las operaciones que deben deshacerse. Si se desconecta la máquina durante una de estas transacciones, los cambios aplicados a medias
quedan grabados, y actualmente no hay forma de deshacerlos. La independencia
entre transacciones lanzadas por diferentes procesos es la mínima posible, pues un
proceso puede ver los cambios efectuados por otro proceso aunque éste no haya
confirmado aún toda la transacción.
Finalmente, estas transacciones tienen una limitación importante. La contención
entre procesos está implementada mediante bloqueos. Actualmente Paradox permite
hasta 255 bloqueos por tabla, y dBase solamente 100. De modo que una transacción
en Paradox puede modificar directamente un máximo de 255 registros.
Sistemas de bases de datos 91
El formato DBF7
¿Quién no ha tenido que trabajar, en algún momento y de una forma u otra, con los
conocidos ficheros DBF? La popularidad de este formato se desarrolló en paralelo
con la aparición de los PCs y la propagación de MS-DOS. En el principio, era propiedad de una compañía llamada Ashton-Tate. Ashton fue el empresario que compró
el software a su desarrollador, y tenía un loro llamado Tate, ¿o era al revés? Después
a esta empresa le fueron mal las cosas y Borland adquirió sus productos. Aunque
muchos interpretaron esta acción como un reconocimiento a los “méritos” técnicos
de dBase, se trataba en realidad de adquirir otro producto de bases de datos, que en
aquel momento era un perfecto desconocido: InterBase. Hay que advertir que InterBase había sido a su vez comprado por Ashton-Tate a sus desarrolladores originales,
una efímera compañía de nombre Groton Database Systems, cuyas siglas aún perduran en la extensión por omisión de los ficheros de InterBase: gdb.
El formato DBF es muy sencillo ... y muy malo. Fue diseñado como “la base de datos de los pobres”. Cada tabla, al igual que sucede en Paradox, se representa en un
conjunto de ficheros. El fichero de extensión dbf contiene a la vez la descripción de
los campos y los registros, estos últimos de longitud fija. Los registros se almacenan
de forma secuencial, sin importar las fronteras de bloques y la pérdida de eficiencia
que esto causa. Los tipos de datos originales se representaban en formato ASCII
legible, en vez de utilizar su codificación binaria, más compacta. De este modo, las
fechas se representaban en ocho caracteres, con el formato AAAAMMDD, y un
valor entero de 16 bits ocupaba 40 bits, o 48 si se representaba el signo. Por otra
parte, hasta fechas recientes el único tipo de cadena implementado tenía longitud fija,
obligando a los programadores a usar exhaustivamente la función Trim.
Se pueden utilizar campos de longitud variable, que en principio estuvieron limitados
al tipo texto, o memo. Los valores de estos campos se almacenan en un fichero paralelo de extensión dbt. En este fichero los datos sí respetan la frontera de bloque. Por
omisión, el tamaño de estos bloques es de 1024 bytes, pero este parámetro es configurable. Los índices, por su parte, se almacenan todos en un fichero de extensión
mdx. Aunque, en principio, una tabla puede tener varios ficheros mdx asociados, solamente los índices que se encuentran en el fichero que tiene el mismo nombre que la
tabla se actualizan automáticamente, por lo que en la práctica solamente cuenta este
fichero, denominado índice de producción.
Una de las peculiaridades de dBase es la forma en que se implementan los índices
sobre varias columnas. dBase no tiene índices compuestos, al estilo de Paradox y de
los sistemas SQL. Como alternativa ofrece los índices basados en expresiones: si
queremos un índice compuesto por las columnas Nombre y Apellidos, tenemos que
definir un índice por la expresión Nombre+Apellidos. Puede parecer que ésta es una
opción muy potente, pero en la práctica el uso de los índices sobre expresiones se
reduce a sustituir los índices compuestos de otros sistemas. Además, veremos que
92 La Cara Oculta de Delphi
trabajar con estos índices en Delphi es bastante penoso. ¿Claves primarias, integridad
referencial? Nada de eso tenía el formato DBF. Cuesta más trabajo rediseñar una
aplicación escrita en Delphi con dBase para que se ejecute en un sistema cliente/servidor que si hubiera sido desarrollada para Paradox.
¿Algo a favor de este formato? Las dos cualidades que mencionaré son consecuencia
de la simplicidad de sus ficheros. En primer lugar, las operaciones de actualización
son un poco más rápidas en dBase que en Paradox. Y, lo más importante, al existir
“menos cosas para romperse”, hay más estabilidad en este formato y más tolerancia
respecto a fallos en el sistema operativo.
Con la aparición de Visual dBase 7 junto a la versión 4.50 del BDE, el formato DBF
fue renovado en gran medida. Una de las novedades más importantes es la incorporación de relaciones de integridad referencial, que incluyen los borrados en cascada,
como se muestra en el siguiente cuadro de diálogo del Administrador de Bases de
Datos de Visual dBase 7:
También se han añadido tipos de datos representados en forma binaria, condiciones
de verificación, que consisten en expresiones lógicas que deben satisfacer siempre las
filas de una tabla, valores por omisión, etc. Lamentablemente, seguimos con los índices de expresiones como sustitutos de los índices compuestos, y el límite de registros
modificados por transacción sigue siendo 100.
Criterios para evaluar un servidor SQL
¿Cómo saber cuál es el sistema de bases de datos cliente/servidor más adecuado para
nuestros objetivos? En esta sección trato de establecer criterios de comparación para
estos sistemas. No hay dos aplicaciones con las mismas necesidades, así que el hecho
Sistemas de bases de datos 93
de que un sistema no ofrezca determinada opción no lo invalida como la solución
que usted necesita. Recuerde que no siempre más es mejor.
•
Plataformas soportadas
¿En qué sistema operativo debe ejecutarse el servidor? La respuesta es importante por dos razones. La primera: nos da una medida de la flexibilidad que tenemos a la hora de seleccionar una configuración de la red. Si vamos a instalar
una aplicación en una empresa que tiene toda su red basada en determinado servidor con determinado protocolo, no es recomendable que abandonen todo lo
que tienen hecho para que el recién llegado pueda ejecutarse.
En segundo lugar, no todos los sistemas operativos se comportan igual de eficientes actuando como servidores de bases de datos. Esto tiene que ver sobre
todo con la implementación que realiza el SO de la concurrencia. Mi favorito en
este sentido es UNIX: un InterBase, un Oracle, un Informix, ejecutándose sobre
cualquier “sabor” de UNIX (HP-UX, AIX, Solaris).
Puede suceder, por supuesto, que el mantenimiento de la red no esté en manos
de un profesional dedicado a esta área. En tal caso, hay que reconocer que es
mucho más sencillo administrar un Windows NT.
•
Soporte de tipos de datos y restricciones
En realidad, casi todos los sistemas SQL actuales tienen tipos de datos que incluyen a los especificados en el estándar de SQL, excepto determinados casos
patológicos. De lo que se trata sobre todo es la implementación de los mismos.
Por ejemplo, no todas los formatos de bases de datos implementan con la misma
eficiencia el tipo VARCHAR, que almacena cadenas de longitud variable. La
longitud máxima es uno de los parámetros que varían, y el formato de representación: si siempre se asigna un tamaño fijo (el máximo) para estos campos, o si la
longitud total del registro puede variar.
Más importante es el soporte para validaciones declarativas, esto es, verificaciones para las cuales no hay que desarrollar código especial. Dentro de este apartado entran las claves primarias, claves alternativas, relaciones de integridad referencial, dominios, chequeos a nivel de fila, etc. Un elemento a tener en cuenta,
por ejemplo, es si se permite o no la propagación en cascada de modificaciones
en la tabla maestra de una relación de integridad referencial. En caso positivo,
esto puede ahorrarnos bastante código en triggers y permitirá mejores modelos de
bases de datos.
•
Lenguaje de triggers y procedimientos almacenados
Este es uno de los criterios a los que concedo mayor importancia. El éxito de
una aplicación, o un conjunto de aplicaciones, en un entorno C/S depende en
gran medida de la forma en que dividamos la carga de la aplicación entre el servidor de datos y los clientes. En este punto es donde podemos encontrar mayores diferencias entre los sistemas SQL, pues no hay dos dialectos de este lenguaje
que sean exactamente iguales.
94 La Cara Oculta de Delphi
Debemos fijarnos en si el lenguaje permite triggers a nivel de fila o de operación,
o de ambos niveles. Un trigger a nivel de fila se dispara antes o después de modificar una fila individual. Por el contrario, un trigger a nivel de operación se dispara
después de que se ejecute una operación completa que puede afectar a varias filas. Recuerde que SQL permite instrucciones como la siguiente:
delete from Clientes
where Ciudad in ("Pompeya", "Herculano")
Si la base de datos en cuestión sólo ejecuta sus triggers al terminar las operaciones,
será mucho más complicada la programación de los mismos, pues más trabajo
costará restablecer los valores anteriores y posteriores de cada fila particular.
También debe tenerse en cuenta las posibilidades de extensión del lenguaje, por
ejemplo, incorporando funciones definidas en otros lenguajes, o el poder utilizar
servidores de automatización OLE o CORBA, si se permiten o no llamadas recursivas, etc.
•
Implementación de transacciones: recuperación y aislamiento
Este es mi otro criterio de análisis preferido. Las transacciones ofrecen a las bases de datos la consistencia necesaria para que operaciones parciales no priven de
sentido semántico a los datos almacenados. Al constituir las unidades básicas de
procesamiento del servidor, el mecanismo que las soporta debe encargarse también de aislar a los usuarios entre sí, de modo que la secuencia exacta de pasos
concurrentes que realicen no influya en el resultado final de sus acciones. Por lo
tanto, hay dos puntos en los que centrar la atención: cómo se implementa la
atomicidad (la forma en que el sistema deshace operaciones inconclusas), y e
método empleado para aislar entre sí las transacciones concurrentes.
•
Segmentación
Es conveniente poder distribuir los datos de un servidor en distintos dispositivos
físicos. Al situar tablas en distintos discos, o segmentos de las propias tablas, podemos aprovechar la concurrencia inherente a la existencia de varios controladores físicos de estos medios de almacenamiento. Esta opción permite, además,
superar las restricciones impuestas por el tamaño de los discos en el tamaño de la
base de datos.
•
Replicación
Uno de los usos principales de la replicación consiste en aislar las aplicaciones
que realizan mantenimientos (transacciones OLTP) de las aplicaciones para toma
de decisiones (transacciones DSS). Las aplicaciones con fuerte base OLTP tienden a modificar en cada transacción un pequeño número de registros. Las aplicaciones DSS se caracterizan por leer grandes cantidades de información, siendo
poco probable que escriban en la base de datos. En sistemas de bases de datos
que implementan el aislamiento de transacciones mediante bloqueos, ambos ti-
Sistemas de bases de datos 95
pos de transacciones tienen una coexistencia difícil. Por lo tanto, es conveniente
disponer de réplicas de la base de datos sólo para lectura, y que sea a estos clones
a quienes se refieran las aplicaciones DSS.
Me da un poco de vergüenza añadir el último factor a la lista anterior: el precio. Todos queremos lo mejor, pero no siempre estamos dispuestos a pagar por eso. Así que
muchas veces una decisión de compra representa un balance entre la calidad y el
precio ... como en todo.
InterBase
Los antiguos griegos representaban a la Fama y a la Fortuna como caprichosas diosas
que otorgaban sus favores muchas veces a quienes menos lo merecían; estos griegos
de antes, la verdad, eran bastante misóginos, entre otras cosas. En cualquier caso,
InterBase debe haber tenido algún altercado con la señorita Fama, porque no tiene la
popularidad que merecería por sus muchas virtudes.
Una de estas virtudes es que se puede instalar el servidor en muchos sistemas operativos: Windows NT y 9x, NetWare, Solaris, HP-UX, SCO, Linux... Otra es que en
cualquiera de estos sistemas ocupa muy poco espacio, del orden de los 10 ó 20 MB.
El mantenimiento de un servidor, una vez instalado, es también mínimo. Cada base
de datos se sitúa en uno o más ficheros, casi siempre de extensión gdb. Estos ficheros
crecen automáticamente cuando hace falta más espacio, y no hay que preocuparse
por reservar espacio adicional para registrar los cambios efectuados por las transacciones, como en otros sistemas. Se pueden realizar copias de seguridad de una base
de datos “en caliente”, mientras que otros sistemas requieren que no existan usuarios
activos para efectuar esta operación. Y la recuperación después de un fallo de hardware es sencilla e inmediata: vuelva a encender el servidor.
Tal sencillez tiene un precio, y es que actualmente InterBase no implementa directamente ciertas opciones avanzadas de administración, como la segmentación y la replicación. Esta última debe ser implementada manualmente, por medio de triggers
96 La Cara Oculta de Delphi
definidos por el diseñador de la base de datos, y con la ayuda de un proceso en segundo plano que vaya grabando los datos del original a la réplica. No obstante, InterBase permite definir directamente copias en espejo (mirrors) de una base de datos,
de forma tal que existan dos copias sincronizadas de una misma base de datos en
discos duros diferentes del mismo servidor. De este modo, si se produce un fallo de
hardware en uno de los discos o controladores, la explotación de la base de datos
puede continuar con la segunda copia.
En lo que atañe a los tipos de datos, InterBase implementa todos los tipos del estándar SQL con una excepción. Este lenguaje define tres tipos de campos para la fecha y
la hora: DATE, para fechas, TIME, para horas, y TIMESTAMP para almacenar
conjuntamente fechas y horas. InterBase solamente tiene DATE, pero como equivalente al TIMESTAMP del estándar. Esto en sí no conlleva problemas, a no ser que
haya que escribir una aplicación que acceda indistintamente a bases de datos de InterBase y de cualquier otro sistema SQL. Pero cuando estudiemos el uso del Diccionario de Datos de Delphi, veremos cómo resolver esta nimiedad.
InterBase tiene, hoy por hoy, una de las implementaciones más completas de las
restricciones de integridad referencial, pues permite especificar declarativamente la
propagación en cascada de borrados y modificaciones:
Prohibir la operación
Propagar en cascada
Asignar valor por omisión
Borrados
Modificaciones
Sí
Sí
Sí
Sí
Sí
-
Por supuesto, tenemos todas las restricciones de unicidad, claves primarias, validaciones a nivel de registro (cláusulas check). Estas últimas son más potentes que en el
resto de los sistemas, pues permiten realizar comprobaciones que involucren a registros de otras tablas.
Los triggers de InterBase se ejecutan antes o después de cada operación de actualización, fila por fila, que es como Dios manda. Por otra parte, tiene un lenguaje de procedimientos almacenados muy completo, que permite llamadas recursivas, y la definición de procedimientos de selección, que devuelven más de un registro de datos por
demanda. Todo ello se integra con un mecanismo de excepciones muy elegante, que
compagina muy bien con las técnicas transaccionales. Es posible, además, extender el
conjunto de funciones del lenguaje mediante módulos dinámicos, DLLs en el caso de
las versiones para Windows y Windows NT.
Pero la característica más destacada de InterBase es la forma en la que logra implementar el acceso concurrente a sus bases de datos garantizando que, en lo posible,
cada usuario no se vea afectado por las acciones del resto. Casi todos los sistemas
existentes utilizan, de una forma u otra, bloqueos para este fin. InterBase utiliza la
Sistemas de bases de datos 97
denominada arquitectura multigeneracional, en la cual cada vez que una transacción modifica un registro se genera una nueva versión del mismo. Teóricamente, esta técnica
permite la mayor cantidad de acciones concurrentes sobre las bases de datos. En la
práctica, la implementación de InterBase es muy eficiente y confiable. Todo esto lo
estudiaremos en el capítulo 31, que trata acerca de las transacciones.
La última versión de InterBase, en el momento en que escribo estas líneas, es la 5,
aunque existe una versión de actualización que corrige ciertos pequeños problemas
en las herramientas de diagnósticos y administración.
Microsoft SQL Server
Toda semejanza en la explicación de las características de Microsoft SQL Server con
las de Sybase será algo más que una simple coincidencia. Realmente MS SQL Server
comenzó como un derivado del servidor de Sybase, por lo que la arquitectura de
ambos es muy parecida. De modo que gran parte de lo que se diga en esta sección
sobre un sistema, vale para el otro.
Es muy fácil tropezarse por ahí con MS SQL Server. Hay incluso quienes lo tienen
instalado y aún no se han dado cuenta. Microsoft tiene una política de distribución
bastante agresiva para este producto, pues lo incluye en el paquete BackOffice, junto
a su sistema operativo Windows NT y unos cuantos programas más. Como puede
imaginar el lector, SQL Server 6.5 puede ejecutarse en Windows NT y en Windows
NT. Por fortuna, la próxima versión 7.0 ofrece un servidor para Windows 9x ... aunque obliga al usuario a instalar primeramente Internet Explorer 46. Está previsto que
la versión 7.0 comience a comercializarse a partir de septiembre/octubre del 98,
cuando este libro ya esté en la calle. La información que ofrecemos sobre la nueva
versión ha sido obtenida de las versiones Beta, así que júzguela adecuadamente.
Lo primero que llama la atención es la cantidad de recursos del sistema que consume
una instalación de SQL Server. La versión 6.5 ocupa de 70 a 90MB, mientras que la
beta que he examinado llega a los 180MB de espacio en disco. ¿La explicación?
Asistentes, y más asistentes: en esto contrasta con la austeridad espartana de InterBase.
Aunque la instalación del servidor es relativamente sencilla, su mantenimiento es
bastante complicado, sobre todo en la versión 6.5. Cada base de datos reside en uno
o más dispositivos físicos, que el fondo no son más que vulgares ficheros. Estos dispositivos ayudan a implementar la segmentación, pero no crecen automáticamente, por lo
que el administrador del sistema deberá estar pendiente del momento en que los
datos están a punto de producir un desbordamiento. A diferencia de InterBase, para
6
Al menos en versiones Beta.
98 La Cara Oculta de Delphi
cada base de datos hay que definir explícitamente un log, o registro de transacciones,
que compite en espacio con los datos verdaderos, aunque este registro puede residir
en otro dispositivo (lo cual se recomienda).
Aunque los mecanismos de logging, en combinación con los bloqueos, son los más
frecuentes en las bases de datos relacionales como forma de implementar transacciones atómicas, presentan claras desventajas en comparación con la arquitectura multigeneracional. En primer lugar, no se pueden realizar copias de seguridad con usuarios conectados a una base de datos. Los procesos que escriben bloquean a los procesos que se limitan a leer información, y viceversa. Si se desconecta físicamente el
servidor, es muy probable que haya que examinar el registro de transacciones antes
de volver a echar a andar las bases de datos. Por último, hay que estar pendientes del
crecimiento de estos ficheros. Hay un experimento muy sencillo que realizo con
frecuencia en InterBase, poblar una tabla con medio millón de registros, que nunca
he logrado repetir en SQL Server, por mucho que he modificado parámetros de
configuración.
Hay que reconocer que esta situación mejora un poco con la versión 7, pues desaparece el concepto de dispositivo, siendo sustituido por el de fichero del propio sistema
operativo: las bases de datos se sitúan en ficheros de extensión mdf y ndf, los registros
de transacciones, en ficheros ldf. Este nuevo formato permite que los ficheros de
datos y de transacciones crezcan dinámicamente, por demanda.
Otro grave problema de versiones anteriores que soluciona la nueva versión es la
granularidad de los bloqueos. Antes, cada modificación de un registro imponía un
bloqueo a toda la página en que se encontraba. Además, las páginas tenían un tamaño fijo de 2048 bytes, lo que limitaba a su vez el tamaño máximo de un registro.
En la versión 6.5 se introdujo el bloqueo a nivel de registro ... pero únicamente para
las inserciones, que es cuando menos hacen falta. Finalmente, la versión 7 permite
siempre bloqueos de registros, que pueden escalarse por demanda a bloqueos de
página o a nivel de tablas, y aumenta el tamaño de página a 8192 bytes. No obstante,
este tamaño sigue sin poder ajustarse.
Microsoft SQL Server ofrece extrañas extensiones a SQL que solamente sirven para
complicarnos la vida a usted y mí. Por ejemplo, aunque el SQL estándar dice que por
omisión una columna admite valores nulos, esto depende en SQL Server del estado
de un parámetro, ¡que por omisión produce el efecto contrario! La implementación
de la integridad referencial en este sistema es bastante pobre, pues solamente permite
restringir las actualizaciones y borrados en la tabla maestra; nada de propagación en
cascada y otras alegrías. También es curioso que SQL Server no crea automáticamente índices secundarios sobre las tablas que contienen claves externas.
Sistemas de bases de datos 99
Prohibir la operación
Propagar en cascada
Asignar valor por omisión
Borrados
Modificaciones
Sí
No
No
Sí
No
-
Otro de los aspectos negativos de SQL Server es su lenguaje de triggers y procedimientos almacenados, llamado Transact-SQL, que es bastante excéntrico respecto al
resto de los lenguajes existentes y a la propuesta de estándar. Uno puede acostumbrarse a soberanas tonterías tales como obligar a que todas las variables locales y
parámetros comiencen con el carácter @. Pero es bastante difícil programar determinadas reglas de empresa cuando los triggers se disparan solamente después de instrucciones completas.
El aislamiento de transacciones deja bastante que desear, pues el nivel superior solamente se alcanza en bases de datos abiertas en modo sólo lectura.
Oracle
Oracle es uno de los abuelos en el negocio de las bases de datos relacionales; el otro
es DB2, de IBM7. Este sistema es otra de las apuestas seguras en el caso de tener que
elegir un servidor de bases de datos. ¿Su principal desventaja? Resulta que no es de
carácter técnico, sino que tiene que ver con una política de precios altos, alto coste de
la formación y del mantenimiento posterior del sistema. Pero si usted puede permitirse el lujo...
Piense en una plataforma de hardware ... ¿ya?, pues Oracle funciona en la misma. Los
ejemplos para Oracle de este libro han sido desarrollados, concretamente, con Personal Oracle, versiones 7.3 y 8.0, para Windows 95. Este es un servidor muy estable,
quizás algo lento en establecer la conexión a la base de datos, que a veces cuesta un
poco instalar adecuadamente (sobre todo por las complicaciones típicas de TCP/IP),
pero una vez en funcionamiento va de maravillas. Así que con Oracle no tiene pretextos para no llevarse trabajo a casa.
Oracle permite todas las funciones avanzadas de un servidor SQL serio: segmentación, replicación, etc. Incluso puede pensarse que tiene demasiados parámetros de
configuración. La parte principal del control de transacciones se implementa mediante bloqueos y registros de transacciones, aunque el nivel de aislamiento superior
se logra mediante copias sólo lectura de los datos. Por supuesto, el nivel mínimo de
granularidad de estos bloqueos es a nivel de registro.
Debe haber una explicación (nunca me la han contado) a esta pulsión freudiana del gigante
azul para que sus productos siempre sean “segundos”: DB2, OS/2, PS/2 ...
7
100 La Cara Oculta de Delphi
¿Tipos de datos? Todos los que usted desee. ¿Restricciones check? No tan generales
como las de InterBase, pero quedan compensadas por la mayor abundancia de funciones predefinidas. Hasta la versión 7.3, Oracle implementaba solamente la propagación en cascada de borrados para la integridad referencial, como muestra la siguiente tabla:
Prohibir la operación
Propagar en cascada
Asignar valor por omisión
Borrados
Modificaciones
Sí
Sí
Sí
Sí
No
-
Las extensiones procedimentales a SQL, denominadas PL/SQL, conforman un lenguaje potente, que permite programar paquetes (packages) para la implementación de
tipos de datos abstractos. Con la versión 8, incluso, se pueden definir tipos de clases,
u objetos. Esta última extensión no es, sin embargo, lo suficientemente general como
para clasificar a este sistema como una base de datos orientada a objetos, en el sentido moderno de esta denominación. Uno de los puntos fuertes de la versión 4.0 de
Delphi es la posibilidad de trabajar con las extensiones de objetos de Oracle 8.
Como pudiera esperarse, el lenguaje de triggers es muy completo, y permite especificarlos tanto a nivel de fila como de operación. Hay montones de funciones utilizables desde SQL, y curiosas extensiones al lenguaje consulta, como la posibilidad de
realizar determinados tipos de clausuras transitivas.
Otros sistemas de uso frecuente
Evidentemente, es imposible hablar con autoridad acerca de todos los formatos de
bases de datos existentes en el mercado, y en las secciones anteriores me he limitado
a presentar aquellos sistemas con los que he trabajado con mayor frecuencia. Sin
embargo, gracias a las particularidades de mi actual ocupación, he podido ver en
funcionamiento a muchos de los restantes sistemas SQL con los que Delphi nos
permite trabajar directamente.
Por ejemplo, DB2, de IBM. Antes mencioné que este sistema y Oracle eran los dos
sistemas que más tiempo llevaban en este negocio, y los frutos de esta experiencia se
dejan notar también en DB2. Existen actualmente versiones de DB2 para una amplia
gama de sistemas operativos. El autor lo ha visto funcionar sobre OS/2, Windows
NT y Windows 95, teniendo una versión de evaluación sobre este último sistema.
Por supuesto, estas no son las únicas plataformas sobre las que puede ejecutarse.
La arquitectura de DB2 es similar a la de Oracle, a la que se parece la de MS SQL
Server, que es similar a la de Sybase SQL Server... En realidad, la concepción de estos
Sistemas de bases de datos 101
sistemas está basada en un proyecto experimental de IBM, denominado System-R,
que fue la primera implementación de un sistema relacional. En este proyecto se
desarrollaron o perfeccionaron técnicas como los identificadores de registros, los
mecanismos de bloqueos actuales, registros de transacciones, índices basados en
árboles balanceados, los algoritmos de optimización de consultas, etc. Así que también podrá usted esperar de DB2 la posibilidad de dividir en segmentos sus bases de
datos, de poder realizar réplicas y de disponer de transacciones atómicas y coherentes. El mantenimiento de las bases de datos de DB2 puede ser todo lo simple que
usted desee (sacrificando algo el rendimiento), o todo lo complicado que le parezca
(a costa de su cuero cabelludo). El lenguaje de triggers y procedimientos almacenados
es muy completo, y similar al de Oracle e InterBase, como era de esperar. La única
pega que le puedo poner a DB2 es que la instalación de clientes es bastante pesada, y
para poder conectar una estación de trabajo hay que realizar manualmente un proceso conocido como catalogación. Pero esto mismo le sucede a Oracle con su SQL
Net.
Otro sistema importante es Informix, que está bastante ligado al mundo de UNIX,
aunque en estos momentos existen versiones del servidor para Windows NT. Su
arquitectura es similar a la de los sistemas antes mencionados.
Finalmente, quiero referirme aunque sea de pasada a otras bases de datos “no BDE”
(en el siguiente capítulo veremos qué quiere decir esta clasificación). Tenemos, por
ejemplo, la posibilidad de trabajar con bases de datos de AS/400. Aunque el motor
de datos que viene con Delphi no permite el acceso directo a las mismas, podemos
programar para estas bases de datos colocando una pasarela DB2 como interfaz. No
obstante, el producto Delphi/400 sí que nos deja saltarnos las capas intermedias,
logrando mayor eficiencia a expensas de la pérdida de portabilidad. También está
muy difundido Btrieve, una base de datos que inicio su vida como un sistema navegacional, pero que en sus últimas versiones ha desarrollado el producto Pervasive
SQL, que es un verdadero motor de datos cliente/servidor relacional. Lamentablemente, tampoco está soportado directamente por el motor de datos de Delphi (por
el momento).
Capítulo
5
El Motor de Datos de Borland
D
ELPHI ES UN LENGUAJE DE PROPÓSITO GENERAL;
nunca me cansaré de
repetirlo. Hubo un tiempo en que se puso de moda clasificar los lenguajes
por “generaciones”, y mientras más alto el número asignado, supuestamente
mejor era el lenguaje. Pascal y C desfilaban en el pelotón de la tercera generación: los
lenguajes de “propósito general”, que venían a ser algo así como el lenguaje ensamblador de los de “cuarta generación”. Y a esta categoría “superior” pertenecían los
lenguajes de programación para bases de datos que comenzaban a proliferar en aquel
entonces.
Algo de razón había, no obstante, para evitar la programación de bases de datos con
estos lenguajes de propósito general. Y era la pobre integración de la mayor parte de
las bibliotecas de acceso a bases de datos que existían en el mercado. Sin embargo, a
partir de entonces los lenguajes tradicionales han experimentado cambios revolucionarios. En el prólogo a este libro he mencionado la introducción de la orientación a
objetos, el uso de componentes para la comunicación bidireccional y el tratamiento
de errores por medio de excepciones. Estos avances han mejorado notablemente la
integración y facilidad de uso de bibliotecas creadas por terceros.
Delphi, en particular, utiliza una arquitectura estructurada en dos niveles. En el nivel
inferior se encuentra el Motor de Datos de Borland, ó Borland Database Engine, más conocido por las siglas BDE, que es un conjunto de funciones agrupadas en bibliotecas
dinámicas (DLLs). Esta biblioteca no es orientada a objetos, no permite eventos, y
los errores se notifican del modo tradicional: un valor de retorno de la función que
falla. Pero el segundo nivel de la arquitectura se encarga de corregir estos “fallos”: el
programador de Delphi no utiliza directamente las funciones del BDE, sino por
mediación de objetos definidos en la VCL, que es la biblioteca de componentes de
Delphi.
104 La Cara Oculta de Delphi
D
E
L
P
H
I
Aplicación
VCL + VCLDB
Base de
datos
BDE
En este capítulo estudiaremos la estructura y filosofía del Motor de Datos, su instalación y configuración. No veremos, en cambio, la forma de programar con este Motor, pues en muy pocas ocasiones necesitaremos profundizar en este nivel de funcionalidad. Para terminar, mencionaremos alternativas al uso del BDE.
Qué es, y cómo funciona
Explicábamos en el capítulo anterior las diferencias entre las bases de datos de escritorios y los sistemas SQL. Debido al modelo de comunicación entre las aplicaciones y los datos, una de las implicaciones de estas diferencias es la forma en que se
implementa la navegación sobre los datos y, en consecuencia, el estilo de programación que queda determinado. Para las bases de datos de escritorio, por ejemplo, está
muy claro el concepto de posición de registro. Además, al abrirse una tabla, cuesta casi el
mismo tiempo ir al registro 10 que al 10.000. Sin embargo, para las bases de datos
SQL la posición de un registro no es una invariante: el orden de inserción es un concepto ajeno a este tipo de formato. Y, posiblemente, buscar el registro número
10.000 de una tabla tarde mil veces más que buscar el décimo registro.
Las operaciones de navegación se implementan muy naturalmente en bases de datos
de escritorio. Cuando abrimos una tabla podemos trabajar con sus registros igual que
si estuvieran situados en un vector o array; es fácil retroceder y avanzar, buscar el primero y el último. En cambio, en una base de datos SQL esta operación puede complicarse. Cuando abrimos una tabla o consulta en estos sistemas normalmente obtenemos un cursor, que puede imaginarse un tanto aproximadamente como un fichero
de punteros a registros; la implementación verdadera de los cursores depende del
sistema SQL concreto y de la petición de apertura realizada. Algunos sistemas, por
ejemplo, solamente ofrecen cursores unidireccionales, en los cuales no se permite el
retroceso.
En compensación, las bases de datos SQL permiten tratar como tablas físicas al
resultado de consultas SQL. Podemos pedir el conjunto de clientes que han comprado los mismos productos que las empresas situadas en Kamchatka, y recibir un
cursor del mismo modo que si hubiéramos solicitado directamente la tabla de clientes. Los sistemas basados en registros no han ofrecido, tradicionalmente y hasta fechas recientes, estas facilidades.
El Motor de Datos de Borland 105
Uno de los objetivos fundamentales del diseño de BDE es el de eliminar en lo posible la diferencia entre ambos estilos de programación. Si estamos trabajando con un
servidor que no soporta cursores bidireccionales, el Motor de Datos se encarga de
implementarlos en el ordenador cliente. De este modo, podemos navegar por cualquier tabla o consulta SQL de forma similar a como lo haríamos sobre una tabla de
dBase. Para acercar las bases de datos orientadas a registros a las orientadas a conjuntos, BDE ofrece un intérprete local para el lenguaje SQL.
El Motor de Datos ofrece una arquitectura abierta y modular, en la cual existe un
núcleo de funciones implementadas en ficheros DLLs, al cual se le añaden otras
bibliotecas dinámicas para acceder a los distintos formatos de bases de datos soportados. El BDE trae ya unos cuantos controladores específicos, aunque recientemente
Borland ha puesto a disposición del público el llamado Driver Development Kit (DDK)
para el desarrollo de nuevos controladores.
Controladores locales y SQL Links
Para trabajar con bases de datos locales, BDE implementa controladores para los siguientes formatos:
•
•
•
•
•
dBase
Paradox
Texto ASCII
FoxPro (a partir de Delphi 3)
Access (a partir de Delphi 3)
Los formatos anteriores están disponibles tanto para las versiones Standard, Professional o Client/Server de Delphi. Además, se pueden abrir bases de datos de InterBase Local. El servidor local de InterBase viene con las versiones Professional y
Client/Server de Delphi, pero las versiones de 32 bits de este servidor requieren el
pago de un pequeño royalty para su distribución.
El acceso a bases de datos SQL se logra mediante DLLs adicionales, conocidas como
SQL Links (enlaces SQL). Actualmente existen SQL Links para los siguientes formatos:
•
•
•
•
InterBase
Oracle
Informix
DB2 (a partir de Delphi 2)
106 La Cara Oculta de Delphi
•
•
Sybase
MS SQL Server
Los SQL Links pueden adquirirse por separado. Aunque la publicidad es algo confusa al respecto, sin embargo, no basta con instalar este producto sobre un Delphi
Professional para convertirlo en un Delphi Client/Server. Por lo tanto, si aún no ha
comprado su Delphi y tiene en mente trabajar con servidores remotos SQL, vaya
directamente a la versión cliente/servidor y no cometa el error de adquirir una versión con menos prestaciones.
Acceso a fuentes de datos ODBC
ODBC (Open Database Connectivity) es un estándar desarrollado por Microsoft que
ofrece, al igual que el BDE, una interfaz común a los más diversos sistemas de bases
de datos. Desde un punto de vista técnico, los controladores ODBC tienen una interfaz de tipo SQL, por lo cual son intrínsecamente inadecuados para trabajar eficientemente con bases de datos orientadas a registros. La especificación también tiene
otros defectos, como no garantizar los cursores bidireccionales si el mismo servidor
no los proporciona. Sin embargo, por ser una interfaz propuesta por el fabricante del
sistema operativo, la mayoría de las compañías que desarrollan productos de bases de
datos se han adherido a este estándar.
BDE permite conexiones a controladores ODBC, cuando algún formato no es soportado directamente en el Motor. No obstante, debido a las numerosas capas de
software que se interponen entre la aplicación y la base de datos, solamente debemos
recurrir a esta opción en casos desesperados. Por suerte, a partir de la versión 4.0 del
BDE que venía con Delphi 3, se han mejorado un poco los tiempos de acceso vía
ODBC.
¿Dónde se instala el BDE?
Para distribuir una aplicación de bases de datos escrita en Delphi necesitamos distribuir también el Motor de Datos. En la primera versión de Delphi se incluían los
discos de instalación de este producto en un subdirectorio del CD-ROM; solamente
había que copiar estos discos y redistribuirlos. A partir de Delphi 2, no se incluye una
instalación prefabricada del BDE, pues siempre podremos generarla mediante InstallShield, que ahora acompaña a Delphi.
En dependencia del modelo de aplicación que desarrollemos, la instalación del Motor
de Datos tendrá sus características específicas. Los distintos modelos de aplicación
son los siguientes:
El Motor de Datos de Borland 107
•
•
•
•
Aplicación monopuesto: La base de datos y la aplicación residen en el mismo ordenador. En este caso, por supuesto, también debe haber una copia del BDE en la
máquina.
Aplicación para bases de datos locales en red punto a punto: Las tablas, normalmente de
Paradox ó dBase, residen en un servidor de ficheros. La aplicación se instala en
cada punto de la red, o en un directorio común de la red, pero se ejecuta desde
cada uno de los puestos. Opcionalmente, la aplicación puede ejecutarse también
desde el ordenador que almacena las tablas. En este caso, cada máquina debe ejecutar una copia diferente del BDE. Lo recomendable es instalar el BDE en cada
puesto de la red, para evitar problemas con la configuración del Motor de Datos.
Aplicaciones cliente/servidor en dos capas8: Hay un servidor (UNIX, NetWare,
WinNT, etcétera) que ejecuta un servidor de bases de datos SQL (InterBase,
Oracle, Informix...). Las aplicaciones se ejecutan nuevamente desde cada puesto
de la red y acceden al servidor SQL a través del cliente SQL instalado en el
puesto. Nuevamente, el BDE debe ejecutarse desde cada estación de trabajo.
Aplicaciones multicapas: En su variante más sencilla (tres capas), es idéntica a la
configuración anterior, pero las estaciones de trabajo no tienen acceso directo al
servidor SQL, sino por medio de un servidor de aplicaciones. Este es un ordenador con Windows NT ó Windows 95 instalado, y que ejecuta una aplicación
que lee datos del servidor SQL y los ofrece, por medio de comunicación
OLEnterprise, TCP/IP, DCOM o CORBA, a las aplicaciones clientes. En este
caso, hace falta una sola copia del BDE, en el servidor de aplicaciones. Este modelo sólo funciona a partir de Delphi 3.
El lector se dará cuenta que estas son configuraciones simplificadas, pues una aplicación puede trabajar simultáneamente con más de una base de datos, incluso en diferentes formatos. De este modo, ciertos datos pueden almacenarse en tablas locales
para mayor eficiencia, y otros ser extraídos de varios servidores SQL especializados.
También, como veremos al estudiar la tecnología Midas, se pueden desarrollar aplicaciones “mixtas”, que combinen accesos en una, dos, tres o más capas simultáneamente.
Una de las preguntas más frecuentes acerca del BDE es la posibilidad de instalarlo en
un solo puesto de la red, con la doble finalidad de evitar la instalación en cada una de
las estaciones de trabajo y las necesarias actualizaciones cada vez que cambie la versión del motor, o alguno de los parámetros de instalación. Bien, esto es técnicamente
posible, pero no lo recomiendo. El problema consiste en que es necesario dejar una
instalación mínima en los clientes, de todos modos, además que de esta forma se
aumenta el tráfico en la red.
“Capa” es mi traducción de la palabra inglesa de moda tier (no confundir con tire). Así,
traduciré multi-tier como multicapas.
8
108 La Cara Oculta de Delphi
El Administrador del Motor de Datos
La configuración del BDE se realiza mediante el programa BDE Administrator, que se
puede ejecutar por medio del acceso directo existente en el grupo de programas de
Delphi. Incluso cuando se instala el runtime del BDE en una máquina “limpia”, se
copia este programa para poder ajustar los parámetros de funcionamiento del Motor.
Existen diferencias entre las implementaciones de este programa para Delphi 1 y 2,
por una parte, y Delphi 3 y 4, por la otra. Pero se trata fundamentalmente de diferencias visuales, de la interfaz de usuario, pues los parámetros a configurar y la forma
en que están organizados son los mismos. Para simplificar, describiré la interfaz visual del Administrador que viene con Delphi 4. La siguiente figura muestra el aspecto de este programa:
La ventana principal del Administrador está dividida en dos páginas, Databases y Configuration; comenzaremos por esta última, que permite ajustar los parámetros de los
controladores instalados y los parámetros globales de la biblioteca.
Configuración del registro e información de versión
¿Dónde se almacena la información de configuración del BDE? Resulta que se almacena en dos lugares diferentes: la parte principal se guarda en el registro de Windows,
mientras que la información de los alias y un par de parámetros especiales va en el
El Motor de Datos de Borland 109
fichero idapi32.cfg, cuya ubicación se define en el propio registro. La clave a partir de
la cual se encuentran los datos del BDE es la siguiente:
[HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine]
Por ejemplo, la cadena UseCount indica cuántos productos instalados están utilizando
el BDE, mientras que ConfigFile01 especifica el fichero de configuración a utilizar, y
DLLPath, el directorio donde están los demás ficheros del BDE.
Para saber la versión del BDE que estamos utilizando, se utiliza el comando de menú
Object|Version information, que aparece en el Administrador cuando nos encontramos
en la página Databases:
La siguiente tabla resume la historia de las últimas versiones del BDE:
BDE 4/4.01 Versión original distribuida con Delphi 3/3.01, que incluye por
primera vez el acceso directo a Access 95 y a FoxPro
BDE 4.5/4.51 Acompaña a Visual dBase 7, e introduce el nuevo formato DBF7 y
el acceso directo a Access 97
BDE 5 Acompaña a Delphi 4, e introduce el soporte para Oracle 8
110 La Cara Oculta de Delphi
El concepto de alias
Para “aplanar” las diferencias entre tantos formatos diferentes de bases de datos y
métodos de acceso, BDE introduce los alias. Un alias es, sencillamente, un nombre
simbólico para referirnos a un base de datos. Cuando un programa que utiliza el
BDE quiere, por ejemplo, abrir una tabla, sólo tiene que especificar un alias y la tabla
que quiere abrir. Entonces el Motor de Datos examina su lista de alias y puede saber
en qué formato se encuentra la base de datos, y cuál es su ubicación.
Existen dos tipos diferentes de alias: los alias persistentes y los alias locales, o de sesión.
Los alias persistentes se crean por lo general con el Administrador del BDE, y pueden utilizarse por cualquier aplicación que se ejecute en la misma máquina. Los alias
locales son creados mediante llamadas al BDE realizadas desde una aplicación, y son
visibles solamente dentro de la misma. Delphi facilita esta tarea mediante componentes de alto nivel, en concreto mediante la clase TDatabase.
Los alias ofrecen a la aplicación que los utiliza independencia con respecto al formato de los datos y su ubicación. Esto vale sobre todo para los alias persistentes,
creados con el BDE. Puedo estar desarrollando una aplicación en casa, que trabaje
con tablas del alias datos. En mi ordenador, este alias está basado en el controlador de
Paradox, y las tablas encontrarse en un determinado directorio de mi disco local. El
destino final de la aplicación, en cambio, puede ser un ordenador en que el alias datos
haya sido definido como una base de datos de Oracle, situada en tal servidor y con
tal protocolo de conexión. A nivel de aplicación no necesitaremos cambio alguno
para que se ejecute en las nuevas condiciones.
A partir de la versión 4.0 del BDE, se introducen los alias virtuales, que corresponden
a los nombres de fuentes de datos de ODBC, conocidos como DSN (data source
names). Una aplicación puede utilizar entonces directamente el nombre de un DSN
como si fuera un alias nativo del BDE.
Parámetros del sistema
Los parámetros globales del Motor de Datos se cambian en la página Configuration, en
el nodo System. Este nodo tiene a su vez dos subnodos, INIT y Formats, para los parámetros de funcionamiento y los formatos de visualización por omisión. Aunque
estos últimos pueden cambiarse para controlar el formato visual de fechas, horas y
valores numéricos, es preferible especificar los formatos desde nuestras aplicaciones
Delphi, para evitar dependencias con respecto a instalaciones y actualizaciones del
BDE. La forma de hacerlo será estudiada en el capítulo 15.
La mayor parte de los parámetros de sistema tienen que ver con el uso de memoria y
otros recursos del ordenador. Estos parámetros son:
El Motor de Datos de Borland 111
Parámetro
MAXFILEHANDLES
MINBUFSIZE
MAXBUFSIZE
MEMSIZE
LOW MEMORY USAGE LIMIT
SHAREDMEMSIZE
SHAREDMEMLOCATION
Explicación
Máximo de handles de ficheros admitidos.
Tamaño mínimo del buffer de datos, en KB.
Tamaño máximo del buffer de datos, en KB
(múltiplo de 128).
Tamaño máximo, en MB, de la memoria
consumida por BDE.
Memoria por debajo del primer MB
consumida por BDE.
Tamaño máximo de la memoria para
recursos compartidos.
Posición en memoria de la zona de recursos
compartidos
El área de recursos compartidos se utiliza para que distintas instancias del BDE,
dentro de un mismo ordenador, pueden compartir datos entre sí. Las bibliotecas de
enlace dinámico de 32 bits tienen un segmento de datos propio para cada instancia,
por lo cual tienen que recurrir a ficheros asignados en memoria (memory mapped files),
un recurso de Windows 95 y NT, para lograr la comunicación entre procesos.
Cuando se va a trabajar con dBase y Paradox es importante configurar correctamente
el parámetro LOCAL SHARE. Para acelerar las operaciones de bloqueo, BDE
normalmente utiliza una estructura en memoria para mantener la lista de bloqueos
impuestos en las tablas pertenecientes a los discos locales; esta técnica es más eficiente que depender de los servicios de bloqueo del sistema operativo. Pero solamente vale para aplicaciones que se ejecutan desde un solo puesto. La suposición
necesaria para que este esquema funcione es que las tablas sean modificadas siempre
por la misma copia del BDE. Si tenemos cinco aplicaciones ejecutándose en un
mismo ordenador, todas utilizan la misma imagen en memoria del BDE, y todas
utilizan la misma tabla de bloqueos.
Si, por el contrario, las tablas se encuentran en un disco remoto, BDE utiliza los
servicios de bloqueo del sistema operativo para garantizar la integridad de los datos.
En este caso, el Motor de Datos no tiene acceso a las estructuras internas de otras
copias del Motor que se ejecutan en otros nodos de la red. El problema surge cuando
dos máquinas, llamémoslas A y B, acceden a las mismas tablas, que supondremos
situadas en B. El BDE que se ejecuta en A utilizará el sistema operativo para los
bloqueos, pero B utilizará su propia tabla interna de bloqueos, pues las tablas se encuentran en su disco local. En consecuencia, las actualizaciones concurrentes sobre
las tablas destruirán la integridad de las mismas. La solución es cambiar LOCAL
SHARE a TRUE en el ordenador B. De cualquier manera, es preferible que en una
red punto a punto que ejecute aplicaciones para Paradox y dBase concurrentemente,
el servidor de ficheros esté dedicado exclusivamente a este servicio, y no ejecute
112 La Cara Oculta de Delphi
aplicaciones en su espacio de memoria; la única razón de peso contra esta política es
un presupuesto bajo, que nos obligue a aprovechar también este ordenador.
LOCAL SHARE=FALSE
Aplicación
LOCAL SHARE=TRUE
Aplicación
LOCAL SHARE=FALSE
Aplicación
BDE
BDE
BDE
Tablas
El otro parámetro importante de la sección INIT es AUTO ODBC. En versiones
anteriores del BDE, este parámetro se utilizaba para crear automáticamente alias en
el Motor de Datos que correspondieran a las fuentes de datos ODBC registradas en
el ordenador; la operación anterior se efectuaba cada vez que se inicializaba el Motor
de Datos. En la versión actual, no se recomienda utilizar esta opción, pues el nuevo
modo de configuración virtual de fuentes ODBC la hace innecesaria. Para activar la
visualización de alias virtuales, seleccione el comando de menú Object|Options, y marque la opción correspondiente en el cuadro de diálogo que aparece a continuación:
Parámetros de los controladores para BD locales
Para configurar controladores de bases de datos locales y SQL, debemos buscar estos
controladores en la página Configuration, bajo el nodo Configuration/Drivers/ Native.
Los parámetros para los formatos de bases de datos locales son muy sencillos; comencemos por Paradox.
Quizás el parámetro más importante de Paradox es el directorio del fichero de red:
NET DIR. Esta variable es indispensable cuando se van a ejecutar aplicaciones con
tablas Paradox en una red punto a punto, y debe contener el nombre de un directorio
de la red compartido para acceso total. El nombre de este directorio debe escribirse
en formato UNC, y debe ser idéntico en todos los ordenadores de la red; por ejemplo:
El Motor de Datos de Borland 113
\\SERVIDOR\DirRed
He recalcado el adjetivo “idéntico” porque si el servidor de ficheros contiene una
copia del BDE, podemos vernos tentados a configurar NET DIR en esa máquina
utilizando como raíz de la ruta el nombre del disco local: c:\DirRed. Incluso en este
ordenador debemos utilizar el nombre UNC. En las versiones de 16 bits del BDE,
que no pueden hacer uso de esta notación, se admiten diferencias en la letra de unidad asociada a la conexión de red.
En el directorio de red de Paradox se crea dinámicamente el fichero pdoxusrs.net, que
contiene los datos de los usuarios conectados a las tablas. Como hay que realizar
escrituras en este fichero, se explica la necesidad de dar acceso total al directorio
compartido. Algunos administradores inexpertos, en redes Windows 95, utilizan el
directorio raíz del servidor de ficheros para este propósito; es un error, porque así
estamos permitiendo acceso total al resto del disco.
Cuando se cambia la ubicación del fichero de red de Paradox en una red en la que ya
se ha estado ejecutando aplicaciones de bases de datos, pueden producirse problemas
por referencias a este fichero almacenadas en ficheros de bloqueos, de extensión lck.
Mi consejo es borrar todos los ficheros net y lck de la red antes de modificar el parámetro NET DIR..
Los otros dos parámetros importantes de Paradox son FILL FACTOR y BLOCK
SIZE. El primero indica qué porcentaje de un bloque debe estar lleno antes de proceder a utilizar uno nuevo. BLOCK SIZE especifica el tamaño de cada bloque en
bytes. Paradox permite hasta 65.536 bloques por tabla, por lo que con este parámetro
estamos indicando también el tamaño máximo de las tablas. Si utilizamos el valor por
omisión, 2048 bytes, podremos tener tablas de hasta 128MB. Hay que notar que
estos parámetros se aplican durante la creación de nuevas tablas; si una tabla existente tiene un tamaño de bloque diferente, el controlador puede utilizarla sin problema alguno.
La configuración de dBase es aún menos problemática. Los únicos parámetros dignos de mención son MDX BLOCK SIZE (tamaño de los bloques del índice) y
MEMO FILE BLOCK SIZE (tamaño de los bloques de los memos). Recuerde que
mientras mayor sea el tamaño de bloque de un índice, menor será su profundidad y
mejores los tiempos de acceso. Hay que tener cuidado, sin embargo, pues también es
más fácil desbordar el buffer en memoria, produciéndose más intercambios de páginas.
A partir de la versión 4 del BDE (Delphi 3) se ha incluido un controlador para
Access. Este controlador actúa como interfaz con el Microsoft Jet Engine, que tiene
que estar presente durante el diseño y ejecución de la aplicación. La versión del BDE
que acompañaba a Delphi 3, solamente permitía utilizar el motor que venía con
114 La Cara Oculta de Delphi
Office 95: el DAO 3.0. Si se había instalado Access 97 sobre una instalación previa
del 95 no habría problemas, pues la versión anterior se conservaba. No obstante,
desde la aparición de la versión 4.5 del BDE, que acompañaba a Visual dBase 7, se
ha incluido también el acceso mediante el motor DAO 3.5, que es el que viene con
Office 97.
Bloqueos oportunistas
Windows NT permite mejorar la concurrencia en los accesos directos a ficheros de
red introduciendo los bloqueos oportunistas. Cuando un cliente de red intenta abrir
un fichero situado en el servidor, Windows NT le asigna un bloqueo exclusivo sobre
el fichero completo. De esta manera, el cliente puede trabajar eficientemente con
copias locales en su caché, realizar escrituras diferidas, etc. La única dificultad consiste en que cuando otro usuario intenta acceder a este mismo fichero, hay que bajarle los humos al oportunista primer usuario, forzándolo a vaciar sus buffers.
Bien, resulta que esta maravilla de sistema funciona mal con casi todos los sistemas
de bases de datos de escritorio, incluyendo a Paradox. El error se manifiesta cuando
las tablas se encuentran en un Windows NT Server, y un usuario encuentra que una
tabla completa está bloqueada, cuando en realidad solamente hay un registro bloqueado por otro usuario. Este error es bastante aleatorio: el servidor NT con el que
trabajo habitualmente contiene tablas de Paradox para pruebas con miles de registros, y hasta el momento no he tenido problemas. Pero ciertas personas que conozco
han pillado este resfriado a la primera.
Para curarnos en salud, lo más sensato es desactivar los bloqueos oportunistas añadiendo una clave al registro de Windows NT Server. El camino a la clave es el siguiente:
[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\
LanManServer\Parameters]
La clave a añadir es la siguiente:
EnableOplocks: (DWORD) 00000000
Parámetros comunes a los controladores SQL
A pesar de las diferencias entre los servidores SQL disponibles, en la configuración
de los controladores correspondientes existen muchos parámetros comunes. La mayor parte de estos parámetros se repiten en la configuración del controlador y en la
de los alias correspondientes. El objetivo de esta aparente redundancia es permitir
El Motor de Datos de Borland 115
especificar valores por omisión para los alias que se creen posteriormente. Existen
no obstante, parámetros que solamente aparecen en la configuración del controlador,
y otros que valen sólo para los alias.
Todos los controladores SQL tienen los siguientes parámetros no modificables:
Parámetro
VERSION
TYPE
DLL
DLL32
Significado
Número interno de versión del controlador
Siempre debe ser SERVER
DLL de acceso para 16 bits
DLL de acceso para 32 bits
En realidad, DLL y DLL32 se suministran para el caso especial de Informix y
Sybase, que admiten dos interfaces diferentes con el servidor. Solamente en estos
casos deben modificarse estos parámetros.
La siguiente lista muestra los parámetros relacionados con la apertura de bases de
datos:
Parámetro
SERVER NAME
DATABASE NAME
USER NAME
OPEN MODE
DRIVER FLAGS
TRACE MODE
Significado
Nombre del servidor
Nombre de la base de datos
Nombre del usuario inicial
Modo de apertura: READ/WRITE ó READ ONLY
Modifíquelo sólo según instrucciones de Borland
Indica a qué operaciones se les sigue la pista
No es necesario, ni frecuente, modificar los cuatro primeros parámetros a nivel del
controlador, porque también están disponibles a nivel de conexión a una base de
datos específica. En particular, la interpretación del nombre del servidor y del nombre de la base de datos varía de acuerdo al formato de bases de datos al que estemos
accediendo. Por ejemplo, InterBase utiliza SERVER NAME, pero no DATABASE
NAME.
En los sistemas SQL, la información sobre las columnas de una tabla, sus tipos y los
índices definidos sobre la misma, se almacena también en tablas de catálogo, dentro
de la propia base de datos. Si no hacemos nada para evitarlo, cada vez que nuestra
aplicación abra una tabla por primera vez durante su ejecución, estos datos deberán
viajar desde el servidor al cliente, haciéndole perder tiempo al usuario y ocupando el
ancho de banda de la red. Afortunadamente, es posible mantener una caché en el
cliente con estos datos, activando el parámetro lógico ENABLE SCHEMA
CACHE. Si está activo, se utilizan los valores de los siguientes parámetros relacionados:
116 La Cara Oculta de Delphi
Parámetro
SCHEMA CACHE DIR
SCHEMA CACHE SIZE
SCHEMA CACHE TIME
Significado
El directorio donde se copian los esquemas
Cantidad de tablas cuyos esquemas se almacenan
Tiempo en segundos que se mantiene la caché
En el directorio especificado mediante SCHEMA CACHE DIR se crea un fichero
de nombre scache.ini, que apunta a varios ficheros de extensión scf, que son los que
contienen la información de esquema. Si no se ha indicado un directorio en el parámetro del BDE, se utiliza el directorio de la aplicación. Tenga en cuenta que si la
opción está activa, y realizamos cambios en el tipo de datos de una columna de una
tabla, tendremos que borrar estos ficheros para que Delphi “note” la diferencia.
Un par de parámetros comunes está relacionado con la gestión de los campos BLOB,
es decir, los campos que pueden contener información binaria, como textos grandes
e imágenes:
Parámetro
BLOB SIZE
BLOBS TO CACHE
Significado
Tamaño máximo de un BLOB a recibir
Número máximo de BLOBs en caché
Ambos parámetros son aplicables solamente a los BLOBs obtenidos de consultas no
actualizables. Incluso en ese caso, parece ser que InterBase es inmune a estas restricciones, por utilizar un mecanismo de traspaso de BLOBs diferente al del resto de las
bases de datos.
Por último, tenemos los siguientes parámetros, que rara vez se modifican:
Parámetro
BATCH COUNT
ENABLE BCD
MAX ROWS
SQLPASSTHRU MODE
SQLQRYMODE
Significado
Registros que se transfieren de una vez con BatchMove
Activa el uso de TBCDField por Delphi
Número máximo de filas por consulta
Interacción entre SQL explícito e implícito
Dónde se evalúa una consulta
El BDE, como veremos más adelante, genera implícitamente sentencias SQL cuando
se realizan determinadas operaciones sobre tablas. Pero el programador también
puede lanzar instrucciones SQL de forma explícita. ¿Pertenecen estas operaciones a
la misma transacción, o no? El valor por omisión de SQLPASSTHRU MODE, que
es SHARED AUTOCOMMIT, indica que sí, y que cada operación individual de
actualización se sitúa automáticamente dentro de su propia transacción, a no ser que
el programador inicie explícitamente una.
El Motor de Datos de Borland 117
MAX ROWS, por su parte, se puede utilizar para limitar el número de filas que devuelve una tabla o consulta. Sin embargo, los resultados que he obtenido cuando se
alcanza la última fila del cursor no han sido del todo coherentes, por lo que prefiero
siempre utilizar mecanismos semánticos para limitar los conjuntos de datos.
Configuración de InterBase
InterBase es el sistema que se configura para Delphi con mayor facilidad. En primer
lugar, la instalación del software propio de InterBase en el cliente es elemental: basta
con instalar el propio BDE que necesitamos para las aplicaciones Delphi. Sólo necesitamos un pequeño cambio si queremos utilizar TCP/IP como protocolo de comunicación con el servidor: hay que añadir una entrada en el ficheros services, situado en
el directorio de Windows, para asociar un número de puerto al nombre del servicio
de InterBase:
gds_db
3050/tcp
Por supuesto, también podemos tomarnos el trabajo de instalar el software cliente y
las utilidades de administración en cada una de las estaciones de trabajo, pero si usted
tiene que realizar una instalación para 50 ó 100 puestos no creo que le resulte una
opción muy atractiva.
El único parámetro de configuración obligatoria para un alias de InterBase es
SERVER NAME. A pesar de que el nombre del parámetro se presta a equívocos, lo
que realmente debemos indicar en el mismo es la base de datos con la que vamos a
trabajar, junto con el nombre del servidor en que se encuentra. InterBase utilizar una
sintaxis especial mediante la cual se indica incluso el protocolo de conexión. Por
ejemplo, si el protocolo que deseamos utilizar es NetBEUI, un posible nombre de
servidor sería:
//WILMA/C:/MasterDir/VipInfo.gdb
En InterBase, generalmente las bases de datos se almacenan en un único fichero,
aunque existe la posibilidad de designar ficheros secundarios para el almacenamiento;
es este fichero el que estamos indicando en el parámetro SERVER NAME; observe
que, curiosamente, las barras que se emplean para separar las diversas partes de la
ruta son las de UNIX. Sin embargo, si en el mismo sistema instalamos el protocolo
TCP/IP y lo utilizamos para la comunicación con el servidor, la cadena de conexión
se transforma en la siguiente:
WILMA:/MasterDir/VipInfo.gdb
Como puede comprender el lector, es mejor dejar vacía esta propiedad para el controlador de InterBase, y configurarla solamente a nivel de alias.
118 La Cara Oculta de Delphi
Hay algo importante para comprender: los clientes no deben (aunque pueden) tener
acceso al directorio donde se encuentre el fichero de la base de datos. Esto es, en el
ejemplo anterior MasterDir no representa un nombre de recurso compartido, sino un
directorio, y preferiblemente un directorio no compartido, por razones de seguridad.
La cadena tecleada en SERVER NAME es pasada por el software cliente al servicio
instalado en el servidor, y es este programa el que debe tener derecho a trabajar con
ese fichero.
Para terminar, podemos jugar un poco con DRIVER FLAGS. Si colocamos el valor
4096 en este parámetro, las grabaciones de registros individuales se producirán más
rápidamente, porque el BDE utilizará la función isc_commit_retaining para confirmar
las transacciones implícitas. Este modo de confirmación graba definitivamente los
cambios, pero no crea un nuevo contexto de transacción, sino que vuelve a aprovechar el contexto existente. Esto acelera las operaciones de actualización. También se
puede probar con el valor 512, que induce el nivel de aislamiento superior para las
transacciones implícitas, el nivel de lecturas repetibles; en el capítulo 31, donde nos
ocupamos de las transacciones, veremos en qué consiste esto del nivel de aislamiento.
Si quiere combinar ambas constantes, puede sumarlas:
512 + 4096 = 4608
El nivel de lecturas repetibles no es el apropiado para todo tipo de aplicaciones.
En concreto, las aplicaciones que tienen que estar pendientes de las actualizaciones realizadas en otros puestos no son buenas candidatas a este nivel.
Configuración de MS SQL Server
También es muy sencillo configurar un ordenador para que pueda acceder a un servidor de MS SQL Server. Aunque existe un software para instalar en cada cliente, y
que contiene herramientas de administración y consulta, basta con colocar un par de
DLLs en el directorio de sistema de Windows. Por ejemplo, si queremos utilizar
named pipes para la comunicación, necesitamos estas dos DLLs, que podemos extraer
del servidor:
ntwdblib.dll
dbnmpntw.dll
La biblioteca DB-Library de programación.
Necesaria para named pipes.
En MS SQL Server, a diferencia de InterBase, SERVER NAME representa el nombre del servidor del cual vamos a situar las bases de datos. Normalmente, este nombre coincide con el nombre del ordenador dentro del dominio, pero puede también
ser diferente. Por ejemplo, si el nombre del ordenador contiene acentos o caracteres
no válidos para un identificador SQL, la propia instalación del servidor cambia el
El Motor de Datos de Borland 119
nombre que identificará al servidor SQL para evitar conflictos. Si vamos a utilizar un
único servidor de MS SQL Server, es posible configurar SERVER NAME con el
nombre del mismo, de modo tal que quede como valor por omisión para cualquier
acceso a estas bases de datos. Una vez que hemos especificado con qué servidor
lidiaremos, hay que especificar el nombre de la base de datos situada en ese servidor,
en el parámetro DATABASE NAME.
Sin embargo, en contraste con InterBase, el controlador de MS SQL Server tiene
muchos parámetros que pueden ser configurados. La siguiente tabla ofrece un resumen de los mismos:
Parámetro
CONNECT TIMEOUT
TIMEOUT
MAX QUERY TIME
BLOB EDIT LOGGING
APPLICATION NAME
HOST NAME
DATE MODE
TDS PACKET SIZE
MAX DBPROCESSES
Significado
Tiempo máximo de espera para una conexión,
en segundos
Tiempo máximo de espera para un bloqueo
Tiempo máximo de espera para la ejecución de
una consulta
Desactiva las modificaciones transaccionales en
campos BLOB
Identificación de la aplicación en el servidor
Identificación del cliente en el servidor
Formato de fecha: 0=mdy, 1=dmy, 2=ymd
Tamaño de los paquetes de intercambio
Número máximo de procesos en el cliente
Quizás el parámetro MAX DBPROCESSES sea el más importante de todos. La
biblioteca de acceso utilizada por el SQL Link de Borland para MS SQL Server es la
DB-Library. Esta biblioteca, en aras de aumentar la velocidad, sacrifica el número de
cursores que pueden establecerse por conexión de usuario, permitiendo solamente
uno. Así que cada tabla abierta en una estación de trabajo consume una conexión de
usuario, que en la versión 6.5 de SQL Server, por ejemplo, necesita 55KB de memoria en el servidor. Es lógico que este recurso se limite a un máximo por cliente, y es
ese el valor que se indica en MAX DBPROCESSES. Este parámetro solamente
puede configurarse en el controlador, no en el alias.
Por su parte, el parámetro TDS PACKET SIZE está relacionado con la opción network packet size del procedimiento sp_configure de la configuración del servidor. Se
puede intentar aumentar el valor del parámetro para una mayor velocidad de transmisión de datos, por ejemplo, a 8192. TDS quiere decir Tabular Data Stream, y es el formato de transmisión utilizado por MS SQL Server.
120 La Cara Oculta de Delphi
Configuración de Oracle
Para configurar un cliente de Oracle, necesitamos instalar obligatoriamente el software SQL Net que viene con este producto, y configurarlo. La siguiente imagen corresponde a uno de los cuadros de diálogo de SQL Net Easy Configuration, la aplicación de configuración que acompaña a Personal Oracle para Windows 95. Los
datos corresponden a una conexión que se establece a un servidor situado en la propia máquina. Observe que la dirección IP suministrada es la 127.0.0.1.
La siguiente imagen corresponde al SQL Net Easy Configuration que acompaña a la
versión Enterprise 8. A pesar de las diferencias en formato, el procedimiento de
conexión sigue siendo básicamente el mismo:
Una vez que hemos configurado un alias con SQL Net, podemos acceder a la base
de datos correspondiente. El parámetro SERVER NAME del controlador de Oracle
se refiere precisamente al nombre de alias que hemos creado con SQL Net.
Parámetro
VENDOR INIT
NET PROTOCOL
ROWSET SIZE
Significado
Nombre de DLL suministrada por Oracle
Protocolo de red; casi siempre TNS
Número de registros que trae cada petición
El Motor de Datos de Borland 121
Parámetro
ENABLE INTEGERS
LIST SYNONYMS
Significado
Traduce columnas de tipo NUMERIC sin escala
a campos enteros de Delphi
Incluir nombres alternativos para objetos
ROWSET SIZE permite controlar una buena característica de Oracle. Este servidor,
al responder a los pedidos de registros por parte de un cliente, se adelanta a nuestras
intenciones y envía por omisión los próximos 20 registros del cursor. Así se aprovecha mejor el tamaño de los paquetes de red. Debe experimentar, de acuerdo a su red
y a sus aplicaciones, hasta obtener el valor óptimo de este parámetro.
A partir de la versión 5 del BDE, tenemos dos nuevos parámetros para configurar en
el controlador de Oracle. El primero es DLL32, en el cual podemos asignar uno de
los valores SQLORA32.DLL ó SQLORA8.DLL. Y es que existen dos implementaciones diferentes del SQL Link de Oracle para sus diferentes versiones. El segundo
nuevo parámetro es OBJECT MODE, que permite activar las extensiones de objetos
de Oracle para que puedan ser utilizadas desde Delphi.
Configuración de otros sistemas
Mencionaré a continuación algunos de los parámetros de configuración de los restantes formatos. Por ejemplo, DB2 utiliza el parámetro DB2 DSN para indicar la
base de datos con la que se quiere trabajar. Este nombre se crea con la herramienta
correspondiente de catalogación en clientes. Este es el único parámetro especial del
controlador.
Informix tiene un mecanismo similar a MS SQL Server: es necesario indicar el nombre del servidor, SERVER NAME, y el de la base de datos, DATABASE NAME.
El parámetro LOCK MODE indica el número de segundos que un proceso espera
por la liberación de un bloqueo; por omisión, se espera 5 segundos. El formato de
fechas se especifica mediante los parámetros DATE MODE y DATE
SEPARATOR.
Por último, los parámetros de conexión a Sybase son lo suficientemente parecidos a
los de MS SQL Server como para no necesitar una discusión adicional.
Creación de alias para bases de datos locales y SQL
Una vez que sabemos cómo manejar los parámetros de configuración de un controlador, es cosa de niños crear alias para ese controlador. La razón es que muchos de
los parámetros de los alias coinciden con los de los controladores. El comando de
122 La Cara Oculta de Delphi
menú Object|New, cuando está activa la página Databases del Administrador del Motor
de Datos, permite crear nuevos alias. Este comando ejecuta un cuadro de diálogo en
el que se nos pide el nombre del controlador, y una vez que hemos decidido cuál
utilizar, se incluye un nuevo nodo en el árbol, con valores por omisión para el nombre y los parámetros. A continuación, debemos modificar estos valores.
Para crear un alias de Paradox ó dBase debemos utilizar el controlador STANDARD.
El principal parámetro de este tipo de alias es PATH, que debe indicar el directorio
(sin la barra final) donde se encuentran las tablas. El parámetro DEFAULT
DRIVER especifica qué formato debe asumirse si se abre una tabla y no se suministra su extensión, db ó dbf. Note que este parámetro también existe en la página de
configuración del sistema.
Alternativas al Motor de Datos
De cualquier manera, como he explicado al principio del capítulo, BDE no es la
única forma de trabajar con bases de datos en Delphi, aunque sea la más recomendable. Si no tenemos un SQL Link para nuestra base de datos, y no queremos utilizar
una conexión ODBC, contamos con estas opciones:
•
•
Utilizar un sustituto del BDE
Utilizar componentes derivados directamente de TDataset
La primera opción va quedando obsoleta, pero era la única posibilidad en Delphi 1 y
2. Consistía en reemplazar tanto el motor de datos como las unidades de Delphi que
lo utilizaban. Demasiado radical.
La segunda posibilidad aparece con Delphi 3, y consiste en desarrollar componentes
derivados de la clase TDataset, que es la base de la jerarquía de los objetos de acceso a
datos. De esta forma, podemos seguir utilizando el BDE para otros formatos, o no
usarlo en absoluto, sin tener que cargar con el código asociado. En realidad existe
una tercera alternativa: desarrollar un SQL Link con el DDK (Driver Development Kit)
que ofrece Borland. Pero todavía no conozco ningún producto en este estilo.
El Motor de Datos de Borland 123
Existen, a nivel comercial, alternativas al BDE más o menos exitosas. Por ejemplo,
para trabajar con bases de datos de Btrieve, Regatta Systems ofrece Titan, que se
comunica directamente con el motor de datos de Btrieve. En realidad, Titan es una
suite de productos de bases de datos que ofrece también acceso directo a bases de
datos de Access y SQL Anywhere. En la misma línea se sitúa Apollo, de SuccessWare, ofreciendo acceso a bases de datos de Clipper, FoxPro y un formato nativo de
la compañía. Recuerde que Delphi 2 no permitía trabajar con FoxPro ó Access.
Algunas de estas alternativas las comercializa el propio Borland, como es el caso de
Delphi/400. Este es un conjunto de componentes que realizan acceso directo a bases
de datos en AS/400 mediante SNA. Delphi/400 está disponible a partir de Delphi 3,
pues el producto original pertenecía a una empresa francesa que lo desarrolló para
Delphi 2.
•
Fundamentos del lenguaje
• Encapsulamiento
• Herencia y polimorfismo
• Elementos de programación con Windows
• Propiedades
• Eventos
• Excepciones
• Tipos de datos de Delphi
• Técnicas de gestión de ventanas
• Los módulos de datos y el Depósito de
Objetos
Parte
Capítulo
6
Programación orientada a
objetos: encapsulamiento
S
I SE LE PREGUNTA A ALGUIEN QUE PASEA POR LA CALLE qué es la Teoría de la
Relatividad es muy posible que nos conteste: “Sí, cómo no, es muy sencillo,
todo es relativo…”. Algo parecido sucede con la Programación Orientada a
Objetos. Todos, más o menos, saben que tiene que ver con objetos. Otros pocos recitan, como un mantra incomprensible, la palabra “reusabilidad”. A veces, cuando
imparto cursos de programación, hago a los asistentes una pregunta bastante inocente: “¿Cómo convencerías a tu jefe para que cambie su lenguaje de programación
tradicional por uno orientado a objetos … comprando, por supuesto, compilador,
manuales y libros?” Y no crea, las respuestas suelen ser divertidas.
El problema de la división en módulos
Todo comienza a partir de una observación sencilla. Tenemos frente a nosotros un
listado de un programa de 5.000 líneas, y otro de 10.000 líneas. ¿Se puede decir que el
segundo listado es probablemente el doble de “complicado” que el primero? ¡No,
posiblemente es cuatro veces más “complicado”!
Precisemos ahora esta afirmación. En primer lugar, he puesto entre comillas la palabra “complicado”; la razón es que es difícil dar una definición exacta de lo que constituye la complejidad de un programa. En segundo lugar, he asumido que este hipotético programa ha sido desarrollado en un solo bloque, como en los primeros tiempos de la Informática. Esta es una suposición extrema y poco realista, pero el ejemplo nos servirá, como veremos. Mi hipótesis se puede escribir de forma matemática.
Si un programa desarrollado en este estilo obsoleto tiene n líneas de código, la “complejidad subjetiva” del mismo debe ser κn2, donde κ es una constante arbitraria. Si el
número de líneas crece al doble, la complejidad crece cuatro veces; si el número de
líneas es diez veces mayor, nos costará cien veces más esfuerzo comprender el programa.
128 La Cara Oculta de Delphi
¿Y qué pasa si dividimos el programa en dos partes aproximadamente iguales? ¿Y si
estas partes son relativamente independientes entre sí? Entonces la complejidad total
será la suma de las complejidades individuales de cada bloque:
Complejidad total = κ(n/2)2 + κ(n/2)2 = ½ κn2
¡Resulta que la complejidad total se ha reducido a la mitad después de la división!
Pero no podemos perder de vista que esta reducción ha sido posible porque hemos
dividido el programa en dos bloques relativamente independientes. Este es el problema de la división en módulos: ¿cómo fraccionar un programa en trozos cuya comunicación mutua sea la menor posible?
Los módulos en la programación estructurada
En la Programación Tradicional, nos enseñan que la forma de descomponer una
aplicación en módulos debe basarse en los algoritmos que ejecuta. Cada algoritmo se
codifica mediante un procedimiento o función. Si nuestro programa controla un
cohete que viaja a la Luna, el proceso se divide en tres subprocesos: el despegue, el
vuelo libre y el presunto aterrizaje. A su vez, el despegue se subdivide en despedirse
de los familiares, sacar al gato de la cabina, arrancar los motores y rezar ...y así sucesivamente, hasta que al descomponer un proceso nos encontremos con operaciones
tan simples como asignar algo a una variable o ejecutar una rutina del sistema operativo.
De acuerdo a esta metodología, cada algoritmo se representa mediante una función o
procedimiento, y el concepto de módulo corresponde a estos. Una rutina se comunica en dos sentidos: con la rutina que la llama y con las rutinas a las que llama, y el
canal de comunicación en ambos casos son los parámetros de la llamada. Este diseño
satisface nuestro requerimiento de tener canales de comunicación “estrechos” entre
los módulos, para garantizar su independencia, y que la reducción de complejidad sea
efectiva.
¿Cómo se puede representar la relación entre módulos concebidos bajo esta filosofía?9 Un programador ingenuo puede pensar enseguida en un diagrama de árbol, en
el cual el nodo superior representa el código inicial de la aplicación (la función main
de C/C++, o el programa principal de Pascal), del cual brotan ramas para las funciones que son llamadas desde el mismo. El árbol es estrecho, en el sentido de que de
cada nodo se derivan pocas ramas; un principio básico de estilo de programación
dice que el texto de una rutina debe caber en una pantalla. Por el contrario, estos árboles tienden a ser profundos: no hay límite en la longitud de cada rama del grafo.
9
There are more things in heaven and earth, Horatio, than are dreamt of in your philosophy.
Programación orientada a objetos: encapsulamiento 129
Sin embargo, aunque los diagramas de árbol son realmente útiles, no expresan toda la
complejidad de las relaciones que se establecen entre las rutinas. La función
DescorcharChampagne se ejecuta tanto después de un despegue exitoso, como cuando al
astronauta, ya en pleno vuelo, le anuncian una subida salarial. Si intentamos representar las llamadas en tiempo de ejecución, necesitaremos un par de nodos para la
función anterior. El esquema verdadero que muestra todas las relaciones entre rutinas es mucho más complicado.
Reusabilidad y el principio “abierto/cerrado”
Una vez que hemos logrado reducir la complejidad dentro de una aplicación mediante una adecuada descomposición en módulos, es lógico plantearse la posibilidad
de “transplantar” estos módulos a la siguiente aplicación que nos toque desarrollar.
Es algo insensato comenzar una aplicación desde cero, por lo cual, desde que existe
la Informática, se han desarrollado técnicas para ahorrarle al programador el trabajo
de reinventar la rueda una y otra vez.
La idea es que los módulos obtenidos en la descomposición explicada anteriormente,
puedan utilizarse del mismo modo que un componente electrónico. Una “pastilla”,
resistencia o transistor cumple con una tarea bien determinada dentro de un circuito,
y cuenta con una serie de patillas que sirven para conectarla con el resto de los componentes; lo que sucede dentro de la pastilla no es asunto nuestro.
Si los módulos que hemos logrado son funciones, las patillas de conexión son sus
canales de comunicación: los parámetros. En este punto se complica la analogía
electrónica, pues el uso de parámetros como medio de conexión entre módulos
obliga a la propagación de los valores de los mismos. Ahora el lector puede sorprenderse, pues si no conoce en absoluto la Programación Orientada a Objetos, le parecerá natural e inevitable esto de la propagación de valores de parámetros. Le pido,
por favor, que espere un poco para que vea cómo los objetos ofrecen una mejor alternativa al asunto.
La primera técnica para permitir la reutilización de componentes de software fue
agrupar las rutinas en bibliotecas. Para crear las bibliotecas, cada lenguaje desarrolló sus
propios mecanismos sintácticos que permitían la compilación por separado de los
130 La Cara Oculta de Delphi
módulos. En particular, Pascal adoptó, después de una larga y tortuosa evolución, las
unidades (units) como técnica de desarrollo de módulos. Posteriormente, se inventó la
metodología de los tipos de datos abstractos, que consistía básicamente en agrupar las
definiciones de tipos de datos junto a las operaciones que trabajaban con estos tipos,
y en definir axiomas para formalizar la semántica de estas operaciones. La investigación sobre tipos de datos abstractos impulsó el desarrollo de técnicas de encapsulamiento, que más tarde probaron su utilidad en la programación orientada a objetos.
Un concepto importante en el arte de la descomposición en módulos es el denominado principio abierto/cerrado (the open/closed principle). De acuerdo a este principio, los
componentes de software deben estar cerrados: actúan como cajas negras, y la única
forma de comunicación con ellos debe ser mediante los canales establecidos, que a su
vez deben tener la menor anchura de banda posible. Pero, por otra parte, deben estar
abiertos a extensiones y especializaciones, de modo que con ligeras adaptaciones
pueda utilizarse en aplicaciones imprevistas. En este sentido, las técnicas de descomposición funcional fallan. La única forma de modificar el comportamiento de una
función es a través de sus parámetros; las variaciones de comportamiento deben
estar estrictamente previstas. Es cierto que pueden utilizarse punteros a rutinas para
lograr un poco más de flexibilidad, pero esto complica aún más las cosas: aumenta el
número de parámetros necesario, ensanchándose el canal de comunicaciones con el
componente.
Llegan los objetos
Pero el verdadero fallo de la Descomposición Funcional está dado por el propio
criterio de descomposición. ¿Qué es lo que define a una aplicación? Su funcionalidad, por supuesto: las operaciones que realiza el programa. La próxima aplicación
que programemos tendrá una funcionalidad completamente diferente de la actual.
Las funciones de más bajo nivel, las que calculan logaritmos, muestran un mensaje en
el monitor y lanzan un bit por el puerto serie, sí podrán volverse a utilizar. Pero todas
las rutinas específicas del proyecto caducarán en poco tiempo. Es difícil que en el
programa que controle el descenso de un batiscafo a la Fosa de las Marianas tengamos que sacar el gato de la cabina del cohete antes de despegar ... espere ... ¿he men-
Programación orientada a objetos: encapsulamiento 131
cionado un gato? Resulta que los “objetos” o “actores” de una aplicación tienen una
altísima probabilidad de sobrevivir al proyecto: tenemos también que sacar un gato
del batiscafo antes de sumergirnos. ¿Por qué no probar entonces a utilizar los “objetos” como componentes de software básicos para la construcción de programas?
El primer paso de la Programación Orientada a Objetos no es nada espectacular:
comenzaremos por definir qué es un objeto. Y, por el momento, un objeto será para
nosotros un conglomerado de datos. Por ejemplo, un gato debe tener un nombre
(digamos, 'Sylvester'), un color de pelo (clBlack), una cola de cierta longitud (20 cm.), y
un alimento preferido (por supuesto, 'Tweety'). Cada lenguaje de programación tradicional tiene tipos de datos para almacenar datos de distintos tipos. C tiene el tipo
struct, Pascal tiene record.
Si utilizamos el tipo record de Pascal, los gatos pueden representarse mediante variables del siguiente tipo:
type
TGato = record
Nombre: string;
Color: TColor; // TColor está definido por Delphi
Cola: Integer;
Alimento: string;
end;
TGato es ahora un tipo de datos de Pascal, al igual que los predefinidos: Integer,
string, Boolean, etc. La letra T inicial es sólo un convenio de Borland para los nombres de tipos de datos. Se pueden declarar variables pertenecientes a este tipo, y utilizarlas también en parámetros:
var
Sylvester, Tom: TGato;
function LlevarGatoAlAgua(Gato: TGato): Boolean;
El acceso a las variables almacenadas en el record se realiza del siguiente modo:
function CrearGato(const Nombre: string): TGato;
begin
// Dentro de la función, Result es de tipo TGato
Result.Nombre := Nombre;
// No hay confusión: el nombre del gato tiene
// una variable de tipo TGato delante
Result.Color := clBlack;
Result.Cola := 18;
// Sylvester la tiene más larga
Result.Alimento := 'Whiskas';
end;
Sin embargo, las posibilidades de un record no van más allá de lo mostrado, mientras
que la saga de los objetos acaba de comenzar. Por esto, cambiaremos la definición
132 La Cara Oculta de Delphi
anterior, utilizando la nueva palabra reservada class. Por ahora, puede considerar a
las clases y a los registros como tipos similares; más adelante veremos que hay diferencias significativas, incluso en el formato de representación.
type
TGato = class
Nombre: string;
Color: TColor; // TColor está definido por Delphi
Cola: Integer;
Alimento: string;
end;
Necesitamos un poco de terminología. Una clase (class) es un tipo de datos definido
del modo anterior. Un objeto, o instancia (object, instance) es, hasta que puntualicemos los
temas de representación más adelante, una variable perteneciente a un tipo de clase.
Nombre, Color, Cola y Alimento serán denominados campos o atributos (fields, attributes),
aunque utilizaremos campo lo menos posible, para evitar confusiones con los campos
de las tablas de bases de datos.
El próximo paso de la Programación Tradicional sería empezar a definir funciones y
procedimientos que trabajen con este tipo de dato. También es el siguiente paso de la
Programación Orientada a Objetos, pero la forma en que se da marca la diferencia
entre estilos.
Operaciones sobre un tipo de datos: funciones
Una vez que tenemos definido el tipo de datos, tenemos que crear procedimientos y
funciones para realizar operaciones sobre las variables del tipo. Sin estas operaciones,
el tipo de datos es solamente un recipiente inanimado de datos, un muñeco de arcilla
esperando a que algún dios insufle aliento de vida en sus narices. En un lenguaje de
programación no orientado a objetos, declararíamos las funciones y procedimientos
que actúan sobre un gato en forma parecida a la siguiente:
procedure CargarGatoDesdeFichero(var Gato: TGato;
const Fichero: string);
procedure GuardarGatoEnFichero(const Gato: TGato;
const Fichero: string);
procedure CopiarGatoAlPortapapeles(const Gato: TGato);
function LlevarGatoAlAgua(const Gato: TGato): Boolean;
Normalmente, Delphi pasa los parámetros procedimientos y funciones por valor.
Esto quiere decir que la rutina cuenta con una copia local del valor o variable utilizado en la llamada, y que se pueden realizar modificaciones en el parámetro sin que
se modifique la variable original. Existen otras dos formas de traspaso de parámetros.
CargarGatoDesdeFichero pasa el parámetro del gato por referencia, lo que se indica con el
prefijo var antes del parámetro; la acción de var llega hasta el punto y coma. Delphi
Programación orientada a objetos: encapsulamiento 133
utiliza el traspaso por referencia para lograr parámetros de entrada y salida; en este
modo de traspaso se suministra al procedimiento la dirección de la variable. Los
restantes procedimientos y funciones pasan al gato como valor constante: físicamente
se pasa una dirección, pero el compilador no permite modificaciones en el parámetro. Delphi permite también declarar parámetros exclusivamente de salida, con el
prefijo out, que son utilizados en el modelo COM, pero no utilizaremos este tipo de
parámetros por ahora.
Los procedimientos definidos se utilizan como se muestra a continuación:
var
Gato: TGato;
// TGato es aquí un record
begin
CargarGatoDesdeFichero(Gato, 'C:\GARFIELD.CAT');
Gato.Alimento := 'Caviar';
CopiarGatoAlPortapapeles(Gato);
GuardarGatoEnFichero(Gato, 'C:\GARFIELD.CAT');
end;
Para completar el ejemplo, veamos cómo puede guardarse el alma inmortal de un
felino en disco y recuperarse posteriormente, utilizando las rutinas de ficheros de
Pascal:
procedure GuardarGatoEnFichero(const Gato: TGato;
const Fichero: string);
var
Txt: TextFile;
begin
AssignFile(Txt, Fichero);
Rewrite(Txt);
WriteLn(Txt, Gato.Nombre);
WriteLn(Txt, Gato.Color);
WriteLn(Txt, Gato.Cola);
WriteLn(Txt, Gato.Alimento);
CloseFile(Txt);
end;
procedure CargarGatoDesdeFichero(var Gato: TGato;
const Fichero: string);
var
Txt: TextFile;
begin
AssignFile(Txt, Fichero);
Reset(Txt);
ReadLn(Txt, Gato.Nombre);
ReadLn(Txt, Gato.Color);
ReadLn(Txt, Gato.Cola);
ReadLn(Txt, Gato.Alimento);
CloseFile(Txt);
end;
134 La Cara Oculta de Delphi
He utilizado ficheros de texto, sin preocuparme por los posibles errores; hasta que
no sepamos utilizar excepciones, no vale la pena ocuparse de este asunto. Los procedimientos de ficheros utilizados son los siguientes:
Procedimiento
AssignFile
Reset
Rewrite
ReadLn
WriteLn
CloseFile
Objetivo
Asigna un nombre a una variable de fichero.
Abre un fichero en modo de lectura.
Crea un fichero para escritura.
Lee una línea desde un fichero de texto.
Escribe una línea en un fichero de texto.
Cierra un fichero abierto.
Operaciones sobre un tipo de datos: métodos
La POO nos hace definir las funciones y procedimientos dentro de la declaración de
la clase, después de definir los campos o atributos. Un tipo record no permite declarar procedimientos dentro de su definición; por este motivo utilizamos el tipo class
para declarar los gatos. A las rutinas definidas dentro de una clase se le denominan
métodos:
type
TGato = class
Nombre: string;
Color: TColor;
Cola: Integer;
Alimento: string;
procedure CargarDesdeFichero(const Fichero: string);
procedure GuardarEnFichero(const Fichero: string);
procedure CopiarAlPortapapeles;
function LlevarAlAgua: Boolean;
end;
Las rutinas definidas para el gato han sufrido un par de transformaciones al convertirse en métodos. La primera es quizás la menos importante, pero es curiosa: la
palabra Gato ha desaparecido de los nombres; más adelante explicaré el motivo. La
segunda sí es fundamental: se ha esfumado el parámetro de tipo TGato. ¿Cómo hacemos ahora para indicar qué gato tenemos que llevar al agua? El siguiente código
muestra cómo ejecutar los nuevos métodos:
// Hay una "pequeña" mentira en este código
var
Gato: TGato;
// TGato es una clase
Programación orientada a objetos: encapsulamiento 135
begin
// … aquí falta algo …
Gato.CargarDesdeFichero('C:\GARFIELD.CAT');
Gato.Alimento := 'Caviar';
Gato.CopiarAlPortapapeles;
Gato.GuardarEnFichero('C:\GARFIELD.CAT');
end;
Ahora podemos ver que se trata “simplemente” de un truco sintáctico. En la declaración del método se ha omitido el gato pues el parámetro se asume, al estar la declaración dentro de la definición de la clase. Después, al ejecutar el método, el objeto se
indica antes que el nombre del método, separándolo por un punto, de forma similar a
la que utilizamos para acceder a los atributos. Si comparamos, línea a línea, las llamadas en el viejo y en el nuevo estilo, comprenderemos más fácilmente las equivalencias:
Gato.CargarDesdeFichero('TOM.CAT');
Gato.GuardarEnFichero('TOM.CAT');
Gato.CopiarAlPortapapeles;
CargarGatoDesdeFichero(Gato,'TOM.CAT');
GuardarGatoEnFichero(Gato, 'TOM.CAT');
CopiarGatoAlPortapapeles(Gato);
Cuando se ejecuta un método de un objeto, se dice también que el método se aplica
sobre el objeto.
La primera ventaja: nombres más cortos
¿Por qué los nombres de las operaciones son más cortos ahora? En realidad tendríamos que preguntarnos por qué eran más largos antes. Y la culpa la tienen los
ratones, ¿quién si no? Si la aplicación escrita en el estilo tradicional trabaja con gatos,
es lógico que tenga en cuenta a los ratones, y que tengamos definido un tipo TRaton:
type
TRaton = record
// …
end;
Por supuesto, los ratones también harán uso del disco duro, y existirán procedimientos CargarRatonDesdeFichero y GuardarRatonEnFichero. Si utilizamos los nombres
más cortos y cómodos, tendremos conflictos con los procedimientos correspondientes de los gatos. Apartándonos del mundo de los felinos y roedores, esta práctica
es frecuente en las bibliotecas de rutinas. Ejecute, por ejemplo, la ayuda en línea de la
interfaz del Motor de Datos de Borland, que viene con Delphi, y se encontrará con
funciones de nombres tan pintorescos como DbiOpenTable, DbiAddAlias, DbiCloseSession, etc.
En cambio, si TRaton y TGato son clases, ambas pueden declarar métodos llamados
CargarDesdeFichero. No se produce conflicto al utilizar estos métodos, pues solamente
136 La Cara Oculta de Delphi
pueden ejecutarse aplicados sobre un objeto, y en este caso el compilador tiene suficiente información para saber qué método es el necesario:
var
Jinks: TGato;
Pixie, Dixie: TRaton;
begin
Pixie.CargarDesdeFichero('ANIMAL.1');
Jinks.CargarDesdeFichero('ANIMAL.2');
Dixie.CargarDesdeFichero('ANIMAL.3');
end;
// Cargar ratón
// Cargar gato
// Cargar ratón
Esta característica de la programación orientada a objetos se conoce como sobrecarga
de métodos. En el siguiente capítulo veremos como Delphi4, siguiendo a C++, ha
introducido la directiva overload para permitir que un nombre sea compartido incluso por dos métodos de una misma clase, o por funciones y procedimientos en
general.
La implementación de un método
Hemos visto, hasta el momento, cómo se declara un método y cómo se ejecuta. Pero
no he dicho cómo implementar el cuerpo de estos métodos. Generalmente, las declaraciones de tipos de clases se realizan en la interfaz de una unit de Delphi, aunque
también se pueden definir clases internas en la sección implementation de una
unidad. En cualquier caso, el cuerpo del método se desarrolla más adelante, en la implementación de la unidad. Lo primero es indicar qué método estamos programando:
procedure TGato.GuardarEnFichero(const Fichero: string);
begin
// …
end;
Cuando se vuelve a teclear el encabezamiento del método, hay que incluir, antes del
nombre del procedimiento o función, el nombre de la clase. El motivo es evidente,
pues si tenemos la clase TRaton con un método GuardarEnFichero, tendremos dudas
sobre qué GuardarEnFichero estamos implementando.
Ya hemos visto cómo programar la grabación de los datos del gato: creamos un fichero, escribimos el nombre en la primera línea ... un momento, ¿de qué gato estamos hablando? No debemos perder de vista el hecho de que hemos perdido un parámetro, al menos aparentemente. El lector sabe que el parámetro anda por ahí, pues
corresponde al objeto sobre el cual se aplica el método. Y no se equivoca: el método
tiene un parámetro implícito, llamado Self, cuyo tipo es TGato:
procedure TGato.GuardarEnFichero(const Fichero: string);
var
Txt: TextFile;
Programación orientada a objetos: encapsulamiento 137
begin
AssignFile(Txt, Fichero);
Rewrite(Txt);
WriteLn(Txt, Self.Nombre);
WriteLn(Txt, Self.Color);
WriteLn(Txt, Self.Cola);
WriteLn(Txt, Self.Alimento);
CloseFile(Txt);
end;
Si busca la implementación anterior de GuardarGatoEnFichero verá que la diferencia
principal es que todas las apariciones de parámetro Gato han sido reemplazadas por
Self. Como es tan frecuente que dentro de un método se utilicen los atributos del
objeto activo, Delphi permite eliminar las referencias a Self y utilizar directamente los
nombres de atributos:
procedure TGato.GuardarEnFichero(const Fichero: string);
var
Txt: TextFile;
begin
AssignFile(Txt, Fichero);
Rewrite(Txt);
WriteLn(Txt, Nombre);
WriteLn(Txt, Color);
WriteLn(Txt, Cola);
WriteLn(Txt, Alimento);
CloseFile(Txt);
end;
El uso de Self es también válido para la aplicación de métodos al objeto activo. Dentro de un método de la clase TGato pueden ejecutarse instrucciones como las siguientes:
procedure TGato.DucharAlGato;
begin
if LlevarAlAgua then
CopiarAlPortapapeles;
// Realmente:
// if Self.LlevarAlAgua then Self.CopiarAlPortapapeles;
end;
Todos los métodos tienen un parámetro Self; el tipo de este parámetro es el tipo de
clase a la que pertenece el método. Así, dentro del método TRaton.CargarDesdeFichero,
Self pertenece al tipo TRaton. Insisto, una y otra vez, en que Self es un parámetro, y en
tiempo de ejecución corresponde al objeto sobre el cual se aplica el método:
Pixie.ComerQueso('Roquefort');
// El Self de ComerQueso se identifica con Pixie
Dixie.ComerQueso('Manchego');
// El Self de ComerQueso se identifica con Dixie
138 La Cara Oculta de Delphi
El estado interno de un objeto
Parece ser que la introducción de métodos en el lenguaje es un simple capricho sintáctico: simplemente se ha enfatizado el papel desempeñado por uno de los muchos
parámetros de un conjunto de funciones y procedimientos, asignándole una sintaxis
especial. No es así, por supuesto. Más adelante, cuando estudiemos la herencia y el
polimorfismo descubriremos las significativas ventajas de este pequeño cambio de
punto de vista. Pero ya podemos explicar una magnífica característica de los objetos
y métodos: nos permiten disminuir el número de parámetros necesarios en las llamadas a funciones. Y no me estoy refiriendo solamente a la transformación del objeto
en el parámetro implícito Self.
La mejor demostración práctica de la afirmación anterior la podemos encontrar
examinando alguna biblioteca de funciones convencionales que haya sido transformada en una biblioteca de clases. Y uno de los mejores ejemplos es la transformación de las funciones del Motor de Datos de Borland (BDE) por la Biblioteca de
Controles Visuales (VCL) de Delphi. Tomemos una función al azar, por ejemplo, la
función DbiOpenTable, que se utiliza para abrir una tabla directamente con el BDE;
esta es su declaración:
function DbiOpenTable(hDb: hDBIDb; pszTableName: PChar;
pszDriverType: PChar; pszIndexName: PChar;
pszIndexTagName: PChar; iIndexId: Word; eOpenMode: DBIOpenMode;
eShareMode: DBIShareMode; exltMode: XLTMode;
bUniDirectional: Bool; pOptParams: Pointer;
var hCursor: hDBICur): DBIResult;
DbiOpenTable tiene doce parámetros, de tipos diferentes. Para llamar a esta función
tenemos que recordar en qué posición se encuentra cada parámetro y cuáles son los
valores más frecuentes que se pueden utilizar. Por ejemplo, casi siempre en pOptParams se pasa el puntero nulo, nil, y en bUniDirectional, el valor False. Por los motivos
explicados, se hace muy engorroso llamar a este tipo de funciones.
El equivalente orientado a objetos de esta función es el método Open de la clase TTable. Para abrir una tabla en Delphi hacen falta las siguientes instrucciones:
Table1.DatabaseName := 'DBDEMOS';
Table1.TableName := 'EMPLOYEE.DB';
Table1.Open;
El método Open se encarga internamente de llamar a DbiOpenTable, pero en vez de
pedir los parámetros en la propia llamada, los extrae de atributos almacenados en el
objeto. Por ejemplo, el parámetro del nombre de la tabla pszTableName, se extrae del
atributo TableName. ¿Y qué sucede, digamos, con el parámetro pszIndexName? Pues
que se extrae de un atributo llamado IndexName; no hemos asignado valores a IndexName porque el valor por omisión asignado automáticamente durante la creación del
Programación orientada a objetos: encapsulamiento 139
objeto (la cadena vacía) nos vale para este ejemplo. También podemos despreocuparnos del orden de traspaso de los parámetros; el ejemplo anterior puede también
programarse como sigue10:
Table1.TableName := 'EMPLOYEE.DB';
Table1.DatabaseName := 'DBDEMOS';
Table1.Open;
Por otra parte, el valor de retorno de DbiOpenTable se guarda en un atributo interno
de TTable. Cuando queremos leer el siguiente registro directamente con el BDE,
tenemos que utilizar la función DbiGetNextRecord, cuyo primer parámetro es, precisamente, el valor retornado después de la apertura exitosa de una tabla. En cambio,
con Delphi solamente tenemos que llamar al método Next, que llamará internamente
a la función del BDE, pero que extraerá los parámetros de esta función de las variables almacenadas en el objeto.
Al agrupar los datos del objeto junto a las operaciones aplicables al mismo, hemos
logrado que estas operaciones se comporten “inteligentemente”, deduciendo la mayor parte de sus parámetros del estado interno del objeto. De esta manera, se logran unos
cuantos objetivos:
•
•
•
Se evita el pasar una y otra vez los parámetros comunes a llamadas relacionadas.
Se evita la dependencia del orden de definición de los parámetros.
Se aprovecha la existencia de valores por omisión en los atributos, para no tener
que utilizar cada vez el ancho de banda completo del canal de comunicación con
el objeto.
De todos modos, tenemos que establecer una distinción, pues no todos los parámetros son buenos candidatos a almacenarse como parte del estado interno de un objeto. Por ejemplo, el parámetro pszTableName de la función DbiOpenTable sí lo es, pues
nos puede interesar, en una llamada posterior, saber cuál es el nombre de la tabla con
la cual trabajamos. Sin embargo, no creo que sea interesante para un gato saber cuál
es el fichero del cual se extrajeron sus datos. Por esto, el método CargarDesdeFichero
de la clase TGato sigue manteniendo un parámetro.
Por último, una aclaración. He escrito anteriormente que DatabaseName, TableName e
IndexName son atributos de la clase TTable. Es inexacto: son propiedades, aunque Delphi hace todo lo posible para que creamos lo contrario. En el capítulo 9 estudiaremos qué son las propiedades; mientras tanto, piense en ellas como si fueran atributos. La abundancia de propiedades en las clases de Delphi es uno de los motivos por
En honor a la verdad, tenemos un nuevo problema: se nos puede olvidar asignar algún
atributo imprescindible para el funcionamiento del método. Cuando esto sucede, el método
debe lanzar una excepción.
10
140 La Cara Oculta de Delphi
los que escribo acerca de gatos y ratones en este capítulo y en el siguiente, en vez de
utilizar tablas, sesiones y otros objetos más “serios”.
Parámetros por omisión
Delphi 4 ha introducido una técnica que ayuda en forma complementaria a reducir el
número de parámetros “visibles” en los llamados a función. Se trata de poder especificar valores por omisión para los parámetros de un método, función o procedimiento. Estos valores se especifican durante la declaración de la rutina. Por ejemplo:
procedure TTabla.Abrir(const NombreIndice: string = '');
Si normalmente usted abre tablas sin especificar un índice, puede utilizar la siguiente
instrucción:
Tabla.Abrir;
Sin embargo, tenga en cuenta que Delphi lo traducirá internamente a:
Table.Abrir('');
Hay una serie de reglas sencillas que deben cumplirse. Entre ellas:
•
•
•
Los parámetros solamente pueden pasarse por valor o con el prefijo const. Esto
es, no se permiten valores por omisión para parámetros por referencia.
Las expresiones deben ser de tipos simples: numéricos, cadenas, caracteres,
enumerativos. Para clases, punteros e interfaces, solamente se admite nil.
Los parámetros con valores por omisión deben estar agrupados al final de la
declaración.
Público y privado
No todos los métodos y atributos de un objeto son de interés para el público en
general. Recuerde lo que decíamos, al principio del capítulo, acerca de las condiciones
necesarias para que una descomposición modular redujera efectivamente la complejidad: los módulos debían ser independientes entre sí y sus canales de comunicación
debían ser, mientras más estrechos, mejor. Si dejamos todos los atributos y métodos
de un objeto al alcance de cualquiera, las reglas de comunicación con el objeto pueden hacerse engorrosas, o imposibles de establecer.
La programación tradicional ha reconocido desde siempre la necesidad de “esconder” información a los programadores. Muchas veces esta necesidad se ha interpre-
Programación orientada a objetos: encapsulamiento 141
tado mal, como si “escondiéramos” información privilegiada que el resto del mundo
no merece conocer. El verdadero sentido de esta protección es la reducción de complejidad asociada con esta técnica. Recuerde que el primer beneficiario puede ser
usted mismo: esta semana desarrolla una magnífica colección de rutinas para manejar
el microondas desde un ordenador. Al cabo de un mes, tiene que desarrollar un programa que las utilice, pero ya no recuerda todos los detalles internos. Si la interfaz de
las rutinas contiene estrictamente la información necesaria, será más fácil para usted
utilizarlas.
El mecanismo de protección de acceso de las clases en Object Pascal es realmente un
añadido sobre el mecanismo de control de acceso existente en Pascal antes de la
POO: la división de las unidades en interfaz e implementación. Todo lo que va en la
interfaz se puede utilizar desde otra unidad; lo que se sitúa en la implementación, es
interno a la unidad. Pero las declaraciones de clases suelen colocarse en la sección de
interfaz de las unidades. Si no hacemos algo al respecto, todos los métodos y atributos declarados serán de dominio público.
Para solucionar este problema, Object Pascal permite dividir la declaración de una
clase en secciones. Cada sección comienza con una de las palabras reservadas public
ó private. En realidad, existen tres tipos adicionales de secciones: protected, published y automated, que se estudiarán más adelante. Las declaraciones de las secciones public son accesibles desde cualquier otra unidad. Por el contrario, lo que se
declara en una sección private no es accesible desde otra unidad, bajo ninguna circunstancia, aunque la declaración de la clase se encuentre en la interfaz de la unidad.
Si declaramos atributos y métodos y no hemos utilizado todavía ninguna de las palabras public o private, Delphi asume que estamos en una sección public. El siguiente ejemplo muestra una clase con secciones públicas y privadas:
type
TGato = class
private
TieneMiedoAlAgua: Boolean;
procedure LavadoConLengua;
public
Nombre: string;
Color: TColor;
Cola: Integer;
Alimento: string;
procedure CargarDesdeFichero(const Fichero: string);
procedure GuardarEnFichero(const Fichero: string);
procedure CopiarAlPortapapeles;
function LlevarAlAgua: Boolean;
end;
Puede haber varias secciones public y private en una clase, definidas en el orden que
más nos convenga. Eso sí, dentro de cada sección hay que respetar el orden siguiente: los atributos primero y después los métodos.
142 La Cara Oculta de Delphi
Las variables de objetos son punteros
En todos los ejemplos con objetos presentados hasta ahora, hemos dejado deslizar
una pequeña “imprecisión”. Esta imprecisión se debe a que, en Delphi, las variables
cuyo tipo es una clase no contienen al objeto en sí, sino un puntero al objeto.
var
Gato: TGato;
La variable Gato ocupa solamente 4 bytes, los necesarios para el puntero a un gato.
¿Dónde almacenamos entonces el nombre, el color, la longitud de la cola y el alimento preferido? La respuesta es que, para poder trabajar con esta variable, hay que
reservar memoria para el objeto en la zona de memoria dinámica de Delphi. Esta
zona se conoce como heap; la traducción literal al castellano es “montón”. En la siguiente sección veremos cómo utilizar métodos especiales, los constructores y destructores, para asignar y liberar esta memoria. Mientras el objeto no ha sido construido, la
variable tiene un valor impredecible e inválido, y no debemos hacer referencias a sus
atributos o aplicarle métodos. Es por este motivo que el siguiente ejemplo no funciona:
// Este código se ha mostrado antes
var
Gato: TGato;
begin
Gato.CargarDesdeFichero('C:\GARFIELD.CAT'); // ¡¡¡ERROR!!!
// Gato no contiene un puntero válido
// …
end;
Observe que no hace falta el operador de derreferencia de Delphi, el operador ^, para
acceder a los atributos y métodos del objeto, pues el compilador se encarga automáticamente de asumirlo.
Clases
Objetos
Variables
Puntero nulo
El hecho de que las variables de tipo clase contengan solamente el puntero al objeto
tiene una importante consecuencia: la variable no es el objeto. Parece una distinción
bizantina, pero no lo es. Dos variables de objeto pueden referirse a un mismo objeto,
Programación orientada a objetos: encapsulamiento 143
del mismo modo que en la vida real “mi gato” se refiere al mismo objeto que “Edgar”:
var
MiGato, Edgar: TGato;
begin
// Creamos un gato (ver la próxima sección)
Edgar := TGato.Create;
Edgar.CargarDesdeFichero('EDGAR.CAT');
// Asignamos Edgar a MiGato
MiGato := Edgar;
// Después de la asignacion, sigue existiendo un solo objeto
Edgar.Alimento := 'Tortilla de patatas';
// También ha cambiado el gusto culinario de mi gato
if MiGato.Alimento <> 'Tortilla de patatas' then
ShowMessage('¡¡¡IMPOSIBLE!!!');
end;
Para comprender por qué Delphi exige que todos los objetos existan en el heap y se
acceda a ellos mediante punteros, debemos conocer qué es el polimorfismo. Este concepto se estudiará en el siguiente capítulo.
Construcción y destrucción: el ciclo de la vida
En el último ejemplo de la sección anterior mostré cómo se reserva memoria para un
objeto:
Edgar := TGato.Create;
Create es un constructor predefinido por Delphi, y todas las clases pueden hacer uso
de él. En el caso de las clases creadas a partir de cero, como las que estamos examinando en este capítulo, Create no necesita parámetros. Para las clases más complejas,
como las definidas en la VCL, Create puede necesitar parámetros. En el próximo
capítulo, cuando estudiemos la herencia, volveremos a este tema.
Como se puede ver en el ejemplo, el constructor se llama como una función que
retorna el puntero a un nuevo objeto de la clase especificada. A diferencia de lo que
sucede con los métodos, la sintaxis habitual de las llamadas a constructores no es
objeto.método, sino clase.constructor; esto es comprensible, pues cuando se ejecuta el
constructor no tenemos el objeto a mano, sino que queremos crearlo.
El constructor predefinido Create, además de reservar la memoria necesaria, la inicializa automáticamente con ceros. Gracias a esto, los atributos del objeto de tipo numérico se inicializan con 0, los de tipo lógico con el valor False, las cadenas de caracteres con la cadena vacía, los valores enumerativos con el primer valor de la lista, etc.
144 La Cara Oculta de Delphi
Todas las clases cuentan también con un destructor predefinido: Destroy. Puede haber
más de un destructor por clase, a diferencia de lo que sucede en C++. Esto se explica porque Pascal no llama automáticamente a los destructores cuando un objeto
local sale de su alcance, como lo hace este lenguaje. Sin embargo, Destroy juega un
importante papel en muchos procedimientos de la VCL, por lo que en la práctica es
el destructor que siempre se utiliza.
Existe una forma alternativa de destruir un objeto: el método Free. Este método
llama al destructor Destroy de la clase, pero sólo después de verificar que el puntero
del objeto no es el puntero vacío. Se recomienda ejecutar Free para destruir objetos,
en vez de llamar directamente a Destroy, por las siguientes razones:
•
•
El código de la llamada ocupa menos espacio. Esto se explicará en el capítulo 7,
en relación con la herencia y polimorfismo.
Evitamos problemas asociados con las construcciones parciales. Al final del capítulo
11, que trata acerca de las excepciones, veremos el porqué.
Definiendo constructores y destructores
Si tenemos que crear muchos gatos en una aplicación, cada vez que lo hagamos nos
encontraremos con un gato vacío en nuestras manos. De modo que, una y otra vez,
tendremos que asignarle valores a sus atributos, aunque la cola del gato promedio sea
de 15 centímetros, y su alimento preferido sea el pescado. También se nos puede
olvidar inicializar el gato o asignarle valores inconsistentes. Por lo tanto, es deseable
disponer de un constructor que nos libre de una vez por todas de estas tediosas inicializaciones:
type
TGato = class
// Atributos
// …
// Métodos
constructor Create(const ANombre: string; AColor: TColor);
end;
Un constructor se declara en Delphi como si fuera un procedimiento más de la clase,
pero sustituyendo la palabra procedure por constructor. La declaración debe realizarse después de haber declarado los atributos de la sección; casi siempre el constructor se sitúa en la parte pública de la clase, pues un constructor privado tiene poca
utilidad. Mi constructor de gatos se llama Create por uniformidad de estilo; para las
clases simples, da lo mismo el nombre que se le dé. Pero para las clases de la VCL,
como veremos en el siguiente capítulo, el nombre es importante.
Programación orientada a objetos: encapsulamiento 145
Hemos quedado en que un constructor se ejecuta de forma similar a una función.
Pero la implementación es similar a la de un procedimiento. Además, tampoco hay
que hacer nada especial para reservar la memoria; a partir de la primera línea del
cuerpo de constructor, se asume que la memoria del objeto ya está reservada:
constructor TGato.Create(const ANombre: string; AColor: TColor);
begin
Nombre := ANombre;
Color := AColor;
Cola := 15;
Alimento := 'Pescado';
end;
El nuevo constructor se utiliza del siguiente modo:
GatoPromedio := TGato.Create('Micifuz', clInfoBk);
// clInfoBk es el color de fondo de la Ayuda de Windows 95
¿Es frecuente que los datos de un gato se extraigan de un fichero? Definamos entonces un constructor que inicialice los datos de este modo. Una clase puede tener
cuantos constructores haga falta, siempre que tengan nombres diferentes:
type
TGato = class
// …
constructor CreateFromFile(const Fichero: string);
end;
constructor TGato.CreateFromFile(const Fichero: string);
begin
CargarDesdeFichero(Fichero);
end;
Ahora, también podemos crear gatos en el siguiente estilo:
GatoConBotas := TGato.CreateFromFile('PERRAULT.CAT');
Delphi 4 ha introducido la directiva overload, que permite definir métodos,
constructores y funciones en general con el mismo nombre, siempre que el número de parámetros o sus tipos permita deducir a cuál método, constructor o
función en particular se intenta llamar. Esta directiva será estudiada en el capítulo
siguiente.
El lector se dará cuenta de que hemos dejado el método CargarDesdeFichero, por si
necesitamos hacer caso omiso de los datos de un gato y sustituirlos por los almacenados en cierto fichero. Ahora bien, también podemos utilizar el constructor sobre
un objeto ya creado; en ese caso, no se reserva la memoria del objeto, pues ya existe,
pero se ejecutan las instrucciones de inicialización:
146 La Cara Oculta de Delphi
Gato := TGato.CreateFromFile('GATO.1');
// …
Gato.CreateFromFile('GATO.2');
// ¡¡¡NUEVO!!!
Hay que tener cuidado con el último estilo de ejecución de constructores. Si el objeto
sobre el que se aplica el constructor no ha sido creado, se produce una excepción; las
excepciones se verán más adelante. Es muy fácil confundirse y llamar al constructor
sobre el objeto, como en la tercera línea del ejemplo, en vez de ejecutarlo como en la
primera línea, sobre la clase, aunque lo que pretendamos sea reservar memoria: el
compilador no va a protestar por nuestro error.
La definición de un destructor es similar a la de los constructores, excepto que la
palabra clave destructor sustituye a constructor. Las instrucciones definidas en el
destructor se ejecutan justo antes de liberar la memoria del objeto. En el próximo
capítulo seguiremos viendo ejemplos de definición de constructores y destructores.
Capítulo
7
Herencia y polimorfismo
N
ADIE COMIENZA UN PROGRAMA PARTIENDO DE CERO. En la época de la
Programación Estructurada, un programador abarrotaba la superficie de su
escritorio con bibliotecas de funciones que resolvían ciertas tareas de la
aplicación que se traía entre manos. En nuestros días, el mismo programador reúne
las bibliotecas de clases de objetos que le ofrecen la funcionalidad que necesita. Con
las técnicas analizadas en el capítulo anterior, quizás solamente necesite la mitad del
espacio en el escritorio para almacenar las cajas de los productos de software.
Pero, ¿qué pasa si los componentes de software disponibles, sean rutinas o clases, no
son exactamente lo que deseamos? Si nuestros componentes básicos son rutinas, lo
que no esté previsto en los parámetros, no se puede lograr. Y si el autor de la rutina
previó demasiado, tendremos un exceso de parámetros que dificultarán el uso normal de la misma. La solución la tiene, nuevamente, la Programación Orientada a Objetos. En el presente capítulo aprenderemos los mecanismos que disponemos para
modificar o ampliar la funcionalidad básica de una clase.
Herencia = Extensión + Especialización
La herencia es una técnica de la POO que consiste en definir una nueva clase a partir
de una clase ya existente, de modo que contenga inicialmente la misma estructura y
comportamiento de la clase base. Posteriormente, al nuevo tipo se le pueden añadir
nuevos atributos y métodos, y se puede cambiar la implementación de ciertos métodos. En Delphi, la herencia se indica sintácticamente al principio de la definición de
una clase:
type
TVentanaEdicion = class(TForm);
TVentanaEdicion es una clase que contiene exactamente los mismos atributos y métodos que TForm, la clase que representa los formularios de Delphi. La declaración
anterior es equivalente a la siguiente:
148 La Cara Oculta de Delphi
type
TVentanaEdicion = class(TForm)
end;
Una vez que hemos heredado de una clase, tenemos tres posibilidades:
•
•
•
Añadir nuevos datos al estado interno del objeto, definiendo nuevos
atributos.
Añadir nuevos métodos, extendiendo el comportamiento del objeto.
Modificar el comportamiento del objeto, redefiniendo el cuerpo de métodos
existentes.
La técnica más fácil es añadir nuevos atributos a una clase, para ampliar las capacidades de almacenamiento del objeto:
type
TVentanaEdicion = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
NombreFichero: string;
end;
En el ejemplo mostrado se añaden dos nuevos atributos: Memo1, que es un editor de
textos, y NombreDeFichero, que es una cadena preparada para almacenar el nombre del
fichero cargado en Memo1. Ambos atributos están declarados en secciones públicas.
Todo el resto de la parafernalia de la división en secciones se debe al mecanismo
empleado por el entorno de desarrollo de Delphi para la edición visual. Memo1 ha
sido añadido desde la Paleta de Componentes de Delphi, mientras que NombreDeFichero se ha tecleado directamente dentro del código fuente de la unidad.
Añadir nuevos atributos a una clase no es muy útil por sí mismo. ¿Para qué queremos
nuevos atributos que no son utilizados por los métodos existentes? O definimos
nuevos métodos que trabajen con los atributos añadidos, o modificamos los métodos
heredados para que aprovechen la información de la que ahora dispone el objeto.
Para mostrar cómo se definen nuevos métodos, definamos un método LeerFichero
que cargue el contenido de un fichero de texto en el editor, asigne el nombre al atributo NombreDeFichero y modifique, finalmente, el título de la ventana:
type
TVentanaEdicion = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
Herencia y polimorfismo 149
public
{ Public declarations }
NombreFichero: string;
procedure LeerFichero(const Nombre: string);
end;
La implementación del método se realiza como de costumbre:
procedure TVentanaEdicion.LeerFichero(const Nombre: string);
begin
Memo1.Lines.LoadFromFile(Nombre);
Memo1.Modified := False;
Caption := ExtractFileName(Nombre);
NombreFichero := Nombre;
end;
Caption es una propiedad para acceder y modificar el título de la ventana; en el capítulo anterior recomendé considerarlas, por el momento, como si fueran atributos.
Observe que tenemos acceso a Caption aunque no ha sido definida en TVentanaEdicion; está definida en TForm, y al heredar de esta clase tenemos derecho a considerar
al atributo como si fuera nuestro. Más adelante precisaremos a qué tipo de atributos
se nos otorga el derecho de acceso.
Un gato con botas sigue siendo un gato
Hay una regla en Programación Orientada a Objetos cuya importancia jamás podrá
ser exagerada: un objeto derivado de una clase puede utilizarse en cualquier lugar en
que sea aceptado un objeto de la clase original. En el Pascal original, no se podían
mezclar tipos diferentes: a una variable de tipo “manzana” no se le podía asignar un
valor de tipo “patata”. La única excepción se hacía con los valores enteros y reales: a
un real se le puede asignar un entero. Dicho con más exactitud, donde puede ir un
valor real, se puede utilizar un entero, aunque no a la inversa:
var
I: Integer;
D: Double;
begin
I := 0;
D := I + 1;
D := Sin(I);
I := D - 1;
end;
// Correcto: se asigna un entero a un real
// Correcto, aunque Sin espera un valor real
// ¡¡¡Incorrecto!!!
También se aplica la misma regla de conversión para los caracteres, el tipo Char, y las
cadenas de caracteres. Desde un punto de vista lógico, la regla puede aplicarse porque, en ambos casos, uno de los tipos es un subconjunto del otro. Este tipo de relaciones se ha representado desde siempre matemáticamente con los llamados diagra-
150 La Cara Oculta de Delphi
mas de Venn. Muestro a continuación los diagramas correspondientes a los tipos anteriores:
Reales
Cadenas de caracteres
Enteros
Caracteres
El primer diagrama informa, por ejemplo, que todos los enteros son, a la vez, valores
reales, y que existen reales que no son valores enteros.
Resulta que este tipo de situación se produce ahora con las clases derivadas por herencia. Los objetos del tipo TVentanaEdicion pueden utilizarse en cualquier contexto
en el que era válido un objeto TForm, y un objeto de clase TGatoConBotas puede sustituir a un simple TGato. Esto quiere decir que:
•
A una variable de tipo TGato se le puede asignar un objeto de tipo TGatoConBotas.
var
G: TGato;
begin
G := TGatoConBotas.Create('Pepe', clBlack);
// …
end;
•
A una rutina que tenga un parámetro de tipo TGato se le puede pasar un objeto
de tipo TGatoConBotas en ese parámetro.
procedure DucharAlGato(Gato: TGato);
begin
// …
end;
var
G: TGatoConBotas;
begin
G := TGatoConBotas.Create('Pepe', clGray);
DucharAlGato(G);
// …
end;
•
En particular, los métodos de la clase TGato tienen un parámetro Self declarado
implícitamente de tipo Gato. Pero la definición de herencia exige que incluso los
métodos heredados de su clase base por TGatoConBotas puedan aplicarse sobre
objetos de este último tipo. Este es un caso particular del ejemplo anterior.
Herencia y polimorfismo 151
Es significativo que estas asignaciones no son, realmente, conversiones de tipos,
como puede suceder con las asignaciones de enteros a variables reales. El objeto que
se asigna o se pasa como parámetro sigue manteniendo su formato original. La razón
de esta “libertad” puede comprenderse si examinamos someramente el formato de
los objetos pertenecientes a un par de clases relacionadas mediante la herencia:
Gato
Gato con Botas
Nombre
Color
Cola
Alimento
Nombre
Color
Cola
Alimento
MarcaDeBotas
Talla
Partamos del hecho de que Delphi se refiere a todos los objetos mediante punteros.
Si a una rutina que necesita un parámetro de tipo TGato le pasamos un objeto de tipo
TGatoConBotas, la rutina no notará el cambio. Cuando necesite el nombre del animal,
lo encontrará en su posición; lo mismo sucede con todos los atributos del gato común, hasta el alimento. Y también se aplica a los métodos.
En cambio, si una rutina necesita un TGatoConBotas, no se le puede pasar un gato
normal, pues cuando vaya a buscar la talla de las botas se encontrará fuera del área de
memoria del objeto. Ya sabe, fallos de protección general, tirones de pelos, grandes
dosis de café y aspirina... Por eso, el compilador no permite este tipo de sustituciones:
var
G: TGato;
GB: TGatoConBotas;
begin
G := TGatoConBotas.Create('Pepe', clSilver);
GB := G;
// …
end;
// ¡Correcto!
// ¡Incorrecto!
Al lector le puede resultar chocante que, aunque la variable G apunte a un objeto de
la clase derivada, no se permita recuperar este objeto en la variable GB. El motivo de
este tipo de prohibición se hace más claro si modificamos el código anterior del siguiente modo:
var
G: TGato;
GB: TGatoConBotas;
begin
if DayOfWeek(Date) = 1 then
// ¿Hoy es domingo?
G := TGato.Create('Pepe', clWhite)
else
G := TGatoConBotas.Create('Pepe', clWhite);
152 La Cara Oculta de Delphi
// ¡¡¡Incorrecto!!!
GB := G;
// …
end;
El compilador no puede adivinar si el programa se va a ejecutar un lunes o un fin de
semana (esto último, es siempre poco probable), de modo que no puede saber de
antemano si la última instrucción es correcta o incorrecta. Ante la duda, opta por
prohibir la asignación, aún dejando a algunos casos correctos “fuera de la ley”. Más
adelante, presentaremos los operadores is y as, que ayudan en estos casos.
Pero la consecuencia más importante, a la cual volveremos en breve es que, en
tiempo de compilación, no es posible predecir qué tipo de objeto está asociado a una
variable de clase:
var
G: TGato;
begin
if DayOfWeek(Date) = 1 then
// ¿Hoy es domingo?
G := TGatoConBotas.Create('Pepe', clWhite)
else
G := TGatoMecanico.Create('Pepe', clWhite);
G.Maullar;
// ¿Qué tipo de gato contiene G en la instrucción anterior?
end;
Solamente podemos afirmar que el objeto al cual se refiere G sabe maullar. Hay una
dualidad, entonces, cuando examinamos una variable de clase: tiene un tipo declarado para el compilador, pero el objeto al que apunta, si es que hay alguno, puede
pertenecer al tipo declarado o a cualquier tipo derivado de él.
La clase TObject
Otro aspecto de importancia en relación con la herencia es que todas las clases de
Delphi descienden, directa o indirectamente, de la clase TObject. Incluso cuando declaramos clases sin ancestros aparentes, se asume que la clase base es TObject:
type
TMiClase = class
// …
end;
… equivale a …
type
TMiClase = class(TObject)
// …
end;
TObject ofrece la funcionalidad mínima exigible a un objeto de Delphi. La mayor
parte de esta funcionalidad está dedicada a suministrar información de tipos en
tiempo de ejecución (Runtime Type Information, ó RTTI), por lo cual tendremos que
postergar un poco su estudio. Por otra parte, en la clase TObject se definen el constructor Create, el destructor Destroy y el método Free, que hemos mencionado al finalizar el capítulo anterior:
Herencia y polimorfismo 153
type
TObject = class
constructor Create;
destructor Destroy; virtual;
procedure Free;
// …
end;
procedure TObject.Free;
begin
if Self <> nil then Destroy;
end;
Como todas las clases de Delphi deben heredar directa o indirectamente de TObject,
no se definen atributos en esta clase. Un atributo definido en TObject sería heredado
por todos los demás objetos de Delphi, ocupando espacio innecesariamente.
Jerarquías de herencia
La forma más extendida de mostrar la relación de herencia entre las distintas clases
definidas en un lenguaje o biblioteca es el esquema denominado jerarquía de herencia.
En un diagrama de jerarquía, de cada clase parten líneas que la enlazan a las clases
que heredan de forma directa de ella. En Delphi, además, como todas las clases descienden de TObject, el nodo correspondiente actúa como la raíz del árbol. La siguiente
figura muestra las relaciones entre algunas clases de Delphi escogidas al azar:
TObject
TPersistent
TBitmap
TGraphic
TPicture
TMetafile
TIcon
TComponent
TControl
TWinControl
TScreen
TApplication
TGraphicControl
Expliquemos un poco quién es quién en este diagrama, examinando las bifurcaciones
mas significativas:
•
•
TObject es la base de toda la jerarquía. Incluso cuando se declara una clase sin
ancestros, TObject está detrás de la declaración.
De TPersistent descienden los tipos que Delphi puede almacenar en un fichero
dfm, y restaurar posteriormente. Casi todos los objetos de Delphi pertenecen a la
rama del árbol encabezada por TPersistent. Los objetos internos a una aplicación
creados por el programador, sin embargo, son candidatos a heredar directamente
de TObject, sin pasar por esta clase. Tal es el caso del gato, de las listas de punteros y de los flujos de datos (streams) para trabajar con ficheros.
154 La Cara Oculta de Delphi
•
•
•
Todos los componentes descienden de TComponent, que añade la posibilidad de
colocar a la clase en la Paleta de Componentes de Delphi, y poder trabajar con
sus objetos en tiempo de diseño.
Los componentes visuales descienden de TControl; el resto, son componentes no
visuales, como los relacionados con el acceso a bases de datos (TTable, TQuery,
TDatabase).
Los componentes visuales, o controles, se dividen a su vez en dos grandes ramas:
los controles de ventanas, derivados de TWinControl, y los controles gráficos, que
descienden de TGraphicControl. Los primeros controlan objetos definidos por el
sistema operativo: TEdit, TButton, TCheckBox, y las ventanas y diálogos: TForm.
Son los controles más potentes y generales, pero consumen los recursos internos
de Windows. Los controles gráficos, en cambio, son gestionados completamente
por Delphi. Consumen menos recursos, pero sufren de limitaciones, como la de
no poder recibir el foco del teclado.
Para el desarrollador de componentes de Delphi, es importante tener bien claras
estas relaciones entre clases: saber quién desciende de quién. Sin embargo, para la
programación nuestra de cada día, no hay que tomarse muy a pecho el aprendizaje de
la jerarquía de clases. Para el desarrollo de aplicaciones en Delphi, el programador
normalmente utiliza los componentes de la Paleta tal como son, sin preocuparse por
sus antecedentes. Sólo en casos especiales debe saber, por ejemplo, que tanto TTable
(tablas de bases de datos) como TQuery (consultas SQL) heredan indirectamente de
la clase TDataSet, y que si vemos en un método con un parámetro de tipo TDataSet,
puede que corresponda lo mismo a una tabla que a una consulta.
Herencia múltiple, ¿sí o no?
El modelo de herencia que hemos estudiado se conoce como herencia simple: cada
clase tiene, como máximo, un solo ancestro. En cambio, ciertos lenguajes, como
Eiffel y C++, permiten que una clase se derive de varias clases simultáneamente; a
esto se le llama herencia múltiple. La nueva clase hereda todas las características de sus
padres, y la regla de compatibilidad de tipos polimórfica permite utilizar objetos de la
clase hija en cualquier lugar en que se acepta un objeto de alguno de los ancestros.
Existe una enconada y aparentemente interminable disputa entre los partidarios (C) y
detractores (D) de la herencia múltiple. He aquí algunos de los argumentos:
D La herencia múltiple es un síntoma de un mal diseño de las relaciones entre
clases.
C Las jerarquías basadas en la herencia simple son utopías académicas.
D La implementación de la herencia múltiple por un compilador es complicada.
Herencia y polimorfismo 155
C Existen, desde hace ya bastante tiempo, implementaciones exitosas y eficientes
de lenguajes con herencia múltiple, especialmente C++.
D No está claro cuál es la mejor política a seguir cuando una clase hereda, directa o
indirectamente, otra clase más de una vez (herencia repetida). Las reglas que utiliza
C++, por ejemplo, son complicadas y difíciles de explicar (clases virtuales). Las reglas adoptadas por Eiffel son completamente diferentes y, para mi gusto, más racionales. Pero complican sobremanera la implementación y el control de tipos
por el compilador.
C (… silencio total …)
En realidad, hay dos contextos en los que surge con mayor frecuencia la necesidad de
utilizar herencia múltiple. El primero es cuando tengo una biblioteca de clases de
ventanas y otra de clases de listas. Si necesito una ventana que sea también una lista,
puedo “mezclar” ambas bibliotecas mediante la herencia múltiple. Este contexto es el
que el detractor considera un mal diseño, pero que el partidario considera una situación real y frecuente.
La otra situación sucede cuando tenemos un par de clases, una de ellas con métodos
abstractos y la otra completamente concreta. Mediante la segunda clase queremos dar
una implementación a los métodos abstractos de la primera. De la primera clase,
heredamos realmente los métodos de la “interfaz”, mientras que la segunda aporta el
código. Nadie puede negar que, correctamente planteado, éste es un enfoque elegante al diseño de clases, y Borland hace uso del mismo en su biblioteca de clases
contenedoras para C++. Ahora bien, existe una alternativa a la herencia múltiple que,
evitando los problemas asociados a esta técnica, permite mezclar definiciones abstractas de clases con implementaciones concretas: las interfaces. Antes de Delphi, el
lenguaje Java incluía este recurso. Las interfaces no se estudiarán en este capítulo.
Redefinición de métodos
Antes habíamos dicho que con la herencia lográbamos dos objetivos: añadir nuevas
características a una clase y modificar características existentes. Este segundo objetivo
es posible, fundamentalmente, gracias a la redefinición de métodos virtuales, un mecanismo que permite adaptar la implementación de un método de acuerdo al tipo de
objeto.
Para que un método pueda ser redefinido de manera efectiva, debe haber sido declarado en la clase base como método virtual, añadiendo la palabra reservada virtual
después de su declaración:
156 La Cara Oculta de Delphi
type
TAnimal = class
// …
procedure Chillar(Duracion: Word); virtual;
end;
Cuando derivemos una clase directa o indirectamente de TAnimal, tendremos la posibilidad de redefinir la implementación del método Chillar. Primero hay que anunciar
la redefinición en la declaración de la nueva clase:
type
TVaca = class(TAnimal)
// …
procedure Chillar(Duracion: Word); override;
end;
La directiva virtual ha sido sustituida por override. Si utilizamos virtual nuevamente, o no especificamos directiva alguna, el compilador no protesta, pero el efecto
logrado es completamente diferente y no tiene sentido o aplicación práctica. Tome
nota de que los parámetros en la redefinición deben ser exactamente iguales que los
del original. La implementación del método redefinido transcurre igual que para cualquier otro tipo de método:
procedure TVaca.Chillar(Duracion: Word);
begin
if Duracion <= 1 then
ShowMessage('Mu')
else
ShowMessage('Muuuu');
end;
La parte más interesante de este mecanismo de redefinición está en relación con la
posibilidad de que una variable contenga un objeto derivado del tipo con que ha sido
declarada. Como consecuencia de lo anterior, hay dos tipos relacionados con una
variable de clase:
•
•
El tipo “estático”, que es el utilizado en la declaración de la variable.
El tipo “real” o “dinámico”, que es la clase a la cual pertenece el objeto que
tiene asociado.
Cuando aplicamos un método a un objeto, utilizando la sintaxis objeto.método, tenemos
dos alternativas para decidir qué método utilizar:
•
•
Utilizar el tipo estático, el de la declaración de la variable.
Utilizar el tipo dinámico, el asociado al objeto real.
Cuando un método ha sido declarado virtual, Delphi utiliza siempre la segunda alternativa; si el método no es virtual, se aplica la primera. El uso del tipo estático puede
Herencia y polimorfismo 157
ser peligroso cuando hay redefiniciones, pues no se llama a la versión más actualizada
del método. Por eso, aunque Delphi permite crear una nueva implementación de un
método no virtual, no es recomendable. La regla de oro dice:
“Si de un método puede afirmarse con certeza que nunca será redefinido, no lo declare virtual”
Supongamos que en la clase TAnimal definimos un método con el propósito de que
la criatura pida auxilio en situaciones de peligro:
type
TAnimal = class
// …
procedure SOS;
procedure Chillar(Duracion: Word); virtual;
end;
Todos los animales pedirán ayuda mediante el alfabeto Morse: tres chillidos cortos,
una S, tres chillidos largos, una O. Como este comportamiento no va a cambiar para
las clases derivadas sucesivamente de TAnimal, no ha sido declarado virtual. La implementación de SOS, que será compartida por todo el mundo animal, es la siguiente:
procedure TAnimal.SOS;
begin
Chillar(1); Chillar(1); Chillar(1);
Chillar(2); Chillar(2); Chillar(2);
Chillar(1); Chillar(1); Chillar(1);
end;
Aunque SOS no es virtual, cuando un animal ejecuta este método se produce el sonido adecuado:
var
A: TAnimal;
begin
if Random(2) = 0 then
A := TVaca.Create('Gertrude')
else
A := TCaballo.Create('Fidel');
A.SOS;
A.Free;
end;
En la llamada a SOS se pasa el puntero al objeto en el parámetro implícito Self. Dentro de la implementación del método, Self pertenece al tipo TAnimal; si Chillar fuese
no virtual, se llamaría al método definido en esta clase, lo cual sería incorrecto. Pero
como Chillar es virtual, Delphi verifica el tipo del objeto asociado y busca la implementación adecuada: un angustioso mugido o un desesperado relincho.
158 La Cara Oculta de Delphi
A la combinación de la regla de compatibilidad entre clases relacionadas por la herencia, y la determinación del método a aplicar mediante el tipo asociado al objeto, y
no a la variable, se le denomina polimorfismo.
La Tabla de Métodos Virtuales
¿Cómo funciona el mecanismo de llamada a métodos virtuales? La idea es que cada
objeto tiene, en su espacio reservado en memoria, un campo oculto que es un puntero a una estructura denominada la Tabla de Métodos Virtuales (VMT). Todos los objetos pertenecientes a una misma clase apuntan a la misma VMT. El principio básico
es: una clase, una VMT. La figura que se muestra a continuación representa dos clases, cada una de la cual tiene dos objetos creados:
VMT 1
VMT 2
Objetos de la clase 1
Objetos de la clase 2
La Tabla de Métodos Virtuales contiene datos acerca de la clase. Aunque esta estructura es necesaria para cualquier lenguaje de programación orientado a objetos, el
formato de estos datos depende de las necesidades del lenguaje. Un lenguaje como
C++, que permite la herencia múltiple, necesita una estructura bastante compleja
para sus VMTs. En cambio, con la herencia simple el formato es mucho más sencillo.
La parte principal de las VMTs de Delphi es un vector de punteros al segmento de
código de la aplicación. Por cada método virtual hay una entrada en esta tabla. Si una
clase hereda cinco métodos virtuales, y declara tres nuevos métodos en ese estilo,
tendrá ocho punteros en su VMT. Las redefiniciones de métodos virtuales no cuentan para esta aritmética, en cambio.
El compilador asocia a cada método virtual de una clase un número entero que representa su posición en la VMT. Se cumple entonces la siguiente regla:
“Si al procedimiento Chillar se le asigna la decimoquinta posición en la VMT de
la clase TAnimal, esta posición se mantiene en cualquier clase derivada”
Supongamos que la clase TAnimal ha sido definida de esta manera:
Herencia y polimorfismo 159
type
TAnimal = class
// …
procedure Chillar(Duracion: Word); virtual;
procedure Rascarse; virtual;
end;
procedure TAnimal.Chillar(Duracion: Word);
begin
// Este código comienza en la dirección hexadecimal $00001234
// …
end;
procedure TAnimal.Rascarse;
begin
// Este código comienza en la dirección hexadecimal $00002345
// …
end;
La tabla de punteros de la VMT de la clase TAnimal tiene el siguiente formato:
$00001234
$00002345
ß La dirección del método Chillar (15)
ß La dirección del método Rascarse(16)
He asignado la decimoquinta posición a Chillar como ejemplo; recuerde que todas las
clases heredan de TObject, y que esta clase base tiene métodos virtuales definidos.
Ahora creamos la nueva clase TVaca, derivada de TAnimal:
type
TVaca = class(TAnimal)
// …
procedure Chillar(Duracion: Word); override;
procedure Rumiar; virtual;
end;
procedure TVaca.Chillar(Duracion: Word);
begin
// Este nuevo código comienza en la dirección $00003456
// …
end;
procedure TVaca.Rumiar;
begin
// Este código comienza en la dirección $00004567
// …
end;
La vaca chilla de forma diferente al chillido por omisión, e inventa aquello de rumiar
la comida y los pensamientos. Esta es la VMT de una vaca:
$00003456
$00002345
$00004567
ß La dirección del método Chillar (15)
ß La dirección del método Rascarse (16)
ß La dirección del método Rumiar (17)
160 La Cara Oculta de Delphi
Por último, supongamos que tenemos una variable Animal, de tipo TAnimal, que
puede apuntar igualmente a un objeto TVaca o a un TAnimal. La llamada a método
Animal.Chillar se compila de la siguiente manera:
“Tomar el puntero al objeto y quedarnos con el puntero a la VMT, que siempre está
al principio del objeto. Buscar en la VMT el puntero de la decimoquinta posición
y ejecutar esa rutina”
Una llamada a un método virtual ocupa, por lo tanto, más código que una llamada a
un método estático, para el cual se conoce, en tiempo de compilación, a qué dirección saltar directamente. También estas llamadas consumen más tiempo. Es por esto
que no se sigue el criterio de declarar automáticamente virtuales a todos los métodos
(lo cual sería más fácil de explicar, sin embargo). En consecuencia, muchas veces se
efectúa la llamada al método virtual desde un método estático, con el propósito fundamental de ahorrar espacio de código. Anteriormente vimos la existencia de Free y
Destroy como métodos alternativos de destruir un objeto. Una llamada a Destroy se
compila como una llamada a un método virtual, ocupando más código. La llamada a
Free ocupa menos espacio, y también ejecuta de forma indirecta a Destroy. En cambio,
debido al doble salto (primero a Free y luego a Destroy) esta última forma de llamada
requiere mas tiempo total.
Utilizando el comportamiento heredado
En la mayor parte de los casos en que se redefine un método es para realizar pequeñas mejoras y adiciones a un comportamiento ya definido. Es conveniente, por lo
tanto, poder utilizar la implementación anterior del método en el nuevo código. Para
llamar a la implementación anterior de un método se utiliza la palabra inherited
seguida del nombre del método y sus parámetros.
Esta técnica es particularmente necesaria en la redefinición de constructores y destructores. Cuando creamos un constructor en una clase nueva queremos inicializar en
primer lugar los campos que hemos heredado, ¿quién mejor que el constructor de la
clase ancestro para realizar esta tarea?
type
THumano = class(TPrimate)
public
CreditCard: string;
constructor Create(const AName, ACreditCard: string);
end;
constructor THumano.Create(const AName, ACreditCard: string);
begin
// Inicializar el nombre, cerebro, pelo y las malas pulgas
inherited Create(AName);
Herencia y polimorfismo 161
// Inicializar nuestras características exclusivamente humanas
CreditCard := ACreditCard;
end;
Ahora bien, la técnica puede utilizarse en cualquier otro tipo de método. Supongamos que hemos definido una clase que representa un círculo, con un método virtual
Dibujar al cual se le suministra como parámetro un objeto de tipo TCanvas: las superficies de dibujo de Delphi.
type
TCirculo = class
Centro: TPoint;
Radio: Integer;
// …
procedure Dibujar(ACanvas: TCanvas); virtual;
end;
procedure TCirculo.Dibujar(ACanvas: TCanvas);
begin
ACanvas.Ellipse(Centro.X – Radio, Centro.Y - Radio,
Centro.X + Radio, Centro.Y + Radio);
end;
Podemos entonces definir una rosquilla y redefinir su forma de dibujarse del siguiente modo:
type
TRosquilla = class(TCirculo)
Interior: TCirculo;
// …
procedure Dibujar(ACanvas: TCanvas); override;
end;
procedure TRosquilla.Dibujar(ACanvas: TCanvas);
begin
inherited Dibujar(ACanvas);
Interior.Dibujar(ACanvas);
end;
Sobrecarga: hay muy pocos nombre buenos
En muchas ocasiones, tenemos que efectuar operaciones que producen el mismo
resultado a partir de parámetros diferentes. El caso clásico es la creación de objetos,
pues muchas veces existe más de una forma de crear un objeto. Por ejemplo, una
fracción puede crearse especificando su numerador y su denominador, o copiarse
desde otra fracción o a partir de un número real. Hasta Delphi 3, tal clase debía definirse de este modo:
162 La Cara Oculta de Delphi
type
TFraccion = class
protected
Num: LongInt;
Den: LongWord;
public
constructor CreateFrac(Otra: TFraccion);
constructor CreateReal(AReal: Real);
constructor CreateInt(ANum: LongInt; ADen: LongWord);
end;
Sin embargo, Delphi 4 permite utilizar un mismo nombre para todas estas operaciones, con la condición primaria de que todas ellas se declaren con la nueva directiva
overload:
type
TFraccion = class
protected
Num: LongInt;
Den: LongWord;
public
constructor Create(Otra: TFraccion); overload;
constructor Create(AReal: Real); overload;
constructor Create(ANum: LongInt; ADen: LongWord); overload;
end;
La clave está en que el compilador podrá posteriormente distinguir entre ellas basándose en los argumentos que le suministremos:
var
F1, F2: TFraccion;
begin
F1 := TFraccion.Create(1);
F2 := TFraccion.Create(F1);
end;
// La antigua CreateReal
// La antigua CreateFrac
Podemos ir más allá, y mezclar el nuevo recurso del lenguaje con los parámetros por
omisión, definiendo el tercer constructor de este modo:
type
TFraccion = class
// …
constructor Create(ANum: LongInt; ADen: LongWord = 1);
overload;
end;
Ahora tenemos que tener un poco más de cuidado, al adivinar cuál constructor es el
que va a emplear el compilador:
var
F1, F2: TFraccion;
begin
F1 := TFraccion.Create(1);
// Ahora es CreateInt
Herencia y polimorfismo 163
F2 := TFraccion.Create(1.0);
end;
// La antigua CreateReal
A una clase que ya tiene un método con la directiva overload, se le puede añadir en
una clase derivada otro método por sobrecarga, siempre que el compilador pueda
distinguir entre el viejo y el nuevo método. Además, la sobrecarga de nombres no
está limitada a los métodos, sino que puede utilizarse también en procedimientos y
funciones “normales”.
SEMEJANZAS Y DIFERENCIAS
El mecanismo de métodos virtuales tiene rasgos en común con el de sobrecarga
de métodos. En ambos casos, el programador que utiliza el método especifica un
nombre que corresponde a varias implementaciones posibles, y el lenguaje debe
decidir cuál de ellas es la más apropiada. La diferencia: en el caso de los métodos
virtuales, la decisión se toma en tiempo de ejecución, basándose en el tipo del
objeto, mientras que en la sobrecarga, la decisión se toma en tiempo de compilación, tomando como base los tipos de los parámetros.
Público, protegido, privado...
En el capítulo anterior vimos que un objeto podía clasificar sus métodos y atributos
en secciones, para controlar el acceso a los mismos. Las dos secciones que conocemos son public y private; la primera otorga acceso sin restricciones al contenido
desde cualquier unidad, mientras que la segunda restringe el acceso al interior de la
unidad donde se declara el objeto. Ahora, con la introducción de la herencia, aparece
una nueva sección: protected.
Para explicar mejor el significado de esta sección, introduciré tres roles que puede
asumir un programador con respecto a una clase:
• Como implementador: Es cuando se define la clase y se implementan sus
métodos.
• Como cliente o usuario: Cuando, fuera de la implementación de los métodos de
la clase, se crean objetos pertenecientes a la misma y se trabaja con sus métodos y atributos.
• Como heredero: Cuando un programador declara una nueva clase derivada de la
clase original e implementa los nuevos métodos o redefine métodos ya existentes.
Hasta el momento, hemos considerado solamente el primer y el segundo rol. Como
implementadores, somos los autores de la clase, y tenemos acceso a cualquier sección
164 La Cara Oculta de Delphi
definida dentro de ella. Como usuarios o clientes, el lenguaje nos protege para que no
tengamos que conocer y dominar todos los recursos de la misma. Por lo tanto, se nos
limita la visibilidad a los recursos declarados en las secciones public. En el tercer
papel, necesitamos un poco más de información acerca de la implementación de la
clase, por lo cual Delphi introduce la sección protected: los recursos declarados en
esta sección son accesibles tanto para el implementador como para los herederos,
pero no para los clientes.
Métodos abstractos
¿Cómo chillan los animales? Depende, según el animal que sea. ¿Qué implementación le damos entonces al método Chillar de la clase base TAnimal? Antes hemos
definido para este método una implementación vacía. Pero Delphi nos ofrece una
alternativa: declarar el método abstracto, mediante la palabra reservada abstract:
type
TAnimal = class
// …
procedure Chillar(Duracion: Word); virtual; abstract;
end;
Un método puede declararse abstracto solamente si es también un método virtual.
Cuando intentamos ejecutar un método abstracto, se produce una excepción. Por lo
tanto, los descendientes de una clase con un método abstracto deben redefinir este
método y darle una implementación.
Los animales no existen en realidad: existen perros, gatos, vacas y, posiblemente,
marcianos; realmente, un animal es un concepto abstracto. En una jerarquía de clases
puede suceder algo similar, cuando algunas de las clases del árbol de herencia se utilizan solamente como base para la derivación de clase más concretas: TAnimal se utiliza para derivar las clases TPerro, TGato y TVaca, y no tiene sentido crear un objeto
de tipo TAnimal:
var
Animal: TAnimal;
begin
Animal := TAnimal.Create(Nombre); // ¡Esto no tiene sentido!
// …
end;
Delphi no ofrece mecanismos para “marcar” una clase como abstracta, y prohibir la
creación de instancias de la misma. C++ sí permite especificar estas restricciones,
pero esto se debe a que no permite referencias de clases ni constructores virtuales, recursos
que estudiaremos a continuación.
Herencia y polimorfismo 165
Referencias de clase
Una noche tormentosa, mientras estudiaba un viejo libro sobre artes innominables,
alguien tocó tres veces en la puerta entreabierta de mi estudio y entró sin esperar mi
permiso. Era un personaje extraño, con la cara cubierta por la sombra de una gran
gorra de béisbol y un fuerte olor a azufre en la bufanda de cierto club de fútbol que
envolvía su cuello. Se presentó con un nombre que he olvidado, y dijo ser un “Programador No Tradicional”. Abrió un ordenador portátil, con una copia al parecer sin
registrar de Delphi, y cargó una rara aplicación. El proyecto contenía un único formulario con un botón cuyo título sonaba a invitación: “¡Púlsame!”. El código asociado era algo así:
procedure TForm1.Button1Click(Sender:
var
Ed: TEdit;
Cb: TComboBox;
begin
if Random(2) = 0 then
begin
Ed := TEdit.Create(Self);
Ed.Left := Random(ClientWidth Ed.Top := Random(ClientHeight Ed.Parent := Self;
end
else
begin
Cb := TComboBox.Create(Self);
Cb.Left := Random(ClientWidth Cb.Top := Random(ClientHeight Cb.Parent := Self;
end;
end;
TObject);
Ed.Width);
Ed.Height);
Cb.Width);
Cb.Height);
El método, aparentemente, creaba aleatoriamente cuadros de edición y combos, y los
repartía desordenadamente por la superficie de la ficha. La última asignación de cada
rama, tenía el propósito de hacer visible el objeto recién creado. “Mal código” - le
dije al intruso, cuando desvié la mirada del monitor. Una mueca con pretensiones de
sonrisa desfiguró lo poco que se veía de su rostro: “Ya lo sé, enano”. Acto seguido
comenzó a teclear pausadamente y cambió el código anterior por este otro:
procedure TForm1.CrearControl(ACtrl: TWinControl);
begin
ACtrl.Left := Random(ClientWidth - ACtrl.Width);
ACtrl.Top := Random(ClientHeight - ACtrl.Height);
ACtrl.Parent := Self;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Random(2) = 0 then
CrearControl(TEdit.Create(Self))
166 La Cara Oculta de Delphi
else
CrearControl(TComboBox.Create(Self));
end;
Tuve que admitir que ahora el método tenía mejor pinta. El personaje había reconocido que tanto el editor como el combo tenían un antepasado común, TWinControl, y
que las propiedades que se asignaban por separado en las dos ramas de la instrucción
if, estaban definidas desde esa clase. Por lo tanto, había extraído el “factor común” y
lo había encapsulado en el método CrearControl. Pero mi visitante no había terminado: “Ingenioso, pero nada extraordinario. Hasta aquí nos deja llegar tu polimorfismo. Más allá de esto, ¿hasta dónde puedes llegar hoy?” Y el vaho a azufre aumentó
su intensidad.
No soporto que me llamen gallina. Lo que este individuo quería era una versión de
CrearControl que trabajase con el tipo del nuevo control, no con el objeto ya creado. El
problema se reducía entonces a suministrar un parámetro al método que pudiera
contener la clase, no un objeto de la clase. Cuando un parámetro o variable se declara
de tipo TWinControl, los valores que toma son objetos de esta clase o de clases derivadas. Y lo que queremos es un parámetro cuyos valores puedan ser TButton, TEdit y
TCheckBox, aunque no TPrinter; los tres primeros valores de clases descienden de
TWinControl, mientras que el último no.
Delphi añade al repertorio de recursos de la Programación Orientada a Objetos los
tipos llamados referencias de clases. El tipo necesario en el ejemplo anterior ya está declarado en la VCL del siguiente modo:
type
TWinControlClass = class of TWinControl;
Otras referencias de clase definidas en la VCL son las siguientes:
type
TClass = class of TObject; // La referencia de clase más general
TComponentClass = class of TComponent;
TControlClass = class of TControl;
TFormClass = class of TForm;
Físicamente, las variables de este tipo almacenan punteros a Tablas de Métodos Virtuales; como hemos visto, estas tablas identifican unívocamente a las clases. A una
variable cuyo tipo es una referencia de clase, se le puede asignar tipos de clases derivadas de la clase inicial, incluyendo a esta misma:
var
WC: TWinControlClass;
begin
WC := TButton;
// Bien: TButton desciende de TWinControl
WC := TEdit;
// También correcto
WC := TWinControl; // Correcto, evidentemente
Herencia y polimorfismo 167
WC := TGato;
// …
end;
// Incorrecto: el compilador protesta
Cuando tenemos una variable o un parámetro que es una referencia de clase, podemos utilizarlo en cualquier instrucción donde sea correcto utilizar la clase base de la
definición. El único contexto en que hemos utilizado el tipo de la clase, hasta el momento, es durante la llamada a los constructores:
var
WC: TWinControlClass;
W: TWinControl;
begin
WC := TButton;
W := WC.Create(Self);
// Equivalente a:
// W := TButton.Create(Self);
// …
end;
Por lo tanto, gané mi apuesta con el desconocido escribiendo el siguiente método:
procedure TForm1.CrearControl(ACtrlClass: TWinControlClass);
begin
with ACtrlClass.Create(Self) do
begin
Left := Random(Self.ClientWidth - Width);
Top := Random(Self.ClientHeight - Height);
Parent := Self;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
MAX = 4;
OfertaDelMes: array [0..MAX-1] of TWinControlClass
= (TEdit, TComboBox, TCheckBox, TRadioButton);
begin
CrearControl(OfertaDelMes[Random(MAX)]);
end;
Constructores virtuales
Para que el ejemplo de la sección anterior funcionase, me hizo falta aprovechar un
detalle acerca de los constructores de componentes que no mencioné: para los componentes de Delphi, derivados de la clase TComponent, el constructor Create es un
constructor virtual. Delphi permite tanto los constructores virtuales como los constructores estáticos, que es el tipo de constructor frecuentemente encontrado en otros
lenguajes de programación (léase C++).
168 La Cara Oculta de Delphi
Realmente, los constructores virtuales solamente tienen sentido cuando el lenguaje
permite referencias de clases. La razón de la existencia de constructores virtuales es
la misma que la de la existencia de métodos virtuales: una referencia de clase puede
contener un puntero a la VMT de la clase declarada estáticamente, o un puntero a
una VMT de una clase derivada. Por lo tanto, se produce la misma dualidad. Si WC
pertenece al tipo TWinControlClass, pero contiene una clase diferente, derivada de
TWinControl. Cuando se ejecute la instrucción WC.Create(Self), ¿qué constructor se
invoca, el de TWinControl o el perteneciente a la clase real asociada? Si el constructor
Create de TWinControl es virtual, se llama al constructor correcto, pero si no es virtual
se llama al constructor original.
La clase TComponent introduce un constructor Create virtual. Su declaración es la siguiente:
constructor TComponent.Create(AOwner: TComponent); virtual;
Del mismo modo que con los métodos virtuales, al redefinir un constructor virtual
debemos utilizar los mismos parámetros que en el ancestro. De aquí que el constructor de todos los componentes de Delphi tenga, precisamente, esos parámetros.
La VMT de una clase almacena el puntero a la implementación de sus constructores
virtuales, igual que si fueran métodos virtuales “normales”.
Información de tipos en tiempo de ejecución
Una vez que las referencias de clase se convierten en ciudadanos normales en nuestro lenguaje de programación, es fácil incluir mecanismos para obtener información
acerca de las clases de los objetos en tiempo de ejecución. El operador is, por ejemplo, permite conocer si un objeto pertenece a cierta clase, o si su clase se deriva por
herencia de la misma:
if ActiveControl is TButton then
// …
El operador as permite realizar una conversión de tipo en tiempo de ejecución con
verificación previa. Este operador, en contraste con is, no devuelve un valor lógico,
sino un puntero a un objeto del tipo especificado en el segundo parámetro. Se puede
utilizar de cualquiera de las siguientes formas:
(ActiveControl as TButton).Click;
// …
Herencia y polimorfismo 169
with Sender as TEdit do
begin
Text := IntToStr(Date);
if Visible then SetFocus;
end;
El operador as se puede descomponer en instrucciones más simples. La primera
instrucción del ejemplo anterior es equivalente a la siguiente secuencia de instrucciones:
if ActiveControl is TButton then
TButton(ActiveControl).Click
else
raise EInvalidCast.Create('Invalid type cast');
La última instrucción lanza una excepción; las excepciones se tratan más adelante. Esta
instrucción aborta la ejecución de las instrucciones que deberían seguir, en orden
lógico, a la actual.
Si alguien me preguntase por las cosas que me molestan, incluiría sin vacilar a los
programadores que escriben cosas como la siguiente:
if Objeto is TYoQueSe then
with Objeto as TYoQueSe do
begin
// …
end;
Los programas escritos en este estilo aumentan las ventas de hardware. Mi estimado
programador, ¿qué necesidad hay de utilizar as si ya sabemos con toda certeza que
Objeto pertenece a la clase TYoQueSe? Cambie a las siguientes instrucciones, y sus
usuarios se lo agradecerán:
if Objeto is TYoQueSe then
with TYoQueSe(Objeto) do
Para obtener la referencia de la clase a la cual pertenece un objeto, se utiliza la función ClassType, definida por la clase TObject:
function TObject.ClassType: TClass;
La siguiente función devuelve un componente del mismo tipo que el pasado como
parámetro:
function Clonar(Component: TComponent): TComponent;
begin
Result := TComponentClass(Component.ClassType).Create(
Component.AOwner);
end;
170 La Cara Oculta de Delphi
Hay que tener cuidado de no confundir el resultado de estas instrucciones:
if
//
if
//
ActiveControl.ClassType = TButton then …
Pregunta si el control activo es un botón
ActiveControl is TButton then …
También es cierto si su clase desciende de TButton
Métodos de clase
Otro recurso del lenguaje que utiliza las referencias a clase son los métodos de clase. Un
método de clase se programa como un método “normal”, pero con la palabra reservada class al principio de la declaración.
type
TBurocrata = class(TPrimate)
// …
constructor Create(const ANombre, ACargo: string);
destructor Destroy; override;
class function Cantidad: Integer;
end;
La función Cantidad debe contar la cantidad de burócratas existentes en el sistema.
Esta función no debe diseñarse como un método más de la clase, porque para conocer cuantos burócratas contaminan nuestro entorno tendríamos que tener uno de
estos objetos a mano. Una alternativa es definir una función global, de las de toda la
vida. Pero queremos contar, además de los burócratas, los objetos de tipo TDiaDePrimavera. Y no quiero volver a los días en que mis funciones se llamaban así:
function CantidadBurocratas: Integer;
function CantidadDiasDePrimavera: Integer;
Los métodos de clase se aplican a una referencia de clase, en vez de a un objeto de la
clase:
if TBurocrata.Cantidad > 0 then
ShowMessage('¡Demasiados!');
Si tenemos un objeto también podemos utilizarlo, pues Delphi extrae primeramente
su referencia de clase y luego aplica el método de clase indicado:
ShowMessage(IntToStr(PedroPerez.Cantidad));
// Equivalente a la instrucción:
ShowMessage(IntToStr(PedroPerez.ClassType.Cantidad));
Para implementar la función de clase utilizaré una variable global declarada en la
implementación de la unidad donde se define la clase. Esta variable se debe incrementar en cada ejecución del constructor y decrementar cuando se llame al destructor:
Herencia y polimorfismo 171
var
CantidadInterna: Integer = 0;
constructor TBurocrata.Create;
begin
inherited Create(ANombre);
Cargo := ACargo;
Inc(CantidadInterna);
end;
destructor TBurocrata.Destroy;
begin
Dec(CantidadInterna);
inherited Destroy;
end;
class function TBurocrata.Cantidad;
begin
Result := CantidadInterna;
end;
A diferencia de lo que ocurre con los métodos normales, el parámetro predefinido
Self no se refiere a un objeto de la clase, sino a la referencia de clase misma. Esto
quiere decir que dentro de la función Cantidad de la clase TBurocrata, el parámetro Self
no es de tipo TBurocrata, sino de tipo class of TBurocrata. Este parámetro no se ha
aprovechado en el ejemplo anterior.
Hay toda una lista de métodos de clase disponibles desde la clase TObject. Estos son:
class
class
class
class
class
class
class
class
class
function
function
function
function
function
function
function
function
function
ClassInfo: Pointer;
ClassName: ShortString;
ClassNameIs(const Nombre: string): Boolean;
ClassParent: TClass;
InheritsFrom(AClass: TClass): Boolean;
InitInstance(Objeto: Pointer): TObject;
InstanceSize: LongInt;
MethodAddress(const Nombre: ShortString): Pointer;
MethodName(Direccion: Pointer): ShortString;
Sin embargo, ClassType no es método de clase pues solamente puede aplicarse a instancias de objetos, no a referencias de clase.
Capítulo
8
Elementos de programación con
Windows
U
NO DE LOS PRINCIPALES PROBLEMAS que
afrontan los nuevos programadores de Delphi es el comprensible desconocimiento de la arquitectura básica del sistema operativo en que programan. Y digo “comprensible” pues,
además de las dificultades técnicas inherentes al sistema, la documentación asociada
es voluminosa, oscura y de difícil acceso. Hasta los tratados de alquimia son más
legibles.
Es imposible cubrir incluso los rasgos generales de la interfaz de programación de
aplicaciones y sus conceptos fundamentales en un solo capítulo. No obstante, intentaré mencionar las ideas principales y la terminología básica necesaria para un programador de Delphi. Recomiendo encarecidamente al lector que profundice en estos
temas, si es que quiere llegar a dominar verdaderamente la programación para esta
familia de sistemas operativos.
Si me necesitas, ¡llámame!
En los buenos viejos tiempos de MS-DOS, cuando cuatro millones y pico de ciclos
por segundo era una velocidad vertiginosa y un disco duro de 20 megas un lujo
oriental, bastaba con estudiarse la interfaz de la interrupción 21 (que era en realidad
la 33 decimal) y un par de trucos con la BIOS para alcanzar el honorable título de
hacker. Esta interfaz ofrecía servicios para el sistema de archivos, entrada y salida
básica, y poco más. ¿Ratón, para qué, si sólo algunos afortunados tienen uno? ¿Gráficos?, ¡bah, por favor, esas son chorradas! ¿Multitarea, animación y sonido, comunicaciones, redes, Internet...? No son horas de andar bebiendo, Ian.
Así que ahora tenemos miles de funciones para aprender, con sus respectivas
subfunciones, en vez de los pocos cientos que teníamos en MS-DOS. Pero lo que
realmente complica la programación en Windows es el carácter bidireccional de la comunicación entre las aplicaciones y el sistema operativo. Antes, la relación de la aplicación (y en consecuencia del programador) con la interfaz del sistema operativo se
174 La Cara Oculta de Delphi
reducía a que solamente la primera podía “dictar órdenes” al último: abre tal fichero,
muévete al vigésimo segundo byte, lee cinco bloques, cierra el fichero... Estas “órdenes” se producían al ejecutar las funciones o interrupciones de la interfaz de programación. Si el sistema operativo tenía algo que decir, tenía que aprovechar el retorno
de las funciones, para protestar por los malos tratos: la protesta tenía lugar en forma
síncrona.
MS-DOS
Aplicación
Windows
S.O.
Aplicación
S.O.
Ahora, sin embargo, puedo pedirle a Windows: “oye, dibuja esta ventana”, y darme la
vuelta, pero lo más probable es que Windows me toque en el hombro y me pregunte
insolentemente: “¿me puedes decir cómo?”. Con esto quiero decir que el sistema
operativo también puede llamar a funciones definidas dentro de la aplicación. Piense,
por ejemplo, en cómo Windows nos permite dibujar el interior de una ventana, poniéndose en el papel de los desarrolladores del sistema operativo. Usted deja que una
aplicación dibuje en el área interior de la ventana. Estupendo. Ahora el sistema operativo presenta un mensaje al usuario en un cuadro de dialogo que aparece sobre el
área de dibujo. Al cerrar el cuadro de diálogo, ¿cómo restauramos el contenido original del rectángulo? Si almacenamos el mapa de bits como regla general, pronto nos
veríamos con problemas de memoria; si no me cree, saque cuentas. La solución de
Windows es dejar que sea la propia aplicación quien se encargue de estos detalles, y
para eso necesita que la función que dibuja, que está dentro de la aplicación, pueda
ser ejecutada cuando Windows lo necesite, fuera de la secuencia de ejecución original
prevista por el programador.
Las funciones y procedimientos definidas por el programador para ser ejecutadas
directamente por el sistema operativo reciben el nombre de funciones de respuesta (callback functions).
¿Qué es una ventana?
Evidentemente, para un arquitecto y un ladrón una ventana trae asociaciones mentales diferentes. Un usuario de Windows, posiblemente pensará que una ventana es
“esa cosa con barra de título, tres iconos en una esquina, que se puede mover, ampliar, reducir o ignorar”. Bueno, eso es cierto, nuestro usuario está pensando en una
ventana solapada (overlapped window), pero para Windows muchos otros objetos son
también ventanas. Por ejemplo, un simple botón. O una casilla de verificación aislada.
Elementos de programación con Windows 175
En realidad, una ventana es un objeto interno del sistema operativo, que se responsabiliza del dibujo de una zona rectangular del monitor11, y que puede recibir mensajes (más adelante veremos qué son) de Windows. Estos objetos pueden ser manejados internamente por el sistema, pero también por el programador. Este último
identifica siempre a una ventana mediante un handle, que es un valor numérico. El
motivo fundamental es que, al residir el objeto dentro del espacio de memoria del
sistema operativo, no es conveniente, y en ocasiones es imposible, suministrarle al
programador el puntero directo al objeto. El handle representa verdaderamente una
entrada dentro de una tabla; dado un handle, Windows busca en la tabla y encuentra
en la entrada asociada el puntero real al objeto. Los handles se utilizan, además, como
identificación de muchos otros objetos de Windows que no son precisamente ventanas: ficheros, semáforos, procesos, hilos, etc. En Delphi pueden almacenarse genéricamente en variables de tipo THandle.
Clases de ventana
¿Por qué entonces el aspecto visual de las ventanas es tan diferente, y por qué tienen
comportamientos tan disímiles? La clave es que cada ventana pertenece a una clase de
ventana, y que esta clase determina globalmente cómo se dibuja y cómo responde a
las acciones del usuario y del sistema operativo. Las clases se identifican por medio
de cadenas de caracteres. Por ejemplo, la clase predefinida de botones se denomina
BUTTON. Este nombre de clase es el que hay que suministrar a la función de
Windows que crea ventanas.
Las clases de ventanas deben registrarse antes de crear objetos pertenecientes a las
mismas. Antes, en Windows 16, se utilizaba el método RegisterClass; ahora hay un
nuevo método, RegisterClassEx, que es el que debemos llamar.
procedure RegisterClassEx(const WndClass: TWndClassEx);
El tipo TWndClassEx tiene la declaración que se muestra a continuación:
type
TWndClassEx = packed record
cbSize: UINT;
style: UINT;
lpfnWndProc: TFNWndProc;
cbClsExtra: Integer;
cbWndExtra: Integer;
hInstance: HINST;
hIcon: HICON;
hCursor: HCURSOR;
No es estrictamente necesario que una ventana sea rectangular. La función SetWindowRgn,
de Windows 95 y NT, permite que la forma de una ventana sea una elipse, un polígono o
cualquier otra figura que nos dicte nuestra imaginación.
11
176 La Cara Oculta de Delphi
hbrBackground: HBRUSH;
lpszMenuName: PAnsiChar;
lpszClassName: PAnsiChar;
hIconSm: HICON;
end;
El nombre de la clase que queremos registrar se asigna al campo lpszClassName. He
mostrado la declaración de TWndClassEx para que el lector pueda hacerse una idea
de las características que definen a una clase de ventana: un conjunto de indicadores
de estilo (style), iconos asociados (hIcon y hIconSm), el cursor (hCursor), un menú por
omisión (lpszMenuName), etcétera. El parámetro lpfnWndProc será explicado más adelante.
Una vez que tenemos una clase de ventana predefinida o registrada por nosotros
mismos, utilizamos su nombre para crear ventanas de esa clase con las funciones
CreateWindow ó CreateWindowEx:
function CreateWindowEx(dwExStyle: DWORD; lpClassName: PChar;
lpWindowName: PChar; dwStyle: DWORD;
X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST;
lpParam: Pointer): HWND;
En esta función se indica el estilo de ventana (dwExStyle y dwStyle), el nombre de la
clase, el título, posición y tamaño, de qué ventana depende (hWndParent), y la función
devuelve el handle de la ventana creada.
Recuerde, sin embargo, que en contadas ocasiones tendrá que llamar a alguna de
estas funciones desde Delphi, pues la VCL se encarga automáticamente del registro
de clases y de la creación de ventanas.
Eventos o, más bien, mensajes
El usuario se comunica con el sistema operativo mediante los periféricos de entrada
de datos, teclado y ratón fundamentalmente; en un futuro inmediato, el dispositivo
de reconocimiento de voz. Y antes habíamos dicho que el sistema operativo también
se comunicaba con la aplicación para pedirle acciones o notificarle acerca de situaciones: “¿cómo dibujo el interior de esta ventana?”, “van a apagar el sistema, ¿qué te
parece?”... Uno de los puntos de partida de los sistemas controlados por eventos es
el reconocer las semejanzas entre ambos tipos de comunicación, para unificarlos en
un mismo mecanismo. En una comunicación, sea del tipo usuario/sistema ó sistema/aplicación, siempre se mueve cierta información acerca de cierto suceso; a
estos sucesos se les conoce teóricamente con el nombre de eventos, aunque en el caso
concreto de Windows se le aplica el nombre de mensajes (messages).
Elementos de programación con Windows 177
Los mensajes pueden clasificarse de varias formas. La principal es dividirlos en mensajes internos y externos; en la primera categoría entrarían los que son provocados por
el usuario, dejando para la segunda los que surgen de la comunicación del sistema
operativo con la aplicación. Hay que tener en cuenta, sin embargo, que casi todos los
mensajes se producen, en forma más o menos indirecta, como resultado de una acción del usuario. Por ejemplo, la notificación del cierre del sistema tuvo su causa
original en la pulsación de la combinación de teclas ALT+F4 por parte del individuo
sentado frente al ordenador. Uno de los pocos casos de mensajes en los que no interviene un operador humano son los mensajes del temporizador. Por otra parte,
ningún mensaje pasa directamente del usuario a una aplicación, pues tienen primero
que ser procesados y transformados por el núcleo de Windows. Otra clasificación útil
de los mensajes se basa en su modo de propagación, es decir, en el algoritmo que
utiliza el sistema para decidir qué objeto da respuesta a cierto mensaje. Por ejemplo,
los eventos de ratón se consideran posicionales, pues el algoritmo de distribución se fija
principalmente en las coordenadas del evento y de los objetos existentes. Los eventos
de teclado se clasifican como eventos de foco (focused events), pues su distribución depende de la cadena de objetos activos en el escritorio.
La información más importante de un mensaje es su código, que es un valor entero.
Windows define constantes simbólicas que representan estos códigos numéricos:
WM_PAINT, WM_DESTROY, EM_UNDO… La mayor parte de los identificadores de mensajes comienzan con las iniciales WM, window message, pero algunos mensajes específicos de ciertos controles comienzan con otros prefijos. Por ejemplo, EM
se utiliza en los mensajes que se envían para controlar los cuadros de edición.
Pero un único valor numérico contiene muy poca información. Cada mensaje lleva
además otros dos valores numéricos, conocidos por razones históricas como los
parámetros wParam y lParam. En Windows 16, el primero era un entero de 16 bits,
mientras que el segundo tenía 32 bits; en Windows 32 ambos son enteros largos.
Estos parámetros pueden contener punteros a estructuras disfrazados de valores
enteros, y también handles de objetos del sistema.
El ciclo de mensajes y la cola de mensajes
Para los que gustan de resumir un concepto en una frase, una de las claves de los
SCE es la colección centralizada de eventos. En este tipo de sistemas, los eventos se leen en
un único procedimiento; si el sistema está basado en objetos, es un solo objeto el
encargado de la lectura de eventos. El proceso mediante el cual se recogen y se distribuyen los mensajes para darles tratamiento se conoce como ciclo o bucle de mensajes (message
loop).
¿De dónde se leen los mensajes? Resulta que Windows mantiene para cada aplicación
una estructura de datos llamada cola de mensajes (message queue), donde se van alma-
178 La Cara Oculta de Delphi
cenando los eventos internos y los eventos de usuario que corresponden a la aplicación. El sistema operativo es el responsable de insertar mensajes en esta cola, y es
también quien decide a qué aplicación va a parar cada mensaje. Estrictamente hablando, la cola de mensajes no se ajusta a la definición matemática de cola: una estructura lineal en la que se inserta por un extremo y se extrae por el otro. Algunos
mensajes de Windows entran en la desdichada categoría de mensajes de baja prioridad,
como es el caso de WM_PAINT (redibujar una ventana) y WM_TIMER (notificaciones del temporizador). La explicación es que es más eficiente, por ejemplo, postergar las operaciones de dibujo mientras existan cosas más importantes que hacer.
Cualquier mensaje que exista en la cola puede arrebatarle el turno a WM_PAINT.
Otra característica es que no tiene sentido acumular mensajes de baja prioridad: si
quedan dos mensajes de dibujo en la cola, se mezclan en una sola operación.
Cola de mensajes
Ciclo de mensajes
Objetos de ventanas
En versiones anteriores de Windows y de Windows NT, la cola de mensajes de una
aplicación tenía un tamaño fijo, y en ocasiones debía ampliarse manualmente para
admitir un número mayor de mensajes pendientes; uno de los casos en que esto era
necesario era cuando la aplicación debía trabajar con OLE. En las versiones actuales
de estos sistemas operativos, las colas de mensajes se implementan mediante listas
enlazadas y crecen por demanda, quedando obsoletas las rutinas de reasignación de
tamaño de las colas.
Pregunta: ¿Por qué es tan importante que la recolección de mensajes se centralice?
Respuesta: Porque es lo que permite que los distintos objetos dentro de una aplicación trabajen de forma concurrente.
Todos los programadores, en algún oscuro momento de nuestras vidas, hemos intentado programar un editor de texto para un sistema operativo orientado a caracteres, estilo MS-DOS ó UNIX. Posiblemente, la forma en que nos planteamos el editor
fue mediante un procedimiento:
procedure Editar( … parámetros y más parámetros … );
El código de Editar sería parecido al siguiente:
Tecla := LeerTeclado;
while Tecla <> #27 do
begin
Elementos de programación con Windows 179
case Tecla of
#8: BorrarCaracter;
' '..#255: InsertarCaracter(Tecla);
// … otros comandos …
end;
Tecla := LeerTeclado;
end;
El programa principal ejecuta este procedimiento y todo funciona estupendamente
bien. ¿Pero qué pasa si queremos editar simultáneamente en dos ventanas? ¿Cómo
interrumpimos “temporalmente” el ciclo de lectura y procesamiento de la primera
ventana para ejecutar el de la segunda? Evidentemente, la culpa es del bucle while, y
la solución consiste en realizar un único ciclo de mensajes por aplicación.
Un ciclo de mensajes sencillo en Windows puede ser como el que mostramos a continuación:
var
Msg: TMsg;
begin
// …
while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
// …
end;
GetMessage espera a que haya un mensaje en la cola de mensajes, y devuelve la información del mismo en el registro que se pasa en el primer parámetro; los otros dos
parámetros sirven para pedir que se lean mensajes correspondientes a determinada
ventana, o cuyo valor numérico esté dentro de cierto rango. GetMessage devuelve el
valor False solamente cuando encuentra el mensaje especial cuyo código es
WM_QUIT; el resultado de éste es terminar la aplicación. Cuando ya tenemos un
mensaje, TranslateMessage es la primera función en procesarlo, y se encarga de traducir
secuencias de pulsaciones de teclas en caracteres ANSI. Por ejemplo: pulsar la tecla
de mayúsculas y pulsar, a continuación, la tecla del 4 produce el signo del dólar. Finalmente, DispatchMessage hace que Windows envíe el mensaje a la ventana que debe
procesarlo.
En realidad, un ciclo de mensajes verdadero puede ser más complicado, si se tienen
en cuenta las aplicaciones MDI, los aceleradores de teclado y la posibilidad de efectuar acciones durante los intervalos de tiempo en que el usuario no interactúa con la
aplicación. Windows pudiera ofrecer una función que realizara un ciclo de mensajes
estándar, pero deja en nuestras manos las piezas para que montemos esta parte tan
delicada de la estructura de nuestro programa.
180 La Cara Oculta de Delphi
El ciclo de mensajes de una aplicación en Delphi se ejecuta dentro del método Run
de la clase TApplication, que es llamado desde el fichero de proyecto de la aplicación.
Ejecución modal y no modal
Cualquier usuario de Windows nota inmediatamente las diferentes formas de interacción con una ventana. Habrá observado que, dentro de una aplicación, algunas ventanas permiten seleccionar a sus compañeras, mientras siguen activas en segundo
plano. Otras ventanas, casi siempre cuadros de diálogo, son tan prepotentes que no
aceptan pasar al segundo plano; hay que darles una respuesta, usualmente pulsando
un botón, para cerrarlas y continuar trabajando con el resto de la aplicación.
Las instrucciones para mostrar una ventana modal son completamente distintas de la
secuencia de pasos necesarios para añadir una ventana no modal a una aplicación. Si
lo que quiere mostrarse modalmente es un cuadro de diálogo, usualmente definido a
partir de un recurso, la función DialogBox de Windows combina en un solo paso la
creación, ejecución y destrucción de la ventana. Si, en cambio, la ventana que pretendemos mostrar de forma modal no es un cuadro de diálogo, tenemos que, después de crear la ventana, mostrarla normalmente (la función ShowWindow del API) y
ejecutar un ciclo de mensajes que propague los mensajes a partir de la ventana activa.
Este es, en el fondo, el quid de la ejecución modal: mover el ápex, que es el nodo del
árbol de objetos que ejecuta el ciclo de mensajes, reduciendo la propagación de mensajes al subárbol que depende del nuevo nodo.
Delphi simplifica estas tareas para beneficio nuestro. Para mostrar una ventana en
forma no modal, se puede utilizar el método Show de la clase TForm, o asignar True a
la propiedad Visible de esta clase. Para ocultarla y destruir el objeto correspondiente
de Windows se utiliza Hide, o se asigna False a Visible. La ejecución modal se alcanza
mediante el método ShowModal; como condición previa a la aplicación del método, la
ventana tiene que tener Visible igual a False. Es interesante saber que Delphi no utiliza
los cuadros de diálogos de Windows, aquellos que se crean y ejecutan con DialogBox,
sino que los simula mediante ventanas “normales”. Esta simulación tiene que ver,
sobre todo, con el manejo del teclado por los controles de edición.
El procedimiento de ventana
De todas las características posibles de una clase ventana, la más importante es el
procedimiento de ventana (window procedure) asociado; este no es más que un caso importante de función de respuesta. El procedimiento de ventana se indica cuando registramos una clase de ventana, y corresponde al parámetro lpfnWndProc del tipo de
registro TWndClass, que vimos anteriormente.
Elementos de programación con Windows 181
Cuando Windows ha decidido que un mensaje tiene que ser manejado por determinada ventana, ejecuta el procedimiento de ventana que corresponde a la misma, pasando como parámetros el identificador de ventana, el código de mensaje y los parámetros del mensaje. El prototipo de un procedimiento de ventana, en notación
Pascal y para 32 bits, debe ser como el siguiente:
function ProcVentana (Window: HWND;
Message, WParam, LParam: LongInt): LongInt; stdcall;
El valor de retorno de la función sirve para que la aplicación pueda comunicarse con
el sistema operativo. Ciertos mensajes requieren que el objeto que los recibe devuelva
cierta información, o sencillamente que exprese su opinión sobre la acción que se
realizará a continuación por omisión.
Un procedimiento de ventana típico consiste en una instrucción de selección, para
discriminar los tipos de mensajes por su código, e interceptar aquellos que nos interesan. Por ejemplo:
function MiProcVentana(Window: HWND;
Message, WParam, LParam: LongInt): LongInt; stdcall;
begin
case Message of
WM_DESTROY:
begin
PostQuitMessage(0);
Result := 0;
end;
else
Result := DefWindowProc(Window, Message, WParam, LParam);
end;
end;
El único mensaje al que prestamos atención en el procedimiento anterior es a
WM_DESTROY, que es el aviso que se envía a una ventana cuando termina su existencia. Nuestra ventana es egoísta, y en respuesta a esta notificación ejecuta la llamada a PostQuitMessage, que coloca una bomba en la cola de mensajes de la aplicación: el mensaje fatal WM_QUIT. El resto de los mensajes nos trae sin cuidado, y
dejamos que sea la función de Windows DefWindowProc quien se ocupe de ellos. Este
es el comportamiento habitual de las ventanas principales (main window): si las cerramos,
termina automáticamente la ejecución del programa.
Interceptando mensajes en Delphi
La programación en Windows utilizando directamente las funciones del API es demasiado complicada y laboriosa para aplicaciones reales, sobre todo si existen alternativas. Todas las bibliotecas de desarrollo para Windows, como OWL, MFC o la
VCL de Delphi, ofrecen técnicas más sencillas para automatizar el tratamiento de
182 La Cara Oculta de Delphi
mensajes. En particular, para interceptar mensajes de Windows en una ventana de
Delphi, se utilizan los procedimientos declarados mediante la directiva message:
type
TForm1 = class(TForm)
private
procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd);
message WM_ERASEBKGND;
procedure WMSize(var Msg: TWMSize); message WM_SIZE;
procedure WMPaint(var Msg: TMessage); message WM_PAINT;
public
end;
La directiva message indica qué código de mensaje se asocia a cada procedimiento.
El formulario del ejemplo anterior intercepta los mensajes de Windows
WM_PAINT, que dibuja el interior de una ventana, WM_ERASEBKGND, que sirve
para evitar que Windows llene automáticamente el fondo de la ventana, y
WM_SIZE, que avisa cuando la ventana cambia de tamaño. Todo los procedimientos
de mensajes necesitan un solo parámetro por referencia, cuyo tipo no se verifica.
Esto permite declarar para cada mensaje el tipo de parámetro más adecuado a la
información que contiene. Por ejemplo, esta es la declaración de TWMSize:
type
TWMSize = record
Msg: Cardinal;
SizeType: Longint;
Width: Word;
Height: Word;
Result: Longint;
end;
Pero, con el mismo éxito, hubiéramos podido definir todos los procedimientos con el
tipo genérico de mensaje TMessage, cuya declaración es:
type
TMessage = record
Msg: Cardinal;
case Integer of
0: (
WParam: Longint;
LParam: Longint;
Result: Longint);
1: (
WParamLo: Word;
WParamHi: Word;
LParamLo: Word;
LParamHi: Word;
ResultLo: Word;
ResultHi: Word);
end;
Elementos de programación con Windows 183
El objetivo de los mensajes interceptados en el formulario anterior es dibujar un gradiente de colores como fondo de la ventana. De los procedimientos creados, el más
sencillo corresponde al dibujo del fondo:
procedure TForm1.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
begin
Msg.Result := 1;
end;
Lo único que se realiza durante este mensaje es decirle a Windows que no se preocupe por dibujar el fondo, que ya nos encargaremos nosotros. El paso siguiente es
interceptar la notificación de cambio de tamaño:
procedure TForm1.WMSize(var Msg: TWMSize);
begin
inherited;
InvalidateRect(Handle, nil, False);
end;
Como puede ser que la clase TForm o cualquier otro ancestro de TForm1 tenga un
manejador para este mensaje (y de hecho, lo tiene), ejecutamos este posible manejador mediante la primera instrucción. Observe que, a diferencia del uso de inherited
en la redefinición de métodos virtuales, no se especifica el nombre del método heredado ni se le pasa el parámetro del mensaje. El quid consiste en que no sabemos a
ciencia cierta si tal método existe, cómo se llama y de qué tipo se ha definido su parámetro; todo lo anterior se deja a la sabiduría de Delphi. La segunda instrucción
simplemente obliga a Windows a redibujar el contenido de la ventana cuando tenga
un momento libre.
Por último, este es el tratamiento que se da al mensaje WM_PAINT:
procedure TForm1.WMPaint(var Msg: TWMPaint);
var
DC, Brocha: THandle;
PS: TPaintStruct;
R: TRect;
I: Integer;
begin
R.Left := 0;
R.Right := ClientWidth;
DC := BeginPaint(Handle, PS);
for I := 0 to 31 do
begin
R.Top := I * ClientHeight div 32;
R.Bottom := (I + 1) * ClientHeight div 32;
Brocha := CreateSolidBrush(RGB(0, 0,
(I + 1) * 128 div 32 + 127));
Windows.FillRect(DC, R, Brocha);
DeleteObject(Brocha);
end;
EndPaint(Handle, PS);
end;
184 La Cara Oculta de Delphi
Intencionalmente, he realizado todo el dibujo ejecutando funciones de bajo nivel del
API; así el lector tendrá una idea del “sabor” de la programación con el API de
Windows. Además, los mensajes anteriores, con excepción de WM_ERASEBKGND, podían haberse tenido en cuenta más fácilmente utilizando eventos de alto
nivel de Delphi: OnPaint y OnResize.
También podemos enviar mensajes
Los implementadores de Windows decidieron, al parecer, complicar deliberadamente
la programación en este sistema. De acuerdo a lo que hemos explicado hasta el momento, el lector puede realizar la siguiente clasificación mental: si quiero realizar llamadas a Windows, utilizo funciones; si Windows quiere llamar a mi programa utilizará mensajes. Y es un cuadro correcto, hasta cierto punto, pero falla en un pequeño
detalle: algunas llamadas a Windows se efectúan mediante mensajes.
Por ejemplo, tenemos un editor de textos, un Memo de Delphi, y queremos deshacer
los últimos cambios realizados en el mismo. El programador echa mano de la referencia de Windows y busca frenéticamente en la lista de funciones alguna de las siguientes combinaciones MemoUndo, UndoMemo, EditUndoRedo, ... ¡nada! La forma de
hacerlo es la siguiente:
SendMessage(HandleDelMemo, EM_UNDO, 0, 0);
// Memo1.Perform(EM_UNDO, 0, 0), si utilizamos la VCL
Para enviar mensajes contamos con dos funciones del API: SendMessage y PostMessage,
y todo depende de la prisa que tengamos. SendMessage llama directamente al procedimiento de ventana de la ventana sobre la cual se aplica, con los parámetros adecuados. En cambio, PostMessage deposita el mensaje en la cola de la aplicación, respetando el orden de los mensajes pendientes. El método PostQuitMessage, que vimos en
la sección anterior, equivale precisamente a una llamada a PostMessage con el mensaje
WM_QUIT.
Aplicaciones en la bandeja de iconos
Quedamos entonces en que nuestras aplicaciones se comunican con Windows ejecutando funciones del API y, en algunos casos, enviando mensajes a los objetos internos de Windows. Y que Windows se comunica con nosotros, en la mayoría de los
casos, enviándonos mensajes que deben ser manejados por alguna de nuestras ventanas. ¿Correcto?
Bien, entonces vamos a mostrar una pequeña aplicación de estos conceptos. Vamos a
crear un programa que no tenga ventana principal visible, sino que la interacción con
Elementos de programación con Windows 185
el mismo se produzca a través de un icono en la barra de tareas, en la bandeja de
iconos que aparece a la derecha de la misma. Nos comunicaremos con la bandeja de
iconos mediante una función del API, llamada Shell_NotifyIcon, que se encuentra declarada en la unidad ShellApi de Delphi. Estaremos, además, pendientes de lo que le
suceda a nuestro icono mediante un mensaje que este nos enviará cuando sea necesario. ¿Qué mensaje será éste? Tenemos que decidirlo nosotros mismos. Y será nuestra
ventana principal la encargada de interceptar y dar tratamiento a este mensaje ... un
momento, ¿no habíamos quedado en que no tendríamos ventana principal visible? Sí,
pero que no esté visible no quiere decir que no exista.
Shell_NotifyIcon
11:32
WM_ICONMSG
(Invisible)
Creamos un nueva aplicación, vamos al código fuente de la unidad principal y, antes
de la declaración del tipo TForm1, justo debajo de la cláusula uses de la interfaz,
declaramos la siguiente constante que corresponderá al código del mensaje que debe
enviarnos el icono:
const
WM_ICONMSG = WM_USER + 2000;
A la constante predefinida WM_USER, que marca el inicio del rango de los mensajes
de usuarios, le he añadido una constante arbitraria. ¿Por qué 2000? Porque si logro
llegar vivo a ese año, me voy a desternillar de risa viendo como cascan las aplicaciones escritas en COBOL que todavía queden por ahí.
Traiga un componente TImage al formulario, y cargue en el mismo el icono que desea
que aparezca en la bandeja. Ahora debemos simplificar un poco la llamada a la función Shell_NotifyIcon. Esta función, como corresponde a una función del API, tiene
una interfaz complicada y desagradable, así que declaramos el siguiente método en la
parte privada de la clase TForm1 y lo implementamos más adelante:
procedure TForm1.NotifyIcon(Value: Word; const Tip: string);
var
Data: TNotifyIconData;
begin
Data.cbSize := SizeOf(Data);
Data.uId := 0;
Data.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
Data.Wnd := Self.Handle;
Data.uCallbackMessage := WM_ICONMSG;
Data.hIcon := Image1.Picture.Icon.Handle;
StrPLCopy(Data.szTip, Tip, SizeOf(Data.szTip);
186 La Cara Oculta de Delphi
Shell_NotifyIcon(Value, @Data);
end;
Al parecer, la idea es empaquetar unos cuantos datos en un registro de tipo TNotifyIconData, pasarlo a la función del API y decirle qué queremos hacer con estos datos.
El primer parámetro de Shell_NotifyIcon, el que hemos denominado Value puede ser
uno de los siguientes:
•
•
•
NIM_ADD: Crear un icono
NIM_DELETE: Eliminar un icono
NIM_MODIFY: Modificar cualquiera de sus datos (icono, ayuda)
En cuanto a los campos de la estructura, los más importantes ahora son Wnd y uCallbackMessage. El segundo es el código del mensaje del icono, mientras que el primero
es el handle de la ventana a la que debe enviarse el mensaje: a nuestra ventana principal, por descontado.
Ya estamos listos para crear el icono y para destruirlo. Escribimos los siguientes manejadores para los eventos OnCreate y OnClose del formulario:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False;
ShowWindow(Application.Handle, SW_HIDE);
NotifyIcon(NIM_ADD, Application.Title);
end;
procedure TForm1.FormClose(Sender: TObject);
begin
NotifyIcon(NIM_DELETE, '');
end;
Durante la creación de la ventana principal hemos instruido a la aplicación para que
no la muestre, más adelante. La segunda instrucción puede parecernos algo extraña.
El objeto Application de Delphi es realmente una ventana, escondida para el programador; desde el punto de vista del usuario es la ventana que aparece solamente en la
barra de tareas. Tenemos que esconder también a esta ventana, y nos vemos obligados a utilizar la función del API ShowWindow, aplicada sobre el handle de dicha ventana. Por último, creamos el icono, utilizando como ayuda o indicación el título de la
aplicación. La destrucción del icono va en paralelo con el cierre de la aplicación, y es
igual de sencilla ... ¿he dicho el cierre de la aplicación? ¿Cómo podemos cerrar una
aplicación que no tiene ventana principal?
Ha llegado el momento de traer un componente TPopupMenu al formulario. Este
menú debe aparecer cuando se pulse el botón derecho del ratón sobre el icono de la
bandeja. Por el momento, solamente configuraremos un comando de menú dentro
de este TPopupMenu, y lo llamaremos Cerrar. He aquí la respuesta a su selección:
Elementos de programación con Windows 187
procedure TForm1.Cerrar1Click(Sender: TObject);
begin
Close;
end;
Antes he dicho que estaríamos pendientes de cuando el usuario pulsara el botón
derecho del ratón sobre el icono. Este tipo de sucesos es el que el icono nos comunicará a través de su mensaje especial. Por lo tanto, vamos a la sección private de la
declaración de TForm1 y declaramos un manejador para dicho mensaje:
type
TForm1 = class(TForm)
// …
private
procedure WMIconMessage(var Msg: TMessage);
message WM_ICONMSG;
// …
end;
Cuando recibimos el mensaje WM_ICONMSG, el lParam del mensaje nos informa
acerca de qué le ha sucedido al icono; el valor almacenado en este parámetro corresponde al mensaje de Windows que se hubiera enviado de no ser éste un icono, sino
una ventana. Nuestra implementación del manejador del mensaje debe pues analizar
el lParam para decidir qué rumbo tomarán los acontecimientos:
procedure TForm1.WMIconMessage(var Msg: TMessage);
var
Pt: TPoint;
begin
if Msg.LParam = WM_RBUTTONUP then
begin
GetCursorPos(Pt);
SetForegroundWindow(Application.Handle);
Application.ProcessMessages;
PopupMenu1.Popup(Pt.X, Pt.Y);
end;
end;
Y con esto ya tenemos un esquema básico de aplicación para la bandeja de iconos,
que usted puede ampliar y mejorar todo lo que desee.
Ciclo de mensajes y concurrencia
El concepto del ciclo de mensajes desempeña un papel fundamental en la arquitectura de las versiones de Windows de 16 bits. Gracias a este algoritmo, Windows 16
puede implementar la multitarea cooperativa, en la cual los procesos que se ejecutan
concurrentemente en un ordenador ceden gustosamente el control del procesador a
otro proceso cuando no tienen nada que hacer. Recordemos la estructura de un ciclo
de mensajes:
188 La Cara Oculta de Delphi
while GetMessage(Msg, 0, 0, 0) do
// … etcétera …
Antes hemos dicho que GetMessage espera pacientemente a que haya un mensaje en la
cola de la aplicación para retornar. ¿Qué sucede mientras tanto? Como la aplicación
está bloqueada en espera del mensaje y no puede realizar ninguna acción, Windows
arrebata el control al proceso activo y lo transfiere a otro proceso que tenga mensajes
en su cola. Hasta Windows 95, no existía la llamada multitarea apropiativa, en la que las
aplicaciones tienen que ceder el control a su pesar transcurrido un intervalo determinado de tiempo.
La consecuencia fundamental de esta estructura del sistema operativo de 16 bits es
que una aplicación mal desarrollada, o que durante largos intervalos de tiempo ejecute procesos en lote sin revisar su cola, puede dejar colgado al sistema y al resto de
las aplicaciones que suspiran lánguidamente por una oportunidad en la vida.
Cuando no hay nada mejor que hacer…
Windows ofrece una alternativa a GetMessage: la función PeekMessage. Esta función, en
vez de esperar y bloquear la aplicación hasta que haya un mensaje en la cola, retorna
inmediatamente siempre. Si el valor de retorno es True, la función encontró un mensaje. Mediante PeekMessage las aplicaciones de Windows 16 podían implementar tareas
en segundo plano; basta con ejecutar una pequeña porción de la tarea cada vez que
PeekMessage devuelva False en el ciclo de mensajes. Esto quiere decir que la tarea en
cuestión debe poder fragmentarse en instrucciones que no tarden demasiado en
ejecutarse. Por ejemplo, si queremos imprimir un fichero mientras un programa desarrolla su hilo principal, podemos imprimir un carácter del fichero cada vez que la
aplicación se encuentre ociosa. Este mecanismo, en Delphi, se puede aprovechar
interceptando el evento OnIdle que es disparado por el objeto Application.
Un problema relacionado con la concurrencia cooperativa surge cuando se ejecuta
un algoritmo “cerrado”, que no necesita leer eventos, y que tarda en devolver el
control al ciclo de mensajes. Un ejemplo sería la copia de un fichero. En Windows 16
estos algoritmos dejan bloqueado al sistema operativo entero, pues acaparan egoístamente el tiempo del procesador. En Windows 32 el problema no es tan grave, pues
las restantes aplicaciones recuperan el procesador periódicamente gracias a la multitarea apropiativa. No obstante, si la aplicación está programada sobre un solo hilo, el
usuario pierde control sobre la interfaz gráfica; no puede, por ejemplo, cancelar la
operación que se está desarrollando. Por ello, es necesario intercalar dentro de estos
algoritmos instrucciones que revisen la cola de mensajes; Delphi ofrece para este
propósito el método ProcessMessages de la clase TApplication. El siguiente procedimiento implementa un ciclo de espera en Delphi:
Elementos de programación con Windows 189
procedure Esperar(Milisegundos: Integer);
var
T: Integer;
begin
T := GetTickCount + Milisegundos;
// Mientras T sea un instante del futuro …
while T > GetTickCount do
Application.ProcessMessages;
end;
Ejecutar y esperar
Utilizaremos los conocimientos adquiridos para mostrar cómo lanzar una aplicación
desde un programa en Delphi y esperar a que ésta acabe antes de seguir ejecutando.
Primero desarrollaremos una función que ejecute una aplicación y nos devuelva el
identificador de proceso de la misma. Este es el código necesario:
function Ejecutar(const AppName, Params: string): THandle;
var
ProcInfo: TProcessInformation;
Info: TStartupInfo;
begin
FillChar(Info, SizeOf(Info), 0);
Info.cb := SizeOf(Info);
Info.dwFlags := STARTF_USESHOWWINDOW;
Info.wShowWindow := SW_SHOWNORMAL;
if not CreateProcess(nil, PChar(AppName + ' ' + Params), nil,
nil, False, 0, nil, nil, Info, ProcInfo) then
raise Exception.Create('No se puede iniciar la aplicación');
Result := ProcInfo.hProcess;
end;
La función anterior utiliza CreateProcess, que es la forma recomendada en Windows 32
para lanzar procesos. Cuando no se puede ejecutar la aplicación indicada, Ejecutar
lanza una excepción; en el capítulo 11 veremos qué son las excepciones.
A continuación, necesitamos una rutina que espere mientras el proceso está todavía
activo:
procedure TwndMain.Esperar(H: THandle);
begin
while WaitForSingleObject(H, 100) = WAIT_TIMEOUT do
begin
Application.ProcessMessages;
if Application.Terminated then Break;
end;
end;
WaitForSingleObject espera a que el proceso finalice, o a que transcurra una décima de
segundo. En el segundo caso, permite que la aplicación ejecute un paso del ciclo de
190 La Cara Oculta de Delphi
mensajes, y comprueba si la aplicación ha recibido el mensaje WM_QUIT para interrumpir el bucle.
Finalmente, creamos una aplicación. En su formulario principal situamos un botón y
le asociamos el siguiente manejador de eventos:
procedure TwndMain.Button1Click(Sender: TObject);
begin
Button1.Enabled := False;
try
Esperar(Ejecutar('NotePad.Exe', ''));
finally
Button1.Enabled := True;
end;
end;
Cuando pulsamos el botón, éste se inhabilita; así evitamos lanzar dos veces la aplicación hija. En este caso, estamos ejecutando el Bloc de Notas de Windows. La instrucción try...finally también será estudiada en el capítulo 11.
Capítulo
9
Propiedades
L
A TEORÍA “CLÁSICA”
de la Programación Orientada a Objetos trata únicamente con atributos y métodos para los objetos. Sin embargo, la programación para Interfaces Gráficas de Usuarios (GUI) plantea necesidades que son
cubiertas a duras penas por este modelo de objetos. En este capítulo estudiaremos el
modelo PME (Propiedades/Métodos/Eventos), y veremos cómo con este modelo nuestros objetos inanimados cobran vida y se reencarnan en componentes. En particular,
estudiaremos las propiedades, dejando para el siguiente capítulo los eventos.
Los problemas de la POO clásica
En los primeros tiempos heroicos de la programación para Windows, el único lenguaje con que contaba el programador era C. Intentaré contener mis emociones
negativas hacia este lenguaje, pero no puedo dejar de mencionar, como hecho curioso, que la instrucción peor diseñada de C, la instrucción switch12, era la instrucción más usada en aquellos primeros programas. Como estudiamos en el capítulo
anterior, el núcleo de un programa en Windows es el bucle de mensajes y los procedimientos de ventanas; estos últimos consisten en una gigantesca instrucción de selección.
La Primera Revolución en la programación para Windows se produjo cuando empezaron a aparecer bibliotecas de objetos para este sistema; en inglés las denominaban
Application Frameworks. El primer paso importante lo dio (¡quién podía ser si no!)
Borland, con Turbo Pascal para Windows 1.0. Este producto, el primer compilador
de Pascal para Windows, incluía un conjunto de clases, bautizado como Object Windows. Existe una anécdota acerca de cierto escritor famoso de libros técnicos, vinculado a la programación en C y a Microsoft, quien “predijo” que la programación para
Windows en Pascal era poco menos que imposible.
El éxito de esta biblioteca de clases provocó su migración a C++. En la siguiente
versión de Borland C++ para Windows, se incluía Object Windows para C++, versión 1.0. Y aquí comenzaron los problemas. La cuestión es que Borland había dise12
Equivalente al case de Pascal, que tampoco es una maravilla.
192 La Cara Oculta de Delphi
ñado una novedosa técnica para eliminar las instrucciones de selección de mensajes:
las tablas de métodos dinámicos, que aprovechan los métodos declarados con la
directiva message. Para trasladar el código de Pascal a C++, fue necesario ampliar la
sintaxis de la definición de métodos virtuales de este último lenguaje. Y la comunidad
de programadores de C++, obsesionada por la “portabilidad”, reaccionó virulentamente a la innovación. La actitud del programador medio hacia los entornos gráficos
por aquel entonces era:
“Las interfaces de usuario son la nata encima del pastel. Como esto puede ser
una moda pasajera, no voy a aceptar cambios en la forma en que pienso y programo.”
Pobre programador, las GUI llegaron para quedarse. Como resultado de las críticas
recibidas, algunas justas pero la mayoría injustas, Borland tuvo que dar marcha atrás.
Para aquella época, Microsoft había desarrollado ya su primera biblioteca de clases
para Windows, la famosa Microsoft Foundation Classes (MFC). Esta biblioteca utilizaba
macros de C para resolver el problema de despachar mensajes. La versión 2.0 de
ObjectWindows para C++ adoptó este mecanismo, rechazando los métodos dinámicos. El autor de este libro programó un tiempo con estas bibliotecas. Son muy potentes, pero el mecanismo de macros obliga al desarrollador a memorizar gran número de identificadores y estilos de llamadas sin relación entre sí, además de que hay
que teclear más y que aumenta la posibilidad de introducir errores. Fueron épocas de
locura e insania; si alguien me preguntaba por mi nombre y dirección mientras estaba
frente al ordenador, tenía que esperar a que mi mecanismo de paginación trajera a la
memoria la página con los datos descartados.
De cualquier manera, utilícense métodos dinámicos o macros, el enfoque clásico de
la Programación Orientada a Objetos, que solamente considera objetos y métodos,
plantea las siguientes dificultades a la hora de programar para interfaces gráficas:
•
•
•
Una GUI, debido a su inevitable evolución histórica, contiene por lo general
demasiadas funciones como para ser recordadas por el programador. Una parte
de esta complejidad se produce por la necesidad de tener métodos de acceso y de
transformación por separado.
La mayor parte de los objetos que ofrece una biblioteca de objetos para controlar una interfaz gráfica son, precisamente, objetos del estilo “mando a distancia”. Muchos métodos de este tipo de clases se llaman de dos en dos: el primero
cambia el estado interno del objeto, y el segundo “transmite” la acción al elemento de interfaz controlado.
Las GUI necesitan comunicación bidireccional. La solución ofrecida por la POO
clásica para “escuchar” a los objetos es redefinir clases para sobrescribir métodos
virtuales. Esta metodología es, por razones incluso tipográficas, larga y tediosa.
El tercer problema se analizará en el siguiente capítulo, pues nos servirá para introducir los eventos. Consideremos, entonces, los dos primeros problemas. En primer
Propiedades 193
lugar, tenemos la existencia separada de métodos de acceso y de transformación. Por
ejemplo, para leer y modificar el título de una ventana, Windows ofrece el siguiente
par de funciones:
function GetWindowText(Wnd: HWnd; Str: PChar;
MaxLen: Integer): Integer;
procedure SetWindowText(Wnd: HWnd; Str: PChar);
Utilizando la POO clásica, estos procedimientos se transformarían en métodos de
una hipotética clase TVentana:
function TVentana.GetText: string;
procedure TVentana.SetText(Str: string);
Sin embargo, como el lector sabe o puede fácilmente comprobar, Delphi utiliza una
sola “propiedad”, Caption para leer o modificar el título de una ventana. La respuesta
a “cómo lo hace” vendrá después:
if Ventana1.Caption = 'Yin' then
Ventana1.Caption := 'Yang';
Analicemos ahora el segundo argumento, el de la necesidad de pares de métodos:
uno para cambiar el estado interno y el otro para su transmisión. Supongamos que
queremos programar una etiqueta de texto tridimensional con posibilidad de cambiar
la profundidad del texto. Declaramos un atributo Profundidad en el objeto TLabel3d,
de tipo entero positivo. Si utilizamos POO clásica, nos vemos en un dilema con respecto a este atributo. El problema es que la modificación del mismo, si se realiza
directamente, actúa solamente sobre el estado interno del objeto de etiqueta, que
solamente es un “transmisor”. Estamos obligados a utilizar una solución similar a la
siguiente, en la que se tiene que encapsular el método de modificación y, en consecuencia, el método de acceso:
type
TLabel3d = class(…)
private
FProfundidad: Word;
public
function Profundidad: Word;
procedure CambiarProfundidad(P: Word);
end;
CambiarProfundidad debe asignar un valor al atributo privado FProfundidad, y redibujar
el objeto. La función Profundidad devuelve directamente el valor del atributo interno.
El programador puede utilizar estos métodos así:
if MiEtiqueta.Profundidad < 3 then
MiEtiqueta.CambiarProfundidad(3);
194 La Cara Oculta de Delphi
El principal problema con este código es que lo que podía ser una sencilla y eficiente
pregunta por el valor de un atributo, se convierte en una costosa llamada a función.
− ¡Pero para eso C++ tiene funciones en línea! - alardea un fanático de este lenguaje.
Es cierto que las funciones en línea pueden resolver este problema de eficiencia, pero
por favor, que no mencionen a C++ en mi presencia; nuestro avispado programador
de C++ tiene que programar de este modo:
if (MiEtiqueta->Profundidad() < 3)
MiEtiqueta->CambiarProfundidad(3);
En este par de instrucciones queda claro, demasiado claro, que Profundidad es una
función. Si posteriormente cambiamos el diseño de la clase y se revierte la función en
atributo, ¡busque todas las llamadas a la función y quítele los paréntesis! El principio
de diseño de lenguajes que C y C++ violan en este caso se conoce como uniformidad
referencial.
Propiedades
Las propiedades son una extensión al concepto de campo o atributo de una clase.
Una propiedad se define mediante la siguiente sintaxis básica:
property Nombre: Tipo read ModoLectura write ModoEscritura;
En el caso más general, tanto la forma de leer como la de escribir son métodos. El
método de lectura debe ser una función sin parámetros que devuelva un valor del
mismo tipo que la propiedad. El método de escritura, por su parte, debe ser un procedimiento monoparamétrico, cuyo parámetro debe tener el mismo tipo que la propiedad. Por ejemplo:
type
TAtomo = class
private
function GetCarga: Integer;
procedure SetCarga(Value: Integer);
public
property Carga: Integer read GetCarga write SetCarga;
end;
Cuando el programador “hace algo” con una propiedad, el compilador utiliza la especificación de los métodos de acceso para “traducir” el código. Muestro a continuación una instrucción con su correspondiente traducción:
Propiedades 195
// Esta es la instrucción original:
Nitrogeno.Carga := Oxigeno.Carga - 1;
// Esta es la traducción:
Nitrogeno.SetCarga(Oxigeno.GetCarga - 1);
// La carga del oxígeno es 8, si a alguien le interesa.
Naturalmente, no todas las cosas que pueden hacerse con un campo o atributo pueden realizarse con las propiedades. La limitación básica es que no podemos obtener
la dirección de una propiedad, pues una propiedad no es un atributo. Esto implica
que tampoco podemos utilizar una propiedad en un parámetro por referencia de un
procedimiento, pues el traspaso por referencia implica el uso de punteros:
Inc(Mercurio.Carga);
// ¡¡¡No se puede (desgraciadamente)!!!
Siempre, o casi siempre, los métodos de acceso de una propiedad se declaran en la
parte privada de la clase. ¿Para qué definir un método de acceso alternativo a un
recurso si ya existe otro?
Implementación de propiedades mediante atributos
La implementación de los métodos de acceso mediante procedimientos y funciones
es apropiada si el objeto en que se encuentran pertenece al modelo de “mando a
distancia”, esto es, si el valor de la carga se almacena en una variable perteneciente a
otro objeto, o está “enterrada” en el sistema operativo, o si hace falta un cálculo
complicado para deducirla a partir de otras variables. Pero lo más común, como sabemos, es que el propio objeto almacene el estado de la propiedad. Si estamos implementando átomos, lo natural es almacenar el valor de la carga internamente en
una variable del objeto:
type
TAtomo = class
private
FCarga: Integer;
// …
end;
La letra F inicial es un convenio de Borland para atributos privados de una clase, y
quiere decir field, es decir, campo. Partiendo de esta implementación, ¿para qué utilizar
propiedades? ¿No es mejor dejar en la sección public de la clase el atributo Carga, sin
la F, y evitarnos complicaciones? No, no es lo mismo. La carga de un átomo es un
valor mayor o igual que 1, y si damos acceso directo a la variable, un programador
puede asignar un valor negativo a la carga. Por lo tanto, necesitamos que el acceso en
modo escritura a la carga transcurra mediante un procedimiento.
En este tipo de situación, podemos declarar la propiedad Carga del siguiente modo:
196 La Cara Oculta de Delphi
type
TAtomo = class
private
FCarga: Integer;
procedure SetCarga(Value: Integer);
public
property Carga: Integer read FCarga write SetCarga;
end;
De este modo, nos evitamos las llamadas a una función GetCarga, que solamente
haría más lento el acceso para lectura a la propiedad. La instrucción que mostramos
anteriormente, la que asigna una carga al átomo de nitrógeno, se traduce ahora de la
siguiente forma:
// Nueva traducción:
Nitrogeno.SetCarga(Oxigeno.FCarga - 1);
Posiblemente, el procedimiento SetCarga se programa de este modo:
procedure TAtomo.SetCarga(Value: Integer);
begin
if Value <> FCarga then
if FCarga < 1 then
raise Exception.Create('Carga menor que la unidad')
else
Value := FCarga;
end;
En el código anterior he utilizado una instrucción de lanzamiento de excepciones; la
instrucción raise interrumpe el proceso que se está ejecutando, comunicando al
usuario el error descrito en la cadena de caracteres pasada al constructor Create de la
excepción.
La primera línea de la implementación del método SetCarga muestra también algo
común a casi todas las propiedades: si a una propiedad se le asigna un valor igual al
que tenía anteriormente, no debe suceder nada en absoluto. Este es un convenio que
deben seguir todos los desarrolladores de componentes.
Por último, es posible utilizar también un atributo en sustitución del método de escritura de una propiedad:
type
TAtomo = class
private
FCarga: Integer;
published
property Carga: Integer read FCarga write FCarga;
end;
Si el lector presta atención, verá que ahora la propiedad ha sido declarada en la sección published, y en tiempo de ejecución existirá información sobre ella. Si además
Propiedades 197
la clase TAtomo descendiese de TComponent y la situáramos en la Paleta de Componentes, la propiedad Carga podría aparecer en el Inspector de Objetos en tiempo de
diseño Este es el sentido de utilizar atributos para ambos métodos de acceso; si la
propiedad no se sitúa en la parte published, no se gana nada con definir una propiedad en vez de utilizar directamente el atributo.
Si no creemos en la alquimia…
Los alquimistas buscaban el camino para convertir el plomo en oro. Si no creemos en
la alquimia y no nos interesa la física nuclear, no debemos permitir la posibilidad de
cambiar la carga de un átomo una vez que éste ha sido creado. Podemos lograr que la
propiedad Carga pueda solamente leerse, pero no modificarse, si omitimos la cláusula
write en la definición de la propiedad:
type
TAtomo = class
private
FCarga: Integer;
public
property Carga: Integer read FCarga;
end;
Antes de la introducción de las propiedades en el lenguaje, se podía lograr un efecto
similar definiendo Carga como una función sin parámetros:
function Carga: Integer;
De este modo, se podía llamar a la función cada vez que necesitáramos el valor, sin
poder realizar asignaciones a la misma. La uniformidad referencial se logra en Pascal
gracias a que una llamada a una función sin parámetros no necesita los paréntesis
para que el compilador “se entere” de que estamos tratando con una función. Sin
embargo, utilizar una función es menos eficiente que utilizar una propiedad de sólo
lectura basada en un atributo.
¿Y qué hay con las propiedades de sólo escritura? También son posibles en Object
Pascal, pues basta con omitir la cláusula read de la propiedad. Ahora bien, son menos frecuentes. La única propiedad de este tipo que conozco es la propiedad Output,
de tipo string, de la clase TApdComPort, de la librería de comunicaciones Async
Professional, de TurboPower Software. Para enviar una cadena de caracteres por un
puerto serial con este componente, se realiza la siguiente asignación:
ApdComPort1.Output := '1234567890';
Esta asignación se traduce en una llamada a un procedimiento con un solo parámetro:
198 La Cara Oculta de Delphi
ApdComPort1.SetOutput('1234567890');
Anteriormente hemos visto como con la programación orientada a objetos se reduce
la cantidad necesaria de parámetros de los procedimientos y funciones. La mayor
parte de los métodos resultantes se definen con uno o con ningún parámetro. Y
ahora nos encontramos con que la mayor parte de los métodos de transformación de
un solo parámetro se pueden rediseñar como propiedades. El truco consiste en que
este parámetro casi siempre se utiliza para modificar una variable del estado interno
del objeto, de la cual posiblemente también queramos saber su valor. El procedimiento monoparamétrico puede utilizarse como método de escritura en la definición
de la propiedad, y el método de lectura será la variable interna o una función equivalente.
En el caso de la propiedad Output, los desarrolladores de Async Professional decidieron, correcta o incorrectamente, que no era importante para el programador saber
cuál es el último valor que se ha asignado a la propiedad en cuestión, por lo cual
omitieron añadir un método de lectura para la misma.
La semántica de la asignación a propiedades
Como ya sabe el lector, las variables declaradas de tipo clase son en realidad punteros
a objetos. Una asignación entre dos variables compatibles de estos tipos se implementa como una asignación entre punteros, con todas las consecuencias predecibles:
var
Font1, Font2: TFont;
begin
Font1 := TFont.Create;
Font2 := Font1;
// Ambas variables apuntan ahora al mismo objeto
Font1.Free;
// Se ha destruido el objeto
// ¡La dirección almacenada en Font2 ya no es válida!
end;
Muchos componentes de Delphi tienen una propiedad llamada Font, de tipo TFont.
¿Qué sucede con asignaciones como la siguiente?
Memo1.Font := FontDialog1.Font;
Ambas propiedades Font devuelven punteros a objetos de esta clase. ¿Quiere decir
que estamos frente a una asignación de punteros? Resulta que no. Si Font fuera una
variable en vez de una propiedad, claro que sería una asignación de punteros. Pero al
ser Font una propiedad, esta asignación se traduce en una aplicación del método de
escritura:
Propiedades 199
Memo1.SetFont(FontDialog1.GetFont);
La implementación de SetFont es, posiblemente, la siguiente:
procedure TMemo.SetFont(Value: TFont);
begin
FFont.Assign(Value);
end;
Como recordará, el método Assign realiza la copia de los campos de un objeto en
otro. Este comportamiento es el recomendado para propiedades de tipo objeto, pero
un desarrollador de componentes puede decidir que las asignaciones a cierta propiedad deben implementarse como asignaciones a punteros:
Label1.FocusControl := Edit1;
En la instrucción anterior, no se crea un nuevo objeto de tipo cuadro de edición, ni
se copian las propiedades de Edit1 en algún objeto construido dentro de Label1. El
implementador de TLabel decidió que SetFocusControl asignara punteros en vez de
llamar a Assign. Por supuesto, en este caso hay peligro de que la destrucción de Edit1
deje un valor incorrecto en la propiedad FocusControl de Label1. El desarrollador de
TLabel previene estos problemas redefiniendo en esta clase el método virtual Notification:
procedure TLabel.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (AComponent = FFocusControl) then
FFocusControl := nil;
end;
Notification es un método virtual declarado en la clase TComponent, que se llama cuando un componente es creado o destruido. En el método anterior, el objeto TLabel
detecta la destrucción de un componente (la operación es opRemove). Entonces, con el
corazón en un puño, pregunta si el fallecido es su viejo amigo, FFocusControl, para no
enviarle más tarjetas de felicitación por Navidad.
El método FreeNotification está estrechamente relacionado con Notification, y fue introducido por Delphi 2, debido a la existencia de referencias en tiempo de diseño entre
componentes ubicados en distintos formularios. Notification solamente se llama de
forma automática cuando el objeto borrado o insertado está en el mismo formulario
que el objeto notificado. Para garantizar la recepción de estas notificaciones incluso
en los casos en que los punteros se saltan las fronteras de fichas, hay que indicarlo
con una llamada a FreeNotification. El siguiente código muestra un fragmento del método de escritura asociado a la propiedad FocusControl de la clase TLabel:
200 La Cara Oculta de Delphi
procedure TLabel.SetFocusControl(Value: TWinControl);
begin
FFocusControl := Value;
if Value <> nil then Value.FreeNotification(Self);
end;
Propiedades vectoriales
Como hemos explicado, las propiedades permiten consultar y modificar el estado de
un objeto mediante simples asignaciones. Sin embargo, en ocasiones este estado está
estructurado de forma compleja. La forma más frecuente de “estructuración” se
presenta en propiedades a las cuales hay que acceder mediante un índice: las propiedades vectoriales. Por ejemplo, para obtener y modificar el texto de la primera línea
de un cuadro de lista, se utilizan las siguientes instrucciones:
PrimeraLinea := ListBox1.Items[0];
if PrimeraLinea = 'Richard Bachman' then
ListBox1.Items[0] := 'Stephen King';
Una propiedad vectorial se declara mediante la siguiente sintaxis:
property Propiedad[Indice: TipoIndice]: Tipo
read MétodoLectura write MétodoEscritura;
Esta vez no se pueden utilizar variables privadas para el acceso a la propiedad, siendo
necesarios tanto la función lectora como el procedimiento escritor. Como ejemplo,
mostraremos parte de la definición de la clase TList, que estudiaremos en un capítulo
posterior. Esta clase almacena una lista de punteros, a los cuales se accede por medio
de la propiedad vectorial Items:
type
TList = class
private
// ...
function GetItems(I: Integer): Pointer;
procedure SetItems(I: Integer; Value: Pointer);
public
// ...
property Items[I: Integer]: Pointer
read GetItems write SetItems; default;
end;
Más adelante explicaré el uso de la cláusula default. Con las declaraciones anteriores,
se pueden efectuar las siguientes operaciones:
var
Elemento: Pointer;
Lista: TList;
begin
// ...
Propiedades 201
Elemento := Lista.Items[0];
Lista.Items[0] := Lista.Items[1];
Lista.Items[1] := Elemento;
// ...
end;
El código anterior se traduce internamente al siguiente:
Elemento := Lista.GetItems(0);
Lista.SetItems(0, Lista.GetItems(1));
Lista.SetItems(1, Elemento);
¿Cuáles son las cotas mínima y máxima de una propiedad vectorial? Resulta que estas
cotas no existen realmente, y se definen a discreción por la propiedad. Casi todas las
propiedades vectoriales para las que el tipo de su índice es un entero, utilizan el 0
como cota mínima, mientras que la cota máxima varía dinámicamente; en el caso de
las listas de punteros, la cota máxima es Lista.Count - 1, donde Count es la cantidad de
elementos almacenados en la lista. Si el programador utiliza un valor fuera de rango
para el índice, el método que implementa el acceso a la propiedad lanza una excepción para indicar el error.
Como se deduce de la sintaxis de la definición de propiedades, el tipo del índice de la
propiedad no tiene por qué ser un valor entero, u ordinal, en general. Esto nos permite implementar en Delphi un tipo de datos abstracto conocido como vectores asociativos. Por ejemplo, en Delphi tenemos la clase TStrings para representar listas de cadenas. Si estas cadenas tienen todas el formato Parámetro=Valor, como el de los ficheros
de configuración, es posible utilizar la propiedad Values de esta clase para acceder a
un valor conociendo el nombre de un parámetro:
if LoginParams.Values['USERNAME'] = '' then
begin
LoginParams.Values['USERNAME'] := 'Tutankhamon';
LoginParams.Values['PASSWORD'] := 'Osiris';
end;
La propiedad Values ha sido definida del siguiente modo:
type
TStrings = class
private
function GetValue(const Name: string): string;
procedure SetValue(const Name, Value: string);
public
property Values[const Name: string]: string
read GetValue write SetValue;
end;
Nuevamente, es responsabilidad de GetValue y de SetValue el definir qué se hace
cuando se pasa un índice que no tiene valor asociado, como puede ser un nombre de
parámetro inexistente.
202 La Cara Oculta de Delphi
En contraste con el carácter vectorial de estas propiedades, a las propiedades “normales” se les llama con frecuencia propiedades escalares.
Propiedades vectoriales por omisión
Al tipo de recurso que explicaré ahora se le conoce en inglés como syntactic sugar: una
facilidad de tipo puramente sintáctico, pero que permite teclear menos y hacer más
expresivos los listados de programas. Se trata de la posibilidad de definir propiedades
vectoriales por omisión. Recordemos la definición de la propiedad Items de la clase
TList:
property Items[I: Integer]: Pointer
read GetItems write SetItems; default;
La cláusula default indica que podemos omitir el nombre de la propiedad y aplicar
directamente los corchetes a la variable de la clase. Aprovechando esto, podemos
escribir cosas como:
var
Lista: TList;
Elemento: Pointer;
begin
// …
Elemento := Lista[0];
Lista[0] := Lista[1];
Lista[1] := Elemento;
// …
end;
// En vez de Lista.Items[0]
A primera vista, da la impresión de que la variable Lista es una variable vectorial,
aunque realmente es una variable de clase. Por lo demás, la traducción de estas instrucciones es exactamente la misma que antes. Esta técnica se parece en ciertos aspectos a la sobrecarga de operadores en C++.
Solamente puede haber una propiedad vectorial por omisión en cada clase. Una propiedad por omisión mantiene tal carácter incluso en las clases que heredan de la clase
en que se define. Por supuesto, no existe nada parecido a una propiedad escalar por
omisión.
Especificaciones de almacenamiento
Aunque las propiedades nos permiten una mejor abstracción del concepto de estado
interno de un objeto, y nos ofrecen facilidades sintácticas y mnemotécnicas para
actuar sobre el objeto, su propósito primordial es permitir la especificación del es-
Propiedades 203
tado inicial del objeto durante el tiempo de diseño. Es esta la diferencia básica entre
un sistema RAD y los entornos tradicionales de programación.
Para ilustrar mejor el tema necesito contar un poco de historia. En el Neolítico de los
PCs, antes de que se generalizara el uso de Windows y aparecieran las primeras librerías de desarrollo orientadas a objetos para este sistema operativo, Borland comercializaba junto con sus versiones de Pascal para DOS una librería denominada TurboVision, para el manejo de ventanas, diálogos, menús y todo eso (no confundir con
ObjectVision, otro antiguo producto de Borland). TurboVision era orientado a objetos y su arquitectura estaba basada en eventos. El gran problema de TurboVision era
la creación de los objetos visuales. Si necesitábamos un cuadro de diálogo con veinte
cuadros de edición y cinco botones, había que programar instrucciones para la creación e inicialización de cada uno de estos objetos. Ciertos estudios realizados sobre
programas reales llegaron a la conclusión de que el 15% del código programado se
dedicaba a la creación e inicialización de objetos.
En un sistema operativo con interfaz gráfica el problema adquiere mayores connotaciones. Windows reconoce este problema y ofrece los denominados ficheros de recursos
para hacer frente al asunto. Un fichero de recursos contiene la descripción binaria de
uno o más objetos, algunos de ellos gráficos. Por medio de funciones simples del
API, es posible crear un objeto complejo, como puede ser un cuadro de diálogo,
especificando solamente dónde encontrar el recurso asociado. Los ficheros de recursos se editan comúnmente mediante herramientas visuales, y se incorporan al ejecutable de la aplicación en la fase final del proceso de enlace; a este fase se le denomina
en ocasiones binding.
Pero las especificaciones de recursos de Windows se limitan a cierta cantidad limitada
de objetos: diálogos, menús, mapas de bits, etc. Delphi, y los demás sistemas RAD,
aumentan este mecanismo para poder hacer frente a la inicialización de clases arbitrarias definidas por el programador; en el caso de Delphi, mediante el mecanismo de
los ficheros dfm. La VCL de Delphi puede inicializar cualquier clase basada en la clase
predefinida TPersistent a partir de información guardada en uno de estos ficheros. Y
esta técnica se basa en la generación de información en tiempo de compilación para
las propiedades definidas en las secciones published de las clases de componentes.
Normalmente, los valores de las propiedades de un componente se graban en el
fichero dfm cuando el programador crea el componente en tiempo de diseño. Posteriormente, en tiempo de ejecución, durante la creación de los formularios, cada componente debe ser capaz de extraer estos valores del fichero dfm. La información
acerca de cómo leer y escribir los valores de una propiedad en un fichero dfm se genera de forma automática, sin necesidad de que el programador intervenga. No obstante, con el propósito de optimizar el tamaño de la información almacenada, el
programador puede utilizar dos cláusulas, store y default, para indicarle a la VCL
cuándo puede omitir el almacenamiento del valor de una propiedad. Estas cláusulas
204 La Cara Oculta de Delphi
se aplican solamente a propiedades escalares. La más sencilla y fácil de comprender
es default:
type
TAtomo = class(TPersistent)
published
property Carga: Integer read FCarga write SetCarga default 1;
end;
Al indicar que el valor por omisión de la carga es 1, no estamos realizando la inicialización del mismo. Por el contrario, en el constructor de la clase seguimos asignando
un valor para esta propiedad:
constructor TAtomo.Create;
begin
inherited Create;
FCarga := 1;
// …
end;
Lo único que hemos dicho, al especificar la cláusula default, es que si al guardar un
átomo en un dfm encontramos que su carga es unitaria, no hace falta guardar el valor
para esta propiedad. Esto permite quitar bastante carga en los ficheros dfm. Un componente típico tiene unas cuantas propiedades que casi nunca son modificadas por el
programador. Si siempre se guardaran todos los valores de todas las propiedades, los
dfms crecerían desmesuradamente. No obstante, las cláusulas default, además de
estar limitadas a propiedades escalares, solamente pueden aplicarse a aquellas propiedades de tipo ordinal (enteros, enumerativos), o a tipos de conjuntos con un máximo
de elementos menor o igual que 32.
El mayor control sobre el algoritmo de almacenamiento se logra con la cláusula
store. A través de esta cláusula indicamos si queremos almacenar el valor de una
propiedad, mediante una constante lógica o una función sin parámetros que retorne
verdadero o falso. Por ejemplo:
type
TAtomo = class(TPersistent)
private
FNombre: string;
// …
function AlmacenarCarga: Boolean;
function AlmacenarNombre: Boolean;
published
property Carga: Integer read FCarga write SetCarga
store AlmacenarCarga;
property Nombre: string read FNombre write SetNombre
store AlmacenarNombre;
end;
Propiedades 205
function TAtomo.AlmacenarCarga: Boolean;
begin
Result := FCarga <> 1;
end;
function TAtomo.AlmacenarNombre: Boolean;
begin
Result := FNombre <> '';
end;
En este caso, el algoritmo de AlmacenarCarga es equivalente a la cláusula default del
ejemplo anterior, pero pueden utilizarse procedimientos de decisión arbitrarios. AlmacenarNombre, por ejemplo, evita que se guarden en el fichero dfm nombres vacíos,
algo que no podemos lograr con una cláusula default por ser la propiedad de tipo
string.
Acceso a propiedades por su nombre
¿Es posible saber si determinado objeto, cuya clase exacta desconocemos, posee
determinada propiedad? ¿Se puede cambiar entonces el valor de dicha propiedad? Sí,
Delphi lo permite cuando la propiedad ha sido declarada en una sección published.
¿Qué sentido tiene todo esto? Recordemos que Delphi no soporta la herencia múltiple. En el capítulo 17 veremos, por ejemplo, que todos los controles asociables a
bases de datos tienen una propiedad DataSource, para especificar indirectamente de
qué tabla extraen sus datos. Desgraciadamente, esta propiedad no ha sido declarada
en una clase base común a todos estos controles, sino que ha sido adquirida independientemente a lo largo del arduo proceso evolutivo en la jerarquía de herencia.
De modo que, si tenemos una colección de objetos de tipo TControl, no podemos
trabajar polimórficamente con la propiedad DataSource de aquellos objetos que la
implementen, si nos limitamos a la programación orientada a objetos “clásica”.
La unidad TypInfo ofrece funciones y procedimientos para poder manejar propiedades en tiempo de ejecución cuando solamente tenemos el nombre de la misma.
Como no hemos presentado todavía los componentes de bases de datos, realizaremos la demostración con un ejemplo más sencillo: tenemos una variada colección de
controles en un formulario, y queremos desactivarlos en una sola operación genérica.
Para esto, asignaremos False a las propiedades Enabled de los controles, y la cadena
vacía a la propiedad Text de aquellos controles que la implementen, como los cuadros de edición. Coloque en un formulario vacío varios controles heterogéneos, entre
ellos al menos un botón, y asigne la siguiente respuesta al evento OnClick del botón:
procedure TwndMain.Button1Click(Sender: TObject);
var
P: PPropInfo;
I: Integer;
Desactivar: Boolean;
206 La Cara Oculta de Delphi
begin
Desactivar := TButton(Sender).Caption = 'Desactivar';
for I := 0 to ComponentCount - 1 do
if Components[I] <> Sender then
begin
P := GetPropInfo(Components[I].ClassInfo, 'Enabled');
if P <> nil then
SetOrdProp(Components[I], P, Ord(not Desactivar));
P := GetPropInfo(Components[I].ClassInfo, 'Text');
if (P <> nil) and Desactivar then
SetStrProp(Components[I], P, '');
end;
if Desactivar then
TButton(Sender).Caption := 'Activar'
else
TButton(Sender).Caption := 'Desactivar';
end;
Para que este código compile, debemos incluir la unidad TypInfo en la cláusula uses
del fichero. La función GetPropInfo nos permite obtener un puntero a un descriptor
de propiedades; recuerde que esto funcionará sólo con propiedades publicadas.
Luego, los procedimientos SetOrdProp y SetStrProp nos permiten asignar valores a las
propiedades. También existen funciones GetOrdProp y GetStrProp para recuperar los
valores de una propiedad dado su descriptor.
Capítulo
10
Eventos
P
RIMER PLANO:
las manecillas de un reloj antiguo se van acercando a las 8 de la
mañana. Cuando el horario alcanza esa posición, su borde afilado rompe una
fina cuerda que sostiene, a través de una polea, una tostadora. La tostadora cae
sobre una tijera que corta un alambre, que deja en libertad a un ratón, tras el cual
comienza a correr un gato sobre una cinta infinita que va subiendo una jarra de agua
hasta el techo. Cuando la jarra no puede subir más, se derrama sobre el hombre que
duerme plácidamente en la vieja cama y...
La historia anterior está inspirada en una película muda, pero describe adecuadamente el funcionamiento de un programa escrito en Delphi. En este lenguaje, la
activación de un método puede realizarse automáticamente en respuesta a acciones
del usuario o a cambios del estado interno de ciertos objetos. En el presente capítulo
estudiaremos los eventos, que constituyen el mecanismo ofrecido por Delphi para este
propósito.
Punteros a funciones
Tras toda la filosofía de los eventos se esconde el mecanismo de punteros a funciones o procedimientos, por lo cual comenzaremos analizando esta técnica. En sus
principios, Pascal no tenía un tipo de datos para almacenar punteros a funciones y
procedimientos. Curiosamente, la primera extensión de este tipo la propuso el propio
autor del lenguaje, Niklaus Wirth, pero solamente contemplaba la posibilidad de utilizar estos tipos para el traspaso de parámetros. El Pascal de Borland incluyó los punteros a procedimientos en su versión 4.
¿Qué es un puntero a función? Cuando ejecutamos un programa, cada función o
procedimiento incluido en éste tiene una posición bien determinada en el segmento
de código de la memoria de la máquina. Esta dirección, tanto en programas de 16
como de 32 bits sobre procesadores Intel, se puede expresar en 32 bits. Esto es un
puntero a función.
208 La Cara Oculta de Delphi
Cuando ejecutamos una rutina del modo tradicional, estamos instruyendo a la máquina que “salte” a una dirección fija en memoria:
function SenoHiperbolico(Parametro: Double): Double;
// Supongamos que estas instrucciones se cargan
// en la dirección 0010CAFE.
// El seno hiperbólico es la función (ex – e-x)/2, no es pornopoesía.
begin
Result := Exp(Parametro);
Result := (Result – 1 / Result) / 2;
end;
var
X: Double;
begin
X := SenoHiperbolico(Pi / 2);
// Quiere decir:
// Ejecuta la rutina 0010CAFE con el parámetro 1.57 y ...
X := CosenoHiperbolico(Pi / 2);
// Ejecuta la rutina 0307DEB0 con el parámetro 1.57 y ...
end;
Si utilizamos variables para almacenar las direcciones de rutinas, podemos hacer
cosas como la siguiente:
type
TFuncionMatematica = function (Arg: Double): Double;
var
X: Double;
F: TFuncionMatematica;
begin
X := SenoHiperbolico;
// Se almacena 0010CAFE en la variable F
X := F(Pi / 2);
// Quiere decir:
// Ejecuta la rutina cuya dirección está almacenada en F y ...
end;
Los punteros a procedimientos no permiten el trabajo con las funciones y procedimientos anidados de Pascal: aquellos definidos localmente dentro de otros procedimientos.
Punteros a métodos
Los punteros a funciones existen en la programación desde hace mucho tiempo.
Pero con la llegada de la Programación Orientada a Objetos las cosas se complicaron. ¿Qué sentido debe tener un puntero a un método? Bjarne Stroustrup, el autor
de C++, escogió el siguiente camino: un puntero a método sigue almacenando una
dirección a una rutina. Esto quiere decir que para ejecutar la rutina necesitaremos,
además de los parámetros, el objeto sobre el cual se aplica el método.
Eventos 209
El significado de los punteros a métodos de Delphi, sin embargo, es diferente. En
Object Pascal, este tipo de datos almacena la dirección de la rutina asociada al método y, además, el objeto sobre el cual se debe aplicar éste. Un puntero a método se
declara del mismo modo que un puntero a función, pero al final de la declaración hay
que añadir la frase of object. Por ejemplo:
type
TNotifyEvent = procedure (Emisor: TObject) of object;
Desde el punto de vista de la implementación, un puntero a método se representa en
8 bytes mediante un par de punteros “normales” de 4 bytes: la dirección del objeto
receptor y la dirección del método del mismo que debe ejecutarse en respuesta al
evento.
La sintaxis de la asignación a variables de este nuevo tipo es similar a la de los punteros a procedimientos, con dos excepciones:
•
•
Esta vez necesitamos un método, no un procedimiento.
Además del método necesitamos un objeto. Este puede ser Self, y es asumido
implícitamente.
Por ejemplo:
var
PuntMet1, PuntMet2: TNotifyEvent;
procedure TForm1.Metodo1(Sender: TObject);
begin
// …
end;
procedure TForm1.Metodo2;
begin
PuntMet1 := Metodo1;
// Realmente: PuntMet1 := Self.Metodo1;
PuntMet2 := Form2.Metodo3;
// El objeto receptor es Form2
PuntMet1 := nil;
end;
En la última instrucción estamos asignando un puntero vacío a la variable PuntMet1.
Posteriormente, podemos utilizar la función Assigned para saber si un puntero a método contiene el puntero vacío. El ejemplo siguiente comprueba el valor almacenado
en variables de punteros a métodos antes de ejecutar el método asociado:
procedure TForm1.Metodo4;
begin
if Assigned(PuntMet2) then PuntMet1(Self);
// Llama a: Form2.Metodo3(Self);
end;
210 La Cara Oculta de Delphi
Objetos activos: ¡abajo la vigilancia!
Nada es eterno, sólo la tierra y el cielo13. Incluso los átomos, indivisibles en apariencia, se desintegran al cabo de un tiempo aleatorio, disminuyendo su masa nuclear.
Supongamos que nuestra aplicación tiene en sus manos un átomo radioactivo de
Carbono 14, y quiere avisar al usuario cuando el átomo sufra su metamorfosis. Es
probable que ésta sea nuestra primera idea:
var
Carbono: TAtomo;
begin
Carbono := TAtomo.Create(6, 14); // Carga y masa nuclear
while Carbono.Masa = 14 do
{ Esperar pacientemente };
ShowMessage('¡Atomo desintegrado!');
Carbono.Free;
end;
Haga esto en una aplicación de Windows 3.x si quiere que el sistema operativo quede
completamente colgado hasta que al átomo le apetezca desintegrarse. Incluso en
Windows 95 y NT esta es un forma tonta de desperdiciar tiempo de procesamiento.
Mientras espera por el átomo, nuestra aplicación no puede hacer nada más: ni escuchar lo que desesperadamente trata de decirle el usuario, ni extrapolar las combinaciones acertantes de la lotería para ayudarnos a hacernos ricos.
Dependemos de un átomo, y sólo el átomo sabe cuando cambiará su estado, ¿por
qué no dejar que sea el átomo quien nos avise cuando se desintegre? Este tipo de
distribución de tareas es precisamente la que propone la Programación Orientada a
Objetos. He sugerido que el átomo nos avise, pero ¿qué es un aviso en programación? Bueno, cuando a uno lo avisan es para que hagamos algo, aunque ese “algo”
sea no hacer nada. Y hacemos algo en programación cuando ejecutamos una rutina.
Entonces, cuando el átomo se desintegre debe llamar a una rutina. ¿Cuál? Si queremos que nuestros átomos puedan utilizarse con flexibilidad, el átomo no tiene por
qué saber de antemano qué rutina debe ejecutar. En consecuencia, el átomo necesita
un puntero a función o a método para que le digamos qué tiene que hacer cuando se
desintegre. A continuación propongo una solución:
type
TAtomo = class;
TEventoAtomo = procedure (Emisor: TAtomo) of object;
TAtomo = class
EventoDesintegracion: TEventoAtomo;
// …
end;
13
Dust in the wind (Point of Know Return, Kansas, 1977)
Eventos 211
Como estamos trabajando en un entorno orientado a objetos, he preferido utilizar un
puntero a método. Se supone que cuando el átomo se desintegre, debe llamar al método asociado a su puntero EventoDesintegracion. Esta es la forma en que tenemos que
programar el aviso de desintegración:
procedure TForm1.AvisoDesintegracion(Emisor: TAtomo);
begin
ShowMessage('¡Atomo desintegrado!');
Emisor.Free;
end;
procedure TForm1.CrearAtomoClick(Sender: TObject);
begin
with TAtomo.Create(6, 14) do
EventoDesintegracion := AvisoDesintegracion;
end;
Nos queda explicar algo: hemos dicho que, misteriosamente, el átomo pierde parte
de su masa al cabo de cierto tiempo. Para la explicación anterior, no nos interesa qué
mecanismo utiliza el átomo para esto. Pero como no me gusta dejar cabos sueltos,
voy a mostrar una posible implementación ¡que también utiliza eventos!
type
TAtomo = class
private
FCarga: Integer;
FMasa: Integer;
Temporizador: TTimer;
procedure AvisoTemporizador(Sender: TObject);
public
EventoDesintegracion: TEventoAtomo;
constructor Create(ACarga, AMasa: Integer);
destructor Destroy; override;
property Carga: Integer read FCarga;
property Masa: Integer read FMasa;
end;
constructor TAtomo.Create(ACarga, AMasa: Integer);
begin
FCarga := ACarga;
FMasa := AMasa;
if (FCarga = 6) and (FMasa = 14) then
begin
Temporizador := TTimer.Create(nil);
Temporizador.Enabled := False;
Temporizador.Interval := 1000 + Random(1000);
Temporizador.OnTimer := AvisoTemporizador;
Temporizador.Enabled := True;
end;
end;
destructor TAtomo.Destroy;
begin
Temporizador.Free;
inherited Destroy;
end;
212 La Cara Oculta de Delphi
procedure TAtomo.AvisoTemporizador(Sender: TObject);
begin
Temporizador.Enabled := False;
FCarga := FCarga – 2;
if Assigned(EventoDesintegracion) then
EventoDesintegracion(Self);
end;
Aunque no es frecuente que una aplicación real tenga que vigilar el comportamiento
de un átomo, las consideraciones anteriores se aplican a cualquier programa que
ofrezca una Interfaz Gráfica de Usuario (GUI). En estos sistemas, el objeto vigilado
¡es el usuario! Bueno, más bien la cola de mensajes (teclas, movimientos de ratón,
etc.) que va generando el usuario con sus acciones.
Eventos vs redefinición de métodos virtuales
Un programador “orientado a objetos”, pero que no esté acostumbrado a trabajar
con componentes, habría “resuelto” el problema del aviso de desintegración creando,
en la clase TAtomo un método virtual vacío:
type
TAtomo = class
protected
procedure Desintegrado; virtual;
// …
end;
// …
procedure TAtomo.Desintegrado;
begin
end;
procedure TAtomo.AvisoTemporizador(Sender: TObject);
begin
Temporizador.Enabled := False;
FCarga := FCarga – 2;
Desintegrado;
end;
En teoría, todo lo tenemos previsto para el átomo. Si necesitamos un átomo que
avise cuando se desintegre, podemos derivar una clase a partir de la clase anterior y
redefinir el método Desintegrado:
type
TAtomoConAviso = class(TAtomo)
protected
procedure Desintegrado; override;
end;
Eventos 213
procedure TAtomoConAviso.Desintegrado;
begin
ShowMessage('¡Atomo desintegrado!');
Free;
end;
Este enfoque funciona si todos los átomos de nuestra aplicación lanzan un desesperado mensaje al desintegrarse. Pero si uno de nuestros átomos debe activar una
bombilla, el otro bailar una jiga y el tercero formatear el disco duro de nuestro vecino, ¡tenemos que definir tres nuevas clases de átomos! Y estos son los inconvenientes de tener tantas clases:
•
•
•
Sumando la declaración de la clase más la implementación del método, hay que
teclear más.
A nivel de implementación, redefinir una clase para modificar un solo método
para crear solamente un objeto no es rentable: esto implica duplicar una Tabla de
Métodos Virtuales en el segmento de datos estático. Una VMT real tiende a ser
bastante grande, aún con las mejoras de los métodos dinámicos de Borland.
Un TAtomoConAviso nace siendo un “átomo con aviso”, crece como “átomo con
aviso” y muere siendo lo mismo. No puede convertirse dinámicamente en un
“átomo destrozador de discos”.
Realmente, vale la pena crear la clase TAtomoConAviso si vamos a utilizar esta clase en
varias aplicaciones, o en diferentes contextos de una misma aplicación. Delphi siempre nos deja esta puerta abierta, permitiéndonos redefinir la clase, o incluso crear un
nuevo componente.
UNA FABULA
Había una vez un rey que se preocupaba tanto por el bienestar de sus súbditos,
que prohibió el uso de cuchillos, tijeras y cualquier objeto afilado, con tal de que
nadie en su reino pudiera hacerse pupa, siquiera accidentalmente. Como resultado, la plebe no podía sacrificar ganado, cortar los filetes, arreglarse el pelo, y en
pocos meses el que no había muerto de hambre, se había vuelto loco.
Uno de los muchos motivos por los que detesto a Java (sí, estaba pensando en
Java) es que no ofrece punteros, mucho menos punteros a métodos. ¿Resultado?
Que para soportar un simple evento (Java Beans) hacen falta objetos intermedios
y un mecanismo complicado hasta más no poder. Todo esto significa lentitud en
ejecución y dificultad para el mantenimiento. Súmele a esto el que la máquina
virtual es más lenta que los tribunales de justicia, y los retrasos que causa la recogida de basura en aplicaciones serias. Si no le basta, le propongo un acertijo
orientado a objetos: meto un perro en una colección de animales, y cuando lo
saco es solamente un animal abstracto (no puede menear la cola).
214 La Cara Oculta de Delphi
El emisor y el receptor del evento
En la comunicación entre objetos mediante eventos podemos siempre identificar dos
participantes: el emisor del evento y el receptor. El emisor del evento es el objeto que
produce el evento, o en términos de implementación, el que llama al método asociado con el puntero del evento, si es que este puntero es distinto de nil. El receptor,
en cambio, es un método dentro de cierto objeto; no es sencillamente un procedimiento aislado, ni un objeto en general.
Cuando Delphi crea automáticamente una respuesta a un evento perteneciente a un
componente, sitúa al receptor en el formulario donde se encuentra el componente; si
el evento pertenece al propio formulario, el objeto receptor es el mismo emisor. Con
la interfaz visual de Delphi no se pueden crear receptores de eventos que violen este
convenio; para esto tenemos que inicializar la conexión emisor/receptor por medio
de código.
El primer ejemplo de esta conexión manual es el tratamiento de eventos del objeto
Application. Este objeto, global a la aplicación, tiene eventos útiles como OnException,
para el tratamiento centralizado de excepciones, OnIdle, para aprovechar los intervalos en que el usuario de la aplicación está ocioso, y OnHint, que se dispara cuando el
puntero del ratón pasa por encima de un componente que tiene una indicación asociada. El último evento se puede aprovechar para mostrar las indicaciones en una
barra de estado. Como no podemos seleccionar al objeto Application en el Inspector
de Objetos, ni buscar la página de Eventos y hacer un doble clic en el evento OnHint,
tenemos que realizar nosotros mismos el equivalente de este proceso en el código
fuente.
type
TFormularioPrincipal = class(TForm)
// …
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
// Declarado por Delphi
private
procedure MostrarAyuda(Emisor: TObject);
// Creado por nosotros
end;
procedure TFormularioPrincipal.MostrarAyuda(Sender: TObject);
begin
StatusBar1.Panels[StatusBar1.Panels.Count – 1].Text :=
Application.Hint;
end;
procedure TFormularioPrincipal.FormCreate(Sender: TObject);
begin
// Conectar el evento al receptor
Application.OnHint := MostrarAyuda;
// En realidad: Self.MostrarAyuda
end;
Eventos 215
Una situación diferente se presenta en las aplicaciones MDI. El desarrollo de este
tipo de aplicaciones comienza por definir una ventana principal, en la cual se incluye
un menú mínimo, con las opciones que son aplicables cuando no hay documentos
abiertos. Por ejemplo, el menú Fichero puede tener solamente las opciones Nuevo,
Abrir y Salir. El comando de menú Abrir corresponde a un componente TMenuItem
nombrado Abrir1, con la siguiente respuesta asociada a su evento OnClick:
procedure TPrincipalMDI.Abrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
// … abrir documento MDI …
end;
El próximo paso es crear la clase de las ventanas de documentos. Estas ventanas
tienen un menú más detallado, con los comandos específicos para manipular documentos. El menú local se mezcla con el menú global de la ventana principal cuando
la nueva ventana está activa. En el menú local necesitamos también un menú Fichero
ampliado, que sustituye al Fichero global, y en este nuevo menú también tenemos un
comando Abrir, cuya respuesta debe ser exactamente la misma que antes. ¿Qué hacemos, duplicamos el código de Abrir1Click? Existe una mejor solución, que es asociar al evento del menú local la respuesta existente en el formulario principal. Esto
no se puede hacer en Delphi con el Inspector de Objetos, por lo que nuevamente
realizamos el enlace emisor/receptor mediante instrucciones:
procedure TDocumentoMDI.FormCreate(Sender: TObject);
begin
Abrir1.OnClick := PrincipalMDI.Abrir1.OnClick;
// O, lo que es lo mismo:
// Abrir1.OnClick := PrincipalMDI.Abrir1OnClick;
end;
Receptores compartidos
El último ejemplo de la sección anterior muestra dos objetos emisores que dirigen
sus eventos a un mismo receptor. Aunque en el ejemplo los dos objetos se encuentran en diferentes formularios, es mucho más común que los objetos se encuentren
en la misma ficha, estando el receptor definido en la clase del formulario. La situación se puede describir mediante el siguiente diagrama:
216 La Cara Oculta de Delphi
Emisor #1
Emisor #2
Objeto receptor
Cuando se da este tipo de receptores compartidos, puede ser importante distinguir
qué emisor ha producido el evento. Es por esto que casi todos los eventos de Delphi
han sido diseñados con un parámetro Sender, para informar acerca del emisor. Este
Sender se declara casi siempre de tipo TObject. De este modo, el receptor del evento
OnClick de un comando de menú puede ser compartido con el evento OnClick de un
TSpeedButton ó TToolButton (Delphi 3/4) colocado en una barra de herramientas. Las
reglas de compatibilidad de tipos de clase exigen que, para que estos receptores puedan compartirse, el parámetro del emisor debe pertenecer a una clase común a todos
los tipos de emisores. Los candidatos obvios son TComponent y TObject. Delphi se
queda con este último.
Otro caso de receptor compartido se produce cuando dos eventos de un mismo
componente apuntan al mismo procedimiento receptor. Por ejemplo, una tabla tiene
los eventos AfterPost, que se dispara después de una inserción o modificación, y AfterDelete, que se produce después de una operación de borrado. Si queremos alguna
acción que se produzca después de cualquier actualización sobre esta tabla, podemos
compartir el receptor entre estos dos eventos. El siguiente esquema ilustra la situación:
Emisor
Objeto receptor
En este caso, sin embargo, no tenemos forma de distinguir cuál ha sido el evento que
ha provocado la ejecución del receptor. El parámetro Sender, en cualquiera de los dos
casos, es el mismo objeto emisor.
Tipos de eventos
La mayoría de los eventos de Delphi se disparan por una de las siguientes razones:
Eventos 217
• El emisor ha sufrido un cambio de su estado interno y desea avisarnos.
• El usuario ha realizado alguna acción. Windows notifica a la VCL con un mensaje. La VCL, a su vez, nos avisa con un evento.
• Dentro de un algoritmo interno del emisor hace falta tomar una decisión. El
emisor pregunta a cualquier receptor interesado su opinión sobre el asunto antes
de continuar.
El primer tipo de evento es típico de los componentes no visuales. Por ejemplo, las
tablas y consultas (TTable y TQuery) utilizan cambios de estado para permitir las actualizaciones. Si queremos modificar los campos de una tabla debemos aplicar el
método Edit sobre el objeto de tabla. La implementación de Edit es, a grandes rasgos, parecida a esto:
if
//
//
//
if
Assigned(FBeforeEdit) then FBeforeEdit(Self);
…
Aquí la tabla se pone en el modo de edición
…
Assigned(FAfterEdit) then FAfterEdit(Self);
De este modo, un usuario interesado en controlar las veces en que una tabla es modificada puede interceptar estos eventos. En el evento BeforeEdit, por ejemplo, puede
comprobar que se cumplan ciertas condiciones necesarias; de no ser así, puede utilizar el mecanismo de excepciones para abortar toda la operación (la instrucción
raise).
Al segundo tipo de evento pertenecen los eventos de teclado y ratón: OnKeyDown,
OnMouseDown, etc. Generalmente estos eventos tienen varios parámetros para indicar
la tecla pulsada, el estado de las teclas de control, las coordenadas del ratón e información similar. Esta es, por ejemplo, la declaración del tipo de los eventos de ratón:
type
TMouseEvent = procedure (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer) of object;
Indirectamente, estos objetos disparan otra generación de eventos: OnClick,
OnDblClick, OnChange, etc. Sin embargo, estos mismos eventos pueden producirse
por cambios internos de estado. El evento OnChange de un cuadro de edición TEdit
se dispara también cuando se le asigna algo a la propiedad Text del componente.
También pertenecen a este segundo grupo los eventos relacionados con los mensajes
de ventana de Windows: OnClose, OnActivate, OnResize, que corresponden a los mensajes WM_CLOSE, WM_ACTIVATE y WM_SIZE.
218 La Cara Oculta de Delphi
Nos piden nuestra opinión...
La característica principal de la tercera categoría de eventos de la sección anterior es
la presencia, en la declaración del tipo de evento, de parámetros pasados por referencia, con la palabra reservada var. El propósito de esta técnica es que el receptor
pueda pasar información directamente al emisor. En este tipo de evento, el objeto
que lo produce debe inicializar el parámetro por referencia con un valor determinado. De este modo, si no realizamos modificaciones en el parámetro, el objeto sigue
su comportamiento habitual.
Un ejemplo típico es el evento OnCloseQuery, de los formularios:
type
TCloseQueryEvent = procedure (Sender: TObject;
var CanClose: Boolean);
La documentación de Delphi nos dice que CanClose trae True como valor predeterminado. Este evento se lanza mediante un código similar a grandes rasgos al siguiente:
var
CanClose: Boolean;
begin
// …
CanClose := True;
if Assigned(FOnCloseQuery) then FOnCloseQuery(Self, CanClose);
if CanClose then
// …
end;
Otro evento similar es OnClose. El parámetro Action de este evento permite personalizar la acción que se realiza cuando el usuario cierra una ventana:
procedure TDocumentoMDI.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
// Inicialmente, Action vale caMinimize
Action := caFree;
// Se debe liberar la memoria de la ventana
end;
Los eventos expresan contratos sin obligaciones
¿Qué sucede si un usuario crea una respuesta a OnCloseQuery que no toca el parámetro CanClose, o que sencillamente no hace nada? Pues no pasa nada: si observamos el
código de lanzamiento del evento, veremos que si el manejador no cambia el valor
del parámetro, éste mantiene su valor inicial, True, y el algoritmo del emisor puede
Eventos 219
continuar. Es más, si no hay receptor asociado al evento tampoco pasa nada, pues
CanClose sigue siendo True.
Este comportamiento es generalizable como filosofía de diseño de los eventos.
Cuando un objeto le ofrece a un programador un conjunto de eventos, está estableciendo un contrato bajo los siguientes términos:
“Aquí te ofrezco estos eventos. Si los usas, bien; y si no, no pasa nada”
Esto contrasta con la filosofía de muchas bibliotecas de clases tradicionales, donde la
personalización de un objeto se realiza redefiniendo un método virtual, y se exige
que el programador llame obligatoriamente, en algún momento, al método heredado
(inherited). Si esta llamada se omite, las consecuencias son impredecibles.
Activación recursiva
El gran problema de la programación con eventos es la posibilidad de disparar, durante el tratamiento de un evento, otros eventos secundarios inesperados. En particular, esto puede causar la activación recursiva de un manejador, con el riesgo de
bucles infinitos y de desbordamientos de pila. En estas situaciones hay que controlar
que los eventos se produzcan de modo exclusivo, de modo que si estamos dando respuesta a un evento, ignoremos el otro evento.
Este tipo de problemas se presenta con frecuencia cuando dos controles actúan sobre el estado de un mismo objeto, y tienen que estar sincronizados entre sí. El siguiente diagrama ilustra la situación:
Control #1
Objeto
Control #2
Cuando el primer control cambie su valor, además de cambiar el estado del objeto,
debe asignar un nuevo valor al segundo control. Esto provoca, para la mayoría de los
controles, un segundo evento emitido esta vez por el segundo control. En esta respuesta se cambia el estado del objeto y se reajusta el valor del primer control ... y así
per secula seculorum.
En un formulario vacío coloque los siguientes objetos; los componentes TTrackBar y
TUpDown pueden encontrarse en la página Win95 de la Paleta de Componentes:
220 La Cara Oculta de Delphi
Objeto
TrackBar1: TTrackBar
Edit1: TEdit
UpDown1: TUpDown
Propiedad
Min
Max
Valor
0
255
Min
Max
Associate
0
255
Edit1
El objetivo de este programa es cambiar el color del fondo de la ventana a un gris
cuya intensidad esté dada por el cuadro de edición o por la barra deslizante, que estarán sincronizados en todo momento. El usuario debe poder cambiar esta intensidad
desde cualquiera de estos controles. El código necesario se muestra a continuación:
type
TForm1 = class(TForm)
// …
private
FCambiando: Boolean;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var
Valor: Integer;
begin
if not FCambiando then
begin
FCambiando := True;
Valor := UpDown1.Position;
Color := RGB(Valor, Valor, Valor);
TrackBar1.Position := Valor;
FCambiando := False;
end;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
var
Valor: Integer;
begin
if not FCambiando then
begin
FCambiando := True;
Valor := TrackBar1.Position;
Color := RGB(Valor, Valor, Valor);
UpDown1.Position := Valor;
FCambiando := False;
end;
end;
La variable FCambiando se utiliza como un semáforo de exclusión mutua (mutex).
Cada respuesta a evento comprueba que no existe alguna otra respuesta pendiente en
la pila de ejecución examinando esta variable. Cuando el método obtiene la luz verde,
Eventos 221
asigna True a FCambiando para señalar su presencia. Al terminar, está obligado a restablecer la luz verde, asignando False al semáforo.
La función RGB, utilizada antes, pertenece al API de Windows y calcula un color a
partir de las intensidades de sus componentes rojo, verde y azul. Si los colores básicos se mezclan en igual proporción, se obtienen los distintos tonos de gris.
Capítulo
11
Excepciones
S
I CON LA PROGRAMACIÓN ORIENTADA A OBJETOS
aprendimos a organizar
nuestros datos y algoritmos, si con los Sistemas Controlados por Eventos nos
liberamos de la programación “posesiva”, con las Excepciones daremos el último paso necesario: aprenderemos a ver a un programa como un proceso que se
desarrolla en dos dimensiones. Y nos liberaremos de los últimos vestigios de la neurosis “yo lo controlo todo en mi programa”, un paso importante hacia la Programación
Zen.
Sistemas de control de errores
Errar es de humanos, pero para meter de verdad la pata hace falta un ordenador. O,
como dice la famosa ley de Murphy: todo lo que puede fallar, falla. Acabamos de
comprar una biblioteca de funciones para trabajar, digamos, con la nueva NDAPI
(Nuclear Devices Application Programming Interface). Por motivos de seguridad, en adelante utilizaremos nombres falsos y cortos para las funciones de la biblioteca; también omitiremos los parámetros. Supongamos que cierto proceso que está programando requiere una secuencia de llamadas a rutinas:
A; B; C; D; E
Ahora bien, cada una de estas rutinas puede fallar por ciertos y determinados motivos. Para controlar los errores cada rutina es una función que devuelve un código
entero representando el estado de error. Supondremos para simplificar que 0 significa ejecución exitosa. Este mecanismo es equivalente a toda una amplia gama de
técnicas de notificación de errores: variables de estado global, parámetros de estado,
etcétera, por lo cual nuestra suposición no quitará generalidad a nuestras conclusiones. Partiendo de estas premisas, ¿cómo hay que modificar el código anterior para
controlar los posibles errores? La respuesta es la siguiente:
Result := -1;
if A = 0 then
if B = 0 then
if C = 0 then
if D = 0 then
224 La Cara Oculta de Delphi
if E = 0 then
Result := 0;
Observe que este código, a su vez, debe formar parte de una función o procedimiento, este último creado por nosotros. Y esta rutina hereda el carácter “falible” de
las funciones que invoca, por lo que hay que devolver también un valor para indicar
si nuestra función terminó bien o mal. En este caso, hemos simplificado el algoritmo,
devolviendo únicamente 0 ó -1 para indicar éxito o fracaso.
Un programador con un mínimo de picardía puede pensar en la siguiente alternativa
al código anterior:
if (A = 0) and (B = 0) and (C = 0) and (D = 0) and (E = 0) then
Result := 0
else
Result := -1;
No está mal, se parece un poco al estilo de programación de Prolog14. Pero la función A levanta la tapa de un contenedor de sustancias radiactivas y, pase lo que pase,
hay que llamar a la función E, que cierra el depósito, si A terminó satisfactoriamente,
¡y sólo en ese caso, o aténgase a las consecuencias! Está claro que por este camino
vamos al holocausto nuclear.
En la práctica, cuando el tema de programación no es tan dramático, lo que sucede
es que el código de error no se verifica en todos los momentos necesarios. Es frecuente ver a un programa herido de muerte tambalearse por todo el escenario derribando muebles y tropezando con el resto de los actores. A todo esto nos ha conducido la filosofía “clásica” de verificación de errores.
Contratos incumplidos
La falta de precisión es un pecado, ¿qué queremos decir exactamente con aquello de
que “una rutina puede fallar”? Para entendernos vamos a adoptar una metáfora de la
programación conocida como programación por contrato. Según este punto de vista, una
llamada a una rutina representa un contrato que firmamos con la misma. En este
contrato hay dos partes: el contratador, que es la rutina donde se produce el llamado,
y el contratado, que es la rutina a la cual se llama. El contratador debe proveer ciertas
condiciones para la ejecución del contrato; estas condiciones pueden consistir en el
estado de ciertas variables globales a la rutina llamada o los parámetros pasados a la
misma. Por su parte, el contratado se compromete a cumplir ciertos y determinados
objetivos. Es el fallo en el cumplimiento de estos objetivos, o la detección de incumplimientos por parte del contratador, lo que puede causar un error.
¿Hay alguien que aún recuerde el boom de la Programación Lógica y de los Lenguajes
Funcionales?
14
Excepciones 225
El problema de los sistemas tradicionales de control de errores es que el incumplimiento de un contrato por parte de una rutina no utiliza ningún mecanismo especial
de señalamiento. Para detectar un contrato incumplido hay que utilizar las mismas
instrucciones de control condicionales que cuando se cumplen los contratos, mezclándose las situaciones en que van bien las cosas y las situaciones en que van mal.
Por este mismo motivo, un contrato incumplido puede pasar desapercibido. Podemos resumir las condiciones mínimas que hay que exigir a una política correcta de
control de errores en estos puntos:
• Si quiero llamar sucesivamente a tres funciones, debo poder hacerlo sin mezclar
condicionales que contaminen la lógica de mi algoritmo. Debo poder mantener la
linealidad del algoritmo original.
• Un error no puede pasar desapercibido.
• Deben respetarse las condiciones de clausura: toda puerta abierta debe cerrarse, aún
en caso de fallo.
• Los errores deben poder corregirse: un contrato incumplido no debe causar inevitablemente la caída del sistema.
Cómo se indica un error
Entonces vienen las excepciones al rescate. Con nuestro nuevo sistema, cada vez que
una función contratada detecta que no puede cumplir con sus obligaciones, produce
una excepción. Para producir la excepción se utiliza la instrucción raise, que significa
“elevar” o “levantar”. Esta instrucción interrumpe la ejecución del programa y provoca la terminación de todas las funciones pendientes, a menos que se tomen medidas especiales. Al ejecutar la excepción hay que asociarle un objeto que porte la información acerca de la situación que la ha provocado. Un ejemplo típico de instrucción para elevar una excepción es el siguiente:
raise Exception.Create('¡Algo va mal!');
Exception es una clase definida por Delphi, aunque su nombre no comience con la
letra T (es precisamente la excepción del convenio). En la instrucción anterior se crea
“al vuelo” un nuevo objeto de esta clase utilizando el constructor Create. Este constructor tiene un único parámetro, el mensaje explicativo de las causas que motivaron
la excepción. El mensaje se almacena en la propiedad Message del objeto de excepción
construido.
Supongamos que necesitamos una función que divida dos números entre sí. Contratamos la función pasándole un par de enteros, y nos comprometemos a que el divisor
que suministramos es distinto de cero. Utilizando el nuevo mecanismo de señalización de fallos, podemos realizar esta implementación:
226 La Cara Oculta de Delphi
function Dividir(Dividendo, Divisor: Integer): Integer;
begin
if Divisor = 0 then
// Se ha detectado una violación de las cláusulas del contrato
raise Exception.Create('División por cero');
Result := Dividendo div Divisor;
end;
Si en algún momento se llama a esta función con un divisor igual a cero, se ejecutará
la instrucción raise. Esta instrucción interrumpe el flujo normal de la ejecución del
programa: las instrucciones siguientes no se ejecutarán y el programa, si no se toman
medidas especiales, debe terminar.
He utilizado como ejemplo la división de dos enteros por simplicidad. En realidad, no hay que verificar explícitamente que el divisor sea distinto de cero, pues
Delphi se encarga de la verificación y lanza una excepción. Eso sí, el objeto de
excepción que se construye pertenece a la clase EDivByZero, que desciende de
nuestra Exception.
La ejecución del programa fluye en dos dimensiones
Voy a recordarle al lector un hecho que, aunque conocido, se olvida con facilidad. Y
es que la ejecución de un programa se puede visualizar como un flujo bidimensional.
Para poner un ejemplo inmediato, considere cualquiera de los fragmentos de código
del epígrafe anterior. Dentro de cada secuencia, descontando los saltos hacia adelante
de las condicionales y los saltos hacia atrás de los bucles, las instrucciones siguen una
línea de ejecución. ¿Qué sucede cuando se ejecuta la última línea de la secuencia?
¿Caemos al vacío, como imaginaban los medrosos marineros medievales que les sucedía a las embarcaciones que llegaban al fin del mundo?
Pues no: a la función o procedimiento actual la llamó, en su momento, alguna otra
rutina, a la cual se regresa entonces. Y a esta rutina, a su vez, la debe haber llamado
alguna otra, y así sucesivamente hasta llegar al punto de inicio del programa. La estructura de datos de la aplicación que gestiona esta lista de rutinas pendientes de
terminación es la pila de ejecución del programa.
La pila de ejecución
function A;
var
function
I: A;
Integer;
var begin
function
A;
I: end;
Integer;
var begin
I: end;
Integer;
begin
end;
Excepciones 227
Toda cadena es tan fuerte como su eslabón más débil. Si una rutina llama a rutinas
propensas a fallar, esta propia rutina es una potencial incumplidora de contratos. Si
una de las subrutinas llamadas por esta rutina eleva una excepción, la rutina debe
también interrumpir su ejecución.
El estado de pánico
Uno de los conceptos principales para comprender las excepciones es que en todo
momento el programa está en uno de dos estados posibles: el estado que podemos
catalogar de “normal” y el estado de excepción, al cual también podemos llamar
“estado de pánico”. En este último estado se produce la interrupción en cadena de
las rutinas pendientes en la pila del programa. No existe nada parecido a una excepción sobre otra excepción: o el programa se está ejecutando normalmente o está
interrumpiendo rutinas.
Una de las consecuencias de la existencia de sólo dos estados de la ejecución para un
programa es la posibilidad de utilizar una variable global para almacenar la información sobre la posible excepción activa. El objeto de excepción se puede obtener en
cualquier momento por medio de la función ExceptObject. De todos modos, un poco
más adelante veremos técnicas más adecuadas para trabajar con este objeto.
Pagamos nuestras deudas
Todo parece indicar que nuestro “revolucionario” sistema para tratamiento de errores se reduce a interrumpir simplemente el funcionamiento del programa. Según
esto, el uso de la instrucción raise produce casi el mismo efecto que el procedimiento Halt de Turbo Pascal. Si piensa así, se equivoca.
En la descripción de cómo una instrucción raise interrumpe la ejecución de un programa hay un detalle importante: la ejecución va interrumpiendo una a una cada
función pendiente en la pila de la aplicación. Y el sentido de esta conducta es la búsqueda de posibles instrucciones de manejo de excepciones. Tenemos, en primer lugar, la instrucción try…finally, cuya sintaxis es la siguiente:
try
// Instrucciones …
finally
// Más instrucciones …
end;
Si todo va bien durante la ejecución de la instrucción, se ejecutan tanto las instrucciones de la parte try como las de la parte finally, esto es, se puede leer la instrucción ignorando las tres palabras reservadas. En cambio, si se produce una excepción
228 La Cara Oculta de Delphi
durante la ejecución de la parte try (que quiere decir “intentar” en inglés) se interrumpe la ejecución del resto de esta parte, pero se ejecuta entonces la parte finally.
En este último caso, al terminar las instrucciones finally la excepción sigue propagándose. Por lo tanto, la instrucción try…finally no nos permite resolver el problema ocasionado por el incumplimiento de un contrato; nos deja, a lo sumo, pagar a
los trabajadores por el trabajo realizado, pero el programa sigue en el modo de pánico.
El concepto de "recurso de programación"
A la instrucción try…finally también se le conoce como el “bloque de protección de
recursos”. Por recurso de programación se entiende cualquier entidad cuya petición
deba ir acompañada de una devolución. Un fichero abierto es un recurso, pues su
apertura debe ir emparejada con su cierre, más tarde o más temprano. Un objeto
temporal en Delphi es otro ejemplo, pues su construcción está balanceada por su
destrucción. También son recursos, desde este punto de vista, un bloqueo (lock), una
tabla abierta, una transacción de bases de datos iniciada, un semáforo para el control
de concurrencia…
¿En qué sentido try…finally protege recursos? El código típico de trabajo con un
fichero de texto en Delphi se debe escribir, aprovechando el tratamiento de excepciones, de la siguiente forma:
var
Txt: TextFile;
begin
AssignFile(Txt, 'NombreDeFichero');
// Esta instrucción abre el fichero
Reset(Txt);
try
// Instrucciones que trabajan con el fichero abierto
// y que pueden provocar una excepción
// …
finally
// Esta instrucción cierra el fichero siempre
CloseFile(Txt);
end;
end;
La pregunta más frecuente que surge, a la vista del código anterior, es: ¿por qué está
la llamada al procedimiento Reset fuera de try, sin protección? La respuesta es simple:
si colocáramos la llamada a Reset dentro de la instrucción try, un fallo en la apertura
del fichero provocaría la ejecución de la parte finally de la instrucción, que intentaría
cerrar un fichero que no hemos logrado abrir. Este ejemplo de programación se
puede generalizar al uso de recursos arbitrarios:
Excepciones 229
// Instrucción que pide un recurso
try
// Instrucciones que trabajan con el recurso
finally
// Instrucción que devuelve el recurso
end;
Incluso el cambio de cursor durante una operación larga puede considerarse como
un caso especial de gestión de recursos. Una vez cambiado el cursor, tenemos que
garantizar el retorno a su imagen normal, pase lo que pase en el camino. El siguiente
fragmento de código muestra cómo cambiar temporalmente el cursor de la aplicación durante una operación de este tipo:
Screen.Cursor := crHourGlass;
try
// Una operación larga que puede fallar
finally
Screen.Cursor := crDefault;
end;
Cómo tranquilizar a un programa asustado
Si solamente tuviéramos las instrucciones raise y try...finally para el manejo de excepciones, ya hubiéramos logrado algo: la posibilidad de crear programas que fallaran
elegantemente. Cuando ocurriese un error en estos programas, el usuario se encontraría de nuevo en el Escritorio de Windows, pero con la seguridad de que todos sus
ficheros abiertos se han cerrado y que no se han quedado recursos asignados en el
servidor de la red. ¡Menudo consuelo!
Hace falta algo más, hace falta poder corregir el error. Y este es el cometido de la
instrucción try…except. En su forma más simple, la sintaxis de esta instrucción es
la siguiente:
try
// Instrucciones …
except
// Más instrucciones …
end;
Analizaremos la instrucción considerando los dos casos posibles: falla alguna de las
instrucciones protegidas dentro de la parte try o todo va bien. Si todo va bien, se
ejecutan solamente las instrucciones de la parte try. En este caso, el programa salta
por encima de la cláusula except. Pero si se produce una excepción durante la ejecución del try, el programa salta directamente a la parte except, a semejanza de lo
que ocurre en try...finally. En contraste, una vez finalizada la parte except de la
instrucción, la ejecución continúa en la instrucción siguiente a la instrucción
230 La Cara Oculta de Delphi
try...except: hemos logrado que el programa retorne a su modo de ejecución normal.
Ejemplos de captura de excepciones
Si consideramos las excepciones como modo de señalar el incumplimiento de un
contrato, podemos ver a la instrucción try…except como una forma de reintentar el
contrato bajo nuevas condiciones. Tomemos por caso el código para la apertura de
un fichero. Muchas veces, si necesitamos el fichero para escribir sobre él, desearemos
crear el fichero si no existe. Para ello, podemos modificar el algoritmo de la siguiente
forma:
AssignFile(Txt, 'NombreDeFichero');
try
// Intentar abrir el fichero
Reset(Txt);
except
// Crear el fichero y abrirlo
Rewrite(Txt);
end;
try
// Instrucciones que trabajan con el fichero abierto
finally
CloseFile(Txt);
end;
Observe que la creación del fichero con Rewrite sigue estando fuera de protección.
Más adelante explicaremos el motivo de este “descuido”.
Otra posibilidad es reintentar la apertura cíclicamente, pues el fichero puede estar
bloqueado por otra aplicación, puede residir en un disquete que hay que insertar o
estar ubicado en un servidor al cual no nos hemos conectado. En este caso, hay que
programar manualmente un ciclo de reintentos; no hay instrucción en Delphi que lo
haga de forma automática:
Ok := False;
while not Ok do
try
Reset(Txt);
Ok := True;
except
if MessageDlg('No puedo abrir fichero'#13 +
'¿Reintentar apertura',
mtError, [mbYes, mbNo], 0) <> mrYes then raise;
end;
He utilizado una nueva variante de la instrucción raise dentro de la cláusula except.
Dentro de las cláusulas except podemos escribir esta instrucción sin especificar el
objeto de excepción. En este caso, si el usuario desiste de la apertura del fichero de-
Excepciones 231
jamos la excepción sin tratar repitiéndola. ¿Por qué repetimos la excepción, en vez de
dar un mensaje aquí mismo y dar por zanjado el tema? Dentro de muy poco daremos
respuesta a esto.
Capturando el objeto de excepción
Antes hemos visto que el objeto lanzado con la instrucción raise se podía recuperar
mediante la función ExceptObject. Aunque ExceptObject retorna un valor de tipo TObject, y la instrucción raise no requiere que los objetos lanzados mediante ella pertenezcan a alguna clase en especial, la práctica recomendada es que los objetos de excepción pertenezcan a la clase Exception o a clases derivadas de la misma.
Si necesitamos el objeto de excepción dentro de una cláusula except la mejor forma
de obtenerlo es utilizando la siguiente sintaxis:
try
// Instrucciones
except
on E: Exception do
ShowMessage(E.Message);
end;
La variable local E puede ser utilizada en la instrucción asociada a la cláusula on. Si
necesitamos dos instrucciones en esa cláusula, tenemos que utilizar una instrucción
compuesta, como es típico en Pascal:
try
// Instrucciones
except
on E: Exception do
begin
// Lista de instrucciones
end;
end;
Distinguir el tipo de excepción
La sintaxis completa de la instrucción try…except es un poco más complicada, pues
también podemos distinguir directamente la clase a la que pertenece la excepción.
Para esto hay que utilizar varias cláusulas on dentro de la sección except de la instrucción de captura de excepciones. Por ejemplo:
try
// Instrucciones
except
on E: EZeroDivide do
ShowMessage('División por cero');
232 La Cara Oculta de Delphi
on EOutOfMemory do
ShowMessage('Memoria agotada');
else
ShowMessage('Fallo de excepción general');
end;
En este ejemplo he mostrado varios estilos de discriminación entre excepciones. La
primera cláusula on permite trabajar en su interior con el objeto de excepción, nombrado E, aunque en este caso no se ha aprovechado el objeto para nada. En la siguiente cláusula on, en donde se capturan las excepciones de tipo EOutOfMemory, no
se declara una variable para recibir el objeto de excepción; si no nos interesa trabajar
con dicho objeto, es perfectamente posible. Por último, he ilustrado el uso de una
sección else dentro de try…except, para capturar las restantes instrucciones. Si
usamos una cláusula else perdemos la posibilidad de trabajar con el objeto de excepciones directamente. La mejor alternativa es utilizar una cláusula on con el tipo general Exception al final de la sección except:
while True do
try
Reset(Txt);
Break;
except
on E: EInOutError do
if MessageDlg('¿Reintentar?', mtError, [mbYes, mbNo], 0)
<> mrYes then raise;
on E: Exception do
begin ShowMessage(E.Message); Break; end;
end;
Hay que tener cuidado con el orden de las cláusulas on. Si en el algoritmo anterior
invertimos el orden y capturamos primero las excepciones de tipo Exception nunca
recibiremos excepciones en la segunda cláusula, ¡pues todas las excepciones son de
tipo Exception!
Una última regla relacionada con try…except: si no escribimos una sección else, ni
una cláusula on para el tipo Exception y además se produce una excepción no contemplada en la instrucción, esta excepción no se captura, por lo cual sigue propagándose por la pila de ejecución de la aplicación. La forma correcta de programar el
ejemplo anterior sería la siguiente:
while True do
try
Reset(Txt);
Break;
except
on E: EInOutError do
if MessageDlg('¿Reintentar?', mtError, [mbYes, mbNo], 0)
<> mrYes then raise;
end;
Excepciones 233
Las tres reglas de Marteens
He dejado a oscuras hasta el momento, intencionalmente, un par de puntos importantes. En primer lugar, ¿por qué, en el algoritmo de “apertura o creación de ficheros” dejamos sin proteger la llamada a la rutina de creación? ¿O es que no nos preocupa que ésta falle? ¿Por qué, en segundo lugar, cuando el usuario decide no reintentar la apertura del fichero volvemos a lanzar la excepción original?
Cuando imparto cursos de Delphi a personas que nunca han trabajado con excepciones, me gusta exponer un conjunto de tres reglas simples para la correcta aplicación de esta técnica. Son reglas pensadas fundamentalmente para el programador
novato; un programador avanzado descubrirá numerosas excepciones, sobre todo a
la tercera regla. Hay una regla por cada tipo de instrucción, y cada regla se refiere al
uso y frecuencia que se le debe dar a la misma. Estas son las reglas:
Π(La regla de raise) Utilice raise con toda naturalidad, cada vez que quiera
evitar que el algoritmo siga su ejecución lineal, cada vez que detecte una situación que no puede manejar en ese momento. En pocas palabras, cada vez
que se le antoje.
• (La regla de try…finally) Utilice try…finally cada vez que pida un recurso,
para asegurar su devolución. Esta es la regla de la “honestidad”.
Ž (La regla de try…except) Utilice try…except lo menos posible; en la práctica, casi nunca.
La tercera regla, como se puede ver, es paradójica. Es fácil comprender la primera: la
invocación a raise es el reconocimiento, por parte nuestra, de la imposibilidad de
cumplir el objetivo, o contrato, de la rutina. Todo lo más, nos queda la duda de que
nuestro programa pueda funcionar con un uso tan “alegre” de esta instrucción. Por
otra parte, la segunda regla es la que garantiza la robustez y estabilidad del programa:
todos los ficheros abiertos se cierran siempre, toda la memoria pedida para objetos
temporales se libera automáticamente. Pero, ¿es que nunca debemos plantearnos,
como pretende la tercera regla, reintentar un contrato incumplido? ¿No estaremos
programando aplicaciones que se rinden al enfrentarse al primer problema?
Si estuviéramos escribiendo aplicaciones estilo UNIX/MS-DOS con interfaz de
terminal, todas estas dudas serían correctas. Pero el hecho es que estamos programando aplicaciones para Sistemas Controlados por Eventos, y las suposiciones sobre
el tipo de arquitectura de estos sistemas hacen variar radicalmente las condiciones de
tratamiento de excepciones. La respuesta a los interrogantes anteriores es: no necesitamos instrucciones de captura de excepciones a cada paso porque ya tenemos una
en el punto más importante del programa, en el ciclo de mensajes.
234 La Cara Oculta de Delphi
Ciclo de mensajes y manejo de excepciones
El punto más sensible de un programa en Windows es el ciclo de mensajes, y es ahí
donde se ha colocado el manejador de excepciones try...except que acabamos de
mencionar. La ejecución de una aplicación controlada por eventos se puede resumir
en lo siguiente: mientras haya mensajes que procesar, procesémoslos.
Cola de mensajes
Ciclo de mensajes
try - except
Objetos de ventanas
Hay un teorema fundamental para estas aplicaciones: la respuesta a un mensaje o
evento es virtualmente independiente de la respuesta al próximo mensaje. Por lo
tanto, un incumplimiento en un contrato durante el procesamiento de un mensaje
solamente debe causar la interrupción de ese proceso, pero el próximo mensaje no
debe verse afectado por tal situación.
¿Qué hace la cláusula except del gestor central de excepciones? Muy sencillo: captura el objeto lanzado por la excepción y presenta al usuario el mensaje que contiene
en su propiedad Message. El método ShowException del objeto global Application
muestra un cuadro de diálogo como el de la figura que muestro a continuación. Un
poco más adelante veremos que existe una importante excepción a este comportamiento, y que podemos personalizar la forma en que se presenta el mensaje de la
excepción.
La explicación de la tercera regla de Marteens es ahora evidente: si, en un sistema
controlado por eventos, se produce un fallo durante el procesamiento de un mensaje
y no está en nuestras manos cambiar las condiciones del contrato para reintentar
procesar dicho mensaje, lo más sensato es abortar completamente la rama de ejecución actual y pasar al procesamiento del siguiente mensaje. El destino de una excepción que señala el incumplimiento de un contrato debe ser su extinción en el
try…except del ciclo de mensajes. Si antes de llegar a ese punto colocamos una
Excepciones 235
instrucción de este tipo y finalizamos sin cumplir el contrato, estamos defraudando al
sistema, lo cual puede ser peligroso.
Para demostrarlo, vamos a suponer que, en el algoritmo de “apertura o creación”
colocamos otra instrucción try…except para proteger también a la llamada a Rewrite:
try
Reset(Txt);
except
try
Rewrite(Txt);
except
// ¿¿¿???
end;
end;
He puesto a propósito signos de interrogación en el except interno. ¿Qué hacemos
en ese punto, llamamos a ShowMessage? Bueno, eso ya se hace cuando se captura la
excepción en el ciclo de mensajes. Casi siempre algún avispado sugiere entonces
transformar nuestra rutina en una función y devolver un error si no podemos abrir ni
crear el fichero … y entonces muestro mi mejor sonrisa irónica: ¿no estamos regresando a la filosofía de tratamientos de errores que tanto criticamos al comienzo del
capítulo?
Lo dice la experiencia: cuando el programador novato siente deseos irresistibles de
utilizar un try…except es casi seguro que está tratando de convertir un error señalado por una excepción al antiguo sistema de códigos de errores. Por lo tanto, antes
de utilizar esta instrucción debe pensarlo dos veces. Este es el sentido de la tercera
regla.
Excepciones a la tercera regla de Marteens
Una regla para las excepciones debe tener sus propias excepciones, como es natural.
El lector ya conoce una: cuando podemos reintentar el contrato que ha fallado bajo
otras condiciones. Otro caso importante sucede cuando queremos realizar alguna
labor de limpieza, al estilo de try…finally, pero que se ejecute solamente en caso de
excepción. Recuerde que la sección finally se ejecuta tanto si se producen excepciones como si no las hay. En tal situación se puede utilizar un try…finally de este
modo:
try
// Instrucciones
finally
if ExceptObject <> nil then LaboresDeLimpieza;
end;
236 La Cara Oculta de Delphi
Pero es mucho más elegante utilizar el siguiente estilo:
try
// Instrucciones
except
LaboresDeLimpieza;
raise;
end;
Este uso de try…except no viola el espíritu de las reglas de Marteens: la excepción
sigue extinguiéndose en el ciclo de mensajes. La excepción original sencillamente se
vuelve a repetir.
Sin embargo, puede haber un motivo más humano y cotidiano para utilizar un
try…except: para transformar el mensaje de error asociado a la excepción. Puede
ser que estemos trabajando con un Delphi en inglés y queramos mostrar los errores
en castellano o swahili. Si este es su caso, llame a su distribuidor de software y pregúntele por los precios del Language Pack. Puede también, y esto sí es serio, que el
mensaje original de la excepción sea muy general o muy técnico. Para el usuario final,
hay que mostrar un mensaje más específico y explicativo. Por ejemplo, cuando en
Delphi se intenta insertar un registro cuya clave está repetida, en pantalla aparece
algo tan esclarecedor como “Key violation” o “Violación de clave”. Muy interesante para
el usuario. En estos casos, una solución directa podría ser:
try
// Instrucciones que pueden fallar
except
raise Exception.Create('Este es mi nuevo mensaje');
end;
De todos modos Delphi nos ofrece, para la gestión de errores durante el procesamiento de bases de datos, técnicas mejores basadas en la intercepción de eventos,
como OnEditError y OnPostError, que estudiaremos en su momento.
El evento OnException
Aunque la captura de la excepción sucede dentro de un procedimiento de la biblioteca VCL, podemos modificar este proceso gracias al evento OnException de la clase
TApplication. El prototipo de este evento es el siguiente:
TExceptionEvent = procedure (Emisor: TObject; E: Exception)
of object;
Si este evento tiene asignado un receptor, el tratamiento convencional de una excepción que llega al ciclo de mensajes no se produce. Este tratamiento consiste simplemente en mostrar el mensaje de la excepción en un cuadro de diálogo, como ya he-
Excepciones 237
mos visto. Podemos ser más imaginativos y utilizar un algoritmo alternativo para
informar al usuario, quizás utilizando la tarjeta de sonido del sistema (no es broma).
No obstante, una aplicación frecuente que se da a este evento es la traducción global
de ciertos y determinados mensajes de excepción.
Para imitar el comportamiento normal de Delphi, la respuesta a este evento podría
ser:
procedure TForm1.MostrarExcepcion(Sender: TObject; E: Exception);
begin
Aplication.ShowException(E);
end;
Una sencilla aplicación de OnException es llevar en un fichero de texto el registro de
todas las excepciones que llegan a ser visibles para el usuario de una aplicación. Vamos a plantearnos el ejemplo como una unidad que podamos incluir más adelante en
cualquier proyecto nuestro. Inicie una aplicación y cree una unidad de código vacía,
por medio del comando File|New y el icono Unit, del cuadro de diálogo que aparece.
Guarde el fichero con el nombre que quiera darle a la unidad, y modifique su contenido de este modo:
unit ELog;
interface
procedure StartLog(const AFileName: string);
procedure StopLog;
implementation
uses SysUtils, Forms;
type
TExceptionLog = class
protected
SavedHandler: TExceptionEvent;
FileName: string;
procedure ExceptionHandler(Sender: TObject; E: Exception);
public
constructor Create(const AFileName: string);
destructor Destroy; override;
end;
{ TExceptionLog }
// Aquí vendrá la implementación de la clase TExceptionLog
{ Interface procedures }
var
Log: TExceptionLog = nil;
238 La Cara Oculta de Delphi
procedure StartLog(const AFileName: string);
begin
if not Assigned(Log) then
Log := TExceptionLog.Create(AFileName);
end;
procedure StopLog;
begin
if Assigned(Log) then
begin
Log.Free;
Log := nil;
end;
end;
initialization
// Nada
finalization
StopLog;
end.
Esta unidad exportará los procedimientos StartLog y StopLog, para activar y desactivar
la escritura de las excepciones a disco. La segunda función se llama automáticamente
en la sección de finalización de la unidad. En cuanto a StartLog, puede activarse desde
el código inicial del fichero dpr, o en cualquier otro momento, de esta manera:
// …
StartLog(ChangeFileExt(Application.ExeName, '.log'));
// …
Cuando se activa el mecanismo, la unidad crea un objeto de tipo TExceptionLog y lo
asigna a una variable interna. La idea es que este objeto actúe como receptor del
evento OnException de la aplicación. Recuerde que un evento es un puntero a un
método, y que por lo tanto necesita la presencia de un objeto. No se puede hacer que
un evento apunte a un procedimiento global.
La implementación del constructor y del destructor de TExceptionLog es la siguiente:
constructor TExceptionLog.Create(const AFileName: string);
begin
inherited Create;
FileName := AFileName;
SavedHandler := Application.OnException;
Application.OnException := ExceptionHandler;
end;
destructor TExceptionLog.Destroy;
begin
Application.OnException := SavedHandler;
inherited Destroy;
end;
Por último, la implementación del método ExceptionHandler es todo un ejemplo de
manejo de excepciones:
Excepciones 239
procedure TExceptionLog.ExceptionHandler(Sender: TObject;
E: Exception);
var
Txt: TextFile;
begin
Application.ShowException(E);
try
AssignFile(Txt, FileName);
try
Append(Txt);
except
Rewrite(Txt);
end;
try
WriteLn(Txt, FormatDateTime('hh:nn:ss', Now), ' ',
E.ClassName, ': ', E.Message);
finally
CloseFile(Txt);
end;
except
end;
end;
El método comienza mostrando la excepción al usuario. A continuación, se intentará
la grabación de la excepción en el fichero. Pero como el Diablo carga los discos duros, tendremos sumo cuidado de no provocar una segunda excepción que nos lleve
de forma recursiva hasta este mismo lugar, para lo cual encerramos todo el bloque de
instrucciones dentro de un try/except con la cláusula de recuperación vacía (¡sí,
estoy violando la 3ª Regla de Marteens!). A su vez, la apertura del fichero texto utiliza
un try/except con dos alternativas: o el fichero se abre para escribir al final (Append)
o se crea un nuevo fichero (Rewrite) ... o falla el algoritmo. La instrucción try/finally
que sigue a continuación garantiza que el fichero abierto se cierre. Finalmente, escribimos una línea en el fichero que indique la hora actual, el nombre de la clase de
excepción y el mensaje asociado. Eso es todo.
La excepción silenciosa
Delphi define un tipo especial de excepción cuya clase es EAbort. Desde el punto de
vista del lenguaje, este es un tipo de excepción como cualquier otro. Pero la implementación de la Biblioteca de Controles Visuales le otorga un papel especial: si el
ciclo de mensajes recibe esta excepción no se muestra mensaje alguno. Es tan frecuente su uso que la unidad SysUtils define un procedimiento, Abort, que la produce.
Volvamos al caso en que iniciábamos un ciclo de reintentos si fallaba la apertura de
un fichero:
while True do
try
Reset(Txt);
Break;
240 La Cara Oculta de Delphi
except
on E: EInOutError do
if MessageDlg('¿Reintentar?', mtError, [mbYes, mbNo], 0)
<> mrYes then raise;
end;
La razón por la cual lanzamos un raise sin parámetros cuando no queremos reintentar es para no enmascarar la excepción y terminar la rama actual de ejecución
dentro del árbol de llamadas. Sin embargo, póngase en el lugar del usuario, que recibe
entonces la siguiente secuencia de mensajes:
El Ordenador: Ha fallado la apertura de manias.txt. ¿Reintentar?
El Usuario: Bueno, sí.
El Ordenador: Ha fallado nuevamente la apertura de manias.txt.
¿Reintentar?
El Usuario: Creo que no.
El Ordenador: Por tu culpa ha fallado la apertura de manias.txt.
El último mensaje sobra; lo único que queríamos era abortar la secuencia de funciones pendientes en la pila de llamadas, no culpabilizar al usuario de un error que ya
conoce. La solución es, claro está, terminar con Abort, no con raise:
while True do
try
Reset(Txt);
Break;
except
on E: EInOutError do
if MessageDlg(E.Message + #13'¿Reintentar?',
mtError, [mbYes, mbNo], 0) <> mrYes then Abort;
end;
De este modo, cuando lanzamos una excepción después de mostrar un cuadro de
mensajes, es conveniente utilizar Abort, para evitar la posible confusión del usuario al
recibir múltiples mensajes.
Constructores y excepciones
Una característica de Object Pascal, por lo general ignorada por los programadores,
es la destrucción automática cuando se produce una excepción durante la ejecución
de un constructor. Supongamos que, en una aplicación MDI, tenemos ventanas hijas
que muestran mapas de bits cargados desde ficheros gráficos. Para poder ser precisos, digamos que la clase de ventanas hijas se denomina THija, y que cada ventana de
este tipo tiene un control de imágenes, Image1, en su interior:
type
THija = class(TForm)
// …
Image1: TImage;
Excepciones 241
// …
end;
La ventana principal debe crear dinámicamente ventanas de este tipo, en respuesta al
comando Fichero|Abrir; en realidad debe crearlas y además cargar el fichero dentro
del control:
procedure TPrincipal.Abrir1Click(Sender: TObject);
var
Hija: THija;
begin
if OpenDialog1.Execute then
begin
Hija := THija.Create(Application);
Hija.Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
end;
¿Qué sucede si no se puede cargar la imagen desde el fichero? Sucede que la ventana
recién creada queda abierta, con su interior vacío. ¿Qué tal si intentamos cargar primero el fichero en una variable temporal, y luego creamos la ventana? Da lo mismo,
porque la creación de la ventana también tiene razones para fallar y dejarnos con un
objeto creado en memoria. Por supuesto, para solucionar estos problemas tenemos
las instrucciones try. Pero podemos hacer algo mejor. ¿Por qué no reconocer que la
creación de la ventana y la inicialización de su interior es un proceso atómico? Y digo
atómico para indicar que se realizan las dos operaciones o no se realiza ninguna.
Podemos crear un nuevo constructor en la clase THija:
constructor THija.CreateBmp(AOwner: TComponent;
const AFileName: string);
begin
inherited Create(AOwner);
Image1.Picture.LoadFromFile(AFileName);
end;
y llamar a este constructor para crear la ventana:
procedure TPrincipal.Abrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
THija.CreateBmp(Application, OpenDialog1.FileName);
end;
Aparentemente no hemos ganado nada, excepto desde el punto de vista filosófico. Y
es que todavía no he explicado que los constructores definen en su interior una instrucción try...except implícita. El constructor anterior equivale aproximadamente al
siguiente código:
242 La Cara Oculta de Delphi
constructor THija.CreateBmp(AOwner: TComponent;
const AFileName: string);
begin
try
inherited Create(AOwner);
Image1.Picture.LoadFromFile(AFileName);
except
Destroy;
raise;
end;
end;
Si se produce ahora un error durante la carga del fichero, se ejecuta automáticamente
el destructor del objeto: un objeto se construye por completo o no se construye en
absoluto. Esta característica de Delphi explica la insistencia en el uso de Free para
liberar objetos en vez de la llamada directa a Destroy. Supongamos que el constructor
de THija, en vez de cargar el fichero en un control TImage, crea un mapa de bits en
memoria, un objeto de la clase TBitmap:
type
THija = class(TForm)
// …
Bitmap: TBitmap;
// …
public
constructor CreateBmp(AOwner: TComponent;
const AFileName: string);
destructor Destroy; override;
end;
constructor THija.CreateBmp(AOwner: TComponent;
const AFileName string);
begin
inherited Create(AOwner);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(AFileName);
end;
Bajo estas condiciones, puede surgir un nuevo problema. Si falla la lectura de fichero,
se ejecuta el destructor, en el cual programaremos la destrucción de la variable
Bitmap. ¿Y si falla la creación del propio objeto Bitmap? En ese caso, esta variable
tendrá el valor inicial nil, y tenemos que cuidar que no se libere el objeto si encontramos este valor en Bitmap:
destructor THija.Destroy;
begin
Bitmap.Free;
// Es decir:
// if Bitmap <> nil then Bitmap.Destroy;
inherited Destroy;
end;
Existen casos en que sabemos que el objeto a destruir existe, como en secuencias
como ésta:
Excepciones 243
with TLoQueSea.Create do
try
// …
finally
Destroy; // Claro que el objeto ha sido creado
end;
Aquí también tenemos una razón para sustituir la llamada a Destroy por una llamada a
Free, aunque no tiene que ver con la seguridad del código. Como el lector sabe, una
llamada a un método virtual, como Destroy, genera siempre más código que la llamada a un método que no lo es. Si queremos ahorrarnos un par de bytes, utilizamos
entonces Free. Ahora bien, recuerde que, de este modo, estamos realizando una llamada adicional: los bytes que ahorramos los compensamos con un par de ciclos de
reloj adicionales.
Aserciones
A lo largo de este capítulo he insistido en considerar el lanzamiento de una excepción como el reconocimiento por parte de una rutina, y de aquellas que la utilizan, de
un fallo en el cumplimiento de un “contrato”. En todos los ejemplos que hemos
mostrado del uso de raise, este contrato es bien explícito: el contratado verifica recelosamente las condiciones en que se le encarga su trabajo. En ocasiones, sin embargo, existen suposiciones lógicas acerca del funcionamiento de un algoritmo que
no necesitamos verificar a cada paso; tal comprobación, además, nos haría perder
eficiencia. Un ejemplo trivial se produce en el recorrido de una lista enlazada:
type
PListaEnlazada = ^TListaEnlazada;
TListaEnlazada = record
Info: Integer;
Prox: PListaEnlazada;
end;
procedure IncrementarContadores(L: PListaEnlazada);
begin
while L <> nil do
begin
Inc(L.Info);
// Sólo en Delphi 1 es necesaria la flecha (^)
L := L.Next;
end;
end;
En realidad, la llamada al procedimiento Inc asume que la variable L es distinta del
puntero vacío, y esta cláusula del contrato pudiera también hacerse explícita del siguiente modo:
if L = nil then
raise Exception.Create('Puntero vacío');
Inc(L.Info);
244 La Cara Oculta de Delphi
Por supuesto, nadie programa así, pues en el contexto inmediato de la instrucción
queda bien claro que el puntero L no puede estar vacío, gracias a la condición de
parada del bucle. Sin embargo, en ejemplos reales puede que no estén tan claras las
condiciones en que se ejecuta determinado algoritmo. Sospechamos que está bien
programado, pero siempre nos queda aquella duda… ¿Por qué no establecer explícitamente nuestras “certezas”, al menos mientras el programa esté en fase de desarrollo, y luego desactivarlas en la aplicación final?
La forma de realizarlo, en Delphi 3, es por medio de las aserciones (assertions). En esta
versión, contamos con los siguientes procedimientos:
procedure Assert(Condicion: Boolean);
procedure Assert(Condicion: Boolean; const Mensaje: string);
El efecto de este procedimiento es aproximadamente el siguiente:
if not Condicion then
raise EAssertionFailed.Create(Mensaje);
Digo “aproximadamente”, porque este código se genera únicamente cuando la directiva de compilación ASSERTIONS ha sido activada:
{$ASSERTIONS ON}
{$ASSERTIONS OFF}
ó
ó
{$C+}
{$C-}
Esta directiva puede también controlarse en el diálogo Project|Options, en la página
Compiler, opción Assertions.
El algoritmo anterior puede escribirse de esta manera:
while L <> nil do
begin
Assert(L <> nil, '¡Paranoia!');
Inc(L.Info);
L := L.Next;
end;
Si utilizamos la variante de Assert que no especifica mensaje, la excepción se genera
con un mensaje predefinido.
La teoría de la programación distingue unos cuantos tipos especiales de aserciones.
Estos tipos son:
Precondiciones: Se sitúan al principio del código de la rutina, y verifican los valores de los parámetros y de las condiciones globales en que se
ejecuta. Si fallan, es por responsabilidad del que llama a la rutina.
Excepciones 245
Postcondiciones: Se sitúan al final del código de la rutina, y comprueban que ésta
ha cumplido su contrato.
Invariantes de clase: Este tipo de aserción debe cumplirse al finalizar cualquier método de una clase. Su programación en Delphi es bastante laboriosa.
Variantes de bucles: Comprueban que cierta expresión numérica asociada a un bucle
siempre disminuya y sea mayor que cero: esta es la garantía de
que el bucle finalice. Normalmente no se incluyen en Delphi,
pues las expresiones pueden ser bastante rebuscadas y pintorescas.
Si quiere aprender más sobre las aserciones y sobre Programación Orientada a Objetos en general, le recomiendo uno de mis libros favoritos: Object Oriented Software
Construction, de Bertrand Meyer (Prentice-Hall, 1988). En realidad, este libro describe
una de las primeras versiones del lenguaje Eiffel, pero la forma en que justifica las
técnicas orientadas a objetos lo convierte en un clásico de la literatura. Además, el
autor concuerda conmigo en su aversión a ese lenguaje llamado C++.
Capítulo
12
Tipos de datos de Delphi
P
OR LA JUNGLA DE DELPHI
vagan los más diversos tipos de datos. Algunos
tipos de datos son “normales”, en el sentido de que tienen equivalentes cercanos en otros lenguajes de programación, como los enteros, reales y valores
lógicos. Algunos otros han sufrido “adaptaciones evolutivas” que los capacitan para
la vida en la selva, como las cadenas de caracteres. Pero hay algunas piezas que se las
traen, como los tipos variantes y los vectores abiertos. En este capítulo, intentaré
presentar los tipos de datos de Delphi que satisfacen dos criterios: su carácter singular y su utilidad.
Tipos numéricos
¿He escrito “tipos singulares”? Realmente los tipos numéricos son de lo más normales. Pero Delphi ofrece una amplia variedad de ellos que puede confundir al programador. Y la migración del entorno de 16 bits al de 32 ha complicado un poco las
cosas.
Comencemos con los tipos enteros. Delphi 1 ofrecía los siguientes tipos:
Con signo
Sin signo
8 bits
16 bits
32 bits
ShortInt
Byte
SmallInt
Word
LongInt
No hay
Si el lector conoce algo de Pascal, puede sorprenderle la ausencia del famoso Integer y
la presencia de un desconocido SmallInt. Esto se debe a que los tipos que he incluido
en la tabla anterior tienen una implementación independiente de la plataforma. Borland ya estaba preparando la migración a 32 bits, y definió los siguientes tipos como
dependientes de la plataforma:
•
•
Integer = SmallInt
Cardinal = Word
248 La Cara Oculta de Delphi
Delphi 2 y 3 mantienen los tipos de la primera tabla, cambiando solamente la definición de los tipos dependientes:
•
•
Integer = LongInt
Cardinal = 0..MaxLongInt, donde MaxLongInt = 231 - 1
Observe que, aunque uno esperaría un tipo Cardinal de 32 bits, Delphi ofrecía uno de
31 bits; nunca llegué a conocer la razón. Delphi 4, no obstante, ha introducido dos
nuevos tipos de enteros, Int64 y LongWord, y ha hecho equivalentes a los tipos Cardinal y LongWord, con lo que se ha restablecido la simetría en el sistema de tipos:
Con signo
Sin signo
•
•
8 bits
16 bits
32 bits
ShortInt
Byte
SmallInt
Word
LongInt
Int64
LongWord No hay
64 bits
Integer = LongInt
Cardinal = LongWord
En las versiones de 32 bits, las operaciones aritméticas se realizan directamente con
instrucciones propias de la CPU. La versión de 16, sin embargo, podía en teoría producir aplicaciones para ser ejecutadas en los anticuados procesadores 80286. Una
suma de dos valores de 32 bits se traducía en una llamada a una función interna. Si el
procesador era un 80386 u otro más potente, la instrucción se pasaba directamente a
la CPU; en caso contrario, la suma se realizaba mediante varias instrucciones de 16
bits. Un mecanismo ingenioso, pero ineficiente.
En contraste, los tipos reales casi no han cambiado desde las antiguas versiones de
Turbo Pascal. Los tipos reales de Delphi son:
•
•
•
Single: Ocupa 4 bytes. Rango: desde 1.5 * 10-45 hasta 3.4 * 1038.
Double: Ocupa 8 bytes. Rango: desde 5.0 * 10-324 hasta 1.7 * 10308.
Extended: Ocupa 10 bytes. Rango: desde 3.4 * 10-4932 hasta 1.1 * 104932.
Estos tres tipos corresponden a tipos nativos de la FPU, que a su vez cumplen con el
estándar definido por la IEEE. Extended es el tipo más completo, y toda la aritmética
dentro de la FPU se efectúa en base a este formato, pues los otros valores se convierten antes de operar con ellos. Sin embargo, para la mayoría de las aplicaciones
basta con utilizar Double para la declaración de variables, pues tiene la ventaja de
adaptarse bien a la alineación por dobles palabras, que es la óptima para los procesadores de 32 bits de Intel.
Tipos de datos de Delphi 249
El Pascal original, de Niklaus Wirth, utilizaba un único tipo para valores reales, Real.
También Delphi define Real, pero hasta la versión 3 utilizaba un formato de 6 bytes.
Este formato es propiedad de Borland y fue definido en las primeras versiones de
Turbo Pascal, cuando no se había popularizado el uso del coprocesador 8087 de
Intel. Las operaciones con este Real se realizaban completamente por software. Así
que no era recomendable declarar variables de este tipo; incluso Borland desaconsejaba declarar propiedades Real. Delphi 4, finalmente, ha hecho que Real sea equivalente a Double, y ha declarado explícitamente un nuevo tipo, Real48, por compatibilidad con el pasado.
Otro tipo “exótico” es Comp. Comp es un formato nativo de la FPU, aunque se utiliza
para representar enteros con signo de 64 bits. Su aplicación tradicional ha sido almacenar variables monetarias. No obstante, a partir de Delphi 2, Borland ha añadido un
nuevo tipo al repertorio, Currency. Está basado en Comp, y reserva cuatro cifras para
los decimales.
Fechas y horas
Las fechas y las horas se representan en Delphi mediante un mismo tipo de dato: el
tipo TDateTime. Este tipo se declara como un Double, el valor real de 8 bytes de Pascal
y C, y está definido, junto con sus operaciones, en la unidad SysUtils. La representación consiste en que la parte entera de este valor representa la fecha, y la parte fraccionaria la hora. La fecha se codifica como la cantidad de días transcurridos desde el
30 de diciembre de 1899. La elección de la fecha del big-bang de Delphi es, cuando
menos, curiosa: el primer día es un 31 de diciembre, cuando más natural hubiera sido
elegir un 1 de enero. Además, el siglo XX no comenzó en 1900, sino en 1901, un
verdadero desliz cultural15. Esto, de todos modos, no nos afecta en nada. Incluso podemos utilizar el tipo TDateTime para representar fechas de siglos anteriores, siempre
que la fecha sea posterior a la implantación del calendario gregoriano. La hora, en
cambio, se representa como la fracción del día transcurrida. Por ejemplo, 0.5 significa
las doce del mediodía.
Gracias a esta representación, la mayor parte de la aritmética de fechas puede realizarse directamente. Por ejemplo, se pueden comparar dos valores de tipo TDateTime
para ver cuál es anterior o posterior:
if Frac(Now) > 0.5 then
ShowMessage('¡Es hora de comer!');
La culpa no es de Borland/Inprise sino ... ¿adivina quién es el culpable? En realidad,
TDateTime imita al tipo de fechas de la Automatización OLE, que a su vez imitó a un tipo
original de Visual Basic.
15
250 La Cara Oculta de Delphi
He utilizado la función Now, que da la fecha y la hora del sistema; para extraer la
parte de la hora se emplea la función Frac, predefinida en Pascal. La función Int, en
cambio, devuelve la parte entera como un valor real; es importante el tipo de valor
que devuelve, pues si retorna un entero podemos tener problemas de desbordamiento.
También se pueden restar dos valores TDateTime para obtener la diferencia en días
entre dos fechas:
if Round(Date - FechaNacimiento) mod 23 = 0 then
MessageDlg('Hoy es el día crítico de su biorritmo'#13 +
'¿Está seguro de que desea trabajar hoy?',
mtWarning, mbYesNoCancel, 0);
La función Date, utilizada en el ejemplo anterior, retorna la fecha actual, sin la hora.
En este caso ha sido necesario utilizar la función Round para obtener un entero, pues
el operador mod de Pascal requiere que sus operandos pertenezcan a este tipo.
La facilidad en el uso de las fechas en este formato se paga con la complejidad presente en la conversión en ambos sentidos. Las funciones EncodeDate y EncodeTime se
encargan de combinar los componentes de fecha y hora, y producir el valor resultante de tipo TDateTime:
function EncodeDate(Year, Month, Day: Word): TDateTime;
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
Y todo hay que decirlo: la implementación de EncodeDate es algo chapucera, pues con
un poco más de cuidado hubiera sido más eficiente; examine el código fuente si no
me cree, y piense en lo fácil que sería eliminar el bucle for de la función.
La conversión en sentido contrario la realizan los métodos DecodeDate y DecodeTime:
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec,
MSec: Word);
A propósito, mi fecha de nacimiento es 23562,58. Pruebe el siguiente código, que
utiliza la función DayOfWeek, para averiguar qué día de la semana ha nacido; si le tocó
un sábado, le felicito sinceramente:
procedure TForm1.Button1Click(Sender: TObject);
const
DiaSemana: array [1..7] of string =
('Domingo', 'Lunes', 'Martes', 'Miércoles',
'Jueves', 'Viernes', 'Sábado');
var
S: string;
begin
S := '';
Tipos de datos de Delphi 251
if InputQuery('Calendario', 'Cumpleaños:', S) then
ShowMessage(DiaSemana[DayOfWeek(StrToDate(S))]);
end;
He utilizado la función StrToDate para convertir una cadena de caracteres en un valor
de tipo TDateTime. Hay una batería completa de funciones para realizar conversiones
entre valores de fecha y hora y cadenas de caracteres. Son las siguientes:
function StrToDate(const Cadena: string): TDateTime;
function StrToTime(const Cadena: string): TDateTime;
function StrToDateTime(const Cadena: string): TDateTime;
function DateToStr(Fecha: TDateTime): string;
function TimeToStr(Hora: TDateTime): string;
function DateTimeToStr(FechaHora: TDateTime): string;
function FormatDateTime(const Formato: string;
FechaHora: TDateTime): string;
De las funciones de conversión a cadenas de caracteres, la más potente es FormatDateTime, que permite especificar una cadena de formato. Sobre la sintaxis de estas
cadenas de formato hablaremos en el capítulo sobre componentes de campos. Como
adelanto, le ofrezco otra versión del código que muestra el día de la semana en que
nació el usuario:
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := '';
if InputQuery('Calendario', 'Cumpleaños:', S) then
ShowMessage(FormatDateTime('dddd', StrToDate(S)));
end;
He aprovechado que los cuatro caracteres dddd en una cadena de formato de fechas
indican el nombre completo del día de la semana.
Cadenas de caracteres cortas
El Pascal original de Niklaus Wirth no definía un tipo especial para trabajar con cadenas de caracteres; por supuesto, éstas se podían representar mediante un vector de
caracteres, pero no existían funciones y procedimientos predefinidos para manipularlas. Por lo tanto, las diferentes implementaciones históricas de Pascal ofrecieron
sus propias variantes de cadenas de caracteres. En particular, Turbo Pascal definía un
tipo string, que permitía almacenar cadenas de longitud variable de hasta 255 caracteres de longitud. El formato utilizado por estas cadenas era diferente del utilizado
por el lenguaje C; como resultado, algunas operaciones eran más eficientes en Pascal
que en C, y viceversa. Con el advenimiento de nuevas arquitecturas de procesadores y
la aparición de Windows, las cadenas de Turbo Pascal se tornaron obsoletas, pues el
límite de 255 caracteres se hizo demasiado pequeño, y las funciones de Windows tra-
252 La Cara Oculta de Delphi
bajan todas con el formato de cadenas de C. La consecuencia de esta evolución del
lenguaje es que actualmente coexisten en Delphi dos formatos diferentes para representar cadenas de caracteres.
En Delphi 1 sólo disponemos de las cadenas cortas. El tipo string de Delphi 1, o el
ShortString de Delphi 2, se representa mediante un vector de hasta 256 bytes. El primer byte del vector contiene la longitud de la cadena; de aquí la limitación a 255
caracteres como máximo. Si S es una variable de tipo ShortString, entonces S[0] representa la longitud de la cadena almacenada en S… con la salvedad de que este valor es
de tipo Char. Si queremos obtener la longitud como un valor entero, que es lo apropiado, tendremos que utilizar la expresión Ord(S[0]), para convertir el tipo Char a un
Integer. Por supuesto, es más sensato utilizar directamente la función Length, que devuelve lo mismo y hace el código más claro.
El resto de los caracteres de la cadena S serían S[1], S[2], S[3], y así sucesivamente; el
último carácter de la cadena es S[Length(S)]. Por ejemplo, en los heroicos tiempos del
Turbo Pascal, para llevar una cadena a mayúsculas, teníamos que definir una función
parecida a la siguiente:
// ¡¡¡Función obsoleta, incluso incorrecta (en Windows)!!!
// Utilice AnsiUpperCase para llevar a mayúsculas
function Mayusculas(S: string): string;
var
I: Integer;
begin
for I := Length(S) downto 1 do
if S[I] in ['a'..'z'] then
S[I] := UpCase(S[I]);
// … o S[I] := Char(Ord(S[I]) - Ord('a') + Ord('A')),
// … si le va el fundamentalismo.
Mayusculas := S;
end;
Las siguientes funciones son consideradas “clásicas”, pues existen desde las primeras
versiones de Turbo Pascal, y están definidas dentro de la propia unidad System de
Delphi:
function Length(const S: string): Integer;
function Pos(const SubCadena, Cadena: string): Integer;
function Concat(const S1, S2: string): string;
function Copy(const S: string; Desde, Longitud: Integer): string;
procedure Delete(var S: string; Desde, Longitud: Integer);
procedure Insert(const SubCadena: string; var Cadena: string;
Posicion: Integer);
La función Concat se utiliza muy poco, pues es más cómodo utilizar el operador +
para concatenar cadenas. En las versiones modernas de Pascal se ha añadido una
amplia variedad de funciones y procedimientos que automatizan las tareas más usua-
Tipos de datos de Delphi 253
les. Los prototipos de estas funciones pueden encontrarse en la interfaz de la unidad
SysUtils.
En realidad, Delphi también ofrece WideString, que admite alfabetos con caracteres de más de un byte. Pero como no creo que este libro llegue a ser un éxito de
ventas en Japón...
Punteros a caracteres, al estilo C
En Delphi 1, y en las versiones de Pascal para Windows, las cadenas propias de Pascal tenían que coexistir con las cadenas en formato C, representadas mediante el tipo
PChar, para poder realizar llamadas a funciones del API que necesitan cadenas. Una
cadena en este formato se representa como un puntero a un vector de caracteres,
pero, a diferencia de lo que sucede en Pascal, el primer carácter del vector contiene
directamente el primer carácter de la cadena. Para indicar el final de ésta, se coloca un
carácter nulo, cuyo código es 0, inmediatamente después del último carácter. El siguiente gráfico muestra la forma de representación de cadenas al estilo C.
S: PChar
D E L P H I #0
Es importante darse cuenta de que una variable declarada de tipo PChar solamente
contiene 4 bytes: el espacio necesario para el puntero. La zona de memoria a la cual
apunta esta variable puede suministrarse de varias formas. Puede ser, por ejemplo,
memoria reservada en la memoria dinámica (heap), pero también puede ser un vector
declarado en memoria global o de pila:
var
S: PChar;
MyBuffer: array [0..31] of Char;
begin
// Buffer reservado por el sistema: no hay que destruirlo
S := 'The Delphi Obsession';
// Buffer en memoria dinámica: hay que destruirlo al terminar
S := StrNew('SchizoDelphia');
StrDispose(S);
// Buffer en memoria de pila: se libera automáticamente
S := @MyBuffer;
StrCopy(S, 'Altered Delphi States');
end;
Delphi, imitando a C, complica un poco más las cosas pues permite utilizar los vectores de caracteres con cota inicial 0 en cualquier contexto en que puede ir un valor
254 La Cara Oculta de Delphi
de tipo PChar. Según esto, la última asignación del procedimiento anterior puede
escribirse también del siguiente modo:
S := MyBuffer;
En realidad, si tenemos un vector de caracteres con base cero reservado por Delphi,
como en este último caso, no necesitamos una variable explícita de tipo PChar.
El programador típico de Delphi necesita trabajar con PChar solamente para llamar
directamente a las funciones de Windows que trabajan con cadenas. Lo típico es que
las cadenas que se van a utilizar estén en formato de Delphi y haya que convertirlas, y
viceversa. Esta conversión es muy sencilla si estamos utilizando cadenas largas de
Delphi, como veremos en la siguiente sección. Pero es más engorrosa si tenemos que
utilizar Delphi 1. Las funciones necesarias se encuentran en la unidad SysUtils:
// Conversión de C a Pascal
function StrPas(S: PChar): string;
// Conversión de Pascal a C
function StrPCopy(Buffer: PChar; Origen: string): PChar;
Para mostrar un mensaje estándar de Windows necesitamos utilizar el método MessageBox, de la clase TApplication. Este método, por estar basado directamente en una
función del API de Windows, necesita como primer parámetro un valor de tipo
PChar. Si vamos a utilizar este método con mucha frecuencia en Delphi 1, es recomendable declarar una función auxiliar como la siguiente:
procedure MostrarMensaje(const Mensaje: string);
var
Buffer: array [0..255] of Char;
begin
StrPCopy(Buffer, Mensaje);
Application.MessageBox(Buffer, 'Atención',
MB_ICONEXCLAMATION + MB_OK);
end;
Cadenas de caracteres largas
Con Delphi 2 se hizo necesario ampliar la capacidad de las cadenas de caracteres.
Para ello se introdujo el nuevo tipo de datos AnsiString, que permite almacenar hasta
231 – 1 caracteres. También se ha cambiado el significado del tipo predefinido string.
A partir de la versión 2, el tipo string es un sinónimo del tipo AnsiString. Sin embargo, es posible modificar este comportamiento mediante la opción de compilación
Huge strings, si utilizamos el comando de menú Project|Options, o {$H+} y {$H-}, si
queremos incorporar directamente la opción en el código fuente.
Tipos de datos de Delphi 255
La implementación de las cadenas AnsiString es una mezcla de la implementación de
las cadenas de C y de las antiguas cadenas cortas de Pascal. Una variable AnsiString
ocupa exactamente 4 bytes, pues contiene un puntero. Si la cadena está vacía, el
puntero es nulo; en caso contrario, apunta a una cadena de caracteres en estilo C,
esto es, terminada en un carácter nulo. El espacio de memoria en el que se representa
la cadena reside en la memoria dinámica de Pascal. Hasta aquí el parecido con C.
Pero el bloque de memoria donde se guardan los datos contiene también la longitud
de la cadena y un contador de referencias, sobre el que trataremos más adelante.
¿Dónde se guarda esta información? ¿Al final de la cadena? ¡No, se guarda antes! El
siguiente gráfico ayuda a comprender la situación:
S: string
CRef
Long
D E L P H I #0
Como vemos, el puntero almacenado en la variable de cadena no apunta al principio
del bloque de memoria, sino 8 bytes más adelante. El objetivo de este truco es facilitar la conversión de estas cadenas para utilizarlas en llamadas al API de Windows
pues, ignorando el prefijo que contiene la longitud y el contador de referencias, el
diseño en memoria de este tipo de datos lo hace indistinguible de las cadenas C.
Para evitar que el programador tenga que ocuparse directamente de pedir y liberar
memoria para el buffer de datos, Delphi implementa un ingenioso mecanismo basado
en contadores de referencia: cada cadena recuerda la cantidad de variables que apuntan a la misma. Cada vez que se asigna un cadena a una variable, se incrementa el
contador de la cadena asignada. Si la variable apuntaba antes a otra cadena, la cadena
que se “pierde” decrementa su contador; cuando el contador llega a cero, se libera
automáticamente la memoria reservada. El decremento del contador de referencias
también ocurre para las variables locales, al terminar su tiempo de vida:
var
S: string;
begin
S := 'Ars longa, vita brevis';
ShowMessage(S);
// Aquí, al finalizar el bloque, se libera automáticamente …
// … la memoria reservada por S
end;
Esta liberación automática, en el mejor estilo C++, tiene una consecuencia importante: a partir de Delphi 2, las variables de cadena se inicializan automáticamente
como cadenas vacías, no importa si se declaran como variables globales, de pila o
dentro de objetos.
256 La Cara Oculta de Delphi
Por lo demás, el trabajo con estas cadenas es casi igual que antes; únicamente evite
trucos sucios como los basados en el “byte cero”. Además, es bueno que sepa utilizar
el nuevo procedimiento SetLength:
procedure SetLength(var S: string; Longitud: Integer);
Con este procedimiento, Delphi asigna un nuevo buffer para la variable de cadena,
copiando en éste cualquier información anterior. Por ejemplo, supongamos que queremos una cadena con 32 espacios en blanco. El siguiente algoritmo podía valer para
Delphi 1, pero es demasiado ineficiente en las versiones actuales:
S := '';
for I := 1 to 32 do S := S + ' ';
Realmente, ahora utilizaríamos el procedimiento AppendStr, pero no este el problema,
sino que cada carácter concatenado puede potencialmente hacer que el buffer de la
cadena se libere y se vuelva a pedir memoria para el mismo. La forma correcta de
hacerlo es la siguiente:
SetLength(S, 32);
FillChar(S[1], 32, ' ');
// O también:
// for I := 1 to 32 do S[I] := ' ';
En el ejemplo se ha utilizado el procedimiento de bajo nivel FillChar, que permite
rellenar una zona de memoria con determinado byte.
Vectores abiertos
Los vectores abiertos no son, en realidad, un nuevo tipo de datos, sino una forma de
traspaso de parámetros. O al menos hasta Delphi 4, como veremos más adelante.
Este tipo de datos resuelve un par de limitaciones básicas del Pascal original: la posibilidad de trabajar con vectores de diferentes tamaños utilizando una misma rutina, y
la posibilidad de utilizar listas dinámicas, construidas “al vuelo”.
Por regla, la cota o índice inferior aplicable a este tipo de parámetros es 0. Sin embargo, yo prefiero utilizar la función Low para conocer la cota inferior de un vector.
La cota superior de un vector abierto se puede conseguir mediante la función High.
El siguiente código muestra la implementación de una función que suma un vector
con un número arbitrario de valores enteros:
function SumarEnteros(const Lista: array of Integer): Integer;
var
I: Integer;
begin
Result := 0;
Tipos de datos de Delphi 257
for I := High(Lista) downto Low(Lista) do
Inc(Result, Lista[I]);
end;
Volvemos a tropezar con mi vieja manía de comenzar, siempre que sea posible, un
bucle for desde el valor variable hasta el valor constante, invirtiendo el sentido del
incremento de la variable de control si es necesario (downto en vez de to); recuerde
que de esta forma el código generado es más corto y rápido. Observe también el uso
de Result para el valor retornado por la función. En Pascal estándar esta función hubiera requerido otra declaración para una variable entera temporal, y una asignación
adicional al final de la rutina.
Veamos ahora posibles formas de uso de esta función:
const
Vector1: array [1..3] of Integer = (1905, 1916, 1927);
var
Vector2: array [1995..1998] of Integer;
begin
// Un vector de tres componentes; cota inferior = 1
ShowMessage(IntToStr(SumarEnteros(Vector1)));
// Un vector de cuatro componentes; cota inferior = 1995
Vector2[1995] := 1;
Vector2[1996] := 2;
Vector2[1997] := 3;
Vector2[1998] := 4; // ¿Versiones de Delphi, quizás?
ShowMessage(IntToStr(SumarEnteros(Vector1)));
// Un vector construido dinámicamente; cota inferior = 0
ShowMessage(IntToStr(SumarEnteros([1,2,10,20,1000])));
end;
Quizás la parte más sorprendente del ejemplo anterior, al menos para un viejo programador de Pascal, sea el uso de parámetros vectoriales construidos de forma dinámica. Los valores de una expresión de este tipo se encierran entre corchetes, separados por comas, con una sintaxis similar a la de los conjuntos. Aunque he utilizado
en el ejemplo valores constantes dentro del vector dinámico, es posible utilizar también variables y expresiones en general:
SumarEnteros([Paga1, Paga2, Paga3 div 3]);
Otro detalle: aunque cada llamada a la función SumarEnteros se realiza con vectores
con cotas inferiores diferentes, dentro de la función la llamada a Low(Lista) siempre
devuelve el valor 0, y High(Lista) devuelve el número de elementos en el vector menos uno.
El lenguaje de programación más popular que conozco que tiene una construcción
similar es Modula II.
258 La Cara Oculta de Delphi
Vectores dinámicos
En definitiva, mezclando las técnicas utilizadas en los parámetros de vectores abiertos y las de uso de cadenas largas, se puede implementar tipos de vectores dinámicos.
El equipo de desarrollo de Delphi se percató de lo anterior, e introdujo los vectores
dinámicos en la versión 4. Con el nuevo Delphi, podemos realizar algoritmos como
el siguiente:
procedure TentarAlAzar(N: Integer);
var
I: Integer;
A: array of Real;
Mean, StdDev: Real;
begin
ASSERT(N > 0);
SetLength(A, N);
Mean := 0;
for I := Low(A) to High(A) do
begin
A[I] := Random;
Mean := Mean + A[I];
end;
Mean := Mean / N;
StdDev := 0;
for I := Low(A) to High(A) do
StdDev := StdDev + Sqr(Mean - A[I]);
StdDev := Sqrt(StdDev / (N - 1));
ShowMessage(Format('Media: %f, Desviación estándar: %f',
[Mean, StdDev]));
end;
La variable A ha sido declarada como un vector de reales, pero sin especificar sus
cotas. En realidad, Delphi representa esta variable como un puntero, al cual inicializa
como vacío, nil. El procedimiento SetLength es el responsable de pedir memoria para
un buffer de N elementos y modificar el puntero. De ahí en adelante, el trabajo con el
vector es predecible. Se pueden utilizar con él las funciones Low, High, Length y Copy
(¡sí, como si fuera una cadena de caracteres!). Observe que al final del algoritmo no
se ha liberado explícitamente la memoria asociada al vector, pues Delphi utiliza también un mecanismo de contadores de referencia y de liberación automática con este
tipo de datos.
También pueden declararse vectores dinámicos multidimensionales:
var
Matriz: array of array of Real;
begin
SetLength(Matriz, 4, 16);
// …
end;
Tipos de datos de Delphi 259
Vectores abiertos variantes
Un caso particular de parámetro vectorial abierto es el vector abierto variante, que permite pasar dentro de un mismo vector valores pertenecientes a varios tipos. Esta
construcción, introducida en Delphi 1, permite simular los procedimientos con cantidad variable de parámetros de C/C++. Los parámetros de este tipo se declaran
como se muestra en el segundo parámetro de la siguiente función:
function Format(const Format: string;
const Args: array of const): string;
Esta función se utiliza de la siguiente forma:
ShowMessage(Format('%d: %s', [666, 'El Número De La Bestia']));
Si el lector conoce algo de C, reconocerá en esta función un sustituto a la función
sprintf de este último lenguaje.
Los vectores abiertos variantes son utilizados por varias funciones de Delphi, en
especial las que trabajan con búsquedas sobre índices, rangos de valores, etc. Para
trabajar con estos parámetros internamente, tenemos que hacernos la idea de que
han sido declarados del siguiente modo:
array of TVarRec
El tipo TVarRec, por su parte, se define de esta manera:
type
TVarRec = record
vtInteger:
vtBoolean:
vtChar:
vtExtended:
vtString:
vtPointer:
vtPChar:
vtObject:
vtClass:
vtWideChar:
vtPWideChar:
vtAnsiString:
vtCurrency:
vtVariant:
end;
case Byte of
(VInteger: Integer; VType: Byte);
(VBoolean: Boolean);
(VChar: Char);
(VExtended: PExtended);
(VString: PShortString);
(VPointer: Pointer);
(VPChar: PChar);
(VObject: TObject);
(VClass: TClass);
(VWideChar: WideChar);
(VPWideChar: PWideChar);
(VAnsiString: Pointer);
(VCurrency: PCurrency);
(VVariant: PVariant);
260 La Cara Oculta de Delphi
Variantes
A partir de Delphi 2, se incorporan al repertorio de tipos de datos los valores variantes, que se declaran mediante el tipo Variant. Una variable de tipo variante sirve
de contenedor para un valor que puede pertenecer a los tipos más diversos: enteros,
cadenas, reales, matrices dinámicas, objetos OLE, etc. Además, el valor variante almacena en un campo interno un indicador de a qué tipo concreto pertenece el valor
almacenado en un momento dado.
La presencia de un tipo de datos que pueda almacenar “cualquier cosa” no parece
muy acorde a la filosofía de Delphi de comprobación fuerte de tipos (strong type
checking), y puede parecer un paso atrás. Sin embargo, estos tipos no han sido añadidos al lenguaje por “capricho”, siendo el motivo principal de su incorporación su uso
por OLE. Por otra parte, el peligro que corremos de mezclar inadvertidamente tipos
incompatibles es mínimo porque, como hemos dicho, cada valor viene marcado con
su indicador de tipo. Esto permite realizar las asignaciones y conversiones más bizarras:
var
V: Variant;
I: Integer;
S: string;
begin
V := 123;
S := V;
// A S se le asigna la cadena '123'
V := '321';
I := V;
// A I se le asigna el número 321
V := 'Surprise!';
I := V;
// Esto produce una excepción
end;
Las variables de tipo Variant disfrutan de inicialización y destrucción automática, del
mismo modo que las cadenas de caracteres. El valor inicial que reciben es UnAssigned.
Este valor no pertenece a ninguno de los tipos convencionales. El otro valor especial
que puede asumir un variante es Null, que se utiliza en procedimientos de bases de
datos. Se pueden comparar directamente variantes con las constantes Null y UnAssigned, o utilizar las siguientes funciones:
function VarIsEmpty(const V: Variant): Boolean;
function VarIsNull(const V: Variant): Boolean;
Además de poder contener tipos básicos, como cadenas, reales y enteros, y los valores atómicos especiales que acabamos de ver, un variante puede almacenar una matriz
variante. Algunas funciones de Delphi pueden devolver variantes en este estilo; veremos estas funciones al estudiar los componentes de acceso a campos y los métodos
de búsqueda. Las funciones que devuelven información acerca de una matriz variante
son:
Tipos de datos de Delphi 261
function
function
function
function
VarIsArray(const V: Variant): Boolean;
VarArrayDimCount(const V: Variant): Integer;
VarArrayLowBound(const V: Variant; Dim: Integer): Integer;
VarArrayHighBound(const V: Variant; Dim: Integer): Integer;
Para acceder a los elementos de una matriz variante, se pueden utilizar directamente
los corchetes:
ShowMessage(V[0] + V[1]);
Ciertas funciones de Delphi necesitan que les suministremos valores empaquetados
en matrices variantes. Hay distintas formas de crearlas, y la más sencilla es utilizar la
función VarArrayOf:
function VarArrayOf(const Valores: array of const): Variant;
El otro tipo de valor que se puede almacenar en una variable de tipo variante es un
objeto OLE. Los objetos OLE se asignan generalmente mediante llamadas a la función CreateOleObject:
var
V: Variant;
begin
V := CreateOleObject('Word.Basic');
// Se activa el servidor de automatización
// y se desactiva al terminar el bloque de instrucciones
end;
Clases para la representación de listas
Los tipos de datos que estudiaremos en esta sección son clases de objetos, a diferencia de los tipos que hemos visto hasta el momento. Se utilizan con mucha frecuencia, por lo cual es necesario saber aprovechar sus posibilidades. Me refiero a las
clases TStrings y TStringList, que representan listas de cadenas de caracteres, y la clase
TList, que es la clase de lista más general de Delphi, y permite almacenar punteros a
objetos arbitrarios.
Comencemos con las listas de cadenas. ¿Por qué dos clases diferentes? La respuesta
es que TStrings es una clase abstracta, con métodos virtuales abstractos, y que no se
compromete con un tipo de implementación particular. En cambio, TStringList es
una clase concreta, que hereda de TStrings e implementa la lista mediante un vector
de punteros a cadenas con reasignación de espacio dinámica. Casi todas las propiedades y parámetros que utilizan listas de cadenas se declaran de tipo TStrings, para permitir más generalidad, pero casi siempre tienen asociados objetos TStringList en
tiempo de ejecución.
262 La Cara Oculta de Delphi
La creación de una lista de cadenas es muy sencilla:
var
Lista: TStrings;
begin
Lista := TStringList.Create;
try
// Utilizar la lista
finally
Lista.Free;
end;
end;
// ¡Polimorfismo!
En el ejemplo anterior se destruye la lista en el mismo bloque de instrucciones, por
lo que se ha utilizado la instrucción try...finally para garantizar la destrucción del
objeto.
Una vez que tenemos una lista de cadenas, es fácil añadirle cadenas:
Lista.Add('...por su eslabón más débil');
// Añade al final
Lista.Insert(0, 'Toda cadena se rompe...'); // Inserta al principio
Para acceder a una cadena existente. o modificarla, se utiliza la propiedad vectorial
Strings. Esta es también la propiedad por omisión de la clase, por lo cual los corchetes
con el índice se pueden colocar directamente a continuación de la variable de lista:
ShowMessage('Línea 1: ' + Lista.Strings[0]);
ShowMessage('Línea 1: ' + Lista[0]);
// Igual a lo anterior
Lista[1] := Lista[1] + ', decía Confucio';
Los índices de las cadenas dentro de estas listas comienzan a partir de 0. La cantidad
total de cadenas almacenadas se encuentra en la propiedad Count, de sólo lectura.
Cualquier intento de utilizar un índice inválido provoca una excepción.
Cuando las cadenas almacenadas tienen el formato Nombre=Valor, como sucede con
las líneas de un fichero de configuración, pueden utilizarse las propiedades Names y
Values:
Lista.Values['Software'] := 'Delphi';
ShowMessage(Lista.Names[0] + ' igual a ' +
Lista.Values[Lista.Names[0]]);
La posibilidad más interesante de estas listas, y la más desaprovechada, es poder almacenar punteros a objetos arbitrarios asociados con las cadenas. A estos punteros
se accede mediante la propiedad vectorial Objects:
property Objects[Indice: Integer]: Pointer;
Tipos de datos de Delphi 263
Existen métodos similares a Insert y Add que permiten añadir la cadena a la vez que
su objeto asociado:
procedure InsertObject(Index: Integer; const S: string;
AObject: TObject);
function AddObject(const S: string; AObject: TObject): Integer;
Cuando se destruye una lista de cadena, el espacio reservado para las cadenas se destruye automáticamente. Esto, sin embargo, no ocurre con los objetos asociados. Si
deseamos que los objetos insertados en una lista de cadena se destruyan también, hay
que programarlo antes:
for I := 0 to Lista.Count – 1 do
TObject(Lista.Objects[I]).Free;
Lista.Free;
La función IndexOf permite buscar una cadena, devolviendo su posición; existe una
función similar, IndexOfObject, para localizar un objeto dado su puntero:
I := Lista.IndexOf('OCX');
if I <> -1 then
Lista[I] := 'ActiveX';
// La "rosa", con otro nombre, parece que no huele igual
Hasta aquí hemos hablado del tipo TStrings en general. La clase TStringList hereda
todas las cualidades de su ancestro, añadiendo una implementación y las siguientes
propiedades:
// Sorted permite listas ordenadas alfabéticamente
property Sorted: Boolean;
// Duplicates sólo funciona cuando Sorted está activa
property Duplicates: (dupIgnore, dupAccept, dupError);
Además, esta clase incluye un par de eventos, OnChange y OnChanging para avisarnos
de los cambios que se produzcan. Estos eventos pueden interesarnos, si creamos un
componente con propiedades de tipo TStringList y quisiéramos enterarnos de cualquier operación sobre el contenido de estas propiedades durante la ejecución.
Finalmente, si deseamos almacenar solamente punteros a objetos, podemos utilizar la
clase TList. Esta clase es muy similar a las anteriores, sólo que en vez de tener una
propiedad vectorial Strings, tiene una propiedad vectorial Items, de tipo puntero, que
es la propiedad por omisión. Del mismo modo que con las listas de cadenas, hay que
destruir explícitamente los objetos antes de liberar la lista, pues TList no se considera
“propietaria” de sus objetos almacenados.
264 La Cara Oculta de Delphi
Streams: ficheros con interfaz de objetos
Una de las consecuencias de la larga historia de Delphi es la existencia de más de mil
maneras de acceder a ficheros. Para terminar este capítulo, veremos el sistema de
clases que ofrece Delphi para el trabajo con ficheros. Este sistema está basado en el
concepto abstracto de stream (flujo, corriente; la mayoría lo traduce como flujo de
datos). Delphi ofrece una clase abstracta TStream, cuyos métodos básicos son los siguientes:
function Read(var Buffer; Count: Longint): Longint;
function Write(var Buffer; Count: Longint): Longint;
function Seek(Offset: Longint; Origin: Word);
Un stream contiene también estas dos propiedades:
property Size: Longint;
property Position: Longint;
La clase TStream define además varios métodos auxiliares basados en los métodos
básicos; tal es el caso de CopyFrom, que permite copiar un fragmento de un stream en
otro objeto de este tipo, de WriteComponent, que permite almacenar un componente
en un stream, etc.
La jerarquía de clases derivadas de TStream es la siguiente, en Delphi 4:
TStream
TBlobStream
TCustomMemoryStream
TMemoryStream
TResourceStream
THandleStream
TOleStream
TFileStream
TVirtualStream
TClientBlobStream
TStringStream
TWinSocketStream
De esta amplia variedad de clases, las que más nos interesan son:
•
•
•
TFileStream: Para trabajar con ficheros del sistema operativo.
TBlobStream: Para trabajar con el contenido de campos BLOB (imágenes, documentos), como si fueran ficheros.
TMemoryStream: Para acceder a una zona de memoria como si se tratase de un
fichero.
En el capítulo 17 tendremos oportunidad de trabajar con TBlobStream. Aquí vamos a
mostrar un ejemplo sencillo, que trata sobre cómo buscar una cadena determinada
dentro de un fichero. La función Pos de Delphi podría servir, pero es muy ineficiente
para cadenas grandes. El algoritmo que utilizaremos será el de Rabin y Karp, que
Tipos de datos de Delphi 265
permite realizar estas búsquedas de forma muy eficiente. No explicaré el funcionamiento del mismo, pero puede consultar, por ejemplo, Algoritmos en C++, de Robert
Sedgewick. Esta es la implementación del algoritmo en Delphi:
function RabinKarp(const S1, S2: PChar; L1, L2: Integer): Integer;
overload;
const
D = 32;
Q = 33554393;
var
I, DM, H1, H2: Integer;
begin
DM := 1;
for I := 1 to L1 - 1 do
DM := (D * DM) mod Q;
H1 := 0;
H2 := 0;
for I := 0 to L1 - 1 do
begin
H1 := (H1 * D + Ord(S1[I])) mod Q;
H2 := (H2 * D + Ord(S2[I])) mod Q;
end;
I := 0;
while H1 <> H2 do
begin
H2 := (H2 + D * Q - Ord(S2[I]) * DM) mod Q;
H2 := (H2 * D + Ord(S2[I + L1])) mod Q;
if I > L2 - L1 then
begin
Result := -1;
Exit;
end;
Inc(I);
end;
Result := I;
end;
El algoritmo recibe dos punteros a dos buffers de caracteres, y la longitud de ambas
zonas de memoria. Se debe buscar la primera ocurrencia de los caracteres del primer
buffer dentro del segundo. Si no se encuentra, la función devuelve -1; en caso contrario, devuelve la posición donde se ha encontrado, contando como 0 la primera posición. El algoritmo, en la versión que presento, considera como diferentes las mayúsculas y minúsculas.
¿Se ha fijado en la directiva overload que he puesto en la declaración de la función?
Es que muchas veces nos interesa buscar directamente una cadena dentro de otra, al
estilo de la función Pos. Si estuviéramos en Delphi 3, tendríamos que crear otra función llamada RabinKarpStr o algo por el estilo. En Delphi 4, utilizando la directiva
mencionada, podemos volver a aprovechar el nombre en la definición de otra función:
266 La Cara Oculta de Delphi
function RabinKarp(const S1, S2: string): Integer; overload;
begin
Result := RabinKarp(PChar(S1), PChar(S2),
Length(S1), Length(S2)) + 1;
end;
Ahora ya estamos en condiciones de definir una función que busque una cadena
dentro de un fichero:
function FindString(const AFileName, AStr: string): Boolean;
begin
with TMemoryStream.Create do
try
LoadFromFile(AFileName);
Result := RabinKarp(PChar(AStr), Memory,
Length(AStr), Size) <> -1;
finally
Free;
end;
end;
La clase TMemoryStream permite acceder a un buffer en memoria como si de un fichero se tratara. Este buffer lo hemos llenado en este ejemplo utilizando el método
LoadFromFile, que lee el contenido del fichero en la memoria de la clase. La propiedad Memory permite acceder al buffer, y se utiliza como parámetro de la función RabinKarp que hemos definido antes.
Capítulo
13
Técnicas de gestión de ventanas
N
O TODO HUECO EN UNA PARED es
una ventana. En este capítulo, veremos
trucos y técnicas para luchar contra el gran problema del programador en
Windows 3.x y Windows 95: la posibilidad de agotar los recursos del sistema debido a una sobreabundancia de ventanas y controles. Un buen programador
intenta mantener el número mínimo de ventanas creadas, para lo cual crea las ventanas en el momento en que las va a utilizar. Y hay también que liberar los recursos que
consumen en el momento adecuado. Pero también mostraremos algunas posibilidades relacionadas con la gestión del teclado y ratón, útiles en la programación para
bases de datos.
¿Qué hace Delphi cuando lo dejamos solo?
Los protagonistas de esta sección serán las propiedades FormStyle, Visible y el evento
OnClose; son ellos los que determinan el comportamiento de la creación y destrucción de ventanas. Comencemos con una aplicación SDI en la cual las ventanas tienen
en su propiedad FormStyle uno de los valores fsNormal ó fsStayOnTop. Al crear una de
estas ventanas durante el diseño, el objeto correspondiente se inicializa con la propiedad Visible a False, incluso en el caso de la primera ventana. Como el lector puede
comprobar fácilmente, por cada ventana creada se añade una instrucción en el fichero de proyecto, el de extensión dpr, para crear la ventana al iniciarse la ejecución de la
aplicación, antes de entrar en el bucle de mensajes. Las ventanas se crean mediante el
método CreateForm de la clase TApplication:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
¿Por qué se utiliza CreateForm, en vez de utilizar directamente el constructor? El motivo principal es que CreateForm se encarga de designar a la primera ventana creada de
este modo como la ventana principal de la aplicación, aquella ventana que cuando se
cierra provoca el fin de la ejecución del programa. Así que en la secuencia de instruc-
268 La Cara Oculta de Delphi
ciones anterior, el formulario Form1 se convierte en la ventana principal de la aplicación, mientras que Form2, aunque creada, queda invisible. ¿Algún misterioso comportamiento de CreateForm? No, sencillamente que Form2 tiene el valor False en su
propiedad Visible. Por lo general, para mostrar el segundo formulario hay que aplicarle el método Show o ShowModal. Pruebe a crear una aplicación sencilla con dos
formularios, y cambie la propiedad Visible del segundo a True; en este caso, las dos
ventanas serán visibles desde el principio. ¿Y cómo es que la ventana principal, cuya
propiedad Visible contiene comúnmente False, se muestra automáticamente? Bueno,
esta vez es Run el que se encarga de aplicar Show a esta ventana antes de zambullirse
en el ciclo de mensajes.
Seguimos con las aplicaciones SDI. Tenemos una ventana abierta, diferente de la
principal; puede que se haya mostrado automáticamente, cambiando desde el principio Visible a True, o por medio de Show ó ShowModal. Y ahora cerramos esta ventana.
¿Adónde van las almas de las ventanas al morir? Depende del tipo de ventana, según
el valor de la propiedad FormStyle. Para las ventanas fsNormal y fsStayOnTop, el comportamiento por omisión es ocultarse. ¿Que cómo lo sé? Cree un manejador para el
evento OnClose del formulario con el cual quiere experimentar, digamos, el segundo
formulario:
procedure TForm2.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ShowMessage(GetEnumName(TypeInfo(TCloseAction), Ord(Action)));
end;
Aquí he hecho un truco sucio: he transformado un valor enumerativo en una cadena
de caracteres; para poder utilizar las funciones GetEnumName y TypeInfo hay que utilizar la unidad TypInfo. En definitiva, cuando cerramos la ventana en cuestión, debe
mostrarse un cuadro de mensajes con el texto caHide. Es decir, las ventanas “normales” se ocultan al cerrarse, pero no se destruyen. Por esta causa, para volver a mostrar
la ventana correspondiente basta con aplicar nuevamente Show ó ShowModal al objeto
sin necesidad de volverlo a crear, pues nunca fue destruido. Hay una pequeña excepción: la ventana principal. Independientemente de las intenciones de ésta, la operación de cierre provoca el fin de la aplicación. Qué se le va a hacer.
El evento OnClose puede utilizarse para cambiar el comportamiento por omisión
durante el cierre de un formulario. Por este motivo, el parámetro Action se pasa por
referencia: nos están pidiendo nuestra opinión al respecto. En este capítulo, más
adelante, veremos cómo indicar que la ventana se destruya cuando se cierre, para
evitar el despilfarro de recursos.
Si la aplicación es MDI las cosas cambian ligeramente. La ventana principal debe
tener en FormStyle el valor fsMDIForm, mientras que cada ventana hija debe tener el
estilo fsMDIChild. Esto no quita que existan ventanas dentro de la aplicación cuyo
Técnicas de gestión de ventanas 269
estilo sea fsNormal o fsStayOnTop, principalmente cuadros de diálogo con ejecución
modal. Cuando una ventana tiene el estilo fsMDIForm o fsMDIChild no puede cambiar su propiedad Visible a False. Además, el valor inicial del parámetro Action en el
evento OnClose es caMinimize, con lo que al intentar cerrar una ventana hija MDI lo
que lograremos es minimizarla, en realidad.
Creación inmediata de ventanas modales
Un buen programador de Delphi, trabajando en una aplicación de mediano a gran
tamaño, debe tener sumo cuidado con el uso de recursos del sistema, y en particular
con las ventanas. Si aceptamos el comportamiento habitual de Delphi, todas las ventanas posibles de la aplicación se crean durante la carga de la misma. Esto hace más
lenta la operación, y deja además bastante mal parados los recursos de Windows. Más
aún, al cerrar ventanas que no son MDI, como vimos en la sección anterior, no estamos realmente liberando los recursos consumidos. Debemos olvidar en lo posible
la creación automática de ventanas de Delphi, y crearlas en el preciso momento en
que las necesitamos, sin olvidar destruirlas en el instante en que nos dejen de hacer
falta.
Es fácil desactivar la creación automática de ventanas. Aunque se puede editar manualmente el código de inicio de programa en el fichero de proyecto dpr, es preferible
ejecutar el comando de menú Project|Options (Options|Project en Delphi 1), y en la
página Forms del diálogo que se activa mover los formularios necesarios al cuadro de
lista de la derecha.
En lo concerniente a la creación manual de ventanas, tenemos que distinguir entre
crear ventanas para ejecución modal y no modal. Casi siempre se puede destruir una
ventana modal en el mismo sitio en que se crea y ejecuta, lo cual nos facilitará las
270 La Cara Oculta de Delphi
cosas. En la siguiente sección adaptaremos esta técnica a la creación y ejecución de
ventanas no modales.
El código inicial para la creación y ejecución modal de ventanas debe parecerse al
siguiente:
procedure TForm1.MostrarForm2(Sender: TObject);
var
F: TForm2;
begin
F := TForm2.Create(Application);
F.ShowModal;
F.Free;
end;
Esto es programación de presupuestos bajos: se hace lo indispensable solamente. El
principal problema consiste en que, de producirse una excepción durante la ejecución
de la ventana, no se libera la memoria del objeto. Por lo tanto, introducimos una
instrucción try…finally y aprovechamos para colar un with…do, un tanto maliciosamente:
procedure TForm1.MostrarForm2(Sender: TObject);
var
F: TForm2;
begin
F := TForm2.Create(Application);
with F do
try
ShowModal;
// Es decir, F.ShowModal
finally
Free;
// O también, F.Free
end;
end;
Si nos fijamos un poco, la variable temporal F solamente se utiliza, después de ser
asignada, en la instrucción with. Ahora debe quedar claro el porqué de esta instrucción, ya que haremos desaparecer la variable temporal:
procedure TForm1.MostrarForm2(Sender: TObject);
begin
with TForm2.Create(Application) do
try
ShowModal;
finally
Free;
end;
end;
El toque final de elegancia consiste en crear un procedimiento que sirva para mostrar
de forma modal cualquier tipo de ventana de la aplicación. Naturalmente, necesitamos
un parámetro para el tipo de ventana, es decir, una referencia de clase. Aunque pu-
Técnicas de gestión de ventanas 271
diéramos utilizar el tipo TComponentClass, para el cual ya está definido el constructor
virtual Create, es más sano restringir el parámetro al tipo TFormClass:
procedure TForm1.MostrarModal(AClass: TFormClass);
begin
with AClass.Create(Application) do
try
ShowModal;
finally
Free;
end;
end;
Creación inmediata de ventanas no modales
Si solamente permitimos una instancia de cierto tipo de ventana, la situación se complica ligeramente. Por ejemplo, mi aplicación tiene un comando Ver|Clientes, que
debe visualizar la tabla de clientes. Si utilizamos la instrucción:
TbrwClientes.Create(Application);
cada vez que ejecutemos el comando se creará una ventana independiente. Para evitar este comportamiento, debemos localizar primero el formulario, que puede estar
creado y oculto o en un segundo plano. Si estamos en Delphi 2 o posterior, el código
necesario es el siguiente:
procedure TForm1.MostrarForm2(Sender: TObject);
var
F: TForm;
begin
F := Application.FindComponent('Form2') as TForm;
if Assigned(F) then
F.Show
else
TForm2.Create(Application);
end;
El método FindComponent devuelve, cuando se aplica al objeto Application, el puntero
al objeto cuyo nombre se especifica como parámetro. El tipo del valor de retorno de
este método es TComponent, por lo cual hay que realizar la conversión de tipo; para
asegurarnos contra sorpresas desagradables, utilizamos el operador as. Si se encuentra la ventana de nombre Form2, a la variable F se le asigna el puntero a la misma; de
lo contrario, se le asigna el puntero nulo, nil. En el primer caso, la ventana encontrada pasa a primer plano gracias a la aplicación del método Show. En el segundo, se
crea un objeto de este tipo.
También es posible parametrizar este método para obtener un método genérico de
crear y mostrar ventanas no modales. He aquí nuestra primera versión:
272 La Cara Oculta de Delphi
procedure TForm1.MostrarNoModal(AClass: TFormClass;
const AName: string);
var
F: TForm;
begin
F := Application.FindComponent(AName) as TForm;
if Assigned(F) then
F.Show
else
AClass.Create(Application);
end;
Esta ha sido una sustitución mecánica de valores por parámetros. Se puede eliminar
la necesidad del segundo parámetro del procedimiento, AName, pues el nombre de
un objeto de formulario puede deducirse directamente del nombre de la clase. El
procedimiento queda de este modo:
procedure TForm1.MostrarNoModal(AClass: TFormClass);
var
F: TForm;
begin
F := Application.FindComponent(Copy(AClass.ClassName, 2, 255))
as TForm;
if Assigned(F) then
F.Show
else
AClass.Create(Application);
end;
ClassName es un método que, aplicado a una referencia de clase, nos ofrece el nombre de la clase. De este nombre nos sobra la T inicial, la cual es eliminada mediante la
función Copy. El resto del procedimiento es el mismo.
Sin embargo, existe un pequeño problema en relación con la implementación del
método anterior: no funciona en Delphi 1. Por algún extraño motivo, solamente a
partir de la versión 2 se permite la búsqueda de ventanas mediante el método FindComponent de la clase TApplication. Pero siempre podemos echar mano de la clase
TScreen, más bien, de la variable global Screen, que pertenece a este tipo. Esta clase
tiene un par de propiedades, FormCount y Forms, la segunda de ellas vectorial, que
llevan la cuenta de las ventanas existentes durante la ejecución de la aplicación. La
solución es realizar una búsqueda mediante estas propiedades, en vez de confiar en
FindComponent. La versión final de MostrarNoModal es ésta:
procedure TForm1.MostrarNoModal(AClass: TFormClass);
var
I: Integer;
begin
for I := Screen.FormCount - 1 downto 0 do
if Screen.Forms[I] is AClass then
begin
Screen.Forms[I].Show;
Exit;
end;
Técnicas de gestión de ventanas 273
AClass.Create(Application);
end;
Un detalle: estamos resolviendo la construcción y visualización de la ventana con una
única llamada al constructor:
AClass.Create(Application);
Esto es posible si el formulario tiene True en su propiedad Visible, lo cual se cumple
automáticamente para las ventanas hijas MDI. Si no es este el caso, necesitaremos
aplicar el método Show al objeto recién creado:
AClass.Create(Application).Show;
Y como todo lo que comienza debe acabar, hay que preocuparse por la destrucción y
liberación del objeto de ventana, que deben ocurrir al cerrarse el formulario. Esto, sin
embargo, es muy fácil de lograr, pues basta ejecutar la siguiente asignación en respuesta al evento OnClose del formulario:
procedure TForm1.FormClose(Sender: TObject);
begin
Action := caFree;
end;
Métodos de clase para la creación dinámica
En la programación orientada a objetos se estimula el encapsulamiento de los algoritmos dentro de los objetos sobre los cuales trabajan. Las técnicas mostradas anteriormente tienen el defecto de necesitar una función externa para su llamada; MostrarModal y MostrarNoModal son funciones que hay que definir en una tercera ventana.
Esto complica el asunto, pues para mostrar una ventana hay que tener acceso a esta
tercera ventana “lanzadera”. Además, cada vez que se inicia un nuevo proyecto hay
que teclear una y otra vez el código de estas funciones, o, si estamos utilizando plantillas, necesitamos una plantilla adicional para este tercer tipo de ventana.
¿Por qué no definimos los métodos MostrarModal y MostrarNoModal precisamente
dentro de las ventanas que queremos crear dinámicamente? Pues por dos razones
elementales:
•
•
Un método normalmente se aplica a una instancia de la clase, esto es, a un objeto
existente. Si quiero un método para crear un objeto, me estoy metiendo en un
círculo vicioso.
Si mi proyecto tiene tres ventanas modales, estas tres clases de ventana tendrán
que duplicar el código de creación automática. Esto no sucedía antes.
274 La Cara Oculta de Delphi
Claro está, ya tenemos una solución a estos dos problemas. El segundo obstáculo es
realmente un problema si todavía estamos trabajando en Delphi 1; a partir de Delphi
2 lo solucionaremos utilizando herencia visual: las tres clases de ventanas modales deben heredar de la plantilla en la que definimos el código de lanzamiento de ventanas.
Los módulos de datos y la herencia visual serán estudiados en un capítulo posterior.
En cuanto al primer inconveniente, no es tal, si recordamos la existencia de los métodos de clase, que se aplican a una referencia de clase, sin necesidad de que exista un
objeto perteneciente al tipo dado. A continuación muestro la forma en que se pueden reescribir los métodos anteriores utilizando este recurso. Incluso ampliaremos un
poco las posibilidades de los métodos. Comenzamos con MostrarModal, que es el más
fácil:
class function TVentanaModal.Mostrar(ATag: Integer): TModalResult;
begin
with Create(Application) do
try
Tag := ATag;
Result := ShowModal;
finally
Free;
end;
end;
Lo primero que llama la atención es la inclusión del parámetro ATag, de tipo entero,
y el valor de retorno, de tipo TModalResult. Este último es comprensible, pues de este
modo nos enteramos con qué acción el usuario cerró el cuadro de diálogo. En
cuanto a ATag, lo estamos asignando a la propiedad Tag del nuevo formulario. El
propósito de esto es indicar de algún modo al cuadro de diálogo las condiciones en
que ha sido llamado. Por ejemplo, es común utilizar un mismo cuadro de diálogo
para introducir los datos de un nuevo cliente y para modificar los datos de un cliente
existente. Se puede utilizar como convenio que un valor de 0 en Tag signifique altas,
mientras que 1 signifique modificaciones. De este modo, podemos inicializar el título
del formulario durante la visualización del mismo:
type
TdlgClientes = class(TVentanaModal)
// …
end;
procedure TdlgClientes.FormShow(Sender: TObject);
begin
if Tag = 0 then
Caption := 'Introduzca los datos del nuevo cliente'
else
Caption := 'Modifique los datos del cliente';
end;
La forma de activar esta ventana es ahora la siguiente:
Técnicas de gestión de ventanas 275
if TdlgClientes.Mostrar(0) then
// … etc …
TdlgClientes.Mostrar(1);
// Para inserción
// Para modificación
El otro detalle de interés es quizás la forma en que se llama al método Create, sin
ningún tipo de prefijo. Bueno, recuerde que estamos dentro de un método de clase, y
que el parámetro Self de estos es una referencia de clase, no un objeto o instancia. El
código es más comprensible si reescribimos esa línea en la siguiente forma equivalente:
with Self.Create(Application) do
Self será, en dependencia de la forma en que se llame a esta función, la referencia
TVentanaModal, TdlgCliente, o cualquier otro tipo de clase derivado de TVentanaModal.
El algoritmo para crear ventanas no modales se cambia con la misma facilidad. Observe cómo hemos mejorado el procedimiento para tener en cuenta las condiciones
de llamada y la posibilidad de que la ventana exista y esté en segundo plano o minimizada:
class procedure TVentanaNoModal.Mostrar(ATag: Integer);
var
I: Integer;
F: TForm;
begin
LockWindowUpdate(Application.MainForm.Handle);
try
for I := Screen.FormCount - 1 downto 0 do
begin
F := Screen.Forms[I];
if F is Self then
begin
if F.WindowState = wsMinimized then
F.WindowState := wsNormal;
F.BringToFront;
Exit;
end;
end;
F := Create(Application);
F.Tag := ATag;
F.Show;
finally
LockWindowUpdate(0);
end;
end;
Adicionalmente, he encerrado el algoritmo básico entre llamadas a la función
LockWindowUpdate, que pertenece al API de Windows. He querido evitar el incómodo parpadeo que causa la animación de ventanas en Windows, sobre todo cuando
la ventana creada es una ventana hija MDI. LockWindowUpdate recibe como parámetro el handle o identificador de una ventana. Si es un handle válido, anula la actualización de su imagen en el monitor; si el handle es cero, actualiza la ventana en pantalla.
276 La Cara Oculta de Delphi
De esto se deduce que solamente puede haber una ventana “bloqueada” a la vez
dentro de una aplicación. Al comenzar el procedimiento Mostrar desactivamos el
dibujo en pantalla de la ventana principal de la aplicación, y lo restauramos al final. Si
se trata de una aplicación MDI, esta acción evita el parpadeo porque las ventanas
hijas se dibujan en el interior de la ventana principal. Y si se trata de una aplicación
SDI este código no surte efecto alguno, pero tampoco hace daño.
Cómo transformar Intros en Tabs
Hay que lograr que la persona que introduce datos no tenga que apartar demasiado la
mano del teclado numérico. Este es un requisito relativo, porque si la ficha de entrada
contiene una mayoría de datos alfabéticos da lo mismo que se pase de un campo a
otro con INTRO o con TAB.
Existen varias técnicas alternativas para esto, de las cuales describiré aquí la más sencilla. Se trata de interceptar la pulsación de la tecla INTRO antes de que llegue al control que tiene el foco del teclado y cambiar entonces el foco al control siguiente. El
objeto que debe realizar esta operación es, por supuesto, el formulario. Y aquí tropezamos con el primer problema: normalmente el formulario recibe los eventos del
teclado después de que los reciba el control, si es que éste no lo trata. En consecuencia, necesitamos un mecanismo para invertir este flujo de eventos. Para esto tenemos
la propiedad lógica KeyPreview del formulario: cambie esta propiedad a True.
Próximo paso: crear un manejador de eventos para OnKeyDown o para OnKeyPress, da
lo mismo; el ejemplo lo desarrollaré basado en el último. En este evento, interceptaremos las pulsaciones del carácter cuyo código ASCII es #13 (INTRO), y enfocaremos
el siguiente control utilizando el método … ejem … la propiedad … hum … No, no
hay nada documentado al respecto. En realidad, Delphi tiene varios métodos para
cambiar el control que tiene el foco, por ejemplo:
procedure SelectNext(CurControl: TWinControl;
GoForward, CheckTabStop: Boolean);
procedure SelectFirst;
Pero estos métodos están declarados en la sección protected de la clase TWinControl
y, aunque pueden utilizarse en el ejemplo anterior, no están documentados en la sección pública de la clase TForm. Con la ayuda de SelectNext nuestro manejador de
eventos queda del siguiente modo:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Técnicas de gestión de ventanas 277
SelectNext(ActiveControl, True, True);
Key := #0;
end;
end;
¿Y qué sucede si, como es de esperar, el diálogo tiene botones? En previsión de este
caso, aumentamos el método para que pregunte primero por el tipo del control activo:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) and not (ActiveControl is TButton) then
begin
SelectNext(ActiveControl, True, True);
Key := #0;
end;
end;
Aunque preguntamos directamente por el tipo TButton, se incluyen automáticamente
gracias al polimorfismo todos los controles pertenecientes a clases derivadas, como
TBitBtn.
Se puede complicar más el ejemplo anterior para tener en cuenta la presencia de
rejillas. Por ejemplo, se puede intentar que INTRO pulsada sobre una rejilla seleccione
la siguiente columna, o pase a la siguiente fila, o algo parecido. También hay que
tener en cuenta a los objetos TMemo y TDBMemo. Le recomiendo al lector que
pruebe a mejorar el algoritmo mostrado.
Cómo limitar el tamaño de una ventana
¿Ha visto el reproductor multimedia de Windows 95? La ventana principal de esta
aplicación no puede crecer verticalmente, ni tiene sentido que lo haga. En cambio, es
posible redimensionarla horizontalmente. Puede que nos interese simular este comportamiento para ciertas ventanas de nuestra aplicación. Por ejemplo, una ventana de
entrada de datos de un pedido debe tener un ancho fijo, determinado por el formato
de los campos de edición de la cabecera del pedido. Pero debe ser posible aumentar
su altura, para dar cabida a más o menos líneas de detalles.
En Delphi 4 la solución es elemental. Diseñe su formulario y ejecute estas instrucciones en el evento OnCreate:
278 La Cara Oculta de Delphi
procedure TForm1.FormCreate(Sender: TObject);
begin
Constraints.MinHeight := Height;
Constraints.MaxHeight := Height;
end;
He evitado asignar valores a la propiedad Constraints en tiempo de diseño. De este
modo, tenemos completa libertad para cambiar el tamaño de la ventana sin preocuparnos de retocar esta otra propiedad.
Si estamos utilizando alguna versión anterior de Delphi, necesitamos tratar directamente con un mensaje de Windows: WM_GETMINMAXINFO. Este mensaje es
enviado por Windows a una ventana cuando se intenta cambiar su tamaño. La ventana puede entonces decidir los límites que está dispuesta a aceptar. La estructura de
parámetros de este mensaje se describe mediante el siguiente tipo de registro de Delphi:
type
TWMGetMinMaxInfo = record
Msg: Cardinal;
Unused: Integer;
MinMaxInfo: PMinMaxInfo;
Result: LongInt;
end;
//
//
//
//
El
No
Un
El
número del mensaje
se utiliza (por ahora)
puntero a otro registro
resultado del mensaje
El resultado del mensaje, el campo Result, debe cambiarse a 0 si la ventana se encarga
de manejar el mensaje. Por su parte, el tipo de puntero PMinMaxInfo se define como
sigue:
type
PMinMaxInfo = ^TMinMaxInfo;
TMinMaxInfo = record
ptReserved: TPoint;
ptMaxSize: TPoint;
ptMaxPosition: TPoint;
ptMinTrackSize: TPoint;
ptMaxTrackSize: TPoint;
end;
El segundo y tercer campo del registro se utilizan para dar el tamaño y las coordenadas de la ventana al ser maximizada. En cuanto a los dos últimos campos, indican el
tamaño mínimo y el tamaño máximo de la misma, logrado mediante el arrastre del
borde.
Pongamos por caso que queremos limitar el ancho de una ventana; la ventana podrá
maximizarse y modificar su altura, pero el ancho siempre será el mismo con el que
fue diseñada. Declaramos el receptor del mensaje en la sección private de la declaración del formulario:
Técnicas de gestión de ventanas 279
type
TForm1 = class(TForm)
// …
private
procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
end;
Más adelante, en la sección de implementación, colocamos el cuerpo de este método:
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
with Msg.MinMaxInfo^ do
begin
ptMaxSize.X := Width;
ptMaxTrackSize.X := Width;
ptMinTrackSize.X := Width;
end;
Msg.Result := 0;
end;
Es fácil, como puede comprobar el lector, modificar este método para ajustarse a
otras condiciones.
Cómo distribuir el área interior entre dos rejillas
Con la ayuda de la propiedad Align, no cuesta nada diseñar un formulario que reajuste automáticamente el tamaño de las áreas de su interior cuando cambia de tamaño. Y cuando digo que no cuesta nada me refiero a líneas de código. Por ejemplo,
un formulario que muestre una rejilla y una barra de herramientas con una barra de
navegación solamente requiere que el panel que sirve de barra de herramientas tenga
Align con el valor alTop, mientras que la rejilla debe tener alClient. Al redimensionar la
ventana, el panel sigue estando en la parte superior, ocupando todo el ancho de la
ventana, mientras que la rejilla ocupa el resto del área disponible.
Pero muchas otras veces las relaciones entre los componentes que cubren el área
interior de la ventana son más complejas. Este es el caso de una ventana en la que
debemos mostrar una rejilla adicional, quizás con una tabla en relación master/detail
con la primera tabla. O quizás con un control TDBMemo, que muestre un campo de
este tipo correspondiente a la fila activa de la tabla que se visualiza en la rejilla. La
solución más sencilla es la siguiente:
Objeto
Panel de herramientas
Rejilla maestra
Rejilla dependiente
Valor de Align
alTop
alClient
alBottom
280 La Cara Oculta de Delphi
Con esta disposición, el crecimiento vertical de la ventana se efectúa a expensas del
tamaño de la rejilla maestra, manteniendo siempre su tamaño la rejilla dependiente.
También se puede utilizar la siguiente disposición, que mantiene la rejilla maestra con
altura constante:
Objeto
Panel de herramientas
Rejilla maestra
Rejilla dependiente
Valor de Align
alTop
alTop
alClient
No obstante, si queremos que las alturas de las rejillas mantengan cierta relación
entre sí, como que siempre tengan la misma altura, no podemos basarnos únicamente en las propiedades Align de los controles. Hay que aprovechar entonces el
evento OnResize del formulario para mantener mediante código la relación de tamaño. Como ejemplo tomaremos el que hemos mencionado, dos rejillas con el
mismo tamaño, con la primera configuración de propiedades Align. Supongamos
también que la rejilla maestra se nombra gdMaster y la dependiente gdSlave; sea también pnTools el nombre del panel con la barra de navegación. Las instrucciones necesarias en el evento OnResize son éstas:
procedure TForm1.FormResize(Sender: TObject);
begin
gdSlave.Height := (ClientHeight - pnTools.Height) div 2;
end;
Solamente se cambia el tamaño de la rejilla dependiente, que tiene alineación alBottom; la rejilla maestra ocupará inmediatamente el área sobrante. Observe también que
se utiliza la propiedad ClientHeight del formulario, y no Height a secas. El motivo es
que Height contiene la altura total del formulario, incluyendo el borde, barras de desplazamiento y la barra de título, mientras que ClientHeight se limita al área útil del
interior de la ventana.
A partir de Delphi 3, podemos utilizar también el nuevo componente TSplitter, de la
página Additional de la Paleta de Componentes, para cambiar dinámicamente la distribución del área interior de un formulario. Este control funciona de modo similar a
la línea de separación vertical entre paneles del Explorador de Windows, aunque
también es posible utilizarlo con orientación horizontal. Si tiene que trabajar todavía
con Delphi 2, puede extraer la implementación de este componente del código
fuente e instalarlo en su Delphi.
Técnicas de gestión de ventanas 281
Ventanas de presentación
Otro tipo de ventana que se utiliza con frecuencia son las ventanas de presentación
(splash windows), esas ventanas que aparecen al principio de ciertos programas donde
se muestra el logotipo de nuestra compañía, el nombre del programa y se le da gracias a nuestra abuelita por ser siempre tan comprensiva.
Para una ventana de presentación se puede utilizar cualquier tipo de ventana, pero es
preferible realizar los siguientes cambios en las propiedades del formulario :
Propiedad
BorderStyle
Position
Visible
Valor
bsNone
poScreenCenter
True
Observaciones
Eliminar borde y barra de título
Centrar la ventana en la pantalla
Visibilidad automática
Ahora tiene completa libertad para cometer cualquier atrocidad en el diseño del interior de la ventana. Pero no olvide quitar la ventana de la lista de ventanas con creación automática.
La otra cara de la técnica consiste en cómo presentar esta ventana. Habitualmente, se
aprovecha la creación automática de las restantes ventanas de la aplicación para este
fin. Como esta creación se produce en el fichero de proyecto, de extensión dpr, tenemos que abrir este fichero para editarlo, preferentemente con el comando de menú
View|Project source. La secuencia normal de instrucciones del código inicial de un
programa es parecida a esto:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
// ... otras ventanas ...
Application.CreateForm(TFormN, FormN)
Application.Run;
end.
Supongamos que hemos nombrado a nuestra ventana como Splash (“salpicadura”, el
nombre usual en inglés). La ventana de presentación se debe crear antes de la creación
de la ventana principal. Por supuesto, no se puede utilizar CreateForm para esto, porque entonces la primera ventana creada con este método se registra como la ventana
principal de la aplicación. Por lo tanto, hay que crear directamente la ventana con su
constructor:
Splash := TSplash.Create(nil);
Como hemos establecido a True la propiedad Visible de la ventana de presentación,
no hace falta aplicarle el método Show. Pero tenemos un problema: la actualización
282 La Cara Oculta de Delphi
visual de la ventana se debe producir de forma asíncrona, mediante un mensaje
WM_PAINT colocado en la cola de mensajes de la aplicación. Y al ser éste un mensaje de baja prioridad, podemos estar seguros de que la actualización no tiene lugar
mientras Windows tiene algo más importante que hacer, como crear el resto de
nuestras ventanas. Por lo tanto, tenemos que forzar la actualización de la ventana de
presentación mediante la siguiente instrucción:
Splash.Update;
Después de que se hayan creado todas las ventanas, hay que ocultar y liberar la ventana de presentación; esto es fácil si se llama al método Free. El código completo para
la presentación de una ventana durante la carga queda del siguiente modo:
begin
Application.Initialize;
Splash := TSplash.Create(nil);
Splash.Update;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
// ... otras ventanas ...
Application.CreateForm(TFormN, FormN)
Splash.Free;
Application.Run;
end.
Capítulo
14
Los módulos de datos y el
Depósito de Objetos
D
unas cuantas técnicas para que podamos reutilizar código y datos de un proyecto a otro, e incluso dentro de
un mismo proyecto. La técnica más potente y general es la creación de nuevos tipos de componentes, ya sea partiendo de cero o derivando por herencia de un
componente existente. Sin embargo, la escritura de componentes es algo complicada
ya que, además de exigir mayores conocimientos de las bibliotecas de Delphi y de la
interfaz de Windows, consume bastante tiempo de programación. No obstante,
existen otras vías para ayudar al desarrollador a evitar tareas repetitivas, y una de ellas
es el empleo de plantillas y expertos. Esta técnica ha evolucionado con las sucesivas
versiones de Delphi, añadiendo recursos revolucionarios dentro de los lenguajes
RAD, como la herencia visual de formularios.
ELPHI PONE A NUESTRA DISPOSICIÓN
En el presente capítulo presentaré los módulos de datos, que permiten al programador
separar la parte visual de sus aplicaciones de las reglas de consistencia no visuales de
sus bases de datos. De esta forma, es posible aislar la implementación del acceso a las
bases de datos para su posterior reutilización en otros proyectos.
La Galería de Plantillas de Delphi 1
El mecanismo original de plantillas se incluyó desde la primera versión de Delphi. En
esta versión, el programador puede seleccionar, en el diálogo de configuración del
entorno (Options|Environment) las opciones Use on new form y Use on new project, en la
página Preferences. Cuando las opciones mencionadas están activas y se crea un nuevo
formulario o una aplicación, aparece un cuadro de diálogo con plantillas y expertos. Las
plantillas son modelos de formularios o de aplicaciones, de los cuales Delphi almacena el código, en ficheros pas, y el diseño de componentes y sus propiedades, en
ficheros dfm. Cuando se selecciona una plantilla de formulario, se realiza una copia de
estos ficheros y se incluyen en nuestro proyecto. De este modo, nos podemos ahorrar el traer los componentes de la plantilla uno por uno, y el tener que configurar sus
propiedades y eventos.
284 La Cara Oculta de Delphi
Las plantillas sirven como esqueletos de aplicaciones y formularios pero, aunque
tenemos completa libertad de modificar el resultado después de creado, su estilo de
uso es: “o lo tomas todo, o lo dejas”. En cambio, los expertos son diálogos interactivos que nos permiten especificar las características del formulario o aplicación que
queremos generar antes de ser creados. Delphi implementa los expertos mediante
DLLs. El programador puede desarrollar sus propios expertos y registrarlos para su
uso por Delphi, pero las técnicas necesarias están fuera del alcance de este libro.
Crear una nueva plantilla, por el contrario, es algo sumamente fácil: basta con pulsar
el botón derecho del ratón sobre el formulario que se desea guardar como plantilla, y
ejecutar el comando Save as template. Aparece entonces un cuadro de diálogo para que
tecleemos el nombre de la plantilla y una breve descripción de la misma. Cuando terminamos de introducir estos datos, Delphi 1 hace una copia de los ficheros pas y dfm
para su uso posterior desde la Galería. Este detalle es importante: si posteriormente
modificamos el formulario que sirvió de origen a la plantilla, los cambios no se reflejan en la misma. A partir de Delphi 2, como veremos, el comportamiento es muy
diferente.
El Depósito de Objetos
Delphi 2 aumentó la cantidad de tipos de proyectos y formularios con los que el programador podía trabajar. Se introdujeron, por ejemplo, los módulos de datos, que
estudiaremos más adelante en este capítulo. Aparecieron también los objetos para la
programación concurrente (thread objects): la programación de estos objetos no visuales requiere teclear mecánicamente bastante código. En respuesta a la mayor complejidad, Borland modificó el concepto de Galería, transformándose ésta en el Depósito de Objetos (Object Repository), que asume todas las tareas anteriores de la Galería y
añade nuevas posibilidades.
Los módulos de datos y el Depósito de Objetos 285
El Depósito de Objetos puede activarse en Delphi mediante el comando de menú
File|New. Consiste en un cuadro de diálogo modal dividido en páginas. La primera
página, titulada simplemente New, contiene plantillas de código para aplicaciones,
formularios vacíos, componentes, DLLs, unidades vacías, unidades con objetos de
concurrencia, etc. Las páginas presentes en el Depósito, y los objetos que se encuentran en las mismas, dependen de la versión de Delphi y de la configuración personal
que hayamos realizado al Depósito. Una característica que en mi opinión es negativa,
es que no es fácil distinguir ahora las plantillas de los expertos, pues todos estos objetos están mezclados. Una forma de diferenciarlos es observar los botones de radio
de la parte inferior del Depósito: si solamente está disponible Copy es que hemos
seleccionado un experto o una plantilla de proyectos. Más adelante explicaré el uso
de estos botones.
Añadir plantillas al Depósito sigue siendo algo sencillo. Se pulsa el botón derecho del
ratón y se ejecuta el comando Add to Repository. Los datos que se suministran ahora
son:
•
•
•
•
•
Title: El título de la plantilla. Debe ser corto, pero puede contener espacios en
blancos.
Description: Una descripción del contenido y funciones de la plantilla.
Page: Es el nombre de la página donde se va a ubicar inicialmente la plantilla. Se
puede crear una página nueva tecleando un nombre no existente, y se puede
cambiar posteriormente la localización de la plantilla.
Author: Siempre es agradable que reconozcan nuestros méritos.
Icon: El icono que se muestra asociado al objeto.
286 La Cara Oculta de Delphi
También se pueden guardar proyectos enteros en el Depósito, mediante el comando
de menú Project|Add to Repository. Los datos que hay que teclear son similares a los de
una plantilla de formulario. En este caso se recomienda que la plantilla se sitúe en la
página Projects.
Las propiedades del Depósito
El Depósito de Objetos se configura mediante un diálogo que aparece al ejecutar el
comando de menú Options|Repository. El diálogo está dividido en dos cuadros de
listas, uno que contiene las páginas existentes en el Depósito, y otro que muestra las
plantillas y expertos que corresponden a la página seleccionada. Además de las páginas existentes, se incluye una especie de “super-página” nombrada Object Repository
que, al estar seleccionada, muestra en la segunda lista todas las plantillas y expertos
del Depósito. Mediante los tres botones superiores que quedan entre las dos listas,
podemos crear páginas, cambiar sus nombres o eliminarlas; sólo se pueden eliminar
páginas cuando ya no contienen objetos.
Igual de sencilla es la configuración de los objetos de página. Con el botón Edit object
se pueden modificar el título, la descripción, la página, el autor y el icono de una
plantilla; si el objeto seleccionado es un experto, no se puede modificar mediante este
comando. Ahora bien, si lo único que pretendemos es modificar la página a la que
pertenece el objeto, basta con arrastrarlo sobre la página de destino en el primer
cuadro de lista. Por último, podemos eliminar plantillas mediante el botón Delete
object.
Los módulos de datos y el Depósito de Objetos 287
En el diálogo de configuración del Depósito de Objetos se puede también especificar cuál es la plantilla de formulario que se utiliza cuando creamos una ficha “en
blanco” (comando File|New form), y cuál es la ficha que se utiliza por omisión cuando
se crea una nueva aplicación (comando File|New application). Las casillas Main form y
New form, bajo la lista de objetos, se utilizan para estos fines. Si se selecciona la página
Projects y se elige una plantilla de proyectos, estas dos casillas se sustituyen por la casilla New project. Si marcamos esta casilla para algún proyecto, cuando se cree un
nuevo proyecto se utilizará la plantilla seleccionada. Por supuesto, cuando se marca
un proyecto como el proyecto por omisión, no tiene sentido tener un formulario con
la opción Main form.
En cualquier caso, también puede utilizarse un experto como formulario o proyecto
por omisión. De ser así, el experto se ejecutaría automáticamente al crearse un nuevo
proyecto o formulario.
La ubicación del Depósito de Objetos
El fichero de configuración del Depósito de Objetos se denomina delphi32.dro, y
reside inicialmente en el directorio bin de Delphi. El formato de este fichero es similar al de los ficheros ini de configuración de Windows 3.1. El siguiente listado muestra algunas de las opciones almacenadas en delphi32.dro para Delphi 3:
[C:\ARCHIVOS DE PROGRAMA\BORLAND\DELPHI 3\OBJREPOS\OKCANCL1]
Type=FormTemplate
Name=Standard Dialog
Page=Dialogs
Icon=C:\ARCHIVOS DE PROGRAMA\BORLAND\DELPHI 3\OBJREPOS\OKCANCL1.ICO
Description=OK, Cancel along bottom of dialog.
Author=Borland
DefaultMainForm=0
DefaultNewForm=0
Ancestor=
288 La Cara Oculta de Delphi
[C:\ARCHIVOS DE PROGRAMA\BORLAND\DELPHI 3\OBJREPOS\MDIAPP\MDIAPP]
Type=ProjectTemplate
Name=MDI Application
Page=Projects
Icon=C:\ARCHIVOS DE PROGRAMA\BORLAND\DELPHI
3\OBJREPOS\MDIAPP\MDIAPP.ICO
Description=Standard MDI application frame.
Author=Borland
DefaultProject=0
[Borland.DataBaseFormTemplate]
Type=FormExpert
Page=Business
DefaultMainForm=0
DefaultNewForm=0
Como se puede apreciar, las plantillas de formularios se identifican por el nombre del
fichero, las de proyecto, por el nombre del directorio donde están ubicados los ficheros, mientras que los expertos se identifican mediante el nombre de la compañía y el
nombre del experto. Es evidente que, para los expertos, Delphi necesita otro tipo de
información de registro. Esta información, en el caso de Delphi 4, se almacena en la
siguiente clave del registro de Windows:
[HKEY_CURRENT_USER\Software\Borland\Delphi\4.0\Experts]
Para registrar un nuevo experto en Delphi es necesario incluir un valor, bajo la clave
anterior, que identifique el nombre y localización del fichero dll que contiene al experto.
En Delphi 3 y 4 se puede cambiar el modo de trabajo con el Depósito, permitiendo
el uso de un Depósito Compartido global (Shared Repository). Para activar el Depósito
Compartido, hay que ejecutar el comando de menú Tools|Environment options, y seleccionar un directorio de la red en la opción Shared Repository. El directorio indicado
sirve para crear o abrir un fichero delphi32.dro con los expertos y plantillas registrados.
La ventaja de utilizar un Depósito compartido por un grupo de trabajo de programadores es que el registro de nuevas plantillas se puede realizar desde un puesto
arbitrario de la red, con la garantía de que los cambios son percibidos automáticamente por el resto del equipo. La dirección del directorio compartido se almacena de
forma persistente en el registro de Windows.
Los módulos de datos y el Depósito de Objetos 289
¿Usar, copiar o heredar?
La diferencia más revolucionaria entre la Galería de Delphi 1 y el Depósito de Objetos es la posibilidad de elegir entre distintos modos de uso de una plantilla. El diálogo del Depósito muestra, en su esquina inferior izquierda, tres botones de radio
con los títulos Copy, Inherit y Use. La opción Copy es la más común, pues era el modo
en que funcionaba la Galería de Plantillas de Delphi 1; las plantillas de proyectos,
además, solamente admiten esta opción. Consiste en sacar una nueva copia de los
ficheros asociados a la plantilla, tanto los pas como los dfm. El programador puede
entonces modificar el código del formulario o proyecto para adaptarlo a sus necesidades. Los problemas surgen si necesitamos modificar la plantilla original. Por ejemplo, la plantilla puede ser algo tan simple como la pantalla de presentación estándar
de las aplicaciones de nuestra empresa. Alguien diseñó originalmente la plantilla, y la
hemos copiado en diez proyectos. Naturalmente, hay que adaptar la plantilla al proyecto, pues se necesita al menos cambiar el nombre de la aplicación. Entonces, algún
desocupado decide, para justificar su salario, que la empresa necesita un nuevo logotipo, y se modifica la plantilla. Tenemos que modificar manualmente las diez pantallas
de presentación de los diez proyectos, o comenzar de nuevo.
Cree una nueva aplicación con el comando de menú File|New application. Ejecute el
comando File|New para trabajar con el Depósito de Objetos. Active la página Forms,
seleccione el primer icono, About, y asegúrese de que esté seleccionado el botón Copy
en la porción inferior izquierda del diálogo. Pulse entonces el botón Ok. Debe aparecer entonces, ya como parte de nuestro proyecto, un cuadro de diálogo para mostrar
los créditos de la aplicación. Si vamos al Editor de Código, podremos ver la declaración del nuevo tipo de formulario:
290 La Cara Oculta de Delphi
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
Como se puede apreciar, el código generado es idéntico al que se produciría si el formulario se hubiera creado manualmente y paso a paso dentro del propio proyecto.
Abra ahora el Administrador de Proyectos, con el comando de menú View|Project
manager. La columna Path contiene los directorios donde residen los formularios;
cuando el formulario está en el mismo directorio que el proyecto (indicado en la
barra de estado del Administrador), el valor correspondiente a esa fila aparece vacío.
En este caso, comprobamos que tenemos realmente una nueva copia del formulario
en nuestro proyecto:
Unidad
Unit2
Formulario
AboutBox1
Directorio
El otro extremo es la opción Use. Cuando una de las plantillas del Depósito se “usa”,
se incluye el fichero original en el proyecto actual. El mismo efecto puede lograrse
mediante el comando de menú Add to project. Volviendo al ejemplo anterior: las modificaciones de la plantilla se verían inmediatamente en las aplicaciones que la utilizan.
Pero no se podría modificar impunemente la plantilla, pues todos estarían trabajando
sobre el mismo fichero.
Para que vea el efecto de utilizar una plantilla con la opción Use, inicie una nueva
aplicación, active el Depósito de Objetos, seleccione la página Forms, la opción Use y
la plantilla About box; cierre entonces el cuadro de diálogo con el botón Ok. Si vamos
ahora al código de la unidad incluida, no encontraremos diferencias con respecto al
ejemplo anterior. Ejecute entonces el comando de menú View|Project manager, y observe la columna Path: solamente el nuevo formulario tiene un valor diferente, indicando el directorio donde se encuentra la plantilla. Para Delphi 4 es:
Unidad
About
Formulario
AboutBox
Directorio
C:\Archivos de programa\Borland\Delphi 4\ObjRepos
Los módulos de datos y el Depósito de Objetos 291
Esto quiere decir que estamos trabajando directamente con el fichero de plantilla,
que se encuentra en el directorio utilizado por Delphi para sus plantillas predefinidas.
Cualquier modificación en el formulario se realiza sobre el original.
Como en casi todos los problemas, la solución ideal es la “senda intermedia”: la opción Inherit. Cuando heredamos de una plantilla incluimos la plantilla original dentro de
nuestro proyecto. Pero la plantilla incluida no se coloca en la lista de creación automática. En cambio, se crea un nuevo formulario o módulo de datos, perteneciente a
una clase derivada por herencia del módulo o formulario original; así nos llevamos dos
productos por el precio de uno. Es sobre este nuevo módulo o formulario sobre el
que debemos trabajar.
Repita los pasos anteriores: cree una nueva aplicación, incluya la plantilla anterior
desde el Depósito, esta vez utilizando a opción Inherit, y active el Administrador de
Proyectos. Esta vez tenemos dos nuevas unidades y formularios en el proyecto:
Unidad
About
Unit2
Formulario
AboutBox
AboutBox2
Directorio
C:\Archivos de programa\Borland\Delphi 4\ObjRepos
El código generado para el formulario del fichero unit2.pas es el siguiente:
type
TAboutBox2 = class(TAboutBox)
private
{ Private declarations }
public
{ Public declarations }
end;
La clase TAboutBox2, que es el formulario con el cual vamos a trabajar, hereda todos
los atributos y métodos de la clase original TAboutBox. Los objetos de este nuevo
formulario se inicializan con los valores de propiedades y eventos almacenados en el
fichero dfm de la plantilla original. El mecanismo de herencia impone ciertas restricciones a lo que podemos realizar en el nuevo formulario. Por ejemplo, se puede modificar cualquier propiedad o manejador de eventos, podemos añadir nuevos objetos,
pero no podemos eliminar un objeto existente en la plantilla, ni podemos cambiar la
propiedad Name de los mismos. Otro hecho del que tenemos que tener conciencia es
que la plantilla original, aunque se incluye en el proyecto, no aparece en la lista de
formularios con creación automática. Para comprobarlo, abra el cuadro de diálogo
Project|Options, en la página Forms, y verifique el contenido de las listas de formularios.
292 La Cara Oculta de Delphi
Herencia visual dentro del proyecto
También podemos crear formularios en un proyecto que hereden directamente de
otro formulario definido en el mismo proyecto, sin necesidad de que este último haya
sido guardado como plantilla. Cuando hay un proyecto abierto en el entorno de desarrollo, el Depósito de Objetos muestra una página con el nombre del proyecto: la
segunda en Delphi2, y la tercera en Delphi 3. En la edición anterior de este libro,
pronostiqué en broma que sería la cuarta página en Delphi 4, y se cumplió la profecía. La página muestra un icono por cada formulario de la aplicación, y solamente
deja utilizar la opción Inherit.
Cuando utilizamos la herencia visual dentro de un mismo proyecto, es mucho más
fácil modificar la plantilla original que contiene la clase base. En este caso, además,
no es necesario eliminar la plantilla base de la lista de formularios con creación automática.
Herencia de eventos
Cuando un formulario hereda de una plantilla cambia la forma en que se crean los
manejadores de eventos por omisión, al realizar una doble pulsación en un evento en
el Inspector de Objetos. Por ejemplo, abra el Depósito de Objetos, seleccione cualquier plantilla de la página Forms, marque también la opción Inherit y cree un nuevo
formulario. Ahora vaya al Inspector de Objetos y cree un nuevo manejador para un
evento arbitrario del nuevo formulario, digamos que sea el evento OnCreate. He aquí
el código que genera Delphi:
procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
{ Aquí se sitúa el cursor }
end;
Los módulos de datos y el Depósito de Objetos 293
La instrucción inherited permite ejecutar algún posible método asociado a este
evento en la clase ancestro. ¿Por qué escribimos solamente inherited, sin aclarar
siquiera el nombre del método o los parámetros del mismo? El problema es que
puede que no sepamos si existe un manejador anterior para el evento que se está
interceptando y, si existe, cuál es su nombre. El código generado para la instrucción
inherited se hace cargo automáticamente de este asunto.
Las plantillas de componentes
Las plantillas de componentes son un recurso, añadido a partir de Delphi 3, que nos
permite guardar grupos de componentes junto con sus propiedades y eventos asociados. Los grupos no se almacenan en el Depósito de Objetos, sino directamente en
la Paleta de Componentes, como si fueran componentes normales. La creación de
una plantilla de componentes es muy fácil: cuando haya configurado los componentes necesarios, modificando sus propiedades y creando respuestas para sus eventos,
realice una selección múltiple de los mismos y ejecute el comando de menú Components|Create component template. Aparece un cuadro de diálogo para que indiquemos el
nombre que se le va a dar a la plantilla, en qué página de la Paleta debe colocarse (por
omisión, la página Templates), y el icono asociado a la plantilla. Para este icono, Delphi
utiliza por omisión el del primer componente seleccionado.
Para borrar una plantilla de componentes de la Paleta, utilice el diálogo de configuración de este objeto, que se puede ejecutar pulsando el botón derecho del ratón sobre
la Paleta de Componentes y seleccionando el comando Properties. Se busca la página y
el objeto, y se pulsa la tecla SUPR.
Las plantillas de componentes de Delphi 3 tenían una característica bastante
irritante. Se tomaban demasiado al pie de la letra lo de guardar todas las propiedades asignadas, por lo cual también memorizaban la posición absoluta dónde estaban situados los componentes originales. Delphi 4 ha corregido este pequeño
defecto, y ahora el comportamiento de las plantillas de componentes se asemeja
más al de los componentes verdaderos.
294 La Cara Oculta de Delphi
Los módulos de datos
Los módulos de datos se incluyeron en Delphi 2, y ofrecen un mecanismo idóneo
para separar los elementos no visuales de aplicación de la interfaz puramente visual.
Desde el punto de vista del programador son una especie de “formularios invisibles”,
en los que se puede colocar cualquier componente que no sea un control. Para crear
un módulo de datos en un proyecto, podemos activar el diálogo del Depósito y seleccionar Data module en la primera página. En Delphi 2 y 3 es preferible ir directamente
al comando de menú File|New data module, cuyo efecto es el mismo; lamentablemente, este comando ha desaparecido en Delphi 4. Realice el siguiente experimento:
cree un módulo de datos en un proyecto, e intente añadir un botón al módulo. Debe
obtener un error con el siguiente mensaje: “Controls cannot be added to a data module”.
No obstante, sí admite que se coloque un componente TMainMenu, pues este componente no es técnicamente un control: no se deriva de TControl.
Desde el punto de vista de su implementación, los módulos de datos son objetos
pertenecientes a la clase TDataModule, que desciende de TComponent. Las únicas propiedades publicadas son el nombre (Name) y la omnipresente propiedad Tag, aunque
Delphi 4 añade OldCreateOrder. También son dos los eventos asociados: OnCreate y
OnDestroy, para poder inicializar los componentes asociados o realizar alguna acción
antes de la destrucción del módulo.
Los módulos de datos se utilizan típicamente para contener componentes de acceso
a bases de datos. En un módulo se puede situar un componente TDatabase, para controlar la conexión a la base de datos, y varios objetos TTable para utilizar tablas de la
BD. A partir de las tablas, a su vez, se crean objetos no visuales para acceder a los
campos. En estos objetos configuramos valores por omisión, verificaciones y formatos de visualización. También se pueden colocar en el módulo componentes
TQuery para realizar consultas en la base de datos. Todos los componentes mencionados se estudiarán más adelante.
El sentido de esta “aglomeración” de componentes es que el resto de los formularios
de la aplicación pueden acceder posteriormente a los mismos. Por ejemplo, una rejilla
de datos de Delphi (el componente TDBGrid) necesita un puntero a un objeto no
Los módulos de datos y el Depósito de Objetos 295
visual, de tipo TDataSource, para extraer los datos que se visualizan; el componente
TDataSource, por su parte, necesita un puntero a una tabla (TTable). En los lejanos
tiempos de Delphi 1 estos tres componentes tenían que residir dentro del mismo
formulario, casi de forma obligatoria, por una limitación fundamental que padecía
esta versión:
“En Delphi 1 no puede haber referencias, en tiempo de diseño, entre
componentes situados en distintos formularios”
En cambio, las versiones de Delphi a partir de la 2 sí permiten que un componente
tenga como valor de una propiedad un puntero a otro componente situado en otro
formulario; únicamente es necesario que la unidad externa esté en uso por la unidad
en que se encuentra el primer componente. Además, esta posibilidad no está limitada
a referencias a módulos de datos, sino que puede realizarse entre formularios o módulos arbitrarios.
Hagamos una pequeña demostración sin utilizar componentes de bases de datos.
Cree un aplicación y coloque en la ventana principal, Form1, un componente TDirectoryListBox, de la página de la Paleta Win3.1. Cree un nuevo formulario, Form2, e incluya en su interior un componente TFileListBox, que se encuentra en la misma página: Win3.1. Cambie también la propiedad Visible del formulario a True. Regrese
ahora a Form1 y seleccione la lista de directorios. Este componente tiene una propiedad FileList, que contiene un puntero al componente TFileListBox que debe ser controlado. Como en todas las propiedades de este tipo, el editor de la propiedad en el
Inspector de Objetos tiene un botón con una flecha para activar la lista desplegable
con los posibles valores. Consecuentemente, despliegue esa lista: no aparecerán valores. La explicación es que dentro del formulario en edición no hay componentes del
tipo necesario.
Ahora active el comando de menú File|Use unit, e incluya la unidad Unit2, que contiene al objeto Form2. Con esta operación, Delphi añade la siguiente línea dentro de
la sección de implementación de la primera unidad:
uses Unit2;
Regrese al Inspector de Objetos y vuelva a desplegar la lista de valores de la propiedad FileList. Esta vez, aparece el objeto situado en la segunda unidad:
Form2.FileListBox1. Si estuviéramos en Delphi 1, no podríamos efectuar en tiempo de
diseño la operación anterior, y estaríamos obligados a enlazar los objetos en tiempo
de ejecución, quizás en el evento OnCreate de Form2:
uses Unit1;
296 La Cara Oculta de Delphi
procedure TForm2.FormCreate(Sender: TObject);
begin
Form1.DirectoryListBox1 := FileListBox1;
end;
El esquema que presento a continuación muestra un ejemplo típico de aplicación que
agrupa sus tablas en módulos de datos:
Ventana principal
Módulo de datos
Clientes
Exploración
Inventario
Exploración
Entrada de datos
Entrada de datos
Estoy suponiendo que la aplicación realizará un mantenimiento de dos tablas: una de
clientes y otra de inventario. Desde la ventana principal se lanzan las ventanas de
exploración (browsing), que permiten localizar y filtrar las tablas correspondientes; es
común que estas ventanas estén basadas en rejillas de datos (TDBGrid). A su vez, la
actualización de estas tablas (altas y modificaciones), se realiza en ventanas de entrada
de datos, en las cuales se trabaja con sólo un registro a la vez. Lo interesante de esta
estructura es que todas las ventanas extraen sus datos del módulo de datos. Si tuviéramos, como en Delphi 1, una tabla en la ventana de exploración y otra en la de entrada de datos, sería trabajoso mantener la sincronización entre ambas. La alternativa
sería utilizar una sola tabla, quizás en la ventana de exploración, y conectar la tabla en
tiempo de ejecución a los controles de datos de la segunda ventana. Pero de esta
forma nos perderíamos la posibilidad de controlar, en tiempo de diseño, el aspecto
de los datos.
El módulo de datos desarrollado para esta aplicación puede colocarse en el Depósito
Compartido, y de este modo puede incluirse en aplicaciones posteriores. Es muy
probable que, en un equipo de trabajo, la programación del módulo de datos quede a
cargo de una parte del equipo, mientras que la parte visual sea responsabilidad de la
otra parte.
Ž
Componentes para bases
de datos
• Conjuntos de datos: tablas
• Acceso a campos
• Controles de datos y fuentes de datos
• Rejillas y barras de navegación
• Indices
• Métodos de búsqueda
Parte
Capítulo
15
Conjuntos de datos: tablas
U
N CONJUNTO DE DATOS,
para Delphi, es cualquier fuente de información
estructurada en filas y columnas. Este concepto abarca tanto a las tablas
“reales” y las consultas SQL como a ciertos tipos de procedimientos almacenados. Pero también son conjuntos de datos los conjuntos de datos clientes, introducidos en Delphi 3, que obtienen su contenido por medio de automatización OLE
remota, o a partir de un fichero “plano” local. Y también lo son las tablas anidadas
de Delphi 4, y los conjuntos de datos a la medida que desarrollan otras empresas
para acceder a formatos de bases de datos no reconocidos por el Motor de Datos de
Borland. Todos estos objetos tienen muchas propiedades, métodos y eventos en
común. En este capítulo estudiaremos los conjuntos de datos en general, pero haremos énfasis en las propiedades específicas de las tablas. En capítulos posteriores, nos
ocuparemos de las consultas y los procedimientos almacenados.
La jerarquía de los conjuntos de datos
La clase TDataSet representa una mayor abstracción del concepto de conjunto de
datos, sin importar en absoluto su implementación física. Esta clase define características y comportamientos comunes que son heredados por clases especializadas.
Estas características son, entre otras:
• Métodos de navegación: Un conjunto de datos es una colección de registros homogéneos. De estos registros, siempre hay un registro activo, que es el único con el que
podemos trabajar directamente. Los métodos de navegación permiten gestionar la
posición de este registro activo.
• Acceso a campos: Todos los registros de un conjunto de datos están estructurados a
su vez en campos. Existen mecanismos para descomponer la información almacenada en el registro activo de acuerdo a los campos que forman la estructura del
conjunto de datos.
• Estados del conjunto de datos: Los conjuntos de datos implementan una propiedad
State, que los transforman en simples autómatas finitos. Las transiciones entre
estados se utilizan para permitir las altas y modificaciones dentro de los conjuntos
de datos.
300 La Cara Oculta de Delphi
• Notificaciones a componentes visuales: Uno de los subsistemas más importantes asociados a los conjuntos de datos envía avisos a todos los componentes que se conectan a los mismos, cada vez que cambia la posición de la fila activa, o cuando se
realizan modificaciones en ésta. Gracias a esta técnica es posible asociar controles
de edición y visualización directamente a las tablas y consultas.
• Control de errores: Los conjuntos de datos disparan eventos cuando detectan un
error, que permiten corregir y reintentar la operación, personalizar el mensaje de
error o tomar otras medidas apropiadas.
Es interesante ver cómo ha evolucionado la jerarquía de clases a través de la historia
de Delphi. En las dos primeras versiones del producto, éstas eran las únicas clases
existentes:
TDataSet
TDBDataSet
TTable
TQuery
TStoredProc
La implementación de la clase TDataSet, en aquella época, utilizaba funciones y estructuras de datos del BDE. Además, la relación mutua entre los métodos, eventos y
propiedades de esta clase hacían que la implementación de descendientes de la
misma fuera bastante fastidiosa. Estos problemas fueron reconocidos durante el
desarrollo de Delphi 3, que modificó del siguiente modo la jerarquía de clases:
TDataSet
TClientDataSet
TBDEDataSet
TDBDataSet
TTable
TQuery
TStoredProc
A partir de este momento, TDataSet pasó a ser totalmente independiente del BDE.
La definición de esta clase reside ahora en la unidad DB, mientras que las clases que
dependen del BDE (derivadas de TBDEDataSet) se han movido a la unidad DBTables.
Si desarrollamos un programa que no contenga referencias a la unidad DBTables (ni a
la unidad BDE de bajo nivel, por supuesto) no necesitaremos incluir al Motor de
Datos en la posterior instalación de la aplicación. Esto es particularmente cierto para
las aplicaciones clientes de Midas, que se basan en la clase TClientDataSet. Como esta
clase desciende directamente de TDataSet, no necesita la presencia del BDE para su
funcionamiento.
Conjuntos de datos: tablas 301
¿Por qué hay dos clases diferentes: TBDEDataSet y TDBDataSet, si la segunda se
deriva directamente de la primera y no tiene hermanos? La clase TDBDataSet introduce la propiedad Database y otras propiedades y métodos relacionados con la
misma. No todo conjunto de datos del BDE tiene que estar asociado a una base de
datos. A mí se me ocurre pensar en las tablas en memoria del BDE (no encapsuladas
aún en conjuntos de datos). A los desarrolladores de Delphi 4 se les ocurrió pensar
en tablas anidadas, para representar el nuevo tipo de campo de Oracle 8, que puede
contener una colección de registros anidados:
TDataSet
TClientDataSet
TBDEDataSet
TDBDataSet
TTable
TQuery
TNestedTable
TStoredProc
El cambio de arquitectura realizado en Delphi 3 ha sido determinante para la creación de sustitutos del BDE, como lo son en este momento Titan (Btrieve y Access),
Apollo (Clipper y FoxPro), DOA (Oracle) y otros muchos.
La interacción de los subsistemas de los conjuntos de datos con los demás componentes de la VCL es bastante compleja, y existen muchas dependencias circulares.
Para explicar el funcionamiento de los campos, necesitamos saber cómo funcionan
las tablas, y viceversa. En este capítulo nos limitaremos al estudio de los métodos de
navegación. El capítulo siguiente tratará sobre el acceso a campos. Cuando estudiemos los controles de datos, profundizaremos en las notificaciones a componentes
visuales. Por último, al estudiar las actualizaciones veremos en detalle las transiciones
de estado y el mecanismo de control de errores.
En vez de comenzar la explicación con la clase abstracta TDataSet, lo cual haría
imposible mostrar ejemplos, utilizaremos la clase TTable, que es además el componente de acceso a datos que encontraremos con mayor frecuencia.
La arquitectura de objetos del Motor de Datos
Cuando utilizamos el BDE para acceder a bases de datos, nuestras peticiones pasan
por toda una jerarquía de objetos. El siguiente esquema muestra los tipos de objetos
con los que trabaja el BDE, y la relación que existe entre ellos:
302 La Cara Oculta de Delphi
BDE
System
Sesión
Sesión
Base de datos
Cursor
Cursor
Cursor
Sesión
Base de datos
Cursor
Cursor
Cursor
Base de datos
Cursor
Cursor
Cursor
El nivel superior se ocupa de la configuración global, inicialización y finalización del
sistema: el conjunto de instancias del BDE que se ejecutan en una misma máquina.
Las sesiones representan las diferentes aplicaciones y usuarios que acceden concurrentemente al sistema; en una aplicación de 32 bits pueden existir varias sesiones
por aplicación, especialmente si la aplicación soporta concurrencia mediante hilos
múltiples. En realidad, el BDE reconoce internamente otro tipo de objetos: los
clientes. Pero como estos objetos no son percibidos por el programador de Delphi,
agruparemos sus funciones con las de las sesiones.
Cada sesión puede trabajar con varias bases de datos. Estas bases de datos pueden
estar en distintos formatos físicos y en diferentes ubicaciones en una red. Su función
es controlar la conexión a bases de datos protegidas por contraseñas, la gestión de
transacciones y, en general, las operaciones que afectan a varias tablas simultáneamente.
Por último, una vez que hemos accedido a una base de datos, estamos preparados
para trabajar con los cursores. Un cursor es una colección de registros, de los cuales
tenemos acceso a uno solo a la vez, por lo que puede representarse mediante los
conjuntos de datos de Delphi. Existen funciones y procedimientos para cambiar la
posición del registro activo del cursor, y obtener y modificar los valores asociados a
este registro. El concepto de cursor nos permite trabajar con tablas, consultas SQL y
con el resultado de ciertos procedimientos almacenados de manera uniforme, ignorando las diferencias entre estas técnicas de obtención de datos.
Cada uno de los tipos de objetos internos del BDE descritos en el párrafo anterior
tiene un equivalente directo en la VCL de Delphi. La excepción es el nivel principal,
el de sistema, algunas de cuyas funciones son asumidas por la clase de sesiones de
Delphi:
Objeto del BDE
Sesiones
Bases de datos
Cursores
Clase de la VCL
TSession
TDatabase
TBDEDataSet
Conjuntos de datos: tablas 303
Un programa escrito en Delphi no necesita utilizar explícitamente los objetos superiores en la jerarquía a los cursores para acceder a bases de datos. Los componentes
de sesión y las bases de datos, por ejemplo, pueden ser creados internamente por
Delphi, aunque el programador puede acceder a los mismos en tiempo de ejecución.
Es por esto que podemos postergar el estudio de casi todos estos objetos.
Tablas
Para comenzar el estudio de los conjuntos de datos utilizaremos las tablas: el componente TTable. Mediante este
componente podemos conectarnos a tablas en cualquiera
de los formatos reconocidos por el BDE. El componente
TTable también permite conectarnos a una vista definida en
una bases de datos SQL. Las vistas son tablas virtuales,
definidas mediante una instrucción select, cuyos valores
se extraen de otras tablas y vistas. Para más información,
puede leer el capítulo 26, que trata sobre las consultas en
SQL.
La configuración de una tabla es muy sencilla. Primero hay
que asignar el valor de la propiedad DatabaseName. En esta
propiedad se indica el nombre del alias del BDE donde
reside la tabla. Este alias puede ser un alias persistente,
como los que creamos con la utilidad de configuración del
BDE, o un alias local a la aplicación, creado con el componente TDatabase. Esta
última técnica se estudia en el capítulo 30, que trata sobre los componentes de bases
de datos y sesiones. Es posible también, si la tabla está en formato Paradox o dBase,
asignar el nombre del directorio a esta propiedad. No es, sin embargo, una técnica
recomendable pues hace más difícil cambiar dinámicamente la ubicación de las tablas. El siguiente ejemplo muestra cómo asignar un nombre de directorio extraído
del registro de Windows a la propiedad DatabaseName de una tabla:
uses
Registry;
// Unidad necesaria para trabajar con el registro
resourcestring
SRaizRegistro = 'Software\MiEmpresa\MiAplicacion';
procedure TForm1.FormCreate(Sender: TObject);
begin
with TRegIniFile.Create(SRaizRegistro) do
try
Table1.DatabaseName := ReadString('BaseDatos', 'Dir', '');
// …
// Código necesario para terminar de configurar la tabla
// …
304 La Cara Oculta de Delphi
finally
Free;
end;
end;
Una vez que tenemos asignado el nombre del alias o del directorio, podemos especificar el nombre de la tabla dentro de esa base de datos mediante la propiedad TableName. Las tablas de Paradox y dBase se almacenan en ficheros, por lo que los nombres de estas tablas llevan casi siempre su extensión, db ó dbf. Sin embargo, es preferible no utilizar extensiones para este tipo de tablas. La razón es que si no utilizamos
extensiones podemos cambiar la base de datos asociada al alias, quizás con la configuración del BDE, y nuestra aplicación podrá trabajar también con tablas en formato
SQL. Esta técnica se ilustra en la aplicación mastapp, que se instala en el directorio de
demostraciones de Delphi.
Si no utilizamos extensiones con tablas locales, tenemos una propiedad y un parámetro del BDE para decidir el formato de la tabla. Si la propiedad TableType de la
tabla vale ttDefault, que es el valor por omisión, la decisión se realiza de acuerdo al
parámetro DEFAULT DRIVER del alias, que casi siempre es PARADOX. Pero
también podemos asignar ttDBase, ttParadox ó ttASCII a TableType, para forzar la interpretación según el formato indicado:
Table1.DatabaseName := 'DBDEMOS';
// Esta tabla tiene extensión DBF
Table1.TableName := 'ANIMALS';
// Sin esta asignación, falla la apertura
Table1.TableType := ttDBase;
Para poder extraer, modificar o insertar datos dentro de la tabla, necesitamos que la
tabla esté abierta o activa. Esto se controla mediante la propiedad Active de la clase.
También tenemos los métodos Open y Close, que realizan asignaciones a Active; el uso
de estos métodos hace más legible nuestros programas.
En determinados sistemas cliente/servidor, como Oracle y MS SQL Server, los
nombres de tablas pueden ir precedidos por el nombre del propietario de la tabla. Por ejemplo, dbo.customer significa la tabla customer creada por el usuario dbo,
es decir, el propio creador de la base de datos.
¡No elimine el prefijo de usuario del nombre de la tabla, aunque el truco parezca
funcionar! El BDE necesita toda esta información para localizar los índices asociados a la tabla. Sin estos índices, puede que la tabla no pueda actualizarse, o que
ocurran problemas (en realidad bugs) al cambiar dinámicamente el criterio de ordenación. Esto es especialmente aplicable a MS SQL Server.
Active es una propiedad que está disponible en tiempo de diseño. Esto quiere decir
que si le asignamos el valor True durante el diseño, la tabla se abrirá automáticamente
Conjuntos de datos: tablas 305
al cargarse desde el fichero dfm. También significa que mientras programamos la
aplicación, podemos ver directamente los datos tal y como van a quedar en tiempo
de ejecución; esta importante característica no está presente en ciertos sistemas RAD
de cuyo nombre no quiero acordarme. No obstante, nunca está de más abrir explícitamente las tablas durante la inicialización del formulario o módulo de datos donde
se ha definido. La propiedad Active puede, por accidente, quedarse en False por culpa
de un error en tiempo de diseño, y de este modo garantizamos que en tiempo de
ejecución las tablas estén abiertas. Además, aplicar el método Open sobre una tabla
abierta no tiene efectos negativos, pues la llamada se ignora. En cuanto a cerrar la
tabla, el destructor del componente llama automáticamente a Close, de modo que
durante la destrucción del formulario o módulo donde se encuentra la tabla, ésta se
cierra antes de ser destruida.
La propiedad Exclusive permite abrir una tabla en modo exclusivo, garantizando que
solamente un usuario esté trabajando con la misma. Por supuesto, la apertura en este
modo puede fallar, produciéndose una excepción. Exclusive, sin embargo, sólo funciona con Paradox y dBase. Del mismo modo, para estos formatos tenemos los siguientes métodos, que intentan aplicar un bloqueo global sobre la tabla, una vez que
está abierta:
type
TLockType = (ltReadLock, ltWriteLock);
procedure LockTable(LockType: TLockType);
procedure UnlockTable(LockType: TLockType);
No cambie el valor de Exclusive en tiempo de diseño, pues impediría la apertura
de la tabla al depurar el programa. Si desea hacer pruebas en este sentido, debe
salir del entorno de desarrollo antes.
Otra propiedad relacionada con el modo de apertura de una tabla es ReadOnly, que
permite abrir la tabla en el modo sólo lectura.
Un poco antes he mostrado un ejemplo en el que la propiedad DatabaseName se
asigna en tiempo de ejecución. ¿Cómo hacer entonces para poder visualizar los datos
en tiempo de diseño, y no tener que programar a ciegas? Si hacemos Active igual a
True en el formulario, cuando se inicie la aplicación tendremos que cerrar la tabla
antes de modificar DatabaseName, y el usuario notará el parpadeo del monitor; sin
contar que el directorio de pruebas que utilizamos durante el diseño puede no existir
en tiempo de ejecución. La solución consiste en realizar el cambio de la propiedad
DatabaseName durante la respuesta al evento BeforeOpen, que se activa justo antes de
abrir la tabla. Este evento puede compartirse por todos los componentes cuya base
de datos se determine dinámicamente:
306 La Cara Oculta de Delphi
procedure TForm1.TablasBeforeOpen(DataSet: TDataSet);
begin
with DataSet as TTable do
with TRegIniFile.Create(SRaizRegistro) do
try
DatabaseName := ReadString('BaseDatos', 'Dir', '');
finally
Free;
end;
end;
La apertura de la tabla tiene lugar automáticamente después de terminar la ejecución
de este método. Observe que el parámetro del evento es del tipo TDataSet. Este
evento y otros similares serán estudiados en un capítulo posterior.
En lo que queda de este capítulo, las propiedades, métodos y eventos que vamos a
estudiar serán comunes a todos los tipos de conjuntos de datos, aunque utilizaremos
tablas en los ejemplos para concretar.
Conexión con componentes visuales
Un conjunto de datos, sea una tabla o una consulta, no puede visualizar directamente
los datos con los que trabaja. Para comunicarse con los controles visuales, el conjunto de datos debe tener asociado un componente auxiliar, perteneciente a la clase
TDataSource. Traduciré esta palabra como fuente de datos, pero trataré de utilizarla lo
menos posible, pues el parecido con “conjunto de datos” puede dar lugar a confusiones.
Un objeto TDataSource es, en esencia, un “notificador”. Los objetos que se conectan
a este componente son avisados de los cambios de estado y de contenido del conjunto de datos controlado por TDataSource. Las dos propiedades principales de TDataSource son:
•
•
DataSet: Es un puntero, de tipo TDataSet, al conjunto de datos que se controla.
AutoEdit: Cuando es True, el valor por omisión, permite editar directamente
sobre los controles de datos asociados, sin tener que activar explícitamente el
modo de edición en la tabla. El modo de edición se explica más adelante.
A la fuente de datos se conectan entonces todos los controles de datos que deseemos.
Estos controles de datos se encuentran en la página Data Controls de la Paleta de
Componentes, y todos tienen una propiedad DataSource para indicar a qué fuente de
datos, y por lo tanto, a qué conjunto de datos indirectamente se conectan. Más adelante, dedicaremos un par de capítulos al estudio de estos controles.
Conjuntos de datos: tablas 307
Es posible acoplar más de una fuente de datos a un conjunto de datos. Estas fuentes
de datos pueden incluso encontrarse en formularios o módulos de datos diferentes al
del conjunto de datos. El propósito de esta técnica es establecer canales de notificación separados. Más adelante, en este mismo capítulo, veremos una aplicación en las
relaciones master/detail. La técnica de utilizar varias fuentes de datos es posible gracias
al mecanismo oculto que emplea Delphi. Cuando usted engancha un data source a un
conjunto de datos esto es lo que ve:
TDataSet
TDataSource
DataSet
DataSet
Sin embargo, existe un objeto oculto que pertenece al conjunto de datos, que es una
lista de fuentes de datos y que completa el cuadro real:
TDataSet
TDataSource
DataSet
FDataSources
DataSet
Un ejemplo común de conexión de componentes es utilizar una rejilla de datos
(TDBGrid) para mostrar el contenido de una tabla o consulta, con la ayuda de una
barra de navegación (TDBNavigator) para desplazarnos por el conjunto de datos y manipular su estado. Esta configuración la utilizaremos bastante en este libro, por lo cual
nos adelantamos un poco mostrando cómo implementarla:
Objeto
Table1: TTable
Propiedad
DatabaseName
TableName
Active
DataSource1: TDataSource
DataSet
DBGrid1: TDBGrid
DataSource
DBNavigator1: TDBNavigator DataSource
Valor
El alias de la base de datos
El nombre de la tabla
True
Table1
DataSource1
DataSource1
308 La Cara Oculta de Delphi
Es tan frecuente ver a estos componentes juntos, que le recomiendo al lector que
guarde la combinación como una plantilla de componentes, según explicamos en el
capítulo 14.
Navegando por las filas
La mayor parte de las operaciones que se realizan sobre un conjunto de datos se
aplican sobre la fila activa de éste, en particular aquellas operaciones que recuperan o
modifican datos. Los valores correspondientes a las columnas de la fila activa se almacenan internamente en un buffer, del cual los campos extraen sus valores.
Al abrir un conjunto de datos, inicialmente se activa su primera fila. Qué fila es ésta
depende de si el conjunto está ordenado o no. Si se trata de una tabla con un índice
activo, o una consulta SQL con una cláusula de ordenación order by, el criterio de
ordenación es, por supuesto, el indicado. Pero el orden de los registros no queda tan
claro cuando abrimos una tabla sin índices activos. Para una tabla SQL el orden de
las filas es aún más impredecible que para una tabla de Paradox o dBase. De hecho, el
concepto de posición de registro no existe para las bases de datos SQL, debido a la
forma en que generalmente se almacenan los registros. Este es el motivo por el cual
la barra de desplazamiento vertical de las rejillas de datos de Delphi tienen sólo tres
posiciones cuando se conectan a un conjunto de datos SQL: al principio de la tabla,
al final o en el medio.
Los métodos de movimiento son los siguientes:
Método
First
Prior
Next
Last
MoveBy
Objetivo
Ir al primer registro
Ir al registro anterior
Ir al registro siguiente
Ir al último registro
Moverse la cantidad de filas indicada en el parámetro
Conjuntos de datos: tablas 309
Hay dos funciones que nos avisan cuando hemos llegado a los extremos de la tabla:
Función
BOF
EOF
Significado
¿Estamos en el principio de la tabla?
¿Estamos al final de a tabla?
Combinando estas funciones con los métodos de posicionamiento, podemos crear
los siguientes algoritmos de recorrido de tablas:
Hacia delante
Hacia atrás
Table1.First;
while not Table1.EOF do
begin
// Acción
Table1.Next;
end;
Table1.Last;
while not Table1.BOF do
begin
// Acción
Table1.Prior;
end;
La combinación de las funciones BOF y EOF nos permite saber si un conjunto de
datos está vacío o no; a partir de Delphi 3 se introduce la función IsEmpty que realiza
esta tarea con más eficiencia:
procedure TForm1.Operaciones1Click(Sender: TObject);
begin
Bajas1.Enabled := not Table1.IsEmpty;
// En Delphi 2:
// Bajas1.Enabled := not (Table1.BOF and Table1.EOF);
Modificaciones1.Enabled := Bajas1.Enabled;
end;
Si queremos saber la cantidad de filas de un cursor, podemos utilizar el método RecordCount. Esta función, sin embargo, debe aplicarse con cautela, pues si estamos
tratando con una consulta SQL, su ejecución puede forzar la evaluación completa de
la misma, lo cual puede consumir bastante tiempo la primera vez. A partir de Delphi
3, la evaluación de la propiedad RecordCount se realiza en el servidor si el conjunto de
datos es un TTable, ejecutándose la instrucción SQL siguiente:
select count(*)
from
TableName
Existe toda una variedad de métodos adicionales para cambiar la fila activa, relacionados con búsquedas por contenido, que se estudiarán en los capítulos que tratan
sobre índices y métodos de búsqueda. Por el momento, solamente mencionaré uno
más:
procedure TTable.GotoCurrent(OtraTable: TTable);
310 La Cara Oculta de Delphi
Este método se puede utilizar cuando dos componentes de tablas están trabajando
sobre la misma tabla “física”, y deseamos que una de ella tenga la misma fila activa
que la otra. Puede que una de estas tablas tenga filtros y rangos activos, mientras que
la otra no. Veremos una aplicación de GotoCurrent en un capítulo posterior, para realizar búsquedas sobre tablas de detalles.
Marcas de posición
Cuando cambiamos la fila activa de una tabla, es importante saber cómo regresar a
nuestro lugar de origen. Delphi nos permite recordar una posición para volver más
adelante a la misma mediante la técnica de marcas de posición. Este es un mecanismo
implementado a nivel del BDE. La VCL nos ofrece un tipo de datos, TBookmark, que
es simplemente un puntero, y tres métodos que lo utilizan:
function TDataSet.GetBookmark: TBookmark;
procedure TDataSet.GotoBookmark(B: TBookmark);
procedure TDataSet.FreeBookmark(B: TBookmark);
El algoritmo típico con marcas de posición se muestra a continuación. Tome nota
del uso de la instrucción try...finally para garantizar el regreso y la destrucción de la
marca:
var
BM: TBookmark;
begin
// Recordar la posición actual
BM := Table1.GetBookmark;
try
// Mover la fila activa
finally
// Regresar a la posición inicial
Table1.GotoBookmark(BM);
// Liberar la memoria ocupada por la marca
Table1.FreeBookmark(BM);
end;
end;
A partir de Delphi 2, se simplifica el trabajo con las marcas de posición, al introducirse el nuevo tipo de datos TBookmarkStr, y una nueva propiedad en los conjuntos
de datos, Bookmark, del tipo anterior. El algoritmo anterior queda de la siguiente
forma:
var
BM: TBookmarkStr;
begin
// Recordar la posición actual
BM := Table1.Bookmark;
try
// Mover la fila activa
Conjuntos de datos: tablas 311
finally
// Regresar a la posición inicial
Table1.Bookmark := BM;
end;
end;
TBookmarkStr está implementada como una cadena de caracteres larga, a la cual
se le aplica una conversión de tipos estática. De esta manera, Delphi aprovecha el
código generado automáticamente por el compilador para liberar la memoria
asociada a la marca, evitándonos el uso de FreeBookmark.
Encapsulamiento de la iteración
Como los algoritmos de iteración o recorrido son tan frecuentes en la programación
para bases de datos, es conveniente contar con algún tipo de recurso que nos ahorre
teclear una y otra vez los detalles repetitivos de esta técnica. Podemos crear un procedimiento que, dado un conjunto de datos en general, lo recorra fila a fila y realice
una acción. ¿Qué acción? Evidentemente, cuando programamos este procedimiento
no podemos saber cuál; la solución consiste en pasar la acción como parámetro al
procedimiento. El parámetro que indica la acción debe ser un puntero a una función
o a un método. Es preferible utilizar un puntero a método, porque de este modo se
puede aprovechar el estado del objeto asociado al puntero para controlar mejor las
condiciones de recorrido. La declaración de nuestro procedimiento puede ser:
procedure RecorrerTabla(ADataSet: TDataSet; Action: TEventoAccion);
El tipo del evento, TEventoAccion, se debe haber definido antes del siguiente modo:
type
TEventoAccion = procedure(DataSet: TDataSet; var Stop: Boolean)
of object;
Recuerde que of object indica que TEventoAccion debe apuntar a un método, y no a
un procedimiento declarado fuera de una clase.
En el evento pasaremos el conjunto de datos como primer parámetro. El segundo
parámetro, de entrada y salida, permitirá que el que utiliza el procedimiento pueda
terminar el recorrido antes de alcanzar el fin de tabla, asignando True a este parámetro. Finalmente, ésta es la implementación del procedimiento:
procedure RecorrerTabla(ADataSet: TDataSet; Action: TEventoAccion);
var
BM: TBookmarkStr;
Stop: Boolean;
begin
Screen.Cursor := crHourglass;
312 La Cara Oculta de Delphi
ADataSet.DisableControls;
BM := ADataSet.Bookmark;
try
ADataSet.First;
Stop := False;
while not ADataSet.EOF and not Stop do
begin
if Assigned(Action) then
Action(ADataSet, Stop);
ADataSet.Next;
end;
finally
ADataSet.Bookmark := BM;
ADataSet.EnableControls;
Screen.Cursor := crDefault;
end;
end;
En este procedimiento se ha añadido el cambio de cursor durante la operación. El
cursor crHourglass es el famoso reloj de arena que con tanta frecuencia, desgraciadamente, aparece en la pantalla de nuestros ordenadores. Además se han introducido
un par de métodos nuevos: DisableControls y EnableControls. Estos métodos desactivan
y reactivan el mecanismo interno de notificación a los controles de datos asociados.
Si estos métodos no se utilizan en la iteración y la tabla tiene controles de datos asociados, cada vez que desplacemos la fila activa, los controles se redibujarán. Esto
puede ser molesto para el usuario, y es sumamente ineficiente. Hay que garantizar, no
obstante, que EnableControls vuelva a habilitar las notificaciones, por lo que este método se llama dentro de la cláusula finally.
NOTA IMPORTANTE
El hecho de que muchos ejemplos escritos en Delphi utilicen métodos de navegación como los anteriores, no le da patente de corso para abusar de los mismos
en sus programas, especialmente si está trabajando con una base de datos
cliente/servidor. Si usted tiene un bucle de navegación en cuyo interior no existe
interacción alguna con el usuario, debe convertirlo lo antes posible en un procedimiento almacenado que se ejecute en el servidor. Así, los registros leídos no
circularán por la red, sus programas se ejecutarán más rápido, ahorrarán energía
eléctrica y salvarán la selva del Amazonas y la capa de ozono (¡!).
Una posible excepción es que los registros se encuentren en la memoria caché de
la máquina, porque estemos trabajando con actualizaciones en caché. Y por supuesto, si estamos usando Paradox o dBase, no podemos utilizar procedimientos
almacenados. Sin embargo, aquí puede sernos útil desarrollar aplicaciones distribuidas, como veremos más adelante en este libro.
Conjuntos de datos: tablas 313
La relación master/detail
Es bastante frecuente encontrar tablas dependientes entre sí mediante una relación
uno/muchos: a una fila de la primera tabla corresponden cero, una o más filas de la segunda tabla. Esta es la relación que existe entre los clientes y sus pedidos, entre las
cabeceras de pedidos y sus líneas de detalles, entre Enrique VIII y sus seis esposas...
Al definir el esquema de un base de datos, estas relaciones se tienen en cuenta, por
ejemplo, para crear restricciones de integridad referencial entre tablas.
Delphi permite establecer un tipo de vínculo entre dos tablas, la relación master/detail,
con el que podemos representar este tipo de dependencias. En el vínculo intervienen
dos tablas, a las que denominaremos la tabla maestra y la tabla dependiente. La tabla
maestra puede ser, en realidad, cualquier tipo de conjunto de datos. La tabla dependiente, en cambio, debe ser un TTable. Existe una técnica para hacer que una consulta
sea controlada desde otro conjunto de datos, que será estudiada en el capítulo 26.
Cada vez que se cambia la fila activa en la tabla maestra, se restringe el conjunto de
trabajo de la tabla dependiente a las filas relacionadas. Si la tabla maestra es la tabla
de clientes y la tabla dependiente es la de pedidos, la última tabla debe mostrar en
cada momento sólo los pedidos realizados por el cliente activo:
Clientes
Código
1221
1231
1351
Pedidos
Nombre
Kauai Dive Shoppe
Unisco
Sight Diver
Número
1023
1076
1123
Clientes
Código
1221
1231
1351
Cliente
1221
1221
1221
Fecha
2/Jul/88
26/Abr/89
24/Ago/93
Pedidos
Nombre
Kauai Dive Shoppe
Unisco
Sight Diver
Número
1060
1073
1102
Cliente
1231
1231
1231
Fecha
1/Mar/89
15/Abr/89
6/Jun/92
Para establecer una relación master/detail entre dos tablas solamente hay que hacer
cambios en la tabla que va a funcionar como tabla dependiente. Las propiedades de
la tabla dependiente que hay que modificar son las siguientes:
Propiedad
MasterSource
IndexName ó IndexFieldNames
MasterFields
Propósito
Apunta a un datasource asociado a la tabla maestra
Criterio de ordenación en la tabla dependiente
Los campos de la tabla maestra que forman la relación
314 La Cara Oculta de Delphi
Es necesario configurar una de las propiedades IndexName ó IndexFieldNames. Aunque estas propiedades se estudiarán en el capítulo sobre índices, nos basta ahora con
saber que son modos alternativos de establecer un orden sobre una tabla. Este criterio de ordenación es el que aprovecha Delphi para restringir eficientemente el cursor
sobre la tabla dependiente. En el ejemplo que mostramos antes, la tabla de pedidos
debe estar ordenada por la columna Cliente.
Sin embargo, no tenemos que modificar directamente estas propiedades en tiempo
de diseño, pues el editor de la propiedad MasterFields se encarga automáticamente de
ello. Este editor, conocido como el Editor de Enlaces (Links Editor) se ejecuta
cuando realizamos una doble pulsación sobre la propiedad MasterFields, y su aspecto
depende de si la tabla dependiente es una tabla local o SQL. Si la tabla está en formato Paradox o dBase, el diálogo tiene un combo, con la leyenda AvailableIndexes
para que indiquemos el nombre del índice por el cual se ordena la tabla dependiente.
Si la relación master/detail está determinada por una restricción de integridad referencial, la mayoría de los sistemas de bases de datos crean de forma automática un índice secundario sobre la columna de la tabla de detalles. Suponiendo que las tablas
del ejemplo anterior sean tablas Paradox con integridad referencial definida entre
ellas, la tabla de pedidos debe tener un índice secundario, de nombre Clientes, que es
el que debemos seleccionar. Una vez que se selecciona un índice para la relación, en
el cuadro de lista de la izquierda aparecen las columnas pertenecientes al índice elegido. Para este tipo de tablas, el Editor de Enlaces modifica la propiedad IndexName:
el nombre del índice escogido.
Pero si la tabla pertenece a una base de datos SQL, no aparece la lista de índices, y en
el cuadro de lista de la izquierda aparecen todas las columnas de la tabla dependiente.
Una tabla SQL no tiene, en principio, limitaciones en cuanto al orden en que se
muestran las filas, por lo que basta con especificar las columnas de la tabla dependiente para que la tabla quede ordenada por las mismas. En este caso, la propiedad
que modifica el Editor de Enlaces es IndexFieldNames: las columnas por las que se
ordena la tabla.
Conjuntos de datos: tablas 315
En cualquiera de los dos casos, las columnas de la lista de la derecha corresponden a
la tabla maestra, y son las que se asignan realmente a la propiedad MasterFields. En el
ejemplo anterior, MasterFields debe tener el valor Código.
Gracias a que las relaciones master/detail se configuran en la tabla dependiente, y no
en la maestra, es fácil crear estructuras complejas basadas en esta relación:
Clientes
Consultas técnicas
Servicios contratados
Seguimiento de consultas
En el diagrama anterior, la tabla de clientes controla un par de tablas dependientes. A
su vez, la tabla de consultas técnicas, que depende de la tabla de clientes, controla a la
de seguimiento de consultas.
La relación master/detail no está limitada a representar relaciones uno/muchos, pues
también puede utilizarse para la relación inversa. Podemos designar como tabla
maestra la tabla de pedidos, y como tabla de detalles la tabla de clientes. En este
ejemplo, por cada fila de la primera tabla debe haber exactamente una fila en la tabla
de clientes. Si se aprovecha esta relación en una ficha de entrada de pedidos, cuando
el usuario introduce un código de cliente en la tabla de pedidos, automáticamente la
tabla de clientes cambia su fila activa al cliente cuyo código se ha tecleado. La siguiente imagen, correspondiente a uno de los programas de ejemplo de Delphi,
muestra esta técnica.
316 La Cara Oculta de Delphi
Los cuadros de edición que aparecen con fondo gris en la parte superior izquierda
del formulario pertenecen a la tabla de clientes, que está configurada como tabla de
detalles de la tabla principal de pedidos. Observe que la rejilla correspondiente también a una tabla de detalles: las líneas correspondientes al pedido activo.
Otra forma de representar relaciones uno/muchos es mediante las tablas anidadas de Oracle 8. Cuando estudiemos las extensiones de objetos de este producto,
analizaremos el nuevo componente TNestedTable, que permite visualizar los datos
de detalles desde Delphi 4. La nueva versión también permite tablas anidadas en
conjuntos de datos clientes, que estudiaremos más adelante.
Navegación y relaciones master/detail
Supongamos que necesitamos conocer el total facturado por clientes que no viven en
los Estados Unidos. Tenemos un formulario con un par de tablas, tbClientes y tbPedidos, en relación master/detail, y queremos aprovechar estos componentes para ejecutar
esta operación. El país del cliente se almacena en la tabla de clientes, mientras que el
total del pedido va en la tabla de pedidos. Y, muy importante para esta sección, las
dos tablas están conectadas a sendas rejillas de datos. Estas serán las propiedades de
la primera tabla:
tbClientes
Propiedad
DatabaseName
TableName
Active
Valor
dbdemos
customer.db
True
A esta tabla se le asocia un componente TDataSource:
Conjuntos de datos: tablas 317
dsClientes
Propiedad
DataSet
Valor
tbClientes
Ahora le toca el turno a la segunda tabla:
tbPedidos
Propiedad
DatabaseName
TableName
MasterSource
IndexName
MasterFields
Active
Valor
dbdemos
orders.db
dsClientes
CustNo
CustNo
True
La tabla tendrá su correspondiente TDataSource:
dsPedidos
Propiedad
DataSet
Valor
tbPedidos
Añada, finalmente, un par de rejillas de datos (TDBGrid, en la página Data Access), y
modifique sus propiedades DataSource para que apunten a los dos componentes correspondientes. Ponga entonces un botón en algún sitio del formulario para efectuar
la suma de los pedidos. Y pruebe este algoritmo inicial, en respuesta al evento OnClick del botón:
// PRIMERA VARIANTE: ¡¡¡MUY INEFICIENTE!!!
procedure TForm1.Button1Click(Sender: TObject);
var
Total: Currency;
Tiempo: Cardinal;
begin
Tiempo := GetTickCount;
Total := 0;
tbClientes.First;
while not tbClientes.EOF do
begin
if tbClientes['COUNTRY'] <> 'US' then
begin
tbPedidos.First;
while not tbPedidos.EOF do
begin
Total := Total + tbPedidos['ITEMSTOTAL'];
tbPedidos.Next;
end;
end;
tbClientes.Next;
end;
ShowMessage(Format('%m: %d', [Total, GetTickCount - Tiempo]));
end;
318 La Cara Oculta de Delphi
Bueno, he tenido que adelantarme un poco al orden de exposición del libro. Estoy
accediendo a los valores de los campos de las tablas mediante el método más sencillo
... y más ineficiente. Me refiero a estas instrucciones:
if tbClientes['COUNTRY'] <> 'US' then
// …
Total := Total + tbPedidos['ITEMSTOTAL'];
Por el momento, debe saber que con esta técnica se obtiene el valor del campo como
un tipo Variant, de modo que en dependencia del contexto en que se emplee el valor,
Delphi realizará la conversión de tipos adecuada.
Habrá observado el comentario que encabeza el primer listado de esta sección. Si ha
seguido el ejemplo y pulsado el botón, comprenderá por qué es ineficiente ese código. ¡Cada vez que se mueve una fila, las rejillas siguen el movimiento! Y lo que más
tiempo consume es el dibujo en pantalla. Sin embargo, usted ya conoce los métodos
EnableControls y DisableControls, que desactivan las notificaciones a los controles visuales ¿Por qué no utilizarlos?
// SEGUNDA VARIANTE: ¡¡¡INCORRECTA!!!
procedure TForm1.Button1Click(Sender: TObject);
var
Total: Currency;
Tiempo: Cardinal;
begin
Tiempo := GetTickCount;
Total := 0;
tbClientes.DisableControls;
// ß NUEVO
tbPedidos.DisableControls;
// ß NUEVO
try
tbClientes.First;
while not tbClientes.EOF do
begin
if tbClientes['COUNTRY'] <> 'US' then
begin
tbPedidos.First;
while not tbPedidos.EOF do
begin
Total := Total + tbPedidos['ITEMSTOTAL'];
tbPedidos.Next;
end;
end;
tbClientes.Next;
end;
finally
tbPedidos.EnableControls;
// ß NUEVO
tbClientes.EnableControls;
// ß NUEVO
end;
ShowMessage(Format('%m: %d', [Total, GetTickCount - Tiempo]));
end;
Ahora el algoritmo sí va rápido, ¡pero devuelve un resultado a todas luces incorrecto!
Cuando llamamos a DisableControls estamos desconectando el mecanismo de notifica-
Conjuntos de datos: tablas 319
ción de cambios de la tabla a sus controles visuales ... y también a las tablas que dependen en relaciones master/detail. Por lo tanto, se mueve la tabla de clientes, pero la
tabla de pedidos no modifica el conjunto de filas activas cada vez que se selecciona
un cliente diferente.
¿Quiere una solución que funcione en cualquier versión de Delphi? Es muy sencilla:
utilice dos componentes TDataSource acoplados a la tabla de clientes. Traiga un nuevo
componente de este tipo, DataSource1, y cambie su propiedad DataSet al valor tbClientes. Entonces, haga que la propiedad DataSource de DBGrid1 apunte a DataSource1 en
vez de a dsClientes. Por último, modifique el algoritmo de iteración del siguiente
modo:
// TERCERA VARIANTE: ¡¡¡AL FIN BIEN!!!
procedure TForm1.Button1Click(Sender: TObject);
var
Total: Currency;
Tiempo: Cardinal;
begin
Tiempo := GetTickCount;
Total := 0;
DataSource1.Enable := False;
// ß NUEVO
tbPedidos.DisableControls;
try
tbClientes.First;
while not tbClientes.EOF do
begin
if tbClientes['COUNTRY'] <> 'US' then
begin
tbPedidos.First;
while not tbPedidos.EOF do
begin
Total := Total + tbPedidos['ITEMSTOTAL'];
tbPedidos.Next;
end;
end;
tbClientes.Next;
end;
finally
tbPedidos.EnableControls;
DataSource1.Enable := True;
// ß NUEVO
end;
ShowMessage(Format('%m: %d', [Total, GetTickCount - Tiempo]));
end;
Ahora, el flujo de notificaciones se corta al nivel de una fuente de datos particular, no
al nivel general de la tabla. De esta forma, tbClientes sigue enviando notificaciones a
sus dos fuentes de datos asociadas. La fuente de datos dsClientes propaga estas notificaciones a los objetos que hacen referencia a ella: en este caso, la tabla dependiente
dsPedidos. Pero DataSource1 es inhabilitada temporalmente para que la rejilla asociada
no reciba notificaciones de cambio.
320 La Cara Oculta de Delphi
¿Quiere una solución que funciona solamente a partir de Delphi 4? En esta versión
se introduce la propiedad BlockReadSize. Cuando el valor de la misma es mayor que
cero, el conjunto de datos entra en un estado especial: la propiedad State, que veremos en la siguiente sección, toma el valor dsBlockRead. En este estado, las notificaciones de movimiento se envían solamente a las relaciones master/detail, pero no a los
controles de datos. Parece ser que también se mejora la eficiencia de las lecturas,
porque se leen simultáneamente varios registros por operación. Hay que tener en
cuenta, sin embargo, dos inconvenientes:
•
•
La única operación de navegación que funciona es Next.
Al parecer, la modificación de esta propiedad en una tabla de detalles no funciona correctamente en la versión 4.0 de Delphi.
Teniendo en cuenta estas advertencias, nuestro algoritmo pudiera escribirse de esta
forma alternativa en Delphi 4:
// CUARTA VARIANTE: ¡¡¡SOLO DELPHI 4!!!
procedure TForm1.Button1Click(Sender: TObject);
var
Total: Currency;
Tiempo: Cardinal;
begin
Tiempo := GetTickCount;
Total := 0;
// Se llama a First antes de modificar BlockReadSize
tbClientes.First;
tbClientes.BlockReadSize := 10;
// ß NUEVO
tbPedidos.DisableControls;
// Se mantiene
try
while not tbClientes.EOF do
begin
if tbClientes['COUNTRY'] <> 'US' then
begin
tbPedidos.First;
while not tbPedidos.EOF do
begin
Total := Total + tbPedidos['ITEMSTOTAL'];
tbPedidos.Next;
end;
end;
tbClientes.Next;
end;
finally
tbPedidos.EnableControls;
tbClientes.BlockReadSize := 0; // ß NUEVO
end;
ShowMessage(Format('%m: %d', [Total, GetTickCount - Tiempo]));
end;
Conjuntos de datos: tablas 321
Ahora que ya sabe cómo realizar un doble recorrido sobre un par de tablas en
relación master/detail, le aconsejo que solamente programe este tipo de algoritmos
cuando esté trabajando con bases de datos de escritorio. Si está utilizando una
base de datos cliente/servidor, la ejecución de una consulta es incomparablemente más rápida. Puede comprobarlo.
El estado de un conjunto de datos
Una de las propiedades más importantes de los conjuntos de datos es State, cuya
declaración es la siguiente:
type
TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert,
dsSetKey, dsCalcFields, dsUpdateNew, dsUpdateOld, dsFilter);
TDataSet = class(TComponent)
// …
property State: TDataSetState;
// …
end;
En Delphi 3 la definición de este tipo cambia un poco, aunque el cambio no debe
afectar a ningún programa existente, pues solamente se han renombrado ciertos
estados internos:
type
TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert,
dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue,
dsCurValue);
El estado de una tabla determina qué operaciones se pueden realizar sobre la misma.
Por ejemplo, en el estado de exploración, dsBrowse, no se pueden realizar asignaciones
a campos. Algunas operaciones cambian su semántica de acuerdo al estado en que se
encuentra la tabla. El método Post, por ejemplo, graba una nueva fila si el estado es
dsInsert en el momento de su aplicación, pero modifica la fila activa si el estado es
dsEdit.
La propiedad State es una propiedad de sólo lectura, por lo que no podemos cambiar
de estado simplemente asignando un valor a ésta. Incluso hay estados a los cuales el
programador no puede llegar explícitamente. Tal es el caso del estado dsCalcFields, al
cual se pasa automáticamente cuando existen campos calculados en la tabla; estos
campos se estudiarán en el capítulo siguiente. Las transiciones de estado que puede
realizar el programador se logran mediante llamadas a métodos. El siguiente diagrama, todo un clásico de los libros de Delphi, muestra los diferentes estados de un
322 La Cara Oculta de Delphi
conjunto de datos a los que puede pasar explícitamente el programador, y las transiciones entre los mismos:
dsEdit
Edit
Post, Cancel
Open
dsInactive
SetKey
dsBrowse
Close
dsSetKey
GotoKey, GotoNearest,
Cancel
Insert, Append
Post, Cancel
dsInsert
En el diagrama no se han representado los estados internos e inaccesibles. Los estados dsUpdateNew y dsUpdateOld (dsOldValue, dsNewValue y dsCurValue, en Delphi 3;
Delphi 4 añade dsBlockRead) son estados utilizados internamente por Delphi, y el
programador nunca encontrará que una rutina programada por él se está ejecutando
con una tabla en uno de estos estados. En cambio, aunque el programador nunca
coloca una tabla de forma explícita en los estados dsCalcFields y dsFilter, aprovecha
estos estados durante la respuestas a un par de eventos, OnCalcFields y OnFilterRecord.
El primero de estos eventos se utiliza para asignar valores a campos calculados; el segundo evento permite trabajar con un subconjunto de filas de una tabla, y lo estudiaremos en el capítulo sobre métodos de búsqueda.
La comprensión de los distintos estados de un conjunto de datos, los métodos y los
eventos de transición son fundamentales para poder realizar actualizaciones en bases
de datos. Más adelante, volveremos obligatoriamente sobre este tema.
Capítulo
16
Acceso a campos
L
son parte fundamental de la estructura de la VCL de Delphi. Estos objetos permiten manipular los valores
de los campos, definir formatos de visualización y edición, y realizar ciertas
validaciones básicas. Sin ellos, nuestros programas tendrían que trabajar directamente
con la imagen física del buffer del registro activo en un conjunto de datos. Afortunadamente, Delphi crea campos aún cuando a nosotros se nos olvida hacerlo. En este
capítulo estudiaremos las clases de campos y sus propiedades, concentrándonos en
los tipos de campos “simples”, y en el uso del Diccionario de Datos para acelerar la
configuración de campos en tiempo de diseño. En capítulos posteriores tendremos
oportunidad de estudiar los campos BLOB y los correspondientes a las nuevas extensiones orientadas a objeto de Oracle 8.
OS COMPONENTES DE ACCESO A CAMPOS
Creación de componentes de campos
Por mucho que busquemos, nunca encontraremos los componentes de acceso a
campos en la Paleta de Componentes. El quid está en que estos componentes se
vinculan a la tabla o consulta a la cual pertenecen, del mismo modo en que los ítems
de menú se vinculan al objeto de tipo TMainMenu ó TPopupMenu que los contiene.
Siguiendo la analogía con los menús, para crear componentes de campos necesitamos realizar una doble pulsación sobre una tabla para invocar al Editor de Campos de
Delphi. Este Editor se encuentra también disponible en el menú local de las tablas
como el comando Fields editor.
Antes de explicar el proceso de creación de campos necesitamos aclarar una situación: podemos colocar una tabla en un formulario, asociarle una fuente de datos y
una rejilla, y echar a andar la aplicación resultante. ¿Para qué queremos campos entonces? Bueno, aún cuando no se han definido componentes de acceso a campos
explícitamente para una tabla, estos objetos están ahí, pues han sido creados automáticamente por Delphi. Si durante la apertura de una tabla, Delphi detecta que el
usuario no ha definido campos en tiempo de diseño, crea objetos de acceso de forma
implícita. Por supuesto, estos objetos reciben valores por omisión para sus propiedades, que quizás no sean los que deseamos.
324 La Cara Oculta de Delphi
Precisamente por eso creamos componentes de campos en tiempo de diseño, para
poder controlar las propiedades y eventos relacionados con los mismos. Esta creación no nos hace malgastar memoria adicional en tiempo de ejecución, pues los
componentes se van a crear de una forma u otra. Pero sí tenemos que contar con el
aumento de tamaño del fichero dfm, que es donde se va a grabar la configuración
persistente de los valores iniciales de las propiedades de los campos. Este es un
factor a tener en cuenta, como veremos más adelante.
El Editor de Campos es una ventana de ejecución no modal; esto quiere decir que
podemos tener a la vez en pantalla distintos conjuntos de campos, correspondiendo
a distintas tablas, y que podemos pasar sin dificultad de un Editor a cualquier otra
ventana, en particular, al Inspector de Objetos. El formato del Editor es diferente en
Delphi 1 respecto a las versiones posteriores. En Delphi 1, el Editor tiene botones
incorporados para realizar los comandos más frecuentes. En Delphi 2 se decidió que
de esta forma la ventana ocupaba demasiado espacio en pantalla, por lo cual se redujo al mínimo y se movieron los comandos al menú local del propio Editor de
Campos. De este modo, para realizar casi cualquier acción en el Editor de Campos
actual hay que pulsar el botón derecho del ratón y seleccionar el comando de menú
adecuado. En común a todas las versiones, tenemos una pequeña barra de navegación en la parte superior del Editor. Esta barra no está relacionada en absoluto con la
edición de campos, sino que es un medio conveniente de mover, en tiempo de diseño, el cursor o fila activa de la tabla asociada.
Añadir componentes de campos es muy fácil. Basta con pulsar, en Delphi 1, el botón
Add, o el comando de menú Add fields del menú local, en caso contrario. En todas las
versiones se presenta un cuadro de diálogo con una lista de los campos físicos existentes en la tabla y que todavía no tienen componentes asociados. Esta lista es de
selección múltiple, y se presenta por omisión con todos los campos seleccionados.
Es aconsejable crear componentes para todos los campos, aún cuando no tengamos
en mente utilizar algunos campos por el momento. La explicación tiene que ver también con el proceso mediante el cual Delphi crea los campos. Si al abrir la tabla se
detecta la presencia de al menos un componente de campo definido en tiempo de
diseño, Delphi no intenta crear objetos de campo automáticamente. El resultado es
Acceso a campos 325
que estos campos que dejamos sin crear durante el diseño no existen en lo que concierne a Delphi.
Esta operación puede repetirse más adelante, si añadimos nuevos campos durante
una reestructuración de la tabla, o si modificamos la definición de un campo. En este
último caso, es necesario destruir primeramente el viejo componente antes de añadir
el nuevo. Para destruir un componente de campo, basta seleccionarlo en el Editor de
Campos y pulsar la tecla SUPR.
El comando Add all fields, del menú local del Editor de Campos, es una novedad
de Delphi 4 para acelerar la configuración de campos.
Clases de campos
Una vez creados los componentes de campo, podemos seleccionarlos en el Inspector
de Objetos a través de la lista de objetos, o mediante el propio Editor de Campos. Lo
primero que llama la atención es que, a diferencia de los menús donde todos los comandos pertenecen a la misma clase, TMenuItem, aquí cada componente de acceso a
campo puede pertenecer a una clase distinta. En realidad, todos los componentes de
acceso a campos pertenecen a una jerarquía de clases derivada por herencia de una
clase común, la clase TField. El siguiente diagrama muestra esta jerarquía:
TField
TBlobField
TGraphicField
TBooleanField
TMemoField
TDateTimeField
TDateField
TTimeField
TBinaryFields
TNumericField
TStringField
TBytesField
TFloatField
TBCDField
TIntegerField
TLargeIntField
TVarBytesField
TCurrencyField
TAutoIncField
TSmallintField
TWordField
De todos estos tipos, TField, TNumericField y TBinaryField (nuevo en Delphi 4) nunca
se utilizan directamente para crear instancias de objetos de campos; su papel es servir
de ancestro a campos de tipo especializado. La correspondencia entre los tipos de las
variables de campos y los tipos de las columnas es la siguiente:
326 La Cara Oculta de Delphi
Tipo de campo
TStringField
TIntegerField
TAutoIncField
TWordField
TSmallintField
TBCDField
TFloatField
TCurrencyField
TBooleanField
TDateField
TTimeField
TDateTimeField
TBlobField
TGraphicField
TMemoField
TBytesField
TVarBytesField
dBase
char
Paradox
alpha
longint
autoinc
InterBase
char, varchar
int, long
number
shortint
bcd
number
money
logical
date
time
timestamp
fmtmemo, ole, binary
graphic
memo
bytes
short
float, number
logical
date
ole, binary
memo
float, double
date
blob
text blob
Algunos tipos de campos se asocian con las clases de campos de Delphi en dependencia de su tamaño y precisión. Tal es el caso de los tipos number de dBase, y de
decimal y numeric de InterBase.
A esta jerarquía de clases, Delphi 4 añade un par de ramas:
TField
TAggregateField
TObjectField
TADTField
TDataSetField
TArrayField
TReferenceField
La clase TAggregateField permite definir campos agregados con cálculo automático en
conjuntos de datos clientes: sumas, medias, máximos, mínimos, etc. Tendremos que
esperar un poco para examinarlos. En cuanto a la jerarquía que parte de la clase abstracta TObjectField, sirve para representar los nuevos tipos de datos orientados a objetos de Oracle 8: objetos incrustados (TADTField), referencias a objetos (TReferenceField), vectores (TArrayField) y campos de tablas anidadas (TDataSetField).
Acceso a campos 327
Aunque InterBase permite definir campos que contienen matrices de valores, la
versión actual de Delphi y del BDE no permiten tratarlos como tales directamente.
Nombre del campo y etiqueta de visualización
Existen tres propiedades de los campos que muchas veces son confundidas entre sí
por el programador. Son las propiedades Name, FieldName y DisplayLabel. La primera
es, como sucede con casi todos los componentes, el nombre de la variable de campo,
o sea, del puntero al objeto. FieldName es el nombre de la columna de la tabla a la que
se refiere el objeto de campo. Y DisplayLabel es un texto descriptivo del campo, que
se utiliza, entre otras cosas, como encabezamiento de columna cuando el campo se
muestra en una rejilla de datos.
De estas propiedades, FieldName es la que menos posibilidades nos deja: contiene el
nombre de la columna, y punto. Por el contrario, Name se deduce inicialmente a partir del nombre de la tabla y del nombre de la columna. Si el nombre de tabla es
tbClientes y el nombre del campo, es decir, FieldName es CustNo, el nombre que Delphi le asigna a Name, y por consiguiente a la variable que apunta al campo, es tbClientesCustNo, la concatenación de ambos nombres.
Esto propicia un error bastante común entre los programadores, pues muchas veces
escribimos por inercia, pensando en un esquema tabla.campo:
tbClientes.CustNo
// ¡¡¡INCORRECTO!!!
El siguiente gráfico puede ayudar a comprender mejor la relación entre los nombres
de variables y los componentes de tablas y de campos:
Variables
tbClientes
tbClientesCustNo
Tabla de clientes
Campos
La asignación automática de nombres de componentes de campos nos plantea un
problema práctico: el tamaño del fichero dfm crece desmesuradamente. Tomemos
por ejemplo una aplicación pequeña que trabaje con diez tablas, y supongamos que
cada tabla tiene diez campos; estas son estimaciones a la baja. Entonces, tendremos
328 La Cara Oculta de Delphi
cien componentes de campos, y cada componente tendrá un nombre kilométrico que
estará ocupando espacio en el fichero dfm y luego en la memoria, en tiempo de ejecución. Es por eso que buscando un menor tiempo de carga de la aplicación, pues la
memoria no es una consideración primordial en estos días, tengo la costumbre de
renombrar los componentes de campos con el propósito de disminuir la longitud de
los nombres en lo posible, sin caer en ambigüedades. Por ejemplo, el nombre de
componente tbClientesCustNo puede abreviarse a algo así como tbClCustNo; ya sé que
son sólo seis letras menos, pero multiplíquelas por cien y verá.
Acceso a los campos por medio de la tabla
Aunque la forma más directa, segura y eficiente de acceder a un campo es crear el
componente en tiempo de diseño y hacer uso de la variable asociada, es también
posible llegar indirectamente al campo a través de la tabla a la cual pertenece. Estas
son las funciones y propiedades necesarias:
function TDataSet.FieldByName(const Nombre: string): TField;
property TDataSet.Fields[I: Integer]: TField;
Con FieldByName podemos obtener el componente de campo dado su nombre,
mientras que con Fields lo obtenemos si conocemos su posición. Está claro que esta
última propiedad debe utilizarse con cautela, pues si la tabla se reestructura cambian
las posiciones de las columnas. Mediante FieldByName y Fields obtenemos un objeto
de tipo TField, la clase base de la jerarquía de campos. Por lo tanto, no se pueden
utilizar directamente las propiedades específicas de los tipos de campos más concretos sin realizar una conversión de tipo. A esto volveremos a referirnos.
Si a la función FieldByName le pasamos un nombre inexistente de campo, se produce
una excepción, por lo cual no debemos utilizar esta función si lo que queremos es
saber si el campo existe o no. Para esto último contamos con la función FindField,
que devuelve el puntero al objeto si éste existe, o el puntero vacío si no:
function TDataSet.FindField(const Nombre: string): TField;
Recuerde que el componente de campo puede haber sido creado explícitamente por
usted en tiempo de diseño, pero que si no ha realizado esta acción, Delphi construye
automáticamente estos objetos al abrir el conjunto de datos.
Extrayendo información de los campos
Un componente de campo contiene los datos correspondientes al valor almacenado
en la columna asociada de la fila activa de la tabla, y la operación más frecuente con
Acceso a campos 329
un campo es extraer o modificar este valor. La forma más segura y eficiente es, una
vez creados los campos persistentes con la ayuda del Editor de Campos, utilizar las
variables generadas y la propiedad Value de las mismas. Esta propiedad se define del
tipo apropiado para cada clase concreta de campo. Si el campo es de tipo TStringField,
su propiedad Value es de tipo string; si el campo es de tipo TBooleanField, el tipo de
Value es Boolean.
ShowMessage(Format('%d-%s',
[tbClientesCodigo.Value,
tbClientesNombre.Value]));
// Un valor entero
// Una cadena de caracteres
Si la referencia al campo es del tipo genérico TField, como las que se obtienen con la
propiedad Fields y la función FieldByName, es necesario utilizar propiedades con
nombres como AsString, AsInteger, AsFloat, etc., que aclaran el tipo de datos que queremos recuperar.
ShowMessage(IntToStr(tbClientes.FieldByName('Codigo').AsInteger)
+ '-' + tbClientes.FieldByName('Nombre').AsString);
Las propiedades mencionadas intentan siempre hacer la conversión del valor almacenado realmente al tipo especificado. Por ejemplo, en el caso anterior hubiéramos
podido utilizar también la propiedad AsString aplicada al campo Codigo.
Ahora bien, existe un camino alternativo para manipular los datos de un campo: la
propiedad FieldValues de TDataSet, una novedad de Delphi 2. La declaración de esta
propiedad es la siguiente:
property FieldValues[const FieldName: string]: Variant; default;
Como se puede ver, esta es la propiedad vectorial por omisión de los conjuntos de
datos, por lo cual pueden aplicarse los corchetes directamente a una variable de tabla,
como si ésta fuera un vector. Además, como la propiedad devuelve valores variantes,
no es necesario preocuparse demasiado por el tipo del campo, pues la conversión
transcurre automáticamente:
ShowMessage(tbClientes['Codigo'] + '-' + tbClientes['Nombre']);
También puede utilizarse FieldValues con una lista de nombres de campos separados
por puntos y comas. En este caso se devuelve una matriz variante formada por los
valores de los campos individuales:
var
V: Variant;
begin
V := tbClientes['Codigo;Nombre'];
ShowMessage(V[0] + '-' + V[1]);
end;
330 La Cara Oculta de Delphi
Intencionalmente, todos los ejemplos que he mostrado leen valores desde las componentes de campos, pero no modifican este valor. El problema es que las asignaciones a campos sólo pueden efectuarse estando la tabla en alguno de los estados especiales de edición; en caso contrario, provocaremos una excepción. En el capítulo 28
sobre actualizaciones se tratan estos temas con mayor detalle; un poco más adelante,
veremos cómo se pueden asignar valores a campos calculados.
Es útil saber también cuándo es nulo o no el valor almacenado en un campo. Para
esto se utiliza la función IsNull, que retorna un valor de tipo Boolean.
Por último, si el campo es de tipo memo, gráfico o BLOB, no existe una propiedad
simple que nos proporcione acceso al contenido del mismo. Más adelante explicaremos cómo extraer información de los campos de estas clases.
Las máscaras de formato y edición
El formato en el cual se visualiza el contenido de un campo puede cambiarse, para
ciertos tipos de campos, por medio de una propiedad llamada DisplayFormat. Esta
propiedad es aplicable a campos de tipo numérico, flotante y de fecha y hora; las
cadenas de caracteres no tienen una propiedad tal, aunque veremos en la próxima
sección una forma de superar este “inconveniente”.
Si el campo es numérico o flotante, los caracteres de formato son los mismos que los
utilizados por la función predefinida FormatFloat:
Carácter
0
#
.
,
;
Significado
Dígito obligatorio
Dígitos opcionales
Separador decimal
Separador de millares
Separador de secciones
La peculiaridad principal de estas cadenas de formato es que pueden estar divididas
hasta en tres secciones: una para los valores positivos, la siguiente para los negativos
y la tercera sección para el cero. Por ejemplo, si DisplayFormat contiene la cadena
'$#,;(#.00);Cero', la siguiente tabla muestra la forma en que se visualizará el contenido
del campo:
Valor del campo
12345
-12345
0
Cadena visualizada
$12.345
(12345.00)
Cero
Acceso a campos 331
Observe que la coma, el separador de millares americano, se traduce en el separador
de millares nacional, y que lo mismo sucede con el punto. Otra propiedad relacionada con el formato, y que puede utilizarse cuando no se ha configurado DisplayFormat, es Precision, que establece el número de decimales que se visualizan por omisión.
Tenga bien en cuenta que esta propiedad no limita el número de decimales que podemos teclear para el campo, ni afecta al valor almacenado finalmente en el mismo.
Cuando el campo es de tipo fecha, hora o fecha y hora, el significado de las cadenas
de DisplayFormat coincide con el del parámetro de formato de la función FormatDateTime. He aquí unos pocos aunque no exhaustivos ejemplos de posibles valores de
esta propiedad:
Valor de DisplayFormat
dd-mm-yy
dddd, d "de" mmmm "de" yyyy
hh:mm
h:mm am/pm
Ejemplo de resultado
04-07-64
sábado, 26 de enero de 1974
14:05
2:05 pm
La preposición “de” se ha tenido que encerrar entre dobles comillas, pues en caso
contrario la rutina de conversión interpreta la primera letra como una indicación para
poner el día de la fecha.
Si el campo es de tipo lógico, de clase TBooleanField, la propiedad DisplayValues controla su formato de visualización. Esta propiedad, de tipo string, debe contener un
par de palabras o frases separadas por un punto y coma; la primera frase corresponde al valor verdadero y la segunda al valor falso:
tbDiarioBuenTiempo.DisplayValues :=
'Un tiempo maravilloso;Un día horrible';
Por último, la edición de los campos de tipo cadena, fecha y hora puede controlarse
mediante la propiedad EditMask. Los campos de tipo numérico y flotante no permiten esta posibilidad. Además, la propiedad EditFormat que introducen estos campos
no sirve para este propósito, pues indica el formato inicial que se le da al valor numérico cuando comienza su edición.
Los eventos de formato de campos
Cuando no bastan las máscaras de formato y edición, podemos echar mano de dos
eventos pertenecientes a la clase TField: OnGetText y OnSetText. El evento OnGetText,
por ejemplo, es llamado cada vez que Delphi necesita una representación visual del
contenido de un campo. Esto sucede en dos circunstancias diferentes: cuando se está
332 La Cara Oculta de Delphi
visualizando el campo de forma normal, y cuando hace falta un valor inicial para la
edición del campo. El prototipo del evento OnGetText es el siguiente:
type
TFieldGetTextEvent = procedure(Sender: TField; var Text: string;
DisplayText: Boolean) of object;
Un manejador de eventos para este evento debe asignar una cadena de caracteres en
el parámetro Text, teniendo en cuenta si se necesita para su visualización normal
(DisplayText igual a True) o como valor inicial del editor (en caso contrario).
Inspirado en la película de romanos que pasaron ayer por la tele, he desarrollado un
pequeño ejemplo que muestra el código del cliente en números romanos:
procedure TForm1.tbClientesCustNoGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
const
Unidades: array [0..9] of string =
('', 'I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII',
Decenas: array [0..9] of string =
('', 'X', 'XX', 'XXX', 'XL', 'L', 'LX', 'LXX', 'LXXX',
Centenas: array [0..9] of string =
('', 'C', 'CC', 'CCC', 'CD', 'D', 'DC', 'DCC', 'DCCC',
Miles: array [0..3] of string =
('', 'M', 'MM', 'MMM');
var
I: Integer;
begin
if Sender.AsFloat > 3999 then
Text := 'Infinitum'
// Hay que ser consecuentes con el lenguaje
else
begin
I := Sender.AsInteger;
Text := Miles[I div 1000] + Centenas[I div 100 mod 10]
Decenas[I div 10 mod 10] + Unidades[I mod 10];
end;
end;
'IX');
'XC');
'CM');
+
Si a algún usuario se le ocurriera la peregrina idea de teclear sus datos numéricos
como números romanos, el evento adecuado para programar esto sería OnSetText. El
prototipo del evento es el siguiente:
type
TFieldSetTextEvent = procedure(Sender: TField;
const Text: string) of object;
Este evento es utilizado con frecuencia para realizar cambios sobre el texto tecleado
por el usuario para un campo, antes de ser asignado al mismo. Por ejemplo, un
campo de tipo cadena puede convertir la primera letra de cada palabra a mayúsculas,
como sucede en el caso de los nombres propios. Un campo de tipo numérico puede
eliminar los separadores de millares que un usuario puede colocar para ayudarse en la
Acceso a campos 333
edición. Como este evento se define para el campo, es independiente de la forma en
que se visualice dicho campo y, como veremos al estudiar los módulos de datos,
formará parte de las reglas de empresa de nuestro diseño.
Para ilustrar el uso del evento OnSetText, aquí está el manejador que lleva a mayúsculas la primera letra de cada palabra de un nombre:
procedure TForm1.tbClientesCompanySetText(Sender: TField;
const Text: string);
var
I: Integer;
S: string;
begin
S := Text;
for I := 1 to Length(S) do
if (I = 1) or (S[I-1] = ' ') then
AnsiUpperBuff(@S[I], 1);
Sender.AsString := S;
end;
Otra situación práctica en la que OnSetText puede ayudar es cuando se necesite completar una entrada incompleta, en el caso de que el conjunto de valores a teclear esté
limitado a ciertas cadenas.
Validación a nivel de campos
Los componentes de acceso a campos ofrecen otros dos eventos: OnValidate y OnChange. Este último se dispara cuando cambia el contenido del campo, y puede utilizarse para coordinar actualizaciones entre columnas. El más usado, sin embargo, es
OnValidate, que se emplea para verificar que los valores asignados a un campo sean
correctos.
¿Cuándo se dispara este evento? La respuesta es importante: no debe importarnos
cuándo. En realidad, el evento se dispara cuando se va a transferir la información del
campo al buffer del registro activo. Pero esta operación se realiza en unas cuantas
situaciones diferentes, y es difícil rastrear todos estos casos. No hay que preocuparse
de este asunto, pues la VCL de Delphi se encarga de disparar el evento en el momento adecuado. Por el contrario, debemos estar preparados para dar la respuesta
adecuada cuando el hecho suceda. Cuando el sabio señala a la Luna, el tonto solamente ve el dedo.
Sin embargo, es bueno aclarar que OnValidate solamente se produce cuando se intentan actualizaciones. Si especificamos una condición de validación sobre una tabla,
y ciertos registros ya existentes violan la condición, Delphi no protestará al visualizar
los campos. Pero si intentamos crear nuevos registros con valores incorrectos, o
modificar alguno de los registros incorrectos, se señalará el error.
334 La Cara Oculta de Delphi
El siguiente método, programado como respuesta a un evento OnValidate, verifica
que un nombre propio debe contener solamente caracteres alfabéticos (no somos
robots):
procedure TmodDatos.VerificarNombrePropio(Sender: TField);
var
S: string;
I: Integer;
begin
S := Sender.AsString;
for I := Length(S) downto 0 do
if (S[I] <> ' ') and not IsCharAlpha(S[I]) then
DatabaseError('Carácter no permitido en un nombre propio');
end;
Este manejador puede ser compartido por varios componentes de acceso a campos,
como pueden ser el campo del nombre y el del apellido. Es por esto que se extrae el
valor del campo del parámetro Sender. Si falla la verificación, la forma de impedir el
cambio es interrumpir la operación elevando una excepción; en caso contrario, no se
hace nada especial. Para lanzar la excepción he utilizado la función DatabaseError. La
llamada a esta función es equivalente a la siguiente instrucción:
raise EDatabaseError.Create(
'Carácter inválido en un nombre propio');
El problema de utilizar raise directamente es que se consume más código, pues también hay que crear el objeto de excepción en línea. La excepción EDatabaseError, por
convenio, se utiliza para señalar los errores de bases de datos producidos por el usuario o por Delphi, no por el BDE.
Propiedades de validación
La intercepción del evento OnValidate es la forma más general de verificar el contenido de un campo. Pero la mayor parte de las validaciones pueden efectuarse modificando valores de propiedades. Por ejemplo, para comprobar que a una columna no
se le asigne un valor nulo se emplea la propiedad Required del campo correspondiente. Si el campo es numérico y queremos limitar el rango de valores aceptables,
podemos utilizar las propiedades MinValue y MaxValue. En el caso de los campos
alfanuméricos, el formato de la cadena se puede limitar mediante la propiedad EditMask, que hemos mencionado anteriormente.
He dejado para más adelante, en este mismo capítulo, el uso de las restricciones
(constraints) y su configuración mediante el Diccionario de Datos.
Acceso a campos 335
Campos calculados
Una potente característica de Delphi es la de permitir la definición de campos calculados, que no corresponden a campos definidos “físicamente” sobre la tabla o consulta
base, sino que se calculan a partir de los campos “reales”. Por ejemplo, la antigüedad
de un trabajador puede deducirse a partir de su fecha de contrato y de la fecha actual.
No tiene sentido, en cambio, almacenar físicamente este dato, pues tendría que actualizarse día a día. Otro candidato a campo calculado es el nombre completo de una
persona, que puede deducirse a partir del nombre y los apellidos; es conveniente, en
muchos casos, almacenar nombre y apellidos en campos independientes para permitir operaciones de búsqueda sobre los mismos por separado.
Para definir campos calculados, utilizamos el comando New field, del menú local del
Editor de Campos. Esto, si no estamos en Delphi 1; en esa versión, había que pulsar
el botón Define contenido en esa ventana. El cuadro de diálogo que aparece entonces
es diferente en formato para estas versiones, pero básicamente nos sirve para suministrar la misma información: el nombre que le vamos a dar al campo, el nombre de
la variable asociada al objeto, el tipo de campo y su longitud, si el campo contendrá
cadenas de caracteres. En ambos casos, también hay que aclarar que el campo es
Calculated.
Observe que en ninguna parte de este cuadro de diálogo se ha escrito algo parecido a
una fórmula. El algoritmo de cálculo del campo se especifica realmente durante la
respuesta al evento OnCalcFields de la tabla a la cual pertenece el campo. Durante el
intervalo de tiempo que dura la activación de este evento, la tabla se sitúa automáticamente en el estado dsCalcFields. En este estado, no se permiten las asignaciones a
campos que no sean calculados: no se puede “aprovechar” el evento para realizar
actualizaciones sobre campos físicos de la tabla, pues se produce una excepción.
Tampoco debemos mover la fila activa, pues podemos provocar una serie infinita de
llamadas recursivas; esto último, sin embargo, no lo controla Delphi. El evento OnCalcFields se lanza precisamente cuando se cambia la fila activa de la tabla. También
puede lanzarse cuando se realiza alguna modificación en los campos de una fila, si la
propiedad lógica AutoCalcFields del conjunto de datos vale True.
336 La Cara Oculta de Delphi
Para la tabla employee.db que podemos encontrar en el alias dbdemos de Delphi, podemos definir un par de campos calculados con esta estructura:
Campo
NombreCompleto
Antigüedad
Tipo
String
Integer
Tamaño
30
Esto se realiza en el Editor de Campos. Después seleccionamos la tabla de empleados, y mediante el Inspector de Objetos creamos un manejador para su evento OnCalcFields; suponemos que el nombre del componente de tabla es tbEmpleados:
procedure TmodDatos.tbEmpleadosCalcFields(Sender: TDataSet);
begin
tbEmpleados['NombreCompleto'] := tbEmpleados['LastName']
+ ', ' + tbEmpleados['FirstName'];
if not tbEmpleadosHireData.IsNull then
tbEmpleados['Antiguedad'] := Date - tbEmpleados['HireDate'];
end;
Hay que tener cuidado con los campos que contienen valores nulos. En principio
basta con que uno de los campos que forman parte de la expresión sea nulo para que
la expresión completa también lo sea, en el caso de una expresión que no utilice operadores lógicos binarios (and/or). Esto es lo que hacemos antes de calcular el valor
de la antigüedad, utilizando el método IsNull. Por el contrario, he asumido que el
nombre y los apellidos no pueden ser nulos, por lo cual no me he tomado la molestia
de comprobar este detalle.
Campos de búsqueda
Es muy frecuente encontrar tablas relacionadas entre sí mediante una relación
uno/muchos; ya hemos visto que esta relación se puede expresar en Delphi mediante
una relación master/detail entre tablas. A veces es conveniente, sin embargo, considerar la inversa de esta relación. Por ejemplo, un cliente “posee” un conjunto de pedidos ¿Debemos por esto trabajar los pedidos como detalles de un cliente? Podemos
hacerlo de esta manera, pero lo usual es que las altas de pedidos se realicen sobre una
tabla sin restricciones. Desde el punto de vista de la tabla de pedidos, su relación con
la tabla de clientes es una relación de referencia.
Teniendo el código de cliente que se almacena en la tabla de pedidos, es deseable
poder obtener el nombre de la empresa representada por ese código. Se pueden crear
campos calculados que realicen manualmente la búsqueda por medio de índices en la
tabla a la cual se hace referencia. En el capítulo sobre índices veremos cómo se
puede implementar esto en Delphi 1, y en el capítulo sobre técnicas de búsqueda
veremos cómo hacerlo a partir de Delphi 2. Sin embargo, pocas veces es necesario
Acceso a campos 337
llegar a estos extremos, pues desde la versión 2 de Delphi disponemos de los denominados campos de búsqueda (o, en inglés, lookup fields), para los cuales el sistema ejecuta
automáticamente el algoritmo de traducción de referencias.
Los campos de búsqueda se crean por medio del comando de menú New field del
menú local del Editor de Campos; se trata del mismo cuadro de diálogo que crea
campos calculados. Pongamos por caso que queremos crear un campo que nos dé el
nombre del cliente asociado a un pedido. Utilizaremos ahora las tablas de pedidos
(tbPedidos, asociada a orders.db) y de clientes (tbClientes, asociada a customer.db). Nos
vamos a la tabla de pedidos, activamos el Editor de Campos y el comando New field.
La información de la parte superior del cuadro de diálogo es la misma que para un
campo calculado:
Campo
Cliente
Tipo
String
Tamaño
30
Después, tenemos que indicar el tipo de campo como Lookup; de este modo, se activan los controles de la parte inferior del diálogo. Estos son los valores que ha que
suministrar, y su significado:
Key fields El campo o conjunto de campos que sirven de base a la referencia. Están
definidos en la tabla base, y por lo general, aunque no necesariamente,
tienen definida una clave externa. En este ejemplo, teclee CustNo.
Dataset La tabla en la cual hay que buscar la referencia. En este caso, tbClientes.
Lookup keys Los campos de la tabla de referencia sobre los cuales se realiza la búsqueda. Para nuestro ejemplo, utilice CustNo; aunque es el mismo nombre
que hemos tecleado en Key fields, esta vez nos estamos refiriendo a la
tabla de clientes, en vez de la de pedidos.
Result field El campo de la tabla de referencia que se visualiza. Teclee Company, el
nombre de la empresa del cliente.
338 La Cara Oculta de Delphi
Un error frecuente es dejar a medias el diálogo de definición de un campo de búsqueda. Esto sucede cuando el programador inadvertidamente pulsa la tecla INTRO,
pensando que de esta forma selecciona el próximo control de dicha ventana. Cuando
esto sucede, no hay forma de volver al cuadro de diálogo para terminar la definición.
Una posibilidad es eliminar la definición parcial y comenzar desde cero. La segunda
consiste en editar directamente las propiedades del campo recién creado. La siguiente
tabla enumera estas propiedades y su correspondencia con los controles del diálogo
de definición:
Propiedad
Lookup
KeyFields
LookupDataset
LookupKeyFields
Correspondencia
Siempre igual a True para estos campos
Campos de la tabla en los que se basa la búsqueda (Key fields)
Tabla de búsqueda (Dataset).
Campos de la tabla de búsqueda que deben corresponder al
valor de los KeyFields (Lookup keys)
LookupResultField Campo de la tabla de búsqueda cuyo valor se toma (Result field)
La caché de búsqueda
A partir de Delphi 3 se han añadido propiedades y métodos para hacer más eficiente
el uso de campos de búsqueda. Consideremos, por un momento, un campo que debe
almacenar formas de pago. Casi siempre estas formas de pago están limitadas a un
conjunto de valores determinados. Si utilizamos un conjunto especificado directamente dentro del código de la aplicación se afecta la extensibilidad de la misma, pues
para añadir un nuevo valor hay que recompilar la aplicación. Muchos programadores
optan por colocar los valores en una tabla y utilizar un campo de búsqueda para
representar las formas de pago; en la columna correspondiente se almacena ahora el
código asociado a la forma de pago. Desgraciadamente, este estilo de programación
era algo ineficiente en Delphi 2, sobre todo en entornos cliente/servidor.
Se puede y debe utilizar memoria caché para los campos de búsqueda si se dan las siguientes condiciones:
•
•
La tabla de referencia contiene relativamente pocos valores.
Es poco probable que cambie la tabla de referencia.
Para activar la caché de un campo de búsqueda se utiliza la propiedad LookupCache,
de tipo Boolean: asignándole True, los valores de referencia se almacenan en la propiedad LookupList, de la cual Delphi los extrae una vez inicializada automáticamente. Si
ocurre algún cambio en la tabla de referencia mientras se ejecuta la aplicación, basta
con llamar al método RefreshLookupList, sobre el componente de campo, para releer
los valores de la memoria caché.
Acceso a campos 339
¿Son peligrosos los campos de búsqueda en la programación cliente/servidor?
No, en general. La alternativa a ellos es el uso de consultas basadas en encuentros
(joins), que tienen el inconveniente de no ser actualizables intrínsecamente y el de
ser verdaderamente peligrosas para la navegación. El problema con los campos
de búsqueda surge cuando se visualizan en un control TDBLookupComboBox, que
permite la búsqueda incremental insensible a mayúsculas y minúsculas. La búsqueda se realiza con el método Locate, que desempeña atrozmente este cometido
en particular. Para más información, lea el capítulo 27, sobre la comunicación
cliente/servidor.
El orden de evaluación de los campos
Cuando se definen campos calculados y campos de búsqueda sobre una misma tabla,
los campos de búsqueda se evalúan antes que los campos calculados. Así, durante el
algoritmo de evaluación de los campos calculados se pueden utilizar los valores de
los campos de búsqueda.
Tomemos como ejemplo la tabla items.db, para la cual utilizaremos un componente de
tabla tbDetalles. Esta tabla contiene líneas de detalles de pedidos, y en cada registro
hay una referencia al código del artículo vendido (PartNo), además de la cantidad
(Qty) y el descuento aplicado (Discount). A partir del campo PartNo, y utilizando la
tabla parts.db como tabla de referencia para los artículos, puede crearse un campo
calculado Precio que devuelva el precio de venta del artículo en cuestión, extrayéndolo
de la columna ListPrice de parts.db. En este escenario, podemos crear un campo calculado, de nombre SubTotal y de tipo Currency, que calcule el importe total de esa
línea del pedido:
procedure TmodDatos.tbDetallesCalcFields(Sender: TDataSet);
begin
tbDetalles['SubTotal'] :=
tbDetalles['Qty'] *
// Campo base
tbDetalles['Precio'] *
// Campo de búsqueda
(1 – tbDetalles['Discount']/100);
// Campo base
end;
Lo importante es que, cuando se ejecuta este método, ya Delphi ha evaluado los
campos de búsqueda, y tenemos un valor utilizable en el campo Precio.
Otra información que es importante conocer acerca del orden de evaluación, es que
Delphi evalúa los campos calculados antes de haber fijado el rango de filas de las
tablas de detalles asociadas. Si la tabla tbDetalles está asociada a una tabla con cabeceras de pedidos, tbPedidos, por una relación master/detail, no es posible definir un
campo calculado en la tabla de pedidos que sume los subtotales de cada línea asociada, extrayendo los valores de tbDetalles. Es necesario utilizar una tercera tabla auxi-
340 La Cara Oculta de Delphi
liar, que se refiera a la tabla de líneas de detalles, para buscar en esta última las líneas
necesarias y realizar la suma.
El Diccionario de Datos
El Diccionario de Datos es una ayuda para el diseño que se administra desde la herramienta Database Explorer. El Diccionario nos ayuda a:
•
•
•
Definir conjuntos de propiedades o conjuntos de atributos (attribute sets), que pueden
después asociarse manual o automáticamente a los componentes de acceso a
campos que se crean en Delphi. Por ejemplo, si nuestra aplicación trabaja con
varios campos de porcentajes, puede sernos útil definir que los campos de este
tipo se muestren con la propiedad DisplayFormat igual a '%#0', y que sus valores
oscilen entre 0 y 100.
Propagar a las aplicaciones clientes restricciones establecidas en el servidor, ya
sea a nivel de campos o de tablas, valores por omisión, definiciones de dominios,
etcétera.
Organizar de forma centralizada los criterios de formato y validación entre varios programadores de un mismo equipo, y de una aplicación a otra.
Delphi, al instalarse, crea un Diccionario de Datos por omisión, que se almacena
como una tabla Paradox, cuyo nombre por omisión es bdesdd y que reside en el alias
predefinido DefaultDD. Recuerde que esta herramienta es una utilidad que funciona
en tiempo de diseño, de modo que la tabla anterior no tiene (no debe, más bien) que
estar presente junto a nuestro producto final.
Ahora bien, podemos trabajar con otro diccionario, que puede estar almacenado en
cualquier otro formato de los reconocidos por Delphi. Este diccionario puede incluso almacenarse en un servidor SQL y ser compartido por todos los miembros de
Acceso a campos 341
un equipo de programación. Mediante el comando de menú Dictionary|New uno de
los programadores del equipo, digamos que usted, crea una nueva tabla para un
nuevo diccionario, indicando el alias donde residirá, el nombre de la tabla y una descripción para el diccionario:
Después, mediante el comando de menú Dictionary|Register cualquier miembro del
equipo, digamos que yo, puede registrar ese diccionario desde otra máquina, para
utilizarlo con su Delphi. También es útil el comando Dictionary|Select, para activar
alguno de los diccionarios registrados en determinado ordenador.
Conjuntos de atributos
Son dos los objetos almacenados en el Diccionario de Datos: los conjuntos de atributos e información sobre bases de datos completas. Un conjunto de atributos indica
valores para propiedades comunes de campos. Existen dos formas de crear esta definición: guardando los atributos asociados a un campo determinado, o introduciéndolos directamente en el Diccionario de Datos. Para salvar las modificaciones realizadas a un campo desde Delphi, hay que seleccionarlo en el Editor de Campos, pulsar el botón derecho del ratón y ejecutar el comando Save attributes as, que nos pedirá
un nombre para el conjunto de atributos.
La otra vía es crear directamente el conjunto de atributos en el propio Diccionario.
Digamos que nuestra aplicación debe trabajar con precios en dólares, mientras que
nuestra moneda local es diferente. Nos situamos entonces sobre el nodo Attributes set
y ejecutamos Object|New. Renombramos el nuevo nodo como Dollar, y modificamos
las siguientes propiedades, en el panel de la derecha:
Propiedad
Currency
DisplayFormat
Valor
False
$#0,.00
¿Qué se puede hacer con este conjunto de atributos, una vez creado?. Asociarlo a
campos, por supuesto. Nuestra hipotética aplicación maneja una tabla Articulos con
un campo PrecioDolares, que ha sido definido con el tipo money de Paradox o de MS
342 La Cara Oculta de Delphi
SQL Server. Delphi, por omisión, trae un campo de tipo TCurrencyField, cuya propiedad Currency aparece como True. El resultado: nuestros dólares se transforman mágicamente en pesetas (y pierden todo su valor). Pero seleccionamos el menú local del
campo, y ejecutamos el comando Associate attributes, seleccionando el conjunto de
atributos Dollar definido hace poco. Delphi lee los valores de Currency y DisplayFormat
desde el Diccionario de Datos y los copia en las propiedades del campo deseado. Y
todo vuelve a la normalidad.
Dos de los atributos más importantes que se pueden definir en el Diccionario son
TFieldClass y TControlClass. Mediante el primero podemos establecer explícitamente
qué tipo de objeto de acceso queremos asociar a determinado campo; esto es útil
sobre todo con campos de tipo BLOB. TControlClass, por su parte, determina qué
tipo de control debe crearse cuando se arrastra y suelta un componente de campo
sobre un formulario en tiempo de diseño.
Si un conjunto de atributos se modifica después de haber sido asociado a un
campo, los cambios no se propagarán automáticamente a las propiedades de dicho campo. Habrá entonces que ejecutar el comando del menú local Retrieve
attributes.
Importando bases de datos
Pero si nos limitamos a las técnicas descritas en la sección anterior, tendremos que
configurar atributos campo por campo. Una alternativa consiste en importar el esquema de la base de datos dentro del Diccionario, mediante el comando de menú
Dictionary|Import from database. Aparece un cuadro de diálogo para que seleccionemos
uno de los alias disponibles; nos debemos armar de paciencia, porque la operación
puede tardar un poco.
Muchas aplicaciones trabajan con un alias de sesión, definido mediante un componente TDatabase que se sitúa dentro de un módulo de datos, en vez de utilizar
alias persistentes. Si ejecutamos Database Explorer como una aplicación independiente no podremos importar esa base de datos, al no estar disponible el alias
en cuestión. La solución es invocar al Database Explorer desde Delphi, con la
aplicación cargada y la base de datos conectada. Todos los alias de sesión activos
en la aplicación podrán utilizarse entonces desde esta utilidad.
Cuando ha finalizado la importación, aparece un nuevo nodo para nuestra base de
datos bajo el nodo Databases. Este nodo contiene todas las tablas y los campos existentes en la base de datos, y a cada campo se le asocia automáticamente un conjunto
de atributos. Por omisión, el Diccionario crea un conjunto de atributos por cada
Acceso a campos 343
campo que tenga propiedades dignas de mención: una restricción (espera a la próxima sección), un valor por omisión, etc. Esto es demasiado, por supuesto. Después
de la importación, debemos sacar factor común de los conjuntos de atributos similares y asociarlos adecuadamente a los campos. La labor se facilita en InterBase si hemos creado dominios, como explicaremos en el capítulo 21. Supongamos que definimos el dominio Dollar en la base de datos mediante la siguiente instrucción:
create domain Dollar as
numeric(15, 2) default 0 not null;
A partir de esta definición podremos definir columnas de tablas cuyo tipo de datos
sea Dollar. Entonces el Diccionario de Datos, al importar la base de datos, creará
automáticamente un conjunto de atributos denominado Dollar, y asociará correctamente los campos que pertenecen a ese conjunto.
¿Para qué todo este trabajo? Ahora, cuando traigamos una tabla a la aplicación y
utilicemos el comando Add fields para crear objetos persistentes de campos, Delphi
podrá asignar de forma automática los conjuntos de atributos a estos campos.
Evaluando restricciones en el cliente
Los sistemas de bases de datos cliente/servidor, y algunas bases de datos de escritorio, permiten definir restricciones en las tablas que, normalmente, son verificadas por
el propio servidor de datos. Por ejemplo, que el nombre del cliente no puede estar
vacío, que la fecha de venta debe ser igual o anterior a la fecha de envío de un pedido,
que un descuento debe ser mayor que cero, pero menor que cien...
Un día de verano, un usuario de nuestra aplicación (¡ah, los usuarios!) se enfrasca en
rellenar un pedido, y vende un raro disco de Hendrix con un descuento del 125%. Al
enviar los datos al servidor, éste detecta el error y notifica a la aplicación acerca del
mismo. Un registro pasó a través de la red, un error nos fue devuelto; al parecer,
poca cosa. Pero multiplique este tráfico por cincuenta puestos de venta, y lo poco se
convierte en mucho. Además, ¿por qué hacer esperar tanto al usuario para preguntarle si es tonto, o si lo ha hecho a posta? Este tipo de validación sencilla puede ser
ejecutada perfectamente por nuestra aplicación, pues solamente afecta a columnas
del registro activo. Otra cosa muy diferente sería, claro está, intentar verificar por
duplicado en el cliente una restricción de unicidad.
En Delphi 3 se introdujeron cuatro nuevas propiedades, de tipo string, para los
componentes de acceso a campos:
344 La Cara Oculta de Delphi
Propiedad
DefaultExpression
CustomConstraint
ImportedConstraint
ConstraintErrorMessage
Significado
Valor por omisión del campo
Restricciones importadas desde el servidor
Restricciones adicionales impuestas en el cliente
Mensaje de error cuando se violan restricciones
DefaultExpression es una expresión SQL que sirve para inicializar un campo durante
las inserciones. No puede contener nombres de campos. Antes de Delphi 3, la inicialización de los valores de los campos debía realizarse programando una respuesta al
evento OnNewRecord del conjunto de datos al que pertenecía. Si un campo debe inicializarse con un valor constante, es más cómodo utilizar DefaultExpression.
Hay un pequeño bug en Delphi: cuando se mezclan inicializaciones con el evento
OnNewRecord y con las propiedades DefaultExpression, se producen comportamientos anómalos. Evite las mezclas, que no son buenas para la salud.
Podemos asignar directamente un valor constante en DefaultExpression ... pero si hemos asociado un conjunto de atributos al campo, Delphi puede leer automáticamente el valor por omisión asociado y asignarlo. Este conjunto de atributos puede
haber sido configurado de forma manual, pero también puede haberse creado al
importar la base de datos dentro del Diccionario. En este último caso, el Diccionario
de Datos ha actuado como eslabón intermedio en la propagación de reglas de empresa desde el servidor al cliente:
APLICACIÓN
DICCIONARIO
DE DATOS
BASE DE DATOS
Lo mismo se aplica a la propiedad ImportedConstraint. Esta propiedad recibe su valor
desde el Diccionario de Datos, y debe contener una expresión SQL evaluable en
SQL Local; léase, en el dialecto de Paradox y dBase. ¿Por qué permitir que esta propiedad pueda modificarse en tiempo de diseño? Precisamente, porque la expresión
importada puede ser incorrecta en el dialecto local. En ese caso, podemos eliminar
toda o parte de la expresión. Normalmente, el Diccionario de Datos extrae las restricciones para los conjuntos de atributos de las cláusulas check de SQL definidas a
nivel de columna.
Si, por el contrario, lo que se desea es añadir nuevas restricciones, debemos asignarlas
en la propiedad CustomConstraint. Se puede utilizar cualquier expresión lógica de SQL
Local, y para representar el valor actual del campo hay que utilizar un identificador
Acceso a campos 345
cualquiera que no sea utilizado por SQL. Por ejemplo, esta puede ser una expresión
aplicada sobre un campo de tipo cadena de caracteres:
x <> '' and x not like '% %'
Esta expresión verifica que el campo no esté vacío y que no contenga espacios en
blanco.
Cuando se viola cualquiera de las restricciones anteriores, ImportedConstraint ó CustomConstraint, por omisión se muestra una excepción con el mensaje “Record or field
constraint failed”, más la expresión que ha fallado en la segunda línea del mensaje. Si
queremos mostrar un mensaje personalizado, debemos asignarlo a la propiedad
ConstraintErrorMessage.
Sin embargo, no todas las restricciones check se definen a nivel de columna, sino
que algunas se crean a nivel de tablas, casi siempre cuando involucran a dos o más
campos a la vez. Por ejemplo:
create table Pedidos (
/* Restricción a nivel de columna */
FormaPago varchar(10)
check (FormaPago in ('EFECTIVO', 'TARJETA')),
/* Restricción a nivel de tabla */
FechaVenta date not null,
FechaEnvio date,
check (FechaVenta <= FechaEnvio),
/* … */
);
Las restricciones a nivel de tabla se propagan a una propiedad de TTable denominada
Constraints, que contiene tanto las restricciones importadas como alguna restricción
personalizada añadida por el programador.
La imagen anterior muestra el editor de la propiedad Constraints en Delphi 4. El botón de la derecha permite leer las restricciones encontradas durante la importación de
la base de datos al Diccionario; esta vez, Delphi no lo hace por sí mismo. Mediante el
botón de la derecha se añaden restricciones personalizadas a la tabla. Cada restricción
a nivel de tabla, venga de donde venga, tiene su propia propiedad ConstraintErrorMessage.
346 La Cara Oculta de Delphi
Información sobre campos
Delphi hace distinción entre la información sobre los campos físicos de una tabla y
los componentes de acceso a los mismos. La información sobre campos se encuentra
en la propiedad FieldDefs, y puede utilizarse, además, para la creación dinámica de
tablas. Esta propiedad pertenece a la clase TFieldDefs, que es básicamente una lista de
objetos de tipo TFieldDef. Las propiedades principales de esta clase son Count, que es
la cantidad de campos, e Items, que es una propiedad vectorial para obtener cada
definición individual. En TFieldDefs tenemos el método Update, que lee la lista de
definiciones de campos del conjunto de datos, incluso si éste se encuentra cerrado:
with TTable.Create(nil) do
try
DatabaseName := 'DBDEMOS';
TableName := 'employee.db';
FieldDefs.Update;
// Lee las definiciones de campos
// …
finally
Free;
end;
Una vez que tenemos la lista de definiciones en memoria, podemos acceder a cada
definición por medio de la propiedad Items. Estas son las propiedades principales de
la clase TFieldDef, a la cual pertenecen los elementos individuales de la colección:
Propiedad
Name
DataType
Size
Required
FieldClass
Significado
El nombre del campo
El tipo del campo
Tamaño del campo, si es aplicable
¿Admite valores nulos?
Referencia a la clase correspondiente derivada de TField
El siguiente método coloca en una lista de cadenas, que puede ser la de un TListBox
o un TMemo, la definición de los campos de una tabla, en formato parecido al de
SQL:
procedure LeerDefinicion(const ADB, ATable: string;
Lista: TStrings);
var
I: Integer;
S: string;
begin
with TTable.Create(nil) do
try
DatabaseName := ADB;
TableName := ATable;
FieldDefs.Update;
Lista.Clear;
Lista.Add('create table ' + ATable + '(');
Acceso a campos 347
for I := 0 to FieldDefs.Count - 1 do
with FieldDefs.Items[I] do
begin
S := GetEnumName(TypeInfo(TFieldType), Ord(DataType));
S := '
' + Name + ' ' + Copy(S, 3, Length(S) - 2);
if Size <> 0 then
S := S + '(' + IntToStr(Size) + ')';
if Required then
AppendStr(S, ' not null');
if I < FieldDefs.Count - 1 then
AppendStr(S, ',');
Lista.Add(S);
end;
Lista.Add(')');
finally
Free;
end;
end;
Hay un par de trucos en el código anterior. Uno de estos trucos es la conversión de
enumerativo a cadena, utilizando la información de tipos de Delphi; esto ya lo vimos
en el capítulo 13, sobre técnicas de gestión de ventanas. Cuando tenemos el nombre
del tipo de datos, utilizamos la función Copy para eliminar los dos primeros caracteres: los nombres de los tipos de datos definidos en TFieldType comienzan todos con
el prefijo ft: ftString, ftFloat, etc. Este procedimiento puede llamarse después del siguiente modo:
procedure TForm1.MostrarInfoClick(Sender: TObject);
begin
LeerDefinicion('DBDEMOS', 'EMPLOYEE', ListBox1.Items);
end;
Creación de tablas
Aunque personalmente prefiero crear tablas mediante instrucciones SQL, es posible
utilizar propiedades y métodos del componente TTable para esta operación. La razón
de mi preferencia es que Delphi no ofrece mecanismos para la creación directa de
restricciones de rango, de integridad referencial y valores por omisión para columnas;
para esto, tenemos que utilizar llamadas directas al BDE, si tenemos que tratar con
tablas Paradox, o utilizar SQL en las bases de datos que lo permiten.
De cualquier forma, las tablas simples se crean fácilmente, y la clave la tienen las
propiedades FieldDefs e IndexDefs. Esta última propiedad se estudiará en el capítulo
sobre índices, por lo cual aquí solamente veremos cómo crear tablas sin índices. La
idea es llenar la propiedad FieldDefs mediante llamadas al método Add, y llamar al
final al método CreateTable. Por ejemplo:
348 La Cara Oculta de Delphi
procedure TForm1.CrearTabla;
begin
with TTable.Create(nil) do
try
DatabaseName := 'DBDEMOS';
TableName := 'Whiskeys';
TableType := ttParadox;
FieldDefs.Add('Código', ftAutoInc, 0, False);
FieldDefs.Add('Marca', ftString, 20, True);
FieldDefs.Add('Precio', ftCurrency, 0, True);
FieldDefs.Add('Puntuación', ftSmallInt, 0, False);
CreateTable;
finally
Free;
end;
end;
El alias que asociamos a DatabaseName determina el formato de la tabla. Si el alias es
estándar, tenemos que utilizar la propiedad TableType para diferenciar las tablas Paradox de las tablas dBase.
Sin embargo, nos falta saber cómo crear índices y claves primarias utilizando esta
técnica. Necesitamos manejar la propiedad IndexDefs, que es en muchos sentidos
similar a FieldDefs. En el capítulo sobre índices explicaremos el uso de dicha propiedad. Por ahora, adelantaremos la instrucción necesaria para crear un índice primario para la tabla anterior, que debe añadirse antes de la ejecución de CreateTable:
// …
IndexDefs.Add('', 'Código', [ixPrimary]);
// …
Hasta Delphi 3 las definiciones de campos no eran visibles en tiempo de diseño, pero
Delphi 4 ha movido la declaración de la propiedad FieldDefs a la sección published.
De esta forma, cuando queremos crear una tabla en tiempo de ejecución podemos
ahorrarnos las llamadas al método Add de FieldDefs, pues esta propiedad ya viene
configurada desde el tiempo de diseño. Hay dos formas de rellenar FieldDefs: entrar a
saco en el editor de la propiedad, o leer las definiciones desde una tabla existente.
Para esto último, ejecute el comando Update table definition, desde el menú de contexto
de la tabla, que adicionalmente asigna True a su propiedad StoreDefs.
Delphi 4 añade una propiedad ChildDefs a los objetos de clase TFieldDef, para tener en cuenta a los campos ADT de Oracle 8.
Y como todo lo que empieza tiene que acabar, es bueno saber cómo eliminar y renombrar tablas. El método DeleteTable permite borrar una tabla. La tabla debe estar
cerrada, y tenemos que especificar el nombre del alias, el de la tabla, y el tipo de tabla,
de ser necesario. Otro método relacionado es RenameTable:
procedure TTable.RenameTable(const NuevoNombre: string);
Acceso a campos 349
Este método solamente puede utilizarse con tablas Paradox y dBase, y permite renombrar en una sola operación todos los ficheros asociados a la tabla: el principal,
los índices, los de campos memos, etc.
Las técnicas de creación de tablas desde Delphi no resuelven un problema fundamental: la creación de restricciones, principalmente las de integridad referencial, y de valores por omisión. Esta carencia no es grave en el caso de los sistemas SQL, pues la forma preferida de crear tablas en estos sistemas es mediante
instrucciones SQL. Pero sí es un problema para Paradox y dBase. Lógicamente,
el BDE permite este tipo de operaciones mediante llamadas al API de bajo nivel,
pero estas son demasiado complicadas para analizarlas aquí. En el CD que
acompaña al libro he incluido un componente que sirve para este propósito. De
todos modos, soy partidario de evitar la creación dinámica de tablas en la medida
de lo posible.
Capítulo
17
Controles de datos y fuentes de
datos
E
STE CAPÍTULO TRATA ACERCA DE LOS CONTROLES que ofrece Delphi para
visualizar y editar información procedente de bases de datos, la filosofía general en que se apoyan y las particularidades de cada uno de ellos. Es el momento de ampliar, además, nuestros conocimientos acerca de un componente esencial para la sincronización de estos controles, el componente TDataSource. Veremos
cómo un control “normal” puede convertirse, gracias a una sencilla técnica basada en
este componente, en un flamante control de acceso a datos. Por último, estudiaremos
cómo manejar campos BLOB, que pueden contener grandes volúmenes de información, dejando su interpretación a nuestro cargo.
Controles data-aware
Los controles de bases de datos son conocidos en la jerga de Delphi como controles
data-aware. Estos controles son, generalmente, versiones especializadas de controles
“normales”. Por ejemplo, TDBMemo es una versión orientada a bases de datos del
conocido TMemo. Al tener por separado los controles de bases de datos y los controles tradicionales, Delphi evita que una aplicación que no haga uso de bases de
datos16 tenga que cargar con todo el código necesario para estas operaciones. No
sucede así con Visual Basic, lenguaje en que todos los controles pueden potencialmente conectarse a una base de datos.
Los controles de acceso a datos de Delphi se pueden dividir en dos grandes grupos:
16
Existen.
352 La Cara Oculta de Delphi
•
•
Controles asociados a campos
Controles asociados a conjuntos de datos
Los controles asociados a campos visualizan y editan una columna particular de una
tabla. Los componentes TDBEdit (cuadros de edición) y TDBImage (imágenes almacenadas en campos gráficos) pertenecen a este tipo de controles. Los controles asociados a conjuntos de datos, en cambio, trabajan con la tabla o consulta como un
todo. Las rejillas de datos y las barras de navegación son los ejemplos más conocidos
de este segundo grupo. Todos los controles de acceso a datos orientados a campos
tienen un par de propiedades para indicar con qué datos trabajan: DataSource y DataField; estas propiedades pueden utilizarse en tiempo de diseño. Por el contrario, los
controles orientados al conjunto de datos solamente disponen de la propiedad DataSource. La conexión con la fuente de datos es fundamental, pues es este componente
quien notifica al control de datos de cualquier alteración en la información que debe
visualizar.
Casi todos los controles de datos permiten, de una forma u otra, la edición de su
contenido. En el capítulo 15 sobre conjuntos de datos explicamos que hace falta que
la tabla esté en uno de los modos dsEdit ó dsInsert para poder modificar el contenido
de un campo. Pues bien, todos los controles de datos son capaces de colocar a la
tabla asociada en este modo, de forma automática, cuando se realizan modificaciones
en su interior. Este comportamiento se puede modificar con la propiedad AutoEdit
del data source al que se conectan. Cada control, además, dispone de una propiedad
ReadOnly, que permite utilizar el control únicamente para visualización.
Los controles de datos de Delphi son los siguientes:
Nombre de la clase
Explicación
Controles orientados a campos
TDBLabel
Textos no modificables (no consumen recursos)
TDBEdit
Cuadros de edición
TDBMemo
Textos sin formato con múltiples líneas
TDBImage
Imágenes BMP y WMF
TDBListBox
Cuadros de lista (contenido fijo)
TDBComboBox
Cuadros de combinación (contenido fijo)
TDBCheckBox
Casillas de verificación (dos estados)
TDBRadioGroup
Grupos de botones (varios valores fijos)
TDBLookupListBox
Valores extraídos desde otra tabla asociada
TDBLookupComboBox
Valores extraídos desde otra tabla asociada
TDBRichEdit
Textos en formato RTF (Delphi 3,4)
Controles de datos y fuentes de datos 353
Nombre de la clase
Explicación
Controles orientados a conjuntos de datos
TDBGrid
Rejillas de datos para la exploración
TDBNavigator
Control de navegación y estado
TDBCtrlGrid
Rejilla que permite incluir controles (Delphi 2,3,4)
En este capítulo nos ocuparemos principalmente de los controles orientados a campos. El resto de los controles serán estudiados en el siguiente capítulo.
He omitido intencionalmente el control TDBChart de la lista anterior, por trabajar con un sistema distinto a los demás. Este componente se estudiará más adelante.
Los enlaces de datos
Según lo explicado, todos los controles de datos deben ser capaces de reconocer y
participar en el juego de las notificaciones, y esto supone la existencia de un montón
de código común a todos ellos. Pero, si observamos el diagrama de herencia de la
VCL, notaremos que no existe un ancestro compartido propio para los controles
data-aware. ¿Qué solución se ha utilizado en la VCL para evitar la duplicación de código?
La respuesta la tiene un objeto generalmente ignorado por el programador de Delphi: TDataLink, y su descendiente TFieldDataLink. Este desconocimiento es comprensible, pues no es un componente visual, y sólo es imprescindible para el desarrollador de componentes. Cada control de datos crea durante su inicialización un componente interno perteneciente a una de estas clases. Es este componente interno el
que se conecta a la fuente de datos, y es también a éste a quien la fuente de datos
envía las notificaciones acerca del movimiento y modificaciones que ocurren en el
conjunto de datos subyacente. Todo el tratamiento de las notificaciones se produce
entonces, al menos de forma inicial, en el data link. Esta técnica es conocida como
delegación, y nos evita el uso de la herencia múltiple, recurso no incluido en Delphi
hasta el momento.
El siguiente esquema muestra la relación entre los componentes de acceso y edición
de datos:
354 La Cara Oculta de Delphi
Dataset
Datasource
TEdit
Data link
TComboBox
Data link
TDBGrid
Data link
Creación de controles de datos
Podemos crear controles de datos en un formulario trayendo uno a uno los componentes deseados desde la Paleta e inicializando sus propiedades DataSource y DataField. Esta es una tarea tediosa. Muchos programadores utilizaban, en Delphi 1, el
Experto de Datos (Database form expert) para crear un formulario con los controles
deseados, y luego modificar este diseño inicial. Este experto, sin embargo, tiene un
par de limitaciones importantes: en primer lugar, trabaja con un tamaño fijo de la
ventana, lo cual nos obliga a realizar desplazamientos cuando no hay espacio para los
controles, aún cuando aumentando el tamaño de la ventana se pudiera resolver el
problema. El otro inconveniente es que siempre genera un nuevo componente TTable ó TQuery, no permitiendo utilizar componentes existentes de estos tipos. Esto es
un problema a partir de Delphi 2, donde lo usual es definir primero los conjuntos de
datos en un módulo aparte, para poder programar reglas de empresa.
A partir de Delphi 2 podemos arrastrar campos desde el Editor de Campos sobre un
formulario. Cuando hacemos esto, se crea automáticamente un control de datos
asociado al campo. Junto con el control, se crea también una etiqueta, de clase TLabel, con el título extraído de la propiedad DisplayLabel del campo. Recuerde que esta
propiedad coincide inicialmente con el nombre del campo, de modo que si las columnas de sus tablas tienen nombre crípticos como NomCli, es conveniente modificar primero las etiquetas de visualización en los campos antes de crear los controles.
Adicionalmente, Delphi asigna a la propiedad FocusControl de los componentes TLabel creados el puntero al control asociado. De este modo, si la etiqueta tiene un carácter subrayado, podemos hacer uso de este carácter como abreviatura para la selección del control.
En cuanto al tipo de control creado, Delphi tiene sus reglas por omisión: casi siempre se crea un TDBEdit. Si el campo es un campo de búsqueda, crea un TDBLookupComboBox. Si es un memo o un campo gráfico, se crea un TDBMemo o un TDBImage.
Si el campo es lógico, se crea un TDBCheckBox. Estas reglas implícitas, sin embargo,
Controles de datos y fuentes de datos 355
pueden modificarse por medio del Diccionario de Datos. Si el campo que se arrastra
tiene definido un conjunto de atributos, el control a crear se determina por el valor
almacenado en la propiedad TControlClass del conjunto de atributos en el Diccionario
de Datos.
Los cuadros de edición
La forma más general de editar un campo simple es utilizar un control TDBEdit.
Este componente puede utilizarse con campos de cadenas de caracteres, numéricos,
de fecha y de cualquier tipo en general que permita conversiones desde y hacia cadenas de caracteres. Los cuadros de edición con conexión a bases de datos se derivan
de la clase TCustomMaskEdit. Esto es así para poder utilizar la propiedad EditMask,
perteneciente a la clase TField, durante la edición de un campo. Sin embargo, EditMask es una propiedad protegida de TDBEdit; el motivo es permitir que la máscara
de edición se asigne directamente desde el campo asociado. Si el campo tiene una
máscara de edición definida, la propiedad IsMasked del cuadro de edición se vuelve
verdadera.
Windows no permite definir alineación para el texto de un cuadro de edición, a no
ser que el estilo del cuadro sea multilíneas. Si nos fijamos un poco, el control TEdit
estándar no tiene una propiedad Alignment. Sin embargo, es común mostrar los campos numéricos de una tabla justificados a la derecha. Es por eso que, en el código
fuente de la VCL, Delphi realiza un truco para permitir los distintos tipos de alineación en los componentes TDBEdit. Es importante comprender que Alignment solamente funciona durante la visualización, no durante la edición. La alineación se extrae de la propiedad correspondiente del componente de acceso al campo.
Los eventos de este control que utilizaremos con mayor frecuencia son OnChange,
OnKeyPress, OnKeyDown y OnExit. OnChange se produce cada vez que el texto en el
control es modificado. Puede causar confusión el que los componentes de campos
tengan un evento también nombrado OnChange. Este último evento se dispara
cuando se modifica el contenido del campo, lo cual sucede cuando se realiza una
asignación al componente de campo. Si el campo se está editando en un TDBEdit,
esto sucede al abandonar el control, o al pulsar INTRO estando el control seleccio-
356 La Cara Oculta de Delphi
nado. En cambio, el evento OnChange del control de edición se dispara cada vez que
se cambia algo en el control. El siguiente evento muestra cómo pasar al control siguiente cuando se alcanza la longitud máxima admitida por el editor. Este comportamiento era frecuente en programas realizados para MS-DOS:
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
if Visible then
with Sender as TDBEdit do
if Length(Text) >= MaxLength then
Self.SelectNext(TWinControl(Sender), True, True);
end;
Hasta la versión 3, Delphi arrastró un pequeño problema en relación con los
cuadros de edición asociados a un campo numérico: la propiedad MaxLength
siempre se hacía 0 cuando se crea el control. Aunque asignásemos algo a esta
propiedad en tiempo de diseño, siempre se perdía en tiempo de ejecución. Delphi 4 ha corregido el error.
Editores de texto
Cuando el campo a editar contiene varias líneas de texto, debemos utilizar un componente TDBMemo. Si queremos además que el texto tenga formato y permita el uso
de negritas, cursivas, diferentes colores y alineaciones podemos utilizar el nuevo
componente TDBRichEdit, de Delphi 3 y 4.
TDBMemo está limitado a un máximo de 32KB de texto, además de permitir un solo
tipo de letra y de alineación para todo su contenido. Las siguientes propiedades han
sido heredadas del componente TMemo y determinan la apariencia y forma de interacción con el usuario:
Propiedad
Alignment
Lines
ScrollBars
WantTabs
WordWrap
Significado
La alineación del texto dentro del control.
El contenido del control, como una lista de cadenas de caracteres
Determina qué barras de desplazamiento se muestran.
Si está activa, el editor interpreta las tabulaciones como tales; en caso
contrario, sirven para seleccionar el próximo control.
Las líneas pueden dividirse si sobrepasan el extremo derecho del editor.
La propiedad AutoDisplay es específica de este tipo de controles. Como la carga y
visualización de un texto con múltiples líneas puede consumir bastante tiempo, se
puede asignar False a esta propiedad para que el control aparezca vacío al mover la
Controles de datos y fuentes de datos 357
fila activa. Luego se puede cargar el contenido en el control pulsando INTRO sobre el
mismo, o llamando al método LoadMemo.
El componente TDBRichEdit, por su parte, es similar a TDBMemo, excepto por la
mayor cantidad de eventos y las propiedades de formato.
Textos no editables
El tipo TLabel tiene un equivalente data-aware: el tipo TDBText. Mediante este componente, se puede mostrar información como textos no editables. Gracias a que este
control desciende por herencia de la clase TGraphicControl, desde el punto de vista de
Windows no es una ventana y no consume recursos. Si utilizamos un TDBEdit con la
propiedad ReadOnly igual a True, consumiremos un handle de ventana. En compensación, con el TDBEdit podemos seleccionar texto y copiarlo al Portapapeles, cosa imposible de realizar con un TDBText.
Además de las propiedades usuales en los controles de bases de datos, DataSource y
DataField, la otra propiedad interesante es AutoSize, que indica si el ancho del control
se ajusta al tamaño del texto o si se muestra el texto en un área fija, truncándolo si la
sobrepasa.
Combos y listas con contenido fijo
Los componentes TDBComboBox y TDBListBox son las versiones data-aware de
TComboBox y TListBox, respectivamente. Se utilizan, preferentemente, cuando hay un
número bien determinado de valores que puede aceptar un campo, y queremos ayudar al usuario para que no tenga que teclear el valor, sino que pueda seleccionarlo
con el ratón o el teclado. En ambos casos, la lista de valores predeterminados se
indica en la propiedad Items, de tipo TStrings.
De estos dos componentes, el cuadro de lista es el menos utilizado. No permite introducir valores diferentes a los especificados; si el campo asociado del registro activo tiene ya un valor no especificado, no se selecciona ninguna de las líneas. Tampoco permite búsquedas incrementales sobre listas ordenadas. Si las opciones posibles en el campo son pocas, la mayoría de los usuarios y programadores prefieren
utilizar el componente TDBRadioGroup, que estudiaremos en breve.
En cambio, TDBComboBox es más flexible. En primer lugar, nos deja utilizar tres
estilos diferentes de interacción mediante la propiedad Style; en realidad son cinco
estilos, pero dos de ellos tienen que ver más con la apariencia del control que con la
interfaz con el usuario:
358 La Cara Oculta de Delphi
Estilo
csSimple
Significado
La lista siempre está desplegada. Se pueden teclear
valores que no se encuentran en la lista.
csDropDown
La lista está inicialmente recogida. Se pueden teclear
valores que no se encuentran en la lista.
csDropDownList
La lista está inicialmente recogida. No se pueden
teclear valores que no se encuentren en la lista.
csOwnerDrawFixed
El contenido de la lista lo dibuja el programador.
Líneas de igual altura.
csOwnerDrawVariable El contenido de la lista lo dibuja el programador. La
altura de las líneas la determina el programador.
Por otra parte, la propiedad Sorted permite ordenar dinámicamente los elementos de
la lista desplegable de los combos. Los combos con el valor csDropDownList en la
propiedad Style, y cuya propiedad Sorted es igual a True, permiten realizar búsquedas
incrementales. Si, por ejemplo, un combo está mostrando nombres de países, al teclear la letra A nos situaremos en Abisinia, luego una N nos llevará hasta la Antártida,
y así en lo adelante. Si queremos iniciar la búsqueda desde el principio, o sea, que la
N nos sitúe sobre Nepal, podemos pulsar ESC o RETROCESO … o esperar dos segundos. Esto último es curioso, pues la duración de ese intervalo está incrustada en el
código de la VCL y no puede modificarse fácilmente.
Cuando el estilo de un combo es csOwnerDrawFixed ó csOwnerDrawVariable, es posible
dibujar el contenido de la lista desplegable; para los cuadros de lista, Style debe valer
lbOwnerDrawFixed ó lbOwnerDrawVariable. Si utilizamos alguno de estos estilos, tenemos que crear una respuesta al evento OnDrawItem y, si el estilo de dibujo es con
alturas variables, el evento OnMeasureItem. Estos eventos tienen los siguientes parámetros:
procedure TForm1.DBComboBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
end;
procedure TForm1.DBComboBox1MeasureItem(Control: TWinControl;
Index: Integer; var Altura: Integer);
begin
end;
Para ilustrar el uso de estos eventos, crearemos un combo que pueda seleccionar de
una lista de países, con el detalle de que cada país aparezca representado por su bandera (o por lo que más le apetezca dibujar). Vamos a inicializar el combo en el evento
de creación de la ventana, y para complicar un poco el código leeremos los mapas de
bits necesarios desde una tabla de países:
Controles de datos y fuentes de datos 359
procedure TForm1.FormCreate(Sender: TObject);
var
Bmp: TBitmap;
begin
with TTable.Create(nil) do
try
DatabaseName := 'Prueba';
TableName := 'Paises.Db';
Open;
while not EOF do
begin
Bmp := TBitmap.Create;
try
Bmp.Assign(FieldByName('Bandera'));
DBComboBox1.Items.AddObject(
FieldByName('Pais').AsString, Bmp);
except
Bmp.Free;
raise;
end;
Next;
end;
finally
Free;
end;
end;
El código que dibuja el mapa de bits al lado del texto es el siguiente:
procedure TForm1.DBComboBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with Control as TDBComboBox, Canvas do
begin
FillRect(Rect);
StretchDraw(
Bounds(Rect.Left + 2, Rect.Top, ItemHeight, ItemHeight),
TBitmap(Items.Objects[Index]));
TextOut(Rect.Left + ItemHeight + 6, Rect.Top, Items[Index]);
end;
end;
Una propiedad poco conocida de TDBComboBox, que éste hereda de TComboBox, es
DroppedDown de tipo lógico. Aunque la propiedad se encuentra en la ayuda de Delphi,
si se busca directamente, no aparece en la lista de propiedades de la referencia de
360 La Cara Oculta de Delphi
estos componentes. DroppedDown es una propiedad de tiempo de ejecución, y permite saber si la lista está desplegada o no. Pero también permite asignaciones, para
ocultar o desplegar la lista. Si el usuario quiere que la tecla + del teclado numérico
despliegue todos los combos de una ficha, puede asignar True a la propiedad KeyPreview del formulario y crear la siguiente respuesta al evento OnKeyDown:
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if (Key = VK_ADD) and (ActiveControl is TCustomComboBox) then
begin
TCustomComboBox(ActiveControl).DroppedDown := True;
Key := 0;
end;
end;
Combos y listas de búsqueda
En cualquier diseño de bases de datos abundan los campos sobre los que se han
definido restricciones de integridad referencial. Estos campos hacen referencia a
valores almacenados como claves primarias de otras tablas. Pero casi siempre estos
enlaces se realizan mediante claves artificiales, como es el caso de los códigos. ¿Qué
me importa a mí que la Coca-Cola sea el artículo de código 4897 de mi base de datos
particular? Soy un enemigo declarado de los códigos: en la mayoría de los casos se
utilizan para permitir relaciones más eficientes entre tablas, por lo que deben ser
internos a la aplicación. El usuario, en mi opinión, debe trabajar lo menos posible
con códigos. ¿Qué es preferible, dejar que el usuario teclee cuatro dígitos, 4897, o
que teclee el prefijo del nombre del producto?
Por estas razones, cuando tenemos que editar un campo de este tipo es preferible
utilizar la clave verdadera a la clave artificial. En el caso del artículo, es mejor que el
usuario pueda seleccionar el nombre del artículo que obligarle a introducir un código.
Esta traducción, de código a descripción, puede efectuarse a la hora de visualizar
mediante los campos de búsqueda, que ya hemos estudiado. Estos campos, no obstante, son sólo para lectura; si queremos editar el campo original, debemos utilizar
los controles TDBLookupListBox y TDBLookupComboBox.
Las siguientes propiedades son comunes a las listas y combos de búsqueda, y determinan el algoritmo de traducción de código a descripción:
Propiedad
DataSource
DataField
ListSource
Significado
La fuente de datos original. Es la que se modifica.
El campo original. Es el campo que contiene la referencia.
La fuente de datos a la que se hace referencia.
Controles de datos y fuentes de datos 361
Propiedad
KeyField
ListField
Significado
El campo al que se hace referencia.
Los campos que se muestran como descripción.
Cuando se arrastra un campo de búsqueda desde el Editor de Campos hasta la superficie de un formulario, el componente creado es de tipo TDBLookupComboBox. En
este caso especial, solamente hace falta dar el nombre del campo de búsqueda en la
propiedad DataField del combo o la rejilla, pues el resto del algoritmo de búsqueda es
deducible a partir de las propiedades del campo base.
Los combos de búsquedas funcionan con el estilo equivalente al csDropDownList de
los controles TDBComboBox. Esto quiere decir que no se pueden introducir valores
que no se encuentren en la tabla de referencia. Pero también significa que podemos
utilizar las búsquedas incrementales por teclado. Y esto es también válido para los
componentes TDBLookupListBox.
Más adelante, cuando estudiemos la comunicación entre el BDE y las bases de
datos cliente/servidor, veremos que la búsqueda incremental en combos de búsqueda es una característica muy peligrosa. La forma en que el BDE implementa
por omisión las búsquedas incrementales insensibles a mayúsculas es un despilfarro. ¿Solución? Utilice ventanas emergentes para la selección de valores, implementando usted mismo el mecanismo de búsqueda incremental, o diseñe su propio combo de búsqueda. Recuerde que esta advertencia solamente vale para bases de datos cliente/servidor.
Tanto para el combo como para las listas pueden especificarse varios campos en
ListField; en este caso, los nombres de campos se deben separar por puntos y comas:
DBLookupListBox1.ListField := 'Nombre;Apellidos';
Si son varios los campos a visualizar, en el cuadro de lista de TDBLookupListBox, y en
la lista desplegable de TDBLookupComboBox se muestran en columnas separadas. En
el caso del combo, en el cuadro de edición solamente se muestra uno de los campos:
aquel cuya posición está indicada por la propiedad ListFieldIndex. Como por omisión
esta propiedad vale 0, inicialmente se muestra el primer campo de la lista. ListFieldIndex determina, en cualquier caso, cuál de los campos se utiliza para realizar la búsqueda incremental en el control.
362 La Cara Oculta de Delphi
El combo de la figura anterior ha sido modificado de forma tal que su lista desplegable tenga el ancho suficiente para mostrar las dos columnas especificadas en ListField.
La propiedad DropDownWidth, que por omisión vale 0, indica el ancho en píxeles de
la lista desplegable. Por otra parte, DropDownRows almacena el número de filas que se
despliegan a la vez, y DropDownAlign es la alineación a utilizar.
Casillas de verificación y grupos de botones
Si un campo admite solamente dos valores, como en el caso de los campos lógicos,
es posible utilizar para su edición el componente TDBCheckBox. Este componente es
muy sencillo, y su modo de trabajo está determinado por el tipo del campo asociado.
Si el campo es de tipo TBooleanField, el componente traduce el valor True como casilla
marcada, y False como casilla sin marcar. En ciertos casos, conviene utilizar la propiedad AllowGrayed, que permite que la casilla tenga tres estados; el tercer estado, la
casilla en color gris, se asocia con un valor nulo en el campo.
Si el campo no es de tipo lógico, las propiedades ValueChecked y ValueUnchecked determinan las cadenas equivalentes a la casilla marcada y sin marcar. En estas propiedades se pueden almacenar varias cadenas separadas por puntos y comas. De este
modo, el componente puede aceptar varias versiones de lo que la tabla considera
valores “marcados” y “no marcados”:
DBCheckBox1.ValueChecked := 'Sí;Yes;Oui;Bai';
DBCheckBox1.ValueUnchecked := 'No;Ez';
Por su parte, TDBRadioGroup es una versión orientada a bases de datos del componente estándar TRadioGroup. Puede utilizarse como alternativa al cuadro de lista con
contenido fijo cuando los valores que podemos utilizar son pocos y se pueden mostrar en pantalla todos a la vez. La propiedad Items, de tipo TStrings, determina los
textos que se muestran en pantalla. Si está asignada la propiedad Values, indica qué
cadenas almacenaremos en el campo para cada opción. Si no hemos especificado
algo en esta propiedad, se almacenan las mismas cadenas asignadas en Items.
Controles de datos y fuentes de datos 363
Imágenes extraídas de bases de datos
En un campo BLOB de una tabla se pueden almacenar imágenes en los más diversos
formatos. Si el formato de estas imágenes es el de mapas de bits o de metaficheros,
podemos utilizar el componente TDBImage, que se basa en el control TImage, para
visualizar y editar estos datos. Las siguientes propiedades determinan la apariencia de
la imagen dentro del control:
Propiedad
Center
Stretch
QuickDraw
Significado
La imagen aparece centrada o en la esquina superior izquierda
Cuando es verdadera, la imagen se expande o contrae para
adaptarse al área del control.
Si es verdadera, se utiliza la paleta global. El dibujo es más
rápido, pero puede perderse calidad en ciertas resoluciones.
De forma similar a lo que ocurre con los campos de tipo memo, el componente
TDBImage ofrece una propiedad AutoDisplay para acelerar la exploración de tablas
que contienen imágenes. Cuando AutoDisplay está activo, cada vez que el conjunto de
datos cambia su fila activa, cambia el contenido del control. Si es False, hay que pulsar
INTRO sobre el control para visualizar el contenido del campo, o llamar al método
LoadPicture.
Estos componentes permiten trabajar con el Portapapeles, utilizando las teclas estándar CTRL+C, CTRL+V y CTRL+X, o mediante los métodos CopyToClipboard, CutToClipboard y PasteFromClipboard.
La técnica del componente del pobre
Todas las versiones de Delphi nos ofrecen un componente TCalendar, que permite la
edición y visualización de fechas como en un calendario. Este control se encuentra
en la página Samples de la Paleta de Componentes. No existe ningún control similar
para editar del mismo modo campos de bases de datos que contengan fechas ¿Qué
hacemos en estos casos, si no existe el componente en el mercado y no tenemos
tiempo y paciencia para crear un nuevo componente? La solución consiste en utilizar
los eventos del componente TDataSource para convertir a TCalendar, pobre Cenicienta, en una hermosa princesa, capaz de comunicarse con todo tipo de bases de
datos. La figura muestra la aplicación de esta técnica al componente TDateTimePicker
de Delphi 3 y 4; aquí hemos utilizado TCalendar para que los programadores de Delphi 2 puedan seguir el ejemplo.
364 La Cara Oculta de Delphi
Los eventos del componente TDataSource son estos tres:
Evento
OnStateChange
OnDataChange
OnUpdateData
Se dispara...
Cada vez que cambia el estado de la tabla asociada
Cuando cambia el contenido del registro actual
Cuando hay que guardar los datos locales en el registro activo
Para ilustrar el uso del evento OnStateChange, cree la típica aplicación de prueba para
tablas; ya sabe a qué me refiero:
•
•
•
•
Una tabla (TTable) que podamos modificar sin remordimientos.
Una fuente de datos (TDataSource) conectada a la tabla anterior.
Una rejilla de datos (TDBGrid), para visualizar los datos. Asigne la fuente de
datos a su propiedad DataSource.
Una barra de navegación (TDBNavigator), para facilitarnos la navegación y edición. Modifique también su propiedad DataSource.
Vaya entonces a DataSource1 y cree la siguiente respuesta al evento OnStateChange:
procedure TForm1.DataSource1StateChange(Sender: TObject);
const
Ventana: TForm = nil;
Lista: TListBox = nil;
begin
if Ventana = nil then
begin
Ventana := TForm.Create(Self);
Lista := TListBox.Create(Ventana);
Lista.Align := alClient;
Lista.Parent := Ventana;
Ventana.Show;
end;
Lista.Items.Add(GetEnumName(TypeInfo(TDataSetState),
Ord(Table1.State)));
end;
Controles de datos y fuentes de datos 365
Si queremos que este código compile, necesitamos incluir las unidades StdCtrls y
TypInfo en alguna de las cláusulas uses de la unidad actual. La primera unidad contiene la declaración del tipo TListBox, mientras que la segunda declara las funciones
GetEnumName y TypeInfo.
¿Y qué hay de la promesa de visualizar campos de fechas en un TCalendar? Es fácil:
cree otra ventana típica, con la tabla, la fuente de datos, una barra de navegación y
unos cuantos TDBEdit. Utilice, por ejemplo, la tabla employee.db del alias dbdemos. Esta
tabla tiene un campo, HireDate, que almacena la fecha de contratación del empleado.
Sustituya el cuadro de edición de este campo por un componente TCalendar. Finalmente seleccione la fuente de datos y cree un manejador para el evento OnDataChange:
procedure TForm1.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
Calendar1.CalendarDate := Table1['HireDate'];
end;
Antes he mencionado que OnDataChange se dispara cada vez que cambia el contenido
del registro activo. Esto sucede, por ejemplo, cuando navegamos por la tabla, pero
también cuando alguien (un control visual o un fragmento de código) cambia el valor
de un campo. En el primer caso el parámetro Field del evento contiene nil, mientras
que en el segundo apunta al campo que ha sido modificado. Le propongo al lector
que intente optimizar el método anterior haciendo uso de esta característica del
evento.
Permitiendo las modificaciones
Con un poco de cuidado, podemos permitir también las modificaciones sobre el
calendario. Necesitamos interceptar ahora el evento OnUpdateData de la fuente de
datos:
procedure TForm1.DataSource1UpdateData(Sender: TObject);
begin
Table1['HireDate'] := Calendar1.CalendarDate;
end;
Pero aún falta algo para que la maquinaria funcione. Y es que hemos insistido antes
en que solamente se puede asignar un valor a un campo si la tabla está en estado de
edición o inserción, mientras que aquí realizamos la asignación directamente. La
respuesta es que necesitamos interceptar también el evento que anuncia los cambios
en el calendario; cuando se modifique la fecha queremos que el control ponga en
modo de edición a la tabla de forma automática. Esto se realiza mediante el siguiente
método:
366 La Cara Oculta de Delphi
procedure TForm1.Calendar1Change(Sender: TObject);
begin
DataSource1.Edit;
end;
En vez de llamar al método Edit de la tabla o consulta asociada al control, he llamado
al método del mismo nombre de la fuente de datos. Este método verifica primero si
la propiedad AutoEdit del data source está activa, y si el conjunto de datos está en
modo de exploración, antes de ponerlo en modo de edición.
De todos modos, tenemos un pequeño problema de activación recursiva. Cuando
cambia el contenido del calendario, estamos poniendo a la tabla en modo de edición,
lo cual dispara a su vez al evento OnDataChange, que relee el contenido del registro
activo, y perdemos la modificación. Por otra parte, cada vez que cambia la fila activa,
se dispara OnDataChange, que realiza una asignación a la fecha del calendario. Esta
asignación provoca un cambio en el componente y dispara a OnChange, que pone
entonces a la tabla en modo de edición. Esto quiere decir que tenemos que controlar
que un evento no se dispare estando activo el otro. Para ello utilizaré una variable
privada en el formulario, como si fuera un semáforo:
type
TForm1 = class(TForm)
// …
private
FCambiando: Boolean;
end;
procedure TForm1.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
if not FCambiando then
try
FCambiando := True;
Calendar1.CalendarDate := Table1['HireDate'];
finally
FCambiando := False;
end;
end;
procedure TForm1.Calendar1Change(Sender: TObject);
begin
if not FCambiando then
try
FCambiando := True;
DataSource1.Edit;
finally
FCambiando := False;
end;
end;
Finalmente, podemos interceptar también el evento OnExit del calendario, de modo
que las modificaciones realizadas en el control se notifiquen a la tabla cuando abandonemos el calendario. Esto puede ser útil si tenemos más de un control asociado a
Controles de datos y fuentes de datos 367
un mismo campo, o si estamos visualizando a la vez la tabla en una rejilla de datos.
La clave para esto la tiene el método UpdateRecord del conjunto de datos:
procedure TForm1.Calendar1Exit(Sender: TObject);
begin
Table1.UpdateRecord;
end;
Blob, blob, blob…
Las siglas BLOB quieren decir en inglés, Binary Large Objects: Objetos Binarios Grandes. Con este nombre se conoce un conjunto de tipos de datos con las siguientes
características:
•
•
•
Longitud variable.
Esta longitud puede ser bastante grande. En particular, en la arquitectura Intel
puede superar la temible “barrera” de los 64 KB.
En el caso general, el sistema de bases de datos no tiene por qué saber interpretar el contenido del campo.
La forma más fácil de trabajar con campos BLOB es leer y guardar el contenido del
campo en ficheros. Se pueden utilizar para este propósito los métodos LoadFromFile y
SaveToFile, de la clase TBlobField:
procedure TBlobField.LoadFromFile(const NombreFichero: string);
procedure TBlobField.SaveToFile(const NombreFichero: string);
El ejemplo típico de utilización de estos métodos es la creación de un formulario
para la carga de gráficos en una tabla, si los gráficos residen en un fichero. Supongamos que se tiene una tabla, imagenes, con dos campos: Descripcion, de tipo cadena, y
Foto, de tipo gráfico. En un formulario colocamos los siguientes componentes:
tbImagenes La tabla de imágenes.
tbImagenesFoto El campo correspondiente a la columna Foto.
OpenDialog1 Cuadro de apertura de ficheros, con un filtro adecuado para
cargar ficheros gráficos.
bnCargar Al pulsar este botón, se debe cargar una nueva imagen en el
registro actual.
He mencionado solamente los componentes protagonistas; es conveniente añadir un
DBEdit para visualizar el campo Descripcion y un DBImage, para la columna Foto; por
supuesto, necesitaremos una fuente de datos. También será útil incluir una barra de
navegación.
368 La Cara Oculta de Delphi
El código que se ejecuta en respuesta a la pulsación del botón de carga de imágenes
debe ser:
procedure TForm1.bnCargarClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
if not (tbImagenes.State in dsEditModes) then tbImagenes.Edit;
tbImagenesFoto.LoadFromFile(OpenDialog1.FileName);
end;
end;
Observe que este método no depende en absoluto de la presencia del control
TDBImage para la visualización del campo. Me he adelantado en el uso del método
Edit; sin esta llamada, la asignación de valores a campos provoca una excepción.
Otra posibilidad consiste en utilizar los métodos LoadFromStream y SaveToStream para
transferir el contenido completo del campo hacia o desde un flujo de datos, en particular, un flujo de datos residente en memoria. Este tipo de datos, en Delphi, se representa mediante la clase TMemoryStream.
La clase TBlobStream
No hace falta, sin embargo, que el contenido del campo blob se lea completamente
en memoria para poder trabajar con él. Para esto contamos con la clase TBlobStream,
que nos permite acceder al contenido del campo como si estuviéramos trabajando
con un fichero. Para crear un objeto de esta clase, hay que utilizar el siguiente constructor:
constructor TBlobStream.Create(Campo: TBlobField;
Modo: TBlobStreamMode);
El tipo TBlobStreamMode, por su parte, es un tipo enumerativo que permite los valores bmRead, bmWrite y bmReadWrite; el uso de cada uno de estos modos es evidente.
¿Quiere almacenar imágenes en formato JPEG en una base de datos? Desgraciadamente, el componente TDBImage no permite la visualización de este formato, que
permite la compresión de imágenes. Pero no hay problemas, pues podemos almacenar estas imágenes en un campo BLOB sin interpretación, y encargarnos nosotros
mismos de su captura y visualización. La captura de la imagen tendrá lugar mediante
un procedimiento idéntico al que mostramos en la sección anterior para imágenes
“normales”:
Controles de datos y fuentes de datos 369
procedure TForm1.bnCargarClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
if not (tbImagenes.State in dsEditModes) then tbImagenes.Edit;
tbImagenesFoto.LoadFromFile(OpenDialog1.FileName);
end;
end;
La única diferencia es que asumimos que el campo Foto de la tabla tbImagenes debe ser
un campo BLOB sin interpretación, y que hemos configurado al componente OpenDialog1 para que sólo nos permita abrir ficheros de extensión jpeg y jpg. Debemos
incluir además la unidad JPEG en la cláusula uses de la unidad.
Para visualizar las imágenes, traemos un componente TImage de la página Additional
de la Paleta de Componentes, e interceptamos el evento OnDataChange de la fuente
de datos asociada a tbImagenes:
procedure TForm1.DataSource1DataChange(Sender: TObject;
Field: TField);
var
BS: TBlobStream;
Graphic: TGraphic;
begin
if tbImagenesFoto.IsNull then
Image1.Picture.Graphic := nil
else
begin
BS := TBlobStream.Create(tbImagenesFoto, bmRead);
try
Graphic := TJPEGImage.Create;
try
Graphic.LoadFromStream(BS);
Image1.Picture.Graphic := Graphic;
finally
Graphic.Free;
end;
finally
BS.Free;
end;
end;
end;
La clase TJPEGImage está definida en la unidad JPEG, y desciende del tipo TGraphic.
El método anterior se limita a crear un objeto de esta clase y llenarlo con el contenido del campo utilizando un objeto TBlobStream como paso intermedio. Finalmente,
el gráfico se asigna al control de imágenes.
Capítulo
18
Rejillas y barras de navegación
Q
UIZÁS LOS CONTROLES DE BASES DE DATOS MÁS POPULARES entre los programadores de Windows sean las rejillas y las barras de navegación. Las rejillas
de datos nos permiten visualizar de una forma cómoda y general cualquier
conjunto de datos. Muchas veces se utiliza una rejilla como punto de partida para
realizar el mantenimiento de tablas. Desde la rejilla se pueden realizar búsquedas,
modificaciones, inserciones y borrados. Las respuestas a consultas ad hoc realizadas
por el usuario pueden también visualizarse en rejillas. Por otra parte, las barras de
navegación son un útil auxiliar para la navegación sobre conjuntos de datos, estén
representados sobre rejillas o sobre cualquier otro conjunto de controles. En este
capítulo estudiaremos este par de componentes, sus propiedades y eventos básicos, y
la forma de personalizarlos.
El funcionamiento básico de una rejilla de datos
Para que una rejilla de datos “funcione”, basta con asignarle una fuente de datos a su
propiedad DataSource. Es todo. Quizás por causa de la sencillez de uso de estos componentes, hay muchos detalles del uso y programación de rejillas de datos que el
desarrollador normalmente pasa por alto, o descuida explicar en su documentación
para usuarios. Uno de estos descuidos es asumir que el usuario conoce todos los
detalles de la interfaz de teclado y ratón de este control. Y es que esta interfaz es rica
y compleja.
Las teclas de movimiento son las de uso más evidente. Las flechas nos permiten
movernos una fila o un carácter a la vez, podemos utilizar el avance y retroceso de
página; las tabulaciones nos llevan de columna en columna, y es posible usar la tabulación inversa.
La tecla INS pone la tabla asociada a la rejilla en modo de inserción. Aparentemente,
se crea un nuevo registro con los valores por omisión, y el usuario debe llenar el
mismo. Para grabar el nuevo registro tenemos que movernos a otra fila. Por supuesto, si tenemos una barra de navegación asociada a la tabla, el botón Post produce
372 La Cara Oculta de Delphi
el mismo efecto sin necesidad de cambiar la fila activa. Un poco más adelante estudiaremos las barras de navegación.
Pulsando F2, el usuario pone a la rejilla en modo de edición; Delphi crea automáticamente un cuadro de edición del tamaño de la celda activa para poder modificar el
contenido de ésta. Esta acción también se logra automáticamente cuando el usuario
comienza a teclear sobre una celda. La autoedición se controla desde la propiedad
AutoEdit de la fuente de datos (data source) a la cual se conecta la rejilla. Para grabar
los cambios realizados hacemos lo mismo que con las inserciones: pulsamos el botón
Post de una barra de navegación asociada o nos cambiamos de fila.
Otra combinación útil es CTRL+SUPR, mediante la cual se puede borrar el registro
activo en la rejilla. Cuando hacemos esto, se nos pide una confirmación. Es posible
suprimir este mensaje, que es lanzado por la rejilla, y pedir una confirmación personalizada para cada tabla interceptando el evento BeforeDelete de la propia tabla. Esto
se explicará en el capítulo 29, sobre eventos de transición de estados.
La rejilla de datos tiene una columna fija, en su extremo izquierdo, que no se mueve
de lugar aún cuando nos desplazamos a columnas que se encuentran fuera del área
de visualización. En esta columna, la fila activa aparece marcada, y la marca depende
del estado en que se encuentre la tabla base. En el estado dsBrowse, la marca es una
punta de flecha; cuando estamos en modo de edición, una viga I (i-beam), la forma
del cursor del ratón cuando se sitúa sobre un cuadro de edición; en modo de inserción, la marca es un asterisco. Como veremos, esta columna puede ocultarse manipulando las opciones de la rejilla.
Por otra parte, con el ratón podemos cambiar en tiempo de ejecución la disposición
de las columnas de una rejilla, manipulando la barra de títulos. Por ejemplo, arrastrando una cabecera de columna se cambia el orden de las columnas; arrastrando la
división entre columnas, se cambia el tamaño de las mismas. En Delphi 3 incluso
pueden utilizarse las cabeceras de columnas como botones. Naturalmente, la acción
realizada en respuesta a esta acción debe ser especificada por el usuario interceptando un evento.
Opciones de rejillas
Muchas de las características visuales y funcionales de las rejillas pueden cambiarse
mediante la propiedad Options. Aunque las rejillas de datos, TDbGrid y las rejillas
TDrawGrid y TStringGrid están relacionadas entre sí, las opciones de estas clases son
diferentes. He aquí las opciones de las rejillas de datos a partir de Delphi 2, y sus
valores por omisión:
Rejillas y barras de navegación 373
Opción
dgEditing
dgAlwaysShowEditor
dgTitles
dgIndicator
dgColumnResize
dgColLines
dgRowLines
dgTabs
dgRowSelect
dgAlwaysShowSelection
dgConfirmDelete
dgCancelOnExit
dgMultiSelect
PO
Sí
No
Sí
Sí
Sí
Sí
Sí
Sí
No
No
Sí
Sí
No
Significado
Permite la edición de datos sobre la rejilla
Activa siempre el editor de celdas
Muestra los títulos de las columnas
La primera columna muestra el estado de la tabla
Cambiar el tamaño y posición de las columnas
Dibuja líneas entre las columnas
Dibuja líneas entre las filas
Utilizar tabulaciones para moverse entre columnas
Seleccionar filas completas, en vez de celdas
Dejar siempre visible la selección
Permite confirmar los borrados
Cancela inserciones vacías al perder el foco
Permite seleccionar varias filas a la vez.
En Delphi 1 no se dispone de la opción dgMultiSelect. Curiosamente, la documentación impresa de Delphi 2 no incluía ayuda sobre cómo trabajar con la misma. Más
adelante veremos ejemplos acerca de esta opción.
Muchas veces, es conveniente cambiar las opciones de una rejilla en coordinación
con otras opciones o propiedades. Por ejemplo, cuando queremos que una rejilla se
utilice sólo en modo de lectura, además de cambiar la propiedad ReadOnly es aconsejable eliminar la opción dgEditing. De este modo, cuando el usuario seleccione una
celda, no se creará el editor sobre la celda y no se llevará la impresión de que la rejilla
iba a permitir la modificación. Como ejemplo adicional, cuando preparamos una
rejilla para seleccionar múltiples filas con la opción dgMultiSelect, es bueno activar
también la opción dgRowSelect, para que la barra de selección se dibuje sobre toda la
fila, en vez de sobre celdas individuales.
Columnas a la medida
La configuración de una rejilla de datos va más allá de las posibilidades de la propiedad Options. Por ejemplo, es necesario indicar el orden inicial de las columnas, los
títulos, la alineación de los textos dentro de las columnas... En Delphi 1, las tareas
mencionadas se llevaban a cabo modificando propiedades de los componentes de
campos de la tabla asociada a la rejilla. Por ejemplo, si queríamos cambiar el título de
una columna, debíamos modificar la propiedad DisplayLabel del campo correspondiente. La alineación de la columna se extraía de la propiedad Alignment del campo. Y
si queríamos ocultar una columna, debíamos utilizar la propiedad Visible del componente de campo.
374 La Cara Oculta de Delphi
Esto ocasionaba bastantes problemas; el problema más grave en Delphi 1 era lo
limitado de las posibilidades de configuración según este estilo. Por ejemplo, aunque
un campo se alineara a la derecha, el título de su columna se alineaba siempre a la
izquierda. A partir de Delphi 2 las cosas hubieran podido agravarse, por causa de la
aparición de los módulos de datos, que permiten utilizar el mismo componente no
visual de acceso con diferentes modos de visualización. Al colocar una tabla determinada en un módulo de datos y configurar las propiedades visuales de un componente de campo en dicho módulo, cualquier rejilla que se conectara a la tabla mostraría la misma apariencia. Para poder separar la parte visual de los métodos de acceso,
se hizo indispensable la posibilidad de configurar directamente las rejillas de datos.
La propiedad Columns, no disponible en Delphi 1, permite modificar el diseño de las
columnas de una rejilla de datos. El tipo de esta propiedad es TDbGridColumns, y es
una colección de objetos de tipo TColumn. Para editar esta propiedad podemos hacer
un doble clic en el valor de la propiedad en el Inspector de Objetos, o realizar el
doble clic directamente sobre la propia rejilla. El editor de propiedades es diferente
en Delphi 2, 3 y 4. En el primero, aparece un cuadro de diálogo modal y en las otras
dos versiones se utiliza el editor genérico de colecciones, que es no modal. Este es,
por ejemplo, el editor de columnas de Delphi 3:
La propiedades que nos interesan de las columnas son:
Rejillas y barras de navegación 375
Propiedad Significado
Alignment Alineación de la columna
ButtonStyle Permite desplegar una lista desde una celda, o mostrar un
botón de edición.
Color Color de fondo de la columna.
DropDownRows Número de filas desplegables.
FieldName El nombre del campo que se visualiza.
Font El tipo de letra de la columna.
PickList Lista opcional de valores a desplegar.
ReadOnly Desactiva la edición en la columna.
Width El ancho de la columna, en píxeles.
Title
Alignment Alineación del título de la columna.
Caption Texto de la cabecera de columna.
Color Color de fondo del título de columna.
Font Tipo de letra del título de la columna.
A esta lista, Delphi 4 añade la propiedad Expanded, que se aplica a las columnas que
representan campos de objetos de Oracle. Si Expanded es True, la columna se divide
en subcolumnas, para representar los atributos del objeto, y la fila de títulos de la
rejilla duplica su ancho, para mostrar tanto el nombre de la columna principal como
los nombres de las dependientes. Esta propiedad puede modificarse tanto en tiempo
de diseño como en ejecución. Más adelante, en el capítulo 25, que está dedicada a
Oracle, volveremos a este asunto.
Si el programador no especifica columnas en tiempo de diseño, éstas se crean en
tiempo de ejecución y se llenan a partir de los valores extraídos de los campos de la
tabla; observe que algunas propiedades de las columnas se corresponden a propiedades de los componentes de campo. Si existen columnas definidas en tiempo de diseño, son éstas las que se utilizan para el formato de la rejilla.
En la mayoría de las situaciones, las columnas se configuran en tiempo de diseño,
pero es también posible modificar propiedades de columnas en tiempo de ejecución.
El siguiente método muestra como se pueden mostrar de forma automática en color
azul las columnas de una rejilla que pertenezcan a los campos que forman parte del
índice activo.
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 0 to DBGrid1.FieldCount - 1 do
with DBGrid1.Columns[I] do
if Field.IsIndexField then Font.Color := clBlue;
end;
376 La Cara Oculta de Delphi
En este otro ejemplo tenemos una rejilla con dos columnas, que ocupa todo el espacio interior de un formulario. Queremos que la segunda columna de la rejilla ocupe
todo el área que deja libre la primera columna, aún cuando cambie el tamaño de la
ventana. Se puede utilizar la siguiente instrucción:
procedure TForm1.FormResize(Sender: TObject);
begin
DBGrid1.Columns[1].Width := DBGrid1.ClientWidth DBGrid1.Columns[0].Width - 13;
end;
El valor que se resta en la fórmula se ha elegido por prueba y error, y corresponde al
ancho de la columna de indicadores y a las líneas de separación. Si la rejilla cambia
sus opciones de visualización, cambiará el valor a restar, por supuesto.
Para saber qué columna está activa en una rejilla, utilizamos la propiedad SelectedIndex,
que nos dice su posición. SelectedField nos da acceso al componente de campo asociado a la columna activa. Por otra parte, si lo que queremos es la lista de campos de
una rejilla, podemos utilizar la propiedad vectorial Fields y la propiedad entera FieldCount. Un objeto de tipo TColumn tiene también, en tiempo de ejecución, una propiedad Field para trabajar directamente con el campo asociado.
Guardar y restaurar los anchos de columnas
Para los usuarios de nuestras aplicaciones puede ser conveniente poder mantener el
formato de una rejilla de una sesión a otra, especialmente los anchos de las columnas.
Voy a mostrar una forma sencilla de lograrlo, suponiendo que cada columna de la
rejilla pueda identificarse de forma única por el nombre de su campo asociado. El
ejemplo utiliza ficheros de configuración, pero puede adaptarse fácilmente para hacer
uso del registro de Windows.
Supongamos que el formulario Form1 tiene una rejilla DBGrid1 en su interior. Entonces necesitamos la siguiente respuesta al evento OnCreate del formulario para restaurar los anchos de columnas de la sesión anterior:
resourcestring
SClaveApp = 'Software\MiEmpresa\MiAplicacion\';
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
with TRegIniFile.Create(SClaveApp + 'Rejillas\' +
Self.Name + '.' + DBGrid1.Name) do
try
for I := 0 to DBGrid1.Columns.Count - 1 do
with DBGrid1.Columns.Items[I] do
Width := ReadInteger('Width', FieldName, Width);
Rejillas y barras de navegación 377
finally
Free;
end;
end;
Estamos almacenando los datos de la rejilla DBGrid1 en la siguiente clave del registro
de Windows:
[HKEY_CURRENT_USER\MiEmpresa\MiAplicacion\Rejillas\Form1.DBGrid1]
El tercer parámetro de ReadInteger es el valor que se debe devolver si no se encuentra
la clave dentro de la sección. Este valor se utiliza la primera vez que se ejecuta el programa, cuando aún no existe el fichero de configuraciones. Este fichero se debe actualizar cada vez que se termina la sesión, durante el evento OnClose del formulario:
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
var
I: Integer;
begin
with TRegIniFile.Create(SClaveApp + 'Rejillas\' +
Self.Name + '.' + DBGrid1.Name) do
try
for I := 0 to DBGrid1.Columns.Count - 1 do
with DBGrid1.Columns.Items[I] do
WriteInteger('Width', FieldName, Width);
finally
Free;
end;
end;
Sobre la base de estos procedimientos simples, el lector puede incorporar mejoras,
como la lectura de la configuración por secciones completas, y el almacenamiento de
más información, como el orden de las columnas.
Listas desplegables y botones de edición
Como hemos visto, a partir de Delphi 2, las rejillas de datos permiten que una columna despliegue una lista de valores para que el usuario seleccione uno de ellos.
Esto puede suceder en dos contextos diferentes:
• Cuando el campo visualizado en una columna es un campo de búsqueda (lookup
field).
• Cuando el programador especifica una lista de valores en la propiedad PickList de
una columna.
En el primer caso, el usuario puede elegir un valor de una lista que se extrae de otra
tabla. El estilo de interacción es similar al que utilizan los controles TDBLookupCom-
378 La Cara Oculta de Delphi
boBox, que estudiaremos más adelante; no se permite, en contraste, la búsqueda incremental mediante teclado. En el segundo caso, la lista que se despliega contiene
exactamente los valores tecleados por el programador en la propiedad PickList de la
columna. Esto es útil en situaciones en las que los valores más frecuentes de una
columna se reducen a un conjunto pequeño de posibilidades: formas de pagos, fórmulas de tratamiento (Señor, Señora, Señorita), y ese tipo de cosas. En cualquiera de
estos casos, la altura de la lista desplegable se determina por la propiedad DropDownRows: el número máximo de filas a desplegar.
La propiedad ButtonStyle determina si se utiliza el mecanismo de lista desplegable o
no. Si vale bsAuto, la lista se despliega si se cumple alguna de las condiciones anteriores. Si la propiedad vale bsNone, no se despliega nunca la lista. Esto puede ser útil en
ocasiones: suponga que hemos definido, en la tabla que contiene las líneas de detalles
de un pedido, el precio del artículo que se vende como un campo de búsqueda, que
partiendo del código almacenado en la línea de detalles, extrae el precio de venta de
la tabla de artículos. En este ejemplo, no nos interesa que se despliegue la lista con
todos los precios existentes, y debemos hacer que ButtonStyle valga bsNone para esa
columna.
Por otra parte, si asignamos el valor bsEllipsis a la propiedad ButtonStyle de alguna columna, cuando ponemos alguna celda de la misma en modo de edición aparece en el
extremo derecho de su interior un pequeño botón con tres puntos suspensivos. Lo
único que hace este botón es lanzar el evento OnEditButtonClick cuando es pulsado:
procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
La columna en la cual se produjo la pulsación es la columna activa de la rejilla, que se
puede identificar por su posición, SelectedIndex, o por el campo asociado, SelectedField.
Este botón también puede activarse pulsando CTRL+INTRO.
En Delphi 4 los puntos suspensivos aparecen también con los campos TReferenceField y TDataSetField, de Oracle 8. Cuando se pulsa el botón, aparece una rejilla emergente con los valores anidados dentro del campo. El nuevo método
ShowPopupEditor permite invocar al editor desde el programa.
Rejillas y barras de navegación 379
Números verdes y números rojos
La propiedad Columns nos permite especificar un color para cada columna por separado. ¿Qué sucede si deseamos, por el contrario, colores diferentes por fila, o incluso
por celdas? Y puestos a pedir, ¿se pueden dibujar gráficos en una rejilla? Claro que sí:
para eso existe el evento OnDrawColumnCell.
Comencemos por algo sencillo: en la tabla de inventario parts.db queremos mostrar
en color rojo aquellos artículos para los cuales hay más pedidos que existencias; la
tabla en cuestión tiene sendas columnas, OnOrder y OnHand, para almacenar estas
cantidades. Así que creamos un manejador para OnDrawColumnCell, y Delphi nos
presenta el siguiente esqueleto de método:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
end;
Rect es el área de la celda a dibujar, DataCol es el índice de la columna a la cual pertenece y Column es el objeto correspondiente; por su parte, State indica si la celda está
seleccionada, enfocada y si es una de las celdas de cabecera. En ninguna parte se nos
dice la fila que se va a dibujar, pero la tabla asociada a la rejilla tendrá activo el registro correspondiente durante la respuesta al evento. Así que podemos empezar por
cambiar las condiciones de dibujo: si el valor del campo OnOrder iguala o supera al
valor del campo OnHand en la fila activa de la tabla, cambiamos el color del tipo de
letras seleccionado en el lienzo de la rejilla a rojo. Después, para dibujar el texto …
un momento, ¿no estamos complicando un poco las cosas?
La clave para evitar este dolor de cabeza es el método DefaultDrawColumnCell, perteneciente a las rejillas de datos. Este método realiza el dibujo por omisión de las celdas, y puede ser llamado en el interior de la respuesta a OnDrawColumnCell. Los parámetros de este método son exactamente los mismos que se suministran con el
evento; de este modo, ni siquiera hay que consultar la ayuda en línea para llamar al
método. Si el manejador del evento se limita a invocar a este método, el dibujo de la
rejilla sigue siendo idéntico al original. Podemos entonces limitarnos a cambiar las
condiciones iniciales de dibujo, realizando asignaciones a las propiedades del lienzo
de la rejilla, antes de llamar a esta rutina. He aquí el resultado:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with Sender as TDBGrid do
begin
if tbParts['OnOrder'] >= tbParts['OnHand'] then
Canvas.Font.Color := clRed;
380 La Cara Oculta de Delphi
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
Por supuesto, también podemos dibujar el contenido de una celda sin necesidad de
recurrir al dibujo por omisión. Si estamos visualizando la tabla de empleados en una
rejilla, podemos añadir desde el Editor de Columnas una nueva columna, con el botón New, dejando vacía la propiedad FieldName. Esta columna se dibujará en blanco.
Añadimos también al formulario un par de componentes de imágenes, TImage, con
los nombres CaraAlegre y CaraTriste, y mapas de bits que hagan juego; estos componentes deben tener la propiedad Visible a False. Finalmente, interceptamos el evento
de dibujo de celdas de columnas:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with Sender as TDBGrid do
if Column.FieldName <> '' then
DefaultDrawColumnCell(Rect, DataCol, Column, State)
else if tbEmpleados['Salary'] >= 45000 then
Canvas.StretchDraw(Rect, CaraAlegre.Picture.Graphic)
else
Canvas.StretchDraw(Rect, CaraTriste.Picture.Graphic)
end;
Otro ejemplo, que quizás sea más práctico, es mostrar el valor de un campo lógico
dentro de una rejilla como una casilla de verificación. El siguiente procedimiento
auxiliar se ocupa de los detalles del dibujo, y asume que se le suministra el Canvas de
una rejilla, dos mapas de bits de iguales dimensiones con una casilla de verificación
marcada y sin marcar, el rectángulo que delimita la celda y el valor lógico a representar:
procedure DrawCheckBox(ACanvas: TCanvas;
bmpChecked, bmpUncheked: TBitmap;
const Rect: TRect; Value: Boolean);
var
X, Y: Integer;
Rejillas y barras de navegación 381
begin
ASSERT(bmpChecked.Width = bmpUnchecked.Width);
ASSERT(bmpChecked.Height = bmpUnchecked.Height);
ACanvas.Pen.Color := clGray;
ACanvas.MoveTo(Rect.Left, Rect.Bottom);
ACanvas.LineTo(Rect.Right, Rect.Bottom);
ACanvas.LineTo(Rect.Right, Rect.Top);
ACanvas.Brush.Color := clSilver;
ACanvas.FillRect(Rect);
X := (Rect.Left + Rect.Right – bmpChecked.Width) div 2;
Y := (Rect.Top + Rect.Bottom – bmpChecked.Height) div 2;
if Value then
ACanvas.Draw(X, Y, bmpChecked)
else
ACanvas.Draw(X, Y, bmpUnchecked);
end;
Supongamos que la tabla Table1 contiene un campo de nombre Activo, de tipo lógico.
Para dibujar la columna correspondiente al campo en la rejilla, utilizamos el siguiente
método en respuesta al evento OnDrawColumnCell:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if CompareText(Column.FieldName, 'ACTIVO') = 0 then
DrawCheckBox(DBGrid1.Canvas,
imgChecked.Picture.Bitmap, imgUnchecked.Picture.Bitmap,
Rect, Table1['ACTIVO'])
else
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Recuerde que mientras más complicado sea el dibujo, más tardará en redibujarse la
rejilla.
Más eventos de rejillas
En Delphi 3 se añadieron un par de nuevos eventos a las rejillas de datos. Estos son
OnCellClick, que se dispara cuando el usuario pulsa el ratón sobre una celda de datos,
y OnTitleClick, cuando la pulsación ocurre en alguno de los títulos de columnas. Aunque estos eventos pueden detectarse teóricamente directamente con los eventos de
ratón, OnCellClick y OnTitleClick nos facilitan las cosas al pasar, como parámetro del
evento, el puntero al objeto de columna donde se produjo la pulsación.
Para demostrar el uso de estos eventos, coloque en un formulario vacío una tabla con
las siguientes propiedades:
382 La Cara Oculta de Delphi
Propiedad
DatabaseName
TableName
Active
Valor
IBLOCAL
EMPLOYEE
True
Es importante para este ejemplo que la tabla pertenezca a una base de datos SQL; es
por eso que utilizamos los ejemplos de InterBase. Coloque en el formulario, además,
un TDataSource y una rejilla de datos, debidamente conectados.
Luego, cree la siguiente respuesta al evento OnTitleClick de la rejilla:
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
try
Table1.IndexFieldNames := Column.FieldName;
except
end;
end;
La propiedad IndexFieldNames de las tablas se utiliza para indicar por qué campo, o
combinación de campos, queremos que la tabla esté ordenada. Para una tabla SQL
este campo puede ser arbitrario, cosa que no ocurre para las tablas locales; en el capítulo sobre índices trataremos este asunto. Nuestra aplicación, por lo tanto, permite
cambiar el criterio de ordenación de la tabla que se muestra con sólo pulsar con el
ratón sobre el título de la columna por la cual se quiere ordenar.
La barra de desplazamiento de la rejilla
La otra gran diferencia entre las rejillas de datos de Delphi 2 y las de versiones posteriores consiste en el comportamiento de la barra de desplazamiento vertical que tienen asociadas. En Delphi 1 y 2, para desesperación de muchos programadores habituados a trabajar con bases de datos locales, la barra solamente asume tres posiciones: al principio, en el centro y al final. ¿Por qué? La culpa la tienen las tablas SQL:
para saber cuántas filas tiene una tabla residente en un servidor remoto necesitamos
cargar todas las filas en el ordenador cliente. ¿Y todo esto sólo para que el cursor de
la barra de desplazamiento aparezca en una posición proporcional? No merece la
pena, y pagan justos por pecadores, pues también se utiliza el mismo mecanismo
para las tablas de Paradox y dBase.
Afortunadamente, Delphi 3 corrigió esta situación para las tablas locales aunque, por
supuesto, las cosas siguen funcionando igual para las bases de datos SQL.
Rejillas y barras de navegación 383
Rejillas de selección múltiple
Como hemos visto, si activamos la opción dgMultiSelect de una rejilla, podemos seleccionar varias filas simultáneamente sobre la misma. La selección múltiple se logra de
dos formas diferentes:
• Extendiendo la selección mediante las flechas hacia arriba y hacia abajo, manteniendo pulsada la tecla de mayúsculas.
• Pulsando con el ratón sobre una fila, mientras se sostiene la tecla CTRL.
Si pulsamos CTRL+SUPR mientras la rejilla tiene el foco del teclado, eliminaremos
todas las filas seleccionadas. Cualquier otra operación que deseemos deberá ser programada.
La clave para programar con una rejilla de selección múltiple es la propiedad SelectedRows, que no aparecía documentada en los manuales de Delphi 217. Esta propiedad es
del tipo TBookmarkList, una lista de marcas de posición, cuyos principales métodos y
propiedades son los siguientes:
Propiedades/Métodos
Count
Items[I: Integer]
CurrentRowSelected
procedure Clear;
procedure Delete;
procedure Refresh;
Propósito
Cantidad de filas seleccionadas.
Lista de posiciones seleccionadas.
¿Está seleccionada la fila activa?
Eliminar la selección.
Borrar las filas seleccionadas.
Actualizar la selección, eliminando filas borradas.
El siguiente método muestra cómo sumar los salarios de los empleados seleccionados en una rejilla con selección múltiple:
procedure TForm1.bnSumarClick(Sender: TObject);
var
BM: TBookmarkStr;
Total: Double;
I: Integer;
begin
tbEmpleados.DisableControls;
BM := tbEmpleados.Bookmark;
try
Total := 0;
for I := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
tbEmpleados.Bookmark := DBGrid1.SelectedRows.Items[I];
Total := Total + tbEmpleados['Salary'];
end;
17
Esta melodía ya nos es familiar.
384 La Cara Oculta de Delphi
finally
tbEmpleados.Bookmark := BM;
tbEmpleados.EnableControls;
end;
ShowMessage(Format('Salario total: %m', [Total]));
end;
La técnica básica consiste en controlar el recorrido desde un bucle for, e ir activando
sucesivamente cada fila seleccionada en la lista de marcas. Para que la tabla se mueva
su cursor al registro marcado en la rejilla, solamente necesitamos asignar la marca a la
propiedad Bookmark de la tabla.
Barras de navegación
Al igual que sucede con las rejillas de datos, la principal propiedad de las barras de
navegación es DataSource, la fuente de datos controlada por la barra. Cuando esta
propiedad está asignada, cada uno de los botones de la barra realiza una acción sobre
el conjunto de datos asociado a la fuente de datos: navegación (First, Prior, Next,
Last), inserción (Insert), eliminación (Delete), modificación (Edit), confirmación o cancelación (Post, Cancel) y actualización de los datos en pantalla (Refresh).
Un hecho curioso: muchos programadores me preguntan en los cursos que imparto
si se pueden modificar las imágenes de los botones de la barra de navegación. Claro
que se puede, respondo, pero siempre me quedo intrigado, pues no logro imaginar
un conjunto de iconos más “expresivo” o “adecuado”. ¿Acaso flechas art noveau verdes sobre fondo rojo? De todos modos, para el que le interese este asunto, las imágenes de los botones están definidas en el fichero dbctrls.res, que se encuentra en el
subdirectorio lib de Delphi. Se puede cargar este fichero con cualquier editor gráfico
de recursos, Image Editor incluido, y perpetrar el correspondiente atentado contra la
estética.
Rejillas y barras de navegación 385
También he encontrado programadores que sustituyen completamente la barra de
navegación por botones de aceleración. Esta técnica es correcta, y es fácil implementar tanto las respuestas a las pulsaciones de los botones como mantener el estado
de activación de los mismos; hemos visto cómo se hace esto último al estudiar los
eventos del componente TDataSource en el capítulo anterior. Sin embargo, existe una
razón poderosa para utilizar siempre que sea posible la barra de navegación de Delphi, al menos sus cuatro primeros botones, y no tiene que ver con el hecho de que ya
esté programada. ¿Se ha fijado lo que sucede cuando se deja pulsado uno de los botones de navegación durante cierto tiempo? El comando asociado se repite entonces
periódicamente. Implementar este comportamiento desde cero ya es bastante más
complejo, y no merece la pena.
Había una vez un usuario torpe, muy torpe…
…tan torpe que no acertaba nunca en el botón de la barra de navegación que debía
llevarlo a la última fila de la tabla. No señor: este personaje siempre “acertaba” en el
botón siguiente, el que inserta registros. Por supuesto, sus tablas abundaban en filas
vacías … y la culpa, según él, era del programador. Que nadie piense que lo estoy
inventando, es un caso real.
Para estas situaciones tenemos la propiedad VisibleButtons de la barra de navegación.
Esta propiedad es la clásica propiedad cuyo valor es un conjunto. Podemos, por
ejemplo, esconder todos los botones de actualización de una barra, dejando solamente los cuatro primeros botones. Esconder botones de una barra provoca un desagradable efecto secundario: disminuye el número de botones pero el ancho total
del componente permanece igual, lo que conduce a que el ancho individual de cada
botón aumente. Claro, podemos corregir la situación posteriormente reduciendo el
ancho general de la barra.
A propósito de botones, las barras de navegación de Delphi 3 tienen una propiedad
Flat, para que el borde tridimensional de los botones esté oculto hasta que el ratón
pase por encima de uno de ellos. La moda ejerce su dictadura también en las pantallas de nuestros ordenadores.
Ayudas para navegar
Aunque la barra de navegación tiene una propiedad Hint como casi todos los controles, esta propiedad no es utilizada por Delphi. Las indicaciones por omisión que
muestran los botones de una barra de navegación están definidas, en Delphi 2, en el
fichero de recursos dbconsts.res. Es posible editar este fichero para cambiar estos valores. En Delphi 3 y 4, se definen en la unidad dbconsts.pas, utilizando cadenas de recursos (resourcestring).
386 La Cara Oculta de Delphi
Para personalizar las indicaciones de ayuda, es necesario utilizar la propiedad Hints,
en plural, que permite especificar una indicación por separado para cada botón. Hints
es de tipo TStrings, una lista de cadenas. La primera cadena corresponde al primer
botón, la segunda cadena, que se edita en la segunda línea del editor de propiedades,
corresponde al segundo botón, y así sucesivamente. Esta correspondencia se mantiene incluso cuando hay botones no visibles. Por supuesto, las ayudas asociadas a los
botones ausentes no tendrán efecto alguno.
El comportamiento de la barra de navegación
Una vez modificada la apariencia de la barra, podemos también modificar parcialmente el comportamiento de la misma. Para esto contamos con el evento OnClick de
este componente:
procedure TForm1.DBNavigator1Click(Sender: TObject;
Button: TNavigateButton);
begin
end;
Podemos ver que, a diferencia de la mayoría de los componentes, este evento OnClick
tiene un parámetro adicional que nos indica qué botón de la barra ha sido pulsado.
Este evento se dispara después de que se haya efectuado la acción asociada al botón; si
se ha pulsado el botón de editar, el conjunto de datos asociado ya ha sido puesto en
modo de edición. Esto se ajusta al concepto básico de tratamiento de eventos: un
evento es un contrato sin obligaciones. No importa si no realizamos acción alguna en
respuesta a un evento en particular, pues el mundo seguirá girando sin nuestra cooperación.
Mostraré ahora una aplicación de este evento. Según mi gusto personal, evito en lo
posible que el usuario realice altas y modificaciones directamente sobre una rejilla.
Prefiero, en cambio, que estas modificaciones se efectúen sobre un cuadro de diálogo
modal, con los típicos botones de aceptar y cancelar. Este diálogo de edición debe
poderse ejecutar desde la ventana en la que se efectúa la visualización mediante la
rejilla de datos. Si nos ceñimos a este estilo de interacción, no nos vale el comportamiento normal de las barras de navegación. Supongamos que Form2 es el cuadro de
diálogo que contiene los controles necesarios para la edición de los datos visualizados en el formulario Form1. Podemos entonces definir la siguiente respuesta al
evento OnClick de la barra de navegación existente en Form1:
procedure TForm1.DBNavigator1Click(Sender: TObject;
Button: TNavigateButton);
begin
if Button in [nbEdit, nbInsert] then
// La tabla está ya en modo de edición o inserción
Form2.ShowModal;
end;
Rejillas y barras de navegación 387
De este modo, al pulsar el botón de edición o el de inserción, se pone a la tabla base
en el estado correspondiente y se activa el diálogo de edición. Hemos supuesto que
este diálogo tiene ya programadas acciones asociadas a los botones para grabar o
cancelar los cambios cuando se cierra. Podemos incluso aprovechar los métodos de
clase mostrados en el capítulo de técnicas de gestión de ventanas para crear dinámicamente este cuadro de diálogo:
procedure TForm1.DBNavigator1Click(Sender: TObject;
Button: TNavigateButton);
begin
if Button in [nbEdit, nbInsert] then
// La tabla está ya en modo de edición o inserción
Form2.Mostrar(0);
// Creación dinámica
end;
Un método útil es el siguiente:
procedure TDBNavigator.BtnClick(Index: TNavigateBtn);
Este método simula la pulsación del botón indicado de la barra de navegación. Supongamos que, en el ejemplo anterior, quisiéramos que una doble pulsación del ratón
sobre la rejilla de datos activase el diálogo de edición para modificar los datos de la
fila actual. En vez de programar a partir de cero esta respuesta, lo más sensato es
aprovechar el comportamiento definido para la barra de navegación. Interceptamos
de la siguiente forma el evento OnDblClick de la rejilla de datos:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
DBNavigator1.BtnClick(nbEdit);
end;
Observe que el método BtnClick va a disparar también el evento asociado a OnClick
de la barra de navegación.
Delphi 3 introdujo un nuevo evento para las barras de navegación, BeforeAction, que
es disparado cuando se pulsa un botón, antes de que se produzca la acción asociada
al mismo. El prototipo del evento es similar al de OnClick. A veces yo utilizo este
evento para cambiar la acción asociada al botón de inserción. Este botón inserta visualmente una fila entre la fila actual y la anterior, pero en muchos casos es más interesante que la fila vaya al final de la rejilla, directamente. Es decir, quiero que el botón
ejecute el método Append, no Insert. Bueno, ésta es una forma de lograrlo:
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject);
begin
(Sender as TDBNavigator).DataSource.DataSet.Append;
SysUtils.Abort;
end;
388 La Cara Oculta de Delphi
Rejillas de controles
Un TDBGrid de Delphi no puede editar, al menos directamente, un campo lógico
como si fuera una casilla de verificación. Es igualmente cierto que, mediante los
eventos OnDrawColumnCell, OnCellClick y una gran dosis de buena voluntad, podemos simular este comportamiento. Pero también podemos utilizar el componente
TDBCtrlGrid, que nos permite, mediante la copia de controles de datos individuales,
mostrar varios registros a la vez en pantalla.
En principio, un TDBCtrlGrid aparece dividido en paneles, y uno de estos paneles
acepta otros controles en su interior. En tiempo de ejecución, los otros paneles, que
aparecen inactivos durante el diseño, cobran vida y repiten en su interior controles
similares a los colocados en el panel de diseño. En cada uno de estos paneles, por
supuesto, se muestran los datos correspondientes a un registro diferente. Las propiedades que tienen que ver con la apariencia y disposición de los paneles son:
Propiedad
Orientation
ColCount
RowCount
PanelBorder
PanelWidth
PanelHeight
Significado
Orientación del desplazamiento de paneles.
Número de columnas.
Número de filas.
¿Tiene borde el panel?18
Ancho de cada panel, en píxeles.
Altura de cada panel, en píxeles.
Las rejillas de controles tienen la propiedad DataSource, que indica la fuente de datos
a la cual están conectados los diferentes controles de su interior. Cuando un control
de datos se coloca en este tipo de rejilla debe “renunciar” a tener una fuente de datos
diferente a la del TDBCtrlGrid. De este modo pueden incluirse cuadros de edición,
combos, casillas de verificación, memos, imágenes o cualquier control que nos dicte
nuestra imaginación. La excepción, en Delphi 3 y 4, son los TDBRadioGroup y los
TDBRichEdit.
En Delphi 2, sin embargo, tampoco se podían colocar directamente controles
DBMemo y DBImage en una rejilla. La causa inmediata era que estos controles carecían
de la opción csReplicatable dentro de su conjunto de opciones ControlStyle. La causa
verdadera era que el BDE no permitía el uso de caché para campos BLOB. No obstante, se pueden crear componentes derivados que añadan la opción de replicación
durante la creación.
18
¿Y sueñan los androides con ovejas eléctricas?
Rejillas y barras de navegación 389
La implementación de componentes duplicables en Delphi es algo complicada y no
está completamente documentada. Aunque el tema sale fuera del alcance de este
libro, mencionaré que estos componentes deben responder al mensaje interno
CM_GETDATALINK, y tener en cuenta el valor de la propiedad ControlState para
dibujar el control, pues si el estado csPaintCopy está activo, hay que leer directamente
el valor a visualizar desde el campo.
Capítulo
19
Indices
U
de la implementación de todo sistema de
bases de datos es la definición y uso de índices. Los índices están presentes
en casi cualquier área de la creación y explotación de una base de datos:
NO DE LOS ASPECTOS BÁSICOS
• Mediante los índices se pueden realizar búsquedas rápidas.
• Las búsquedas rápidas se aprovechan en la implementación de las restricciones de
integridad referencial.
• Si los índices se implementan mediante árboles balanceados (b-trees) o alguna
técnica equivalente, que es lo más frecuente, nos sirven también para realizar diferentes ordenaciones lógicas sobre los registros de las tablas.
• Sobre un índice que permite una ordenación se pueden definir eficientemente
rangos, que son restricciones acerca de los registros visibles en un momento determinado.
• Gracias a las propiedades anteriores, los índices se utilizan para optimizar las
operaciones SQL tales como las selecciones por un valor y los encuentros entre
tablas.
En el tercer punto de la lista anterior, he mencionado indirectamente la posibilidad
de índices que no estén implementados mediante árboles balanceados. Esto es perfectamente posible, siendo el caso más típico los índices basados en técnicas de hash,
o desmenuzamiento de la clave. Estos índices, sin embargo, no permiten la ordenación de los datos básicos. Por esto, casi todos los índices de los sistemas de bases de
datos más populares están basados en árboles balanceados y permiten tanto la búsqueda rápida como la ordenación.
Indices en Paradox
Paradox permite trabajar con un índice primario por cada tabla y con varios índices
secundarios. Todos estos índices pueden ser mantenidos automáticamente por el
sistema, aunque existe la posibilidad de crear índices secundarios no mantenidos.
392 La Cara Oculta de Delphi
Cada índice se almacena en un fichero aparte, con el mismo nombre que la tabla con
los datos pero con diferente extensión.
Paradox permite el uso directo de índices con claves compuestas, formadas por varios campos. Otras opciones posibles de un índice Paradox es ignorar las mayúsculas
y minúsculas en los campos de cadenas (la opción por omisión), la restricción de
claves únicas y la posibilidad de ordenación en sentido descendente.
El índice primario es un índice con claves únicas que se utiliza para la definición y
mantenimiento de la clave primaria de una tabla. Puede haber solamente un índice
primario por cada tabla. En Paradox, este índice primario no tiene nombre propio. Si
se define una clave primaria para una tabla, los campos de esta clave deben ser los
primeros campos de la definición de la tabla. Así, por ejemplo, si la tabla items.db de la
base de datos dbdemos de Delphi tiene una clave primaria formada por los campos
OrderNo e ItemNo, estos campos deben ser, respectivamente, el primer y el segundo
campo de la tabla. Si una tabla tiene un índice primario es imposible, al menos desde
Delphi, afectar la posición de inserción de los registros. Estos índices primarios son
utilizados también por el mecanismo de integridad referencial de Paradox.
Indices en dBase
En dBase, a partir de la versión cuatro, se utilizan ficheros con extensión mdx para
los índices. Cada uno de estos ficheros contiene en realidad un grupo de índices; la
palabra inglesa que se utiliza para referirse a cada uno de los índices presentes en este
superfichero es tag. De estos ficheros mdx hay uno especial: aquel cuyo nombre coincide con el del fichero de datos de extensión dbf. A este fichero de índices se le conoce como el índice de producción: para la tabla animals.dbf el índice de producción es el
fichero animals.mdx. El índice de producción se abre automáticamente al abrirse el
fichero de datos, y los índices pertenecientes al mismo, en consecuencia, se mantienen actualizados sin intervención del programador. Estos son, además, los índices
que serán visibles inicialmente al programador de Delphi.
Pero también es posible la existencia de otros ficheros mdx asociados a una tabla.
Estos índices secundarios no se actualizan automáticamente. La razón fundamental
de esta restricción consiste en que al abrir el fichero principal dbf no existe forma de
saber, sin intervención del programador, si tiene algún fichero mdx secundario asociado. Al menos, en Delphi 1.
A partir de Delphi 2 el problema se resuelve mediante la nueva propiedad IndexFiles
de las tablas. Esta propiedad, de tipo TStrings, almacena la lista de nombres de ficheros mdx y ndx (¡sí, los de dBase III!) que deben abrirse junto a la tabla para su mantenimiento. Normalmente, esta propiedad debe asignarse en tiempo de diseño, pero es
posible añadir y eliminar dinámicamente elementos en esta propiedad. El mismo
Indices 393
resultado se obtiene mediante los métodos OpenIndexFile y CloseIndexFile, de la clase
TTable. Cualquier componente de un índice secundario abierto puede seleccionarse,
en la propiedad IndexName, para utilizarlo como índice activo de la tabla.
Un problema relacionado es cómo utilizar un fichero de dBase IV cuando no tenemos el índice de producción correspondiente. El hecho es que el fichero de extensión dbf contiene una marca para indicar la presencia del correspondiente fichero
mdx. Si la marca está puesta y no aparece el índice, no se puede abrir el fichero. Sin
embargo, eliminar esta marca es relativamente fácil; se encuentra en el byte 29 de la
cabecera del fichero, y el siguiente código muestra como se puede eliminar:
procedure EliminarMDX(const FicheroDBF: string);
var
F: file of Byte;
Cero: Byte;
begin
Cero := 0;
AssignFile(F, FicheroDBF);
Reset(F);
try
Seek(F, 28);
Write(F, Cero);
finally
CloseFile(F);
end;
end;
No, no es un error: buscamos el byte 28 con el procedimiento Seek porque las posiciones dentro del fichero se cuentan a partir de cero.
En las versiones anteriores a Visual dBase 7, no existe el concepto de índice primario. Está de más decir que tampoco hay un soporte automático para restricciones de
integridad referencial. No se soportan directamente los índices con claves compuestas. Hay que utilizar, en cambio, un retorcido mecanismo conocido como índices de
expresiones; los programadores de xBase ensalzan este sistema, pero no hay que hacerles mucho caso, porque a casi todo se acostumbra uno. El lograr un índice insensible a mayúsculas y minúsculas también requiere el uso de expresiones. Veremos que
394 La Cara Oculta de Delphi
la presencia de un índice basado en expresiones nos obliga a utilizar técnicas sadomasoquistas en Delphi para poder trabajar con el mismo; aunque al final logramos el
objetivo, estamos limitando las posibilidades de portabilidad de la aplicación.
Indices en InterBase
Los índices en InterBase muestran el trabajo típico con índices en una base de datos
SQL. InterBase permite la creación explícita de índices, con claves simples y compuestas, únicas o no. Pero también se crean índices automáticamente para mantener
las restricciones de integridad referencial. Por ejemplo, la definición de una clave
primaria para una tabla provoca la creación y mantenimiento automático de un índice
único, con el nombre rdb$primaryN. La N al final del nombre representa un valor
entero generado por el sistema, que garantice la unicidad del nombre del índice. Del
mismo modo, para las claves foráneas (foreign keys) se mantienen índices con el nombre rdb$foreignN. Estos índices son sumamente útiles al establecer, más adelante, relaciones master/detail entre las tablas.
Los índices de InterBase son sensibles a mayúsculas y minúsculas, aunque el orden
alfabético depende del conjunto de caracteres y el orden definido al crear la base de
datos.
Indices en MS SQL Server
Además de las opciones habituales aplicables a índices, MS SQL Server permite definir índices agrupados (clustered indexes). En un índice agrupado, las filas de la tabla quedan ordenadas físicamente, no sólo de forma lógica, de acuerdo al orden definido
por el índice. Esto hace que las búsquedas sean muy rápidas, sobre todo cuando no
buscamos un valor aislado, sino todo un rango de valores. Está claro, sin embargo,
que solamente puede haber un índice agrupado por tabla.
Las claves primarias generan automáticamente un índice para imponer la restricción
de unicidad; el nombre de este índice comienza con PK_, le sigue el nombre de la
tabla, y un número de identificación. Desafortunadamente, las restricciones de integridad referencial no generan índices, como en Paradox e InterBase, sino que hay que
crearlos explícitamente. Un programador acostumbrado a otro servidor SQL puede
encontrarse una desagradable sorpresa al asumir la existencia automática de estos
índices.
En dependencia de una opción que solamente puede especificarse durante la instalación del servidor, los índices de MS SQL Server pueden ser sensibles o no a mayúsculas y minúsculas.
Indices 395
Indices en Oracle
Oracle ofrece varias opciones interesantes para la creación de índices. Por ejemplo,
permite definir índices con clave invertida. Piense en una tabla en la que se insertan
registros, y una de sus columnas es la fecha de inserción. Para el mantenimiento de
dicha tabla, los registros se ordenan precisamente por esa columna, y existe la tendencia natural a trabajar más con los últimos registros insertados. Ahora asumamos
que en nuestro sistema trabajan concurrentemente un alto números de usuarios. Casi
todos estarán manipulando registros dentro del mismo rango de fechas, lo cual
quiere decir que en el índice de fechas existirán un par de bloques que estarán siendo
constantemente modificados. ¡Tanto disco duro para que al final los usuarios se encaprichen con un par de sectores! Pero como los programadores somos muy listos
(... sí, ese que tiene usted a su lado también ...), hemos creado el índice sobre las fechas del siguiente modo:
create index FechaApunte on Apuntes(Fecha) reverse;
Cuando usamos la opción reverse, las claves se invierten físicamente, al nivel de bytes.
Como resultado, fechas que antes eran consecutivas se distribuyen ahora de forma
aleatoria, y se equilibra la presión sobre el disco duro. Alguna desventaja debe tener
este sistema, y es que ahora no se puede aprovechar el índice para recuperar rápidamente los apuntes situados entre tal día y tal otro día.
Otra opción curiosa es el uso de índices por mapas de bits (bitmap indexes). Tenemos
una tabla de clientes, y para cada cliente se almacena la provincia o el estado. Hay 50
provincias en España19 y el mismo número de estados en los Estados Unidos. Pero
hay un millón de clientes. Con un índice normal, cada clave de este índice debe tener
un promedio de 20.000 filas asociadas, listadas de forma secuencial. ¡Demasiado
gasto de espacio y tiempo de búsqueda! Un índice por mapas de bits almacena en
cada clave una estructura en la que a cada fila corresponde un bit: si está en 0, la fila
no pertenece a la clave, si está en 1, sí pertenece.
Por último, tenemos la posibilidad de utilizar clusters, que Oracle interpreta de modo
diferente a MS SQL Server. Cabeceras de pedidos y líneas de detalles comparten una
misma columna: el número de pedido. Entonces podemos arreglar las cosas para que
cada cabecera y sus líneas asociadas se almacenen en la misma página de la base de
datos, manteniendo un solo índice sobre el número de pedido para ambas tablas.
Este índice, incluso, puede utilizar la técnica conocida como hash, que permite tiempos de acceso muy pequeños. ¿La desventaja? Aunque las búsquedas son muy rápidas, cuesta entonces más trabajo el realizar una inserción, o modificar un número de
pedido.
19
Si me he equivocado, perdonadme: yo no estudié Geografía Española en la escuela.
396 La Cara Oculta de Delphi
Hasta la versión 8, las comparaciones entre cadenas de caracteres en Oracle son sensibles a mayúsculas y minúsculas. Lo mismo sucede con los índices.
Con qué índices podemos contar
El primer paso para trabajar con índices en Delphi es conocer qué índices tenemos
asociados a una tabla determinada. Si lo único que nos importa es la lista de nombres
de índices, podemos utilizar el método GetIndexNames, aplicable a la clase TTable. El
prototipo de este método es:
procedure TTable.GetIndexNames(Lista: TStrings);
Este método añade a la lista pasada como parámetro los nombres de los índices que
están definidos para esta tabla. Es importante advertir que la acción realizada por
GetIndexNames es añadir nuevas cadenas a una lista existente, por lo que es necesario
limpiar primero la lista, con el método Clear, si queremos obtener un resultado satisfactorio. Para que GetIndexNames funcione no hace falta que la tabla esté abierta; un
objeto de tipo TTable necesita solamente tener asignado valores a las propiedades
DatabaseName y TableName para poder preguntar por los nombres de sus índices.
Otra particularidad de este método es que no devuelve en la lista el índice primario
de las tablas Paradox.
Ahora bien, si necesitamos más información sobre los índices, es en la propiedad
IndexDefs de la tabla donde debemos buscarla. Esta propiedad, que devuelve un objeto de tipo TIndexDefs, es similar en cierto sentido a la propiedad FieldDefs, que ya
hemos analizado. Podemos utilizar IndexDefs incluso con la tabla cerrada, pero para
eso tenemos primeramente que aplicar el método Update al objeto retornado por esta
propiedad. La clase TIndexDefs es en esencia una lista de definiciones de índices; cada
definición de índice es, a su vez, un objeto de clase TIndexDef, en singular. Para acceder a las definiciones individuales se utilizan estas dos subpropiedades de TIndexDefs:
property Count: Integer;
property Items[Indice: Integer]: TIndexDef;
Por su parte, estas son las propiedades de un objeto de clase TIndexDef:
Propiedad
Name
Fields
Significado
Es el nombre del índice; si éste es el índice primario de una tabla
Paradox, la propiedad contiene una cadena vacía.
Lista de campos de la clave, separados por puntos y comas. Si es un
índice de expresiones de dBase, la propiedad contiene una cadena
vacía.
Indices 397
Propiedad
Expression
Options
Significado
Expresión que define un índice de expresiones de dBase.
Conjunto de opciones del índice.
La propiedad Options es un conjunto al cual pueden pertenecer los siguientes valores:
Opción
ixPrimary
ixUnique
ixDescending
ixExpression
ixCaseInsensitive
Significado
El índice es el primario de una tabla Paradox.
No se permiten claves duplicadas en el índice.
El criterio de ordenación es descendente.
El índice es un índice de expresiones de dBase.
Se ignora la diferencia entre mayúsculas y minúsculas.
No aplicable en tablas dBase.
Si no existiera el método GetIndexNames se pudiera simular con el siguiente procedimiento:
procedure LeerNombresDeIndices(Tabla: TTable; Lista: TStrings);
var
I: Integer;
begin
with Tabla.IndexDefs do
begin
Update;
Lista.Clear;
// Una mejora al algoritmo
for I := 0 to Count - 1 do
if Items[I].Name <> '' then
Lista.Add(Items[I].Name);
end;
end;
Pero si lo que deseamos es obtener una lista de las definiciones de índices, similar a la
lista desplegable de la propiedad IndexFieldNames que estudiaremos en breve, debemos utilizar un procedimiento parecido a este otro:
procedure LeerDefiniciones(Tabla: TTable; Lista: TStrings);
var
I: Integer;
begin
with Tabla.IndexDefs do
begin
Update;
Lista.Clear;
for I := 0 to Count - 1 do
if ixExpression in Items[I].Options then
Lista.Add(Items[I].Expression)
else
Lista.Add(Items[I].Fields);
end;
end;
398 La Cara Oculta de Delphi
Especificando el índice activo
Ahora que podemos conocer qué índices tiene una tabla, nos interesa empezar a
trabajar con los mismos. Una de las operaciones básicas con índices en Delphi es
especificar el índice activo. El índice activo determina el orden lógico de los registros
de la tabla. Es necesario tener un índice activo para poder realizar las siguientes operaciones:
• Búsquedas rápidas con FindKey, FindNearest y otros métodos relacionados.
• Activación de rangos.
• Uso de componentes TDBLookupComboBox y TDBLookupListBox con la tabla
asignada indirectamente en su propiedad ListSource.
• Tablas en relación master/detail. La tabla de detalles debe indicar un índice activo.
Esto lo veremos más adelante.
Aunque normalmente en una aplicación de entrada de datos el criterio de ordenación
de una tabla es el mismo para toda la aplicación, el cambio de índice activo es una
operación posible y completamente dinámica. A pesar de que los manuales de Delphi
aconsejan cerrar la tabla antes de cambiar de índice, esta operación puede realizarse
con la tabla abierta sin ningún tipo de problemas, en cualquier momento y con un
costo despreciable.
Existen dos formas de especificar un índice para ordenar una tabla, y ambas son
mutuamente excluyentes. Se puede indicar el nombre de un índice existente en la
propiedad IndexName, o se pueden especificar los campos que forman el índice en la
propiedad IndexFieldNames. Si utilizamos IndexName debemos tener en cuenta que los
índices primarios de Paradox no aparecen en la lista desplegable del editor de la propiedad. Si queremos activar este índice debemos asignar una cadena vacía a la propiedad: este es, por otra parte, su valor por omisión. La propiedad IndexFieldNames,
en cambio, es más fácil de utilizar, pues en la lista desplegable de su editor de propiedad aparecen los campos que forman la clave del índice; generalmente, esto más
informativo que el simple nombre asignado al índice.
En el siguiente ejemplo muestro cómo cambiar en tiempo de ejecución el orden de
una tabla utilizando un combo con la lista de criterios posibles de ordenación. Para el
ejemplo se necesita, por supuesto, una tabla (Table1) y un cuadro de combinación
(ComboBox1) cuya propiedad Style sea igual a csDropDownList. Es necesario definir
manejadores para el evento OnCreate de la tabla y para el evento OnChange del combo:
procedure TForm1.FormCreate(Sender: TObject);
begin
// Llamar a la función del epígrafe anterior
LeerDefiniciones(Table1, ComboBox1.Items);
// Seleccionar el primer elemento del combo
ComboBox1.ItemIndex := 0;
Indices 399
// Simular el cambio de selección en el combo
ComboBox1Change(ComboBox1);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Table1.IndexName := Table1.IndexDefs[ComboBox1.ItemIndex].Name;
end;
Observe que, en vez de asignar directamente a IndexFieldNames los campos almacenados en el texto del combo, se busca el nombre del índice correspondiente en
IndexDefs. El motivo son los índices de expresiones de dBase; recuerde que la función
LeerDefiniciones fue programada para mostrar la expresión que define al índice en
estos casos.
Aunque algunos sistemas SQL permiten definir índices descendentes, como InterBase, la activación de los mismos mediante la propiedad IndexName no funciona correctamente, pues se utiliza siempre el orden ascendente. La única forma
de lograr que los datos aparezcan ordenados descendentemente es utilizar una
consulta TQuery. Sin embargo, las consultas presentan determinados inconvenientes, sobre los que trataremos más adelante en el capítulo 27, sobre comunicación cliente/servidor.
Especificando un orden en tablas SQL
Si estamos trabajando con una tabla perteneciente a una base de datos orientada a
registros (una forma elegante de decir Paradox ó dBase), solamente podemos utilizar
los criterios de ordenación pertenecientes a índices existentes. Si quiero ordenar una
tabla de empleados por sus salarios y no existe el índice correspondiente mis deseos
quedarán insatisfechos. Sin embargo, si la base de datos es una base de datos SQL,
puedo ordenar por la columna o combinación de columnas que se me antoje; es
400 La Cara Oculta de Delphi
responsabilidad del servidor la ordenación según el método más eficiente. Y para
esto se utiliza la propiedad IndexFieldNames. En esta propiedad se puede asignar el
nombre de una columna de la tabla, o una lista de columnas separadas por puntos y
comas. Por supuesto, las columnas deben pertenecer a tipos de datos que permitan la
comparación. El orden utilizado es el ascendente.
Se puede realizar una demostración bastante espectacular de esta técnica si estamos
visualizando una tabla de InterBase o cualquier otro sistema SQL en una rejilla. En el
formulario creamos un menú emergente, de tipo TPopupMenu, con una opción Ordenar. En el evento OnPopup programamos lo siguiente:
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
Ordenar1.Checked :=
Pos(';' + DBGrid1.SelectedField.FieldName + ';',
';' + Table1.IndexFieldNames + ';') <> 0;
end;
De esta forma el comando de menú aparece inicialmente marcado si el nombre del
campo correspondiente a la columna seleccionada se encuentra ya en el criterio de
ordenación. Para añadir o eliminar el campo del criterio de ordenación, creamos un
manejador para el evento OnClick del comando:
procedure TForm1.Ordenar1Click(Sender: TObject);
var
Criterio, Campo: string;
Posicion: Integer;
begin
Criterio := ';' + Table1.IndexFieldNames + ';';
Campo := ';' + DBGrid1.SelectedField.FieldName + ';';
Posicion := Pos(Campo, Criterio);
if Posicion <> 0 then
begin
Delete(Criterio, Posicion, Length(Campo) - 1);
Table1.IndexFieldNames := Copy(Criterio, 2,
Length(Criterio) - 2);
end
else if Criterio = ';;' then
Table1.IndexFieldNames := DBGrid1.SelectedField.FieldName
else
Table1.IndexFieldNames := Table1.IndexFieldNames
+ ';' +DBGrid1.SelectedField.FieldName;
end;
Le propongo al lector que mejore esta técnica añadiendo al menú emergente la posición del campo en la lista de columnas, si es que está ordenado.
Indices 401
Búsqueda basada en índices
En Delphi es muy fácil realizar una búsqueda rápida sobre el índice activo. Al estar
los índices principales de todos los formatos de bases de datos soportados por Delphi implementados mediante árboles balanceados o técnicas equivalentes, es posible
realizar dos tipos de búsqueda: la búsqueda exacta de un valor y la búsqueda inexacta
en la cual, si no encontramos el valor deseado, nos posicionamos en la fila correspondiente al valor más cercano en la secuencia ascendente o descendente de claves
del índice. Estas dos operaciones, a su vez, se pueden realizar en Delphi utilizando
directamente ciertos métodos simples o descomponiendo estos métodos en secuencias de llamadas más elementales; por supuesto, esta segunda técnica es más complicada. Comenzaremos por la forma más sencilla y directa, para luego explicar el por
qué de la existencia de la segunda.
Para realizar una búsqueda exacta sobre un índice activo se utiliza el método FindKey.
Su prototipo es:
function TTable.FindKey(const Valores: array of const): Boolean;
El parámetro Valores corresponde a la clave que deseamos buscar. Como la clave
puede ser compuesta y estar formada por campos de distintos tipos, se utiliza un
vector de valores de tipo arbitrario para contenerla. Ya hemos visto los parámetros
de tipo array of const en el capítulo 12, que trata sobre los tipos de datos de Delphi.
Si FindKey encuentra la clave especificada, la tabla a la cual se le aplica el método cambia su fila activa a la fila que contiene el valor. En ese caso, FindKey devuelve True. Si
la clave no se encuentra, devuelve False y no se cambia la fila activa.
Por el contrario, el método FindNearest no devuelve ningún valor, porque siempre
encuentra una fila:
procedure TTable.FindNearest(const Valores: array of const);
El propósito de FindNearest es encontrar el registro cuyo valor de la clave coincide
con el valor pasado como parámetro. Sin embargo, si la clave no se encuentra en la
tabla, el cursor se mueve a la primera fila cuyo valor es superior a la clave especificada. De este modo, una inserción en ese punto dejaría espacio para un registro cuya
clave fuera la suministrada al método.
La aplicación más evidente del método FindNearest es la búsqueda incremental. Supongamos que tenemos una tabla ordenada por una clave alfanumérica y que la estamos visualizando en una rejilla. Ahora colocamos en el formulario un cuadro de
edición, de tipo TEdit, y hacemos lo siguiente en respuesta al evento OnChange:
402 La Cara Oculta de Delphi
procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.FindNearest([Edit1.Text]);
end;
Se puede evitar el uso del cuadro de edición si la rejilla está en modo de sólo lectura:
Propiedad
ReadOnly
Options
Valor
True
Eliminar dgEditing
Necesitamos también declarar una variable de cadena para almacenar la clave de
búsqueda actual; ésta se declara en la sección private de la declaración de la clase del
formulario:
private
Clave: string;
// Se inicializa automáticamente a cadena vacía
Después hay que interceptar el evento OnKeyPress de la rejilla:
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key > ' ' then
AppendStr(Clave, Key)
else if Key = #8 then
Delete(Clave, Length(Clave), 1)
else
Exit;
Key := #0;
Table1.FindNearest([Clave]);
end;
El inconveniente principal de esta técnica es que no sabemos en un momento determinado qué clave hemos tecleado exactamente, pero se puede utilizar un texto
estático, TLabel, para paliar este problema.
Indices 403
Implementación de referencias mediante FindKey
Como sabemos, los campos de referencia tienen una implementación directa y sencilla a partir de Delphi 2, pero no contamos con este recurso en Delphi 1. Una de las
aplicaciones de los métodos de búsquedas sobre el índice activo es precisamente
suplir la falta de este tipo de campos en la versión de 16 bits.
Volvemos al ejemplo de los pedidos de la base de datos dbdemos. La tabla items representa las cantidades vendidas de un producto en determinado pedido. En cada fila de
esta tabla se almacena únicamente el código del producto, PartNo, por lo cual para
conocer el precio por unidad del mismo hay que realizar una búsqueda en la tabla de
artículos, parts. Se puede crear un campo calculado, llamémosle PrecioUnitario, sobre la
tabla items, de tipo Float, y calcular el valor del mismo durante el evento OnCalcFields
del siguiente modo:
procedure TForm1.tbItemsCalcFields(Sender: TDataSet);
begin
if tbParts.FindKey([tbItemsPartNo.Value]) then
tbItemsPrecioUnitario.Value := tbPartsListPrice.Value;
end;
En Delphi 2, el nuevo campo hubiera sido de tipo Currency, pero desgraciadamente
este tipo no existe en la versión anterior. Hemos supuesto que están creados ya los
campos para cada una de las dos tablas utilizadas.
Este código tiene un par de detalles importantes para asimilar. En primer lugar, la
tabla parts tiene que tener al índice primario, definido sobre el código de producto,
como índice activo. En segundo lugar, este algoritmo cambia la posición de la fila
activa de la tabla de artículos. Es por ello que no debe utilizarse esta misma tabla para
visualizar los artículos, pues el usuario verá como el cursor de la misma se mueve
desenfrenadamente de vez en cuando. En realidad, el algoritmo utilizado por Delphi
para los campos de referencia utiliza la función Lookup, de más fácil manejo, que
veremos un poco más adelante.
Búsquedas utilizando SetKey
Ahora vamos a descomponer la acción de los métodos FindKey y FindNearest en llamadas a métodos de más bajo nivel. El método fundamental de esta técnica es SetKey:
procedure TTable.SetKey;
El objetivo de este método es muy simple: colocar a la tabla en el estado especial
dsSetKey. En este estado se permiten asignaciones a los campos de la tabla; estas asignaciones se interpretan como asignaciones a una especie de buffer de búsqueda. Por
404 La Cara Oculta de Delphi
supuesto, estas asignaciones deben realizarse sobre los campos que componen la
clave del índice activo. Una vez que los valores deseados se encuentran en el buffer de
búsqueda, podemos utilizar uno de los métodos siguientes para localizar un registro:
function TTable.GotoKey: Boolean;
procedure TTable.GotoNearest;
La correspondencia de estos métodos con FindKey y FindNearest es evidente. GotoKey
intentará localizar una fila que corresponda exactamente a la clave especificada, y
GotoNearest localizará siempre la más cercana. Si deseamos salir del estado dsSetKey sin
realizar búsqueda alguna, podemos utilizar el método Cancel para regresar al estado
normal: el estado dsBrowse.
Experimentando con SetKey
Para comprender mejor el uso de SetKey le propongo un pequeño experimento, no
muy útil como técnica de interfaz, pero que aclara el sentido de este método. Para el
experimento necesitamos un formulario con una rejilla de exploración. Supongamos
además que la tabla visualizada es la tabla de empleados del alias dbdemos, la tabla
employee.db. Los objetos protagonistas son:
Form1: TForm
Table1: TTable
DatabaseName
TableName
IndexName
DataSource1: TDataSource
DataSet
DBGrid1: TDbGrid
DataSource
Button1: TButton
El formulario principal
La tabla de empleados
dbdemos
employee.db
ByName
Fuente de datos para Table1
Table1
La rejilla de exploración
DataSource1
Un botón para invocar un diálogo de búsqueda
El índice ByName utilizado en la tabla employee está definido sobre las columnas
LastName, el apellido, y FirstName, el nombre del empleado. El botón que hemos
colocado permitirá invocar a un cuadro de búsqueda. En este segundo formulario
colocamos los siguientes objetos:
Form2: TForm
DbEdit1: TDbEdit
DbEdit2: TDbEdit
El formulario de búsqueda
Para leer el nombre del empleado a buscar
DataSource Form1.DataSource1
DataField FirstName
Para leer el apellido del empleado
Indices 405
Button1: TBitBtn
Button2: TBitBtn
DataSource Form1.DataSource1
DataField LastName
Botón para aceptar
Kind bkOk
Botón para cancelar
Kind bkCancel
Observe que los cuadros de edición están trabajando directamente con la misma
tabla que la rejilla del primer formulario; ésta es la parte fundamental del experimento. En Delphi 1 esto cuesta un poco más, porque las asignaciones a las propiedades DataSource del segundo formulario hay que hacerlas entonces en tiempo de ejecución. A partir de Delphi 2 basta con arrastrar los campos desde el Editor de Campos
de la tabla del formulario principal.
El único código que necesitamos en este ejemplo se produce en respuesta a la pulsación del botón del primer formulario:
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.SetKey;
if Form2.ShowModal = mrOk then
Table1.GotoNearest
else
Table1.Cancel;
end;
Cuando se pulsa el botón la tabla se pone en el estado dsSetKey y se invoca al cuadro
de búsqueda que hemos creado. Si mueve este cuadro y observa la rejilla verá como
desaparecen las filas de la misma temporalmente. Ahora, cualquier cosa que tecleemos en los cuadros de edición del diálogo será considerada como una asignación a
un campo de la tabla, aunque en realidad se trata de una asignación a un buffer de
búsqueda: mientras tecleamos podemos ver también el efecto sobre el contenido de
la rejilla. Cuando por fin cerramos el diálogo cancelamos la búsqueda o la disparamos, en dependencia del botón utilizado para terminar el diálogo, y entonces la tabla
regresa a la normalidad. Repito, no es una técnica para incluir directamente en un
programa, pero es interesante para comprender el mecanismo de búsquedas mediante el índice activo.
¿Por qué existe SetKey?
Además de cualquier motivo filosófico o espiritual que puedan alegar ciertos libros
de Delphi que circulan por ahí, SetKey existe porque existen los índices de expresiones de dBase; de no ser por esta razón, SetKey pudiera quedar como un método interno de la implementación de la VCL. En este tipo de índices, FindKey y FindNearest
se niegan rotundamente a trabajar: el primer paso de estos métodos es “repartir” los
406 La Cara Oculta de Delphi
valores de lista pasada como parámetro entre los campos que forman el índice. Pero
en un índice de expresiones no es sencillo determinar cuáles son los campos que
forman el índice; en realidad es algo que no se intenta en absoluto.
Por ejemplo, tomemos una tabla que tenga los campos Nombre y Apellidos, y cuyo
índice activo sea un índice basado en la expresión Nombre + Apellidos. Hay dos campos involucrados en el índice, y un programador inocente puede verse tentado a
programar algo así:
Table1.FindKey(['Howard', 'Lovecraft']); // No funciona
¿Cuál es el valor que debe tomarse como nombre y cuál debe tomarse como apellido? Delphi no lo sabe. Y tanto FindKey como FindNearest están programados para
lanzar una excepción si el índice activo es un índice de expresiones. La técnica correcta para realizar una búsqueda sobre este tipo de índices es la siguiente:
Table1.SetKey;
Table1['Nombre'] := 'Howard';
Table1['Apellidos'] := 'Lovecraft';
Table1.GotoNearest;
Observe que el último método de la secuencia es GotoNearest, en vez de GotoKey. La
causa es la misma: para determinar si encontramos la fila buscada tendríamos que ser
capaces de descomponer la expresión del índice en campos, y esto puede no ser posible, en el caso general.
Existe una variante de SetKey, el método EditKey, que es útil solamente cuando el
índice activo, o el criterio de ordenación, incluye varias columnas. EditKey coloca la
tabla en el estado dsSetKey, pero no borra las asignaciones anteriores en el buffer de
búsqueda. De este modo, después de efectuar la búsqueda del ejemplo anterior podemos ejecutar las siguientes instrucciones para buscar a un tal Howard Duncan:
Table1.EditKey;
Table1['Apellidos'] := 'Duncan';
Table1.GotoNearest;
Rangos: desde el Alfa a la Omega
Un rango en Delphi es una restricción de las filas visibles de una tabla, mediante la
cual se muestran solamente las filas en las cuales los valores de ciertas columnas se
encuentran entre dos valores dados. La implementación de este recurso se basa en
los índices, por lo cual para poder establecer un rango sobre una o varias columnas
debe existir un índice sobre las mismas y estar activo. No podemos definir rangos
simultáneamente sobre dos índices diferentes; si tenemos un índice sobre nombres
de empleados y otro sobre salarios, no podemos utilizar rangos para pedir las perso-
Indices 407
nas cuyos nombres comienzan con la letra A y que ganen entre tres y cinco millones
de pesetas anuales. Eso sí, podemos establecer una de estas restricciones y luego
utilizar alguna otra técnica, como los filtros que veremos más adelante, para volver a
limitar el resultado.
El índice sobre el cual se define un rango puede ser un índice compuesto, definido
sobre varias columnas. Sin embargo, la semántica de la aplicación de rangos sobre
índices compuestos es bastante confusa e induce fácilmente a errores. Lo digo por
experiencia personal, pues en la edición anterior de este libro di una explicación
equivocada de cómo funciona esta operación. El ejemplo concreto que utilicé fue
éste: tenemos una tabla Table1 que está ordenada por un índice compuesto por el
nombre y el apellido. ¿Qué hace la siguiente instrucción?
Table1.SetRange(['M', 'F'], ['Mzzzz', 'Fzzzz']);
Al parecer, debe limitar el conjunto de registros activos a aquellas personas cuyo
nombre comienza con “M” y su apellido con “F”. ¡No! Ahora aparecen, además de
María Filiberta, casi todas las personas cuyo nombre comienza con “M” ... sin importar el apellido, al parecer. El problema es que uno espera los registros que satisfacen la condición:
'M' <= Nombre and Nombre <= 'Mzzzz' and
'F' <= Apellidos and Apellidos <= 'Fzzzz'
Pero lo que Delphi genera es lo siguiente:
(('M' = Nombre and 'F' <= Apellidos) or 'M' < Nombre) and
((Nombre = 'Mzzzz' and Apellidos <= 'Fzzzz') or Nombre <= 'Mzzzz')
Es decir, el criterio sobre el apellido solamente se aplica en los extremos del rango definido por el criterio establecido sobre el nombre. La siguiente imagen muestra la situación:
Esto es lo que esperamos...
.. y esto es lo que obtenemos...
408 La Cara Oculta de Delphi
Los filtros, que serán estudiados en el siguiente capítulo, nos permiten restringir
el conjunto de registros activos utilizando criterios independientes para cada
campo.
Lo mismo que sucede con las búsquedas sobre índices activos, sucede con los rangos: existen métodos de alto nivel y de bajo nivel, y la razón es la misma. La forma
más fácil de establecer restricciones de rango es utilizar el método SetRange, que ya
hemos visto en acción.
procedure TTable.SetRange(const ValsMin, ValsMax: array of const);
La aplicación de este método provoca la actualización inmediata de la tabla. El método inverso a la aplicación de un rango es la cancelación del mismo mediante una
llamada a CancelRange:
procedure TTable.CancelRange;
En alguna que otra ocasión puede ser útil la propiedad KeyExclusive. Si esta propiedad
tiene el valor True, los extremos del rango son descartados; normalmente la propiedad vale False.
El ejemplo de rangos de casi todos los libros
Si el índice activo de una tabla está definido sobre una columna alfanumérica, se
puede realizar una sencilla demostración de la técnica de rangos. Reconozco, no
obstante, que no es un ejemplo muy original, pues casi todos los libros de Delphi
traen alguna variante del mismo, pero no he encontrado todavía algo mejor.
Para esta aplicación utilizaremos un formulario típico de exploración con una rejilla,
mediante el cual visualizaremos una tabla ordenada por alguna columna de tipo cadena. He elegido la tabla de clientes de dbdemos, customers.db, que tiene un índice ByCompany para ordenar por nombre de compañía:
Form1: TForm
Table1: TTable
DatabaseName
TableName
IndexName
DataSource1: TDataSource
DataSet
DBGrid1: TDbGrid
DataSource
El formulario principal
La tabla de clientes
dbdemos
customer.db
ByCompany
Fuente de datos para Table1
Table1
La rejilla de exploración
DataSource1
Indices 409
Hasta aquí, lo típico. Ahora necesitamos añadir un nuevo control de tipo TabControl,
de la página Win32 de la Paleta, para situar un conjunto de pestañas debajo de la
rejilla. En este componente modificamos la propiedad Tabs, que determina el conjunto de pestañas del control. Esta propiedad, que es una lista de cadenas de caracteres, debe tener 27 líneas. La primera línea debe contener un asterisco, o la palabra Todos, o lo que más le apetezca. Las restantes 26 deben corresponder a las 26 letras del
alfabeto (no conozco a nadie que su nombre comience con Ñ, al menos en España):
la primera será una A, la segunda una B, y así sucesivamente. Después asigne las siguientes propiedades:
Propiedad
Align
TabPosition
TabWidth
Height
Valor
alBottom
tpBottom
18
24
Cuando tenga lista la interfaz de usuario, realice una doble pulsación sobre el control
para interceptar su evento OnChange:
procedure TForm1.TabControl1Change(Sender: TObject);
var
Letra: string;
begin
Letra := TabControl1.Tabs[TabControl1.TabIndex];
if TabControl1.TabIndex = 0 then
// Si es la pestaña con el asterisco …
// … mostramos todas las filas.
Table1.CancelRange
else
// Activamos el rango correspondiente
Table1.SetRange([Letra], [Letra + 'zzz']);
// Actualizamos los controles asociados
Table1.Refresh;
end;
410 La Cara Oculta de Delphi
Aunque la actualización de los controles asociados a la tabla ocurre automáticamente
en la mayoría de las situaciones, hay casos en los cuales es imprescindible la llamada
al método Refresh.
Más problemas con los índices de dBase
dBase nos sigue dando problemas con sus famosos índices de expresiones; nuevamente tenemos dificultades con la asignación automática de valores a campos en el
método SetRange. Para solucionar este inconveniente, hay que descomponer la llamada a SetRange en las funciones de más bajo nivel SetRangeStart, SetRangeEnd y
ApplyRange:
procedure TTable.SetRangeStart;
procedure TTable.SetRangeEnd;
procedure TTable.ApplyRange;
Los métodos SetRangeStart y SetRangeEnd indican que las asignaciones a campos que
se produzcan a continuación especifican, en realidad, los valores mínimo y máximo
del rango; el rango se activa al llamar al método ApplyRange. El ejemplo del epígrafe
anterior puede escribirse de la siguiente forma mediante estos métodos:
Table1.SetRangeStart;
Table1['Company'] := Letra;
Table1.SetRangeEnd;
Table1['Company'] := Letra + 'zzz';
Table1.ApplyRange;
Como es lógico, si el índice activo para la tabla o el criterio de ordenación establecido
en IndexFieldNames contemplan varias columnas, hay que realizar varias asignaciones
después de SetRangeStart y SetRangeEnd, una por cada columna del índice o del criterio. Por ejemplo, si Table1 se refiere a la tabla employees.db, y está activo el índice
ByName, definido sobre los apellidos y el nombre de los empleados, es posible establecer un rango compuesto con los empleados del siguiente modo:
Table1.SetRangeStart;
Table1['LastName'] := 'A';
Table1['FirstName'] := 'A';
Table1.SetRangeEnd;
Table1['LastName'] := 'Azzz';
Table1['FirstName'] := 'Azzz';
Table1.ApplyRange;
El ejemplo anterior sería, precisamente, lo que tendríamos que hacer si la tabla en
cuestión estuviese en formato dbf y tuviéramos como índice activo un índice de expresiones definido por la concatenación del apellido y del nombre. Recuerde, no
obstante, que este rango compuesto no afecta de forma independiente a los dos
campos involucrados, y que desde un punto de vista práctico tiene poca utilidad.
Indices 411
Del mismo modo que contamos con los métodos SetKey y EditKey para la búsqueda
por índices, tenemos también los métodos EditRangeStart y EditRangeEnd, como variantes de SetRangeStart y SetRangeEnd cuando el índice está definido sobre varias
columnas. Estos dos nuevos métodos permiten la modificación del buffer que contiene los valores extremos del rango sin borrar los valores almacenados con anterioridad. En el ejemplo anterior, si quisiéramos modificar el rango de modo que incluya
solamente a los apellidos que comienzan con la letra B, dejando intacta la restricción
de los nombres que empiezan con A, podríamos utilizar el siguiente código:
Table1.EditRangeStart;
Table1['LastName'] := 'B';
Table1.EditRangeEnd;
Table1['LastName'] := 'Bzzz';
Table1.ApplyRange;
Cómo crear un índice temporal
Para añadir un nuevo índice a los existentes desde un programa escrito en Delphi,
hay que utilizar el método AddIndex, del componente TTable. Los parámetros de este
método son similares a los del método Add de la clase TIndexDefs:
procedure TTable.AddIndex(const Nombre, Definicion: string;
Opciones: TIndexOptions);
La Definicion, en la mayoría de los casos, es la lista de campos separados por puntos y
comas. Pero si la tabla está en formato dBase, podemos utilizar la opción ixExpression
en el conjunto de opciones, y especificar una expresión en el parámetro Definicion:
TablaDBase.AddIndex('PorNombre', 'NOMBRE+APELLIDOS',
[ixExpression]);
Para eliminar el índice recién creado necesitamos el método DeleteIndex. Para que este
procedimiento pueda cumplir su tarea es necesario que la tabla esté abierta en modo
exclusivo. Esta es la declaración de DeleteIndex:
procedure TTable.DeleteIndex(const Nombre: string);
Aunque AddIndex y DeleteIndex funcionan para tablas pertenecientes a bases de
datos SQL, es preferible utilizar instrucciones SQL lanzadas desde componentes
TQuery para crear índices desde un programa. Vea el capítulo 26 para más información.
Capítulo
20
Métodos de búsqueda
E
estudiamos la búsqueda de valores utilizando
índices y el uso de rangos como forma de restringir las filas accesibles de una
tabla. En este capítulo estudiaremos los restantes métodos de búsqueda y
filtrado que ofrece Delphi. La mayor parte de estos métodos han sido introducidos
con Delphi 2, aunque la funcionalidad ya estaba disponible a nivel del BDE para 16
bits. Comenzaremos con los filtros, un método de especificación de subconjuntos de
datos, y luego veremos métodos de búsqueda directa similares en cierta forma a
FindKey y FindNearest, pero más generales.
N EL CAPÍTULO ANTERIOR
Filtros
Los filtros nos permiten limitar las filas visibles de un conjunto de datos mediante
una condición arbitraria establecida por el programador. De cierta manera, son similares a los rangos, pero ofrecen mayor flexibilidad y generalidad, pues no están limitados a condiciones sobre las columnas del índice activo. Cuando se aplican a tablas
locales, son menos eficientes, pues necesitan ser evaluados para cada fila del conjunto
de datos original. En cambio, rangos y filtros se implementan en cliente/servidor por
medio de mecanismos similares, al menos cuando hablamos de filtros definidos por
expresiones, y en el caso típico nos ofrecen la misma velocidad.
En Delphi 1, donde no existían filtros, había que utilizar consultas SQL para simular
este recurso. En efecto, una tabla filtrada es equivalente a una consulta sobre la
misma tabla con la condición del filtro situada en la cláusula where. No obstante, en
la mayoría de los casos el uso de los filtros es preferible al uso de consultas, por su
mayor dinamismo y por evitar los costos añadidos a la creación de cursores.
Es curioso, sin embargo, que el BDE de 16 bits de Delphi 1 permitía la implementación de filtros, a bajo nivel, por supuesto. De todos modos, si es necesario utilizar
filtros en Delphi 1, recomiendo el uso de la biblioteca de controles InfoPower, de
Woll2Woll, pues la programación de filtros con el BDE es bastante engorrosa.
414 La Cara Oculta de Delphi
Existen dos formas principales de establecer un filtro en Delphi. La más general
consiste en utilizar el evento OnFilterRecord; de esta técnica hablaremos más adelante.
La otra forma, más fácil, es hacer uso de la propiedad Filter. Estas son las propiedades relacionadas con el uso de filtros:
Propiedad
Filter: string
Filtered: Boolean
FilterOptions: TFilterOptions
Significado
Contiene la condición lógica de filtrado
Indica si el filtro está “activo” o “latente”
Opciones de filtrado; las posibles opciones son
foCaseInsensitive y foNoPartialCompare.
La propiedad Filtered, de tipo lógico, determina si tiene lugar la selección según el
filtro o no; más adelante veremos cómo podemos aprovechar el filtro incluso cuando
no está activo.
La condición de selección se asigna, como una cadena de caracteres, en la propiedad
Filter. La sintaxis de las expresiones que podemos asignar en esta propiedad es bastante sencilla; básicamente, se reduce a comparaciones entre campos y constantes,
enlazadas por operadores and, or y not. Por ejemplo, las siguientes expresiones son
válidas:
Pais = 'Siam'
(Provincia <> '') or (UltimaFactura > '4/07/96')
Salario >= 30000 and Salario <= 100000
Si el nombre del campo contiene espacios o caracteres especiales, hay que encerrar el
nombre del campo entre corchetes:
[Año] = 1776
Cuando se trata de tablas de Paradox y dBase, siempre hay que comparar el valor del
campo con una constante; no se pueden comparar los valores de dos campos entre
sí. En contraste, esta limitación no existe cuando se utilizan tablas pertenecientes a
bases de datos cliente/servidor.
Esto no lo dice la documentación…
De no ser por esos “detalles” que se le olvidan a los escritores de manuales, mal lo
pasaríamos los escritores de libros. Con el tema de los filtros, al equipo de documentación de Delphi se le quedaron un par de trucos en el tintero. El primero de
ellos tiene que ver con la posibilidad de utilizar algo parecido al operador is null de
SQL en una expresión de filtro. Por ejemplo, si queremos filtrar de la tabla de clien-
Métodos de búsqueda 415
tes, customer.db, solamente aquellas filas que tengan una segunda línea de dirección no
nula, la columna Addr2, la expresión apropiada es:
Addr2 <> NULL
Con la constante Null solamente podemos comparar en busca de igualdades y desigualdades. Si, por el contrario, queremos los clientes con la segunda línea de dirección no nula, con toda naturalidad utilizamos esta otra expresión:
Addr2 = NULL
Recuerde que null no es exactamente lo mismo que una cadena vacía, aunque en
Paradox se represente de esta manera.
El segundo de los trucos no documentados está relacionado con las búsquedas parciales. Por omisión, Delphi activa las búsquedas parciales dentro de las tablas cuando
no se especifica la opción foNoPartialCompare dentro de la propiedad FilterOptions.
Pero si asignamos la siguiente expresión a la propiedad Filter de la tabla de clientes,
no logramos ninguna fila:
Company = 'A'
Esto fue lo que se les olvidó aclarar: hay que terminar la constante de cadena con un
asterisco. La expresión correcta es la siguiente:
Company = 'A*'
De esta manera obtenemos todas las compañías cuyos nombres comienzan con la
letra A. Sin embargo, por razones que explicaré en el capítulo 27, que se ocupa de la
comunicación cliente/servidor, prefiero sustituir la expresión anterior por esta otra:
Company >= 'A' and Company < 'B'
Un ejemplo con filtros rápidos
Es fácil diseñar un mecanismo general para la aplicación de filtros por el usuario de
una rejilla de datos. La clave del asunto consiste en restringir el conjunto de datos de
acuerdo al valor de la celda seleccionada en la rejilla. Si tenemos seleccionada, en la
columna Provincia, una celda con el valor Madrid, podemos seleccionar todos los registros cuyo valor para esa columna sea igual o diferente de Madrid. Si está seleccionada la columna Edad, en una celda con el valor 30, se puede restringir la tabla a
las filas con valores iguales, mayores o menores que este valor. Pero también queremos que estas restricciones sean acumulativas. Esto significa que después de limitar la
visualización a los clientes de Madrid, podamos entonces seleccionar los clientes con
416 La Cara Oculta de Delphi
más de 30 años que viven en Madrid. Y necesitamos poder eliminar todos las condiciones de filtrado.
Por lo tanto, comenzamos con la ficha clásica de consulta: una rejilla de datos y una
barra de navegación conectada a una tabla simple; si quiere experimentar, le recomiendo conectar la rejilla a la tabla customer del alias dbdemos, que tiene columnas de
varios tipos diferentes. A esta ficha básica le añadimos un menú emergente,
PopupMenu1, que se conecta a la propiedad PopupMenu de la rejilla; basta con esto para
que el menú se despliegue al pulsar el botón derecho del ratón sobre la rejilla.
Para el menú desplegable especificamos las siguientes opciones:
Comando de menú
Igual a (=)
Distinto de (<>)
Mayor o igual (>=)
Menor o igual (<=)
Activar filtro
Eliminar filtro
Nombre del objeto de menú
miIgual
miDistinto
miMayorIgual
miMenorIgual
miActivarFiltro
miEliminarFiltro
Observe que he utilizado las relaciones mayor o igual y menor igual en lugar de las
comparaciones estrictas; la razón es que las condiciones individuales se van a conectar entre sí mediante conjunciones lógicas, el operador and, y las comparaciones estrictas pueden lograrse mediante una combinación de las presentes. De todos modos,
es algo trivial aumentar el menú y el código correspondiente con estas relaciones
estrictas.
Ahora debemos crear un manejador de evento compartido por las cuatro primeras
opciones del menú:
Métodos de búsqueda 417
procedure TForm1.Filtrar(Sender: TObject);
const
TiposConComillas: set of TFieldType
= [ftString, ftDate, ftTime, ftDateTime];
var
Campo, Operador, Valor: string;
I: Integer;
begin
if Sender = miIgual then
Operador := '='
else if Sender = miMayorIgual then
Operador := '>='
else if Sender = miMenorIgual then
Operador := '<='
else
Operador := '<>';
// Extraer el nombre del campo
Campo := DBGrid1.SelectedField.FieldName;
// Extraer y dar formato al valor seleccionado
if DBGrid1.SelectedField.DataType in TiposConComillas then
Valor := QuotedStr(DBGrid1.SelectedField.AsString)
else
begin
Valor := DBGrid1.SelectedField.AsString;
for I := 1 to Length(Valor) do
if Valor[I] = DecimalSeparator then Valor[I] := '.';
end;
// Combinar la nueva condición con las anteriores
if Table1.Filter = '' then
Table1.Filter := Format('[%s] %s %s',
[Campo, Operador, Valor])
else
Table1.Filter := Format('%s AND [%s] %s %s',
[Table1.Filter, Campo, Operador, Valor]);
// Activar directamente el filtro
miActivarFiltro.Checked := True;
Table1.Filtered := True;
Table1.Refresh;
end;
El nombre del campo ha sido encerrado automáticamente entre corchetes, para evitar sorpresas con espacios, acentos y eñes. La parte más trabajosa del método es la
que tiene que ver con el formato del valor. Si la columna Company tiene el valor
Marteens’ Diving Academy, un filtro por igualdad sobre este valor tendría el siguiente
aspecto:
Company = 'Marteens'' Diving Academy'
Tome nota de los apóstrofes repetidos dentro de la constante de cadena; esta es una
convención léxica de Pascal. Si, por el contrario, creamos un filtro sobre salarios, no
son necesarios los apóstrofes para encerrar el valor:
Salary = 100000
418 La Cara Oculta de Delphi
La función QuotedStr nos ayuda a dar formato a una cadena de caracteres, y está definida en la unidad SysUtils. También hay que tener cuidado con el formato de los
campos numéricos con decimales. Nuestro separador de decimales es la coma,
mientras que Pascal espera un punto.
En Delphi 4, todos estos problemas se resuelven fácilmente, pues se pueden encerrar entre comillas todos los valores constantes, incluidos los numéricos. De
este modo, para todos los tipos de datos le daríamos formato a la constante mediante la función QuotedStr.
En el método que añade la nueva condición al filtro, se ha activado de paso el filtro,
estableciendo la propiedad Filtered de la tabla a True; de esta forma se obtiene inmediatamente una idea de lo que estamos haciendo. Independientemente de lo anterior,
es conveniente tener una opción para activar y desactivar manualmente el filtro, y de
esto se encarga el comando de menú Activar filtro:
procedure TForm1.miActivarFiltroClick(Sender: TObject);
begin
miActivarFiltro.Checked := not miActivarFiltro.Checked;
// Activar o desactivar en dependencia …
// … del estado de la opción del menú.
Table1.Filtered := miActivarFiltro.Checked;
Table1.Refresh;
end;
Por último, se requiere un comando para eliminar todas las condiciones establecidas:
procedure TForm1.miEliminarFiltroClick(Sender: TObject);
begin
miActivarFiltro.Checked := False;
Table1.Filtered := False;
Table1.Filter := '';
Table1.Refresh;
end;
El evento OnFilterRecord
Más posibilidades ofrece la intercepción del evento OnFilterRecord. Este es el evento
típico que en su encabezamiento tiene un parámetro lógico pasado por referencia,
para que aceptemos o rechacemos el registro actual:
procedure TForm1.Table1FilterRecord(Sender: TDataSet;
var Accept: Boolean);
El parámetro Accept trae por omisión el valor True; solamente si queremos rechazar
un registro necesitamos asignarle False a este parámetro. El algoritmo de decisión que
empleemos, por otra parte, puede ser totalmente arbitrario; debemos recordar, sin
Métodos de búsqueda 419
embargo, que este evento se disparará para cada fila de la tabla original, por lo cual el
algoritmo de filtrado debe ser lo más breve y eficiente posible.
¿Cómo podemos aprovechar este evento? En primer lugar, se puede aprovechar este
evento para utilizar relaciones que no sean simples comparaciones. Por ejemplo,
quiero seleccionar solamente las compañías que pertenezcan al grupo multinacional
Marteens (la fantasía no tributa todavía a Hacienda, ¿no?). Una posible solución es
utilizar este manejador de eventos:
procedure TForm1.Table1FilterRecord(Sender: TDataSet;
var Accept: Boolean);
begin
Accept := Pos('MARTEENS', UpperCase(Sender['Company'])) <> 0;
end;
La función UpperCase lleva una cadena a mayúsculas y Pos busca un subcadena dentro
de otra. Este otro ejemplo compara entre sí los prefijos de los números de teléfono y
de fax:
procedure TForm1.Table1FilterRecord(Sender: TDataSet;
var Accept: Boolean);
begin
Accept := Copy(Sender['Phone'], 1, 3) <>
Copy(Sender['Fax'], 1, 3);
// ¡Estos tienen el teléfono y el fax en distintas ciudades!
end;
También se puede aprovechar el filtro para comparar entre sí dos campos de una
tabla Paradox y dBase.
Medite bien antes de decidirse a utilizar OnFilterRecord. Tenga por seguro que este
filtro se aplica en el cliente, lo cual implica que la aplicación debe bajarse a través
de la red incluso los registros que no satisfacen al filtro. Todo depende, sin embargo, del nivel de selectividad que esperamos de la expresión.
Localización y búsqueda
Si el uso de filtros es similar al uso de rangos, en cierto sentido, los métodos Locate y
Lookup amplían las posibilidades de los métodos de búsqueda con índices. El primero de estos dos métodos localiza la primera fila de una tabla que tenga cierto valor
almacenado en una columna, sin importar si existe o no un índice sobre dicha columna. La declaración de este método es:
function TDataSet.Locate(const Columnas: string;
const Valores: Variant; Opciones: TLocateOptions): Boolean;
420 La Cara Oculta de Delphi
En el primer parámetro se pasan una lista de nombres de columnas; el formato de
esta lista es similar al que hemos encontrado en la propiedad IndexFieldNames: las
columnas se separan entre sí por puntos y comas. Para cada columna especificada
hay que suministrar un valor. Si se busca por una sola columna, necesitamos un solo
valor, el cual puede pasarse directamente, por ser el segundo parámetro de tipo Variant. Si se especifican dos o más columnas, tenemos que pasar una matriz variante;
en breve veremos ejemplos de estas situaciones. Por último, el conjunto de opciones
del tercer parámetro puede incluir las siguientes:
Opción
Propósito
loCaseInsensitive Ignorar mayúsculas y minúsculas
loPartialKey
Permitir búsquedas parciales en columnas alfanuméricas
Cuando Locate puede encontrar una fila con los valores deseados en las columnas
apropiadas, devuelve True como resultado, y cambia la fila activa de la tabla. Si, por el
contrario, no se localiza una fila con tales características, las función devuelve False y
no se altera la posición del cursor sobre la tabla. El algoritmo de búsqueda implementado para Locate es capaz de aprovechar los índices existentes. Si el conjunto de
columnas no puede aprovechar un índice, Locate realiza la búsqueda mediante filtros.
Esto es lo que dice la documentación de Inprise/Borland; en el capítulo 27 veremos
cómo se implementan realmente estas operaciones en bases de datos SQL.
Ahora veamos un par de ejemplos sencillos de traspaso de parámetros con Locate. El
uso más elemental de Locate es la localización de una fila dado el valor de una de sus
columnas. Digamos:
if not tbClientes.Locate('CustNo', tbPedidos['CustNo'], []) then
ShowMessage('Se nos ha extraviado un cliente en el bosque…');
En este caso, el valor a buscar ha sido pasado directamente como un valor variante,
pero podíamos haber utilizado un entero con el mismo éxito, suponiendo que el
campo Código es de tipo numérico:
if not tbClientes.Locate('CustNo', 007, []) then
ShowMessage('… o se lo ha tragado la tierra');
Se puede aprovechar este algoritmo para crear un campo calculado sobre la tabla de
clientes, que diga si el cliente ha realizado compras o no. Suponiendo que el nuevo
campo, HaComprado, es de tipo Boolean, necesitamos la siguiente respuesta al evento
OnCalcFields de la tabla TablaClientes:
procedure TForm1.tbClientesCalcFields(DataSet: TDataSet);
begin
tbClientes['HaComprado'] := tbPedidos.Locate(
'CustNo', tbClientes['CustNo'], []);
end;
Métodos de búsqueda 421
Consideremos ahora que queremos localizar un empleado, dados el nombre y el apellido. La instrucción necesaria es la siguiente:
tbEmpleados.Locate('LastName;FirstName',
VarArrayOf([Apellido, Nombre]), []);
En primer término, hay que mencionar los nombres de ambas columnas en el primer
parámetro, separadas por punto y coma. Después, hay que pasar los dos valores correspondientes como una matriz variante; la función VarArrayOf es útil para esta
última misión. En este ejemplo, las variables Apellido y Nombre son ambas de tipo
string, pero pueden pertenecer a tipos diferentes, en el caso más general.
Cuando la búsqueda se realiza con el objetivo de buscar un valor, se puede aprovechar el método Lookup:
function TDataSet.Lookup(const Columnas: string;
const Valores: Variant; const ColResultados: string): Variant;
Lookup realiza primero un Locate, utilizando los dos primeros parámetros. Si no se
puede encontrar la fila correspondiente, Lookup devuelve el valor variante especial
Null; por supuesto, la fila activa no cambia. Por el contrario, si se localiza la fila adecuada, la función extrae los valores de las columnas especificadas en el tercer parámetro. Si se ha especificado una sola columna, ese valor se devuelve en forma de
variante; si se especificaron varias columnas, se devuelve una matriz variante formada
a partir de estos valores. A diferencia de Locate, en este caso tampoco se cambia la fila
activa original de la tabla al terminar la ejecución del método.
Por ejemplo, la siguiente función localiza el nombre de un cliente, dado su código:
function TDataModule1.ObtenerNombre(Codigo: Integer): string;
begin
Result := VarToStr(tbClientes.Lookup('Código', Codigo,
'Compañía'));
end;
He utilizado la función VarToStr para garantizar la obtención de una cadena de caracteres, aún cuando no se encuentre el código de la compañía; en tal situación,
Lookup devuelve el variante Null, que es convertido por VarToStr en una cadena vacía.
También se puede utilizar Lookup eficientemente para localizar un código de empleado dado el nombre y el apellido del mismo:
function TDataModule1.ObtenerCodigo(const Apellido,
Nombre: string): Integer;
var
V: Variant;
422 La Cara Oculta de Delphi
begin
V := tbEmpleados.Lookup('Apellido;Nombre',
VarArrayOf([Apellido, Nombre]), 'Código');
if VarIsNull(V) then
DatabaseError('Empleado no encontrado');
Result := V;
end;
Por variar, he utilizado una excepción para indicar el fallo de la búsqueda; esto equivale a asumir que lo normal es que la función ObtenerCodigo deba encontrar el registro
del empleado. Note nuevamente el uso de la función VarArrayOf, además del uso de
VarIsNull para controlar la presencia del valor variante nulo.
Por último, presentaremos la función inversa a la anterior: queremos el nombre
completo del empleado dado su código. En este caso, necesitamos especificar dos
columnas en el tercer parámetro de la función. He aquí una posible implementación:
function TDataModule1.NombreDeEmpleado(Codigo: Integer): string;
var
V: Variant;
begin
V := tbEmpleados.Lookup('Codigo', Codigo, 'Nombre;Apellido');
if VarIsNull(V) then
DatabaseError('Empleado no encontrado');
Result := V[0] + ' ' + V[1];
end;
Un diálogo genérico de localización
Se puede programar un diálogo general de búsqueda que aproveche el método Locate
para localizar la primera fila de una tabla que tenga determinado valor en determinada columna. Este diálogo genérico se programa una sola vez y puede utilizarse
sobre cualquier tabla en la que se quiera hacer la búsqueda.
Necesitamos un formulario, al que denominaremos TDlgBusqueda, con un combo, llamémosle cbColumnas, de estilo csDropDownList, un cuadro de edición, de nombre
edValor, y el par típico de botones para aceptar o cancelar el diálogo. Definiremos
también, de forma manual, los siguientes métodos y atributos en la declaración de
clase del formulario:
Métodos de búsqueda 423
type
TDlgBusqueda = class(TForm)
// …
private
FTabla: TTabla;
procedure AsignarTabla(Valor: TTable);
protected
property Tabla: TTabla read FTabla write AsignarTabla;
public
function Ejecutar(ATable: TTable): Boolean;
end;
El atributo FTabla servirá para recordar la última tabla utilizada para la búsqueda.
Para llenar el combo de columnas con los nombres de los campos de la tabla sobre la
cual se realiza la búsqueda, se utiliza el método AsignarTabla:
procedure TDlgBusqueda.AsignarTabla(Valor: TTable);
var
I: Integer;
begin
if Valor <> FTabla then
begin
cbColumnas.Items.Clear;
edValor.Text := '';
for I := 0 to Valor.FieldCount - 1 do
with Valor.Fields[I] do
if (FieldKind = fkData)
and not (DataType in ftNonTextTypes) then
cbColumnas.Items.AddObject(
DisplayLabel, Valor.Fields[I]);
cbColumnas.ItemIndex := 0;
FTabla := Valor;
end;
end;
Este método solamente modifica los valores del combo si la tabla parámetro es diferente de la última tabla asignada; así se ahorra tiempo en la preparación de la búsqueda. El algoritmo también verifica que los campos a añadir no sean campos calculados o de referencia, con los que el método Locate no trabaja. Por las mismas razones se excluyen los campos BLOB de la lista de columnas; la constante de conjunto
ftNonTextTypes está definida en la unidad DB. Finalmente, se añaden las etiquetas de
visualización, DisplayLabel, en vez de los nombres originales de campos. Para poder
encontrar el campo original sin tener que efectuar una búsqueda de estas etiquetas, la
inserción dentro del vector Items del combo se realiza mediante el método AddObject
en vez de Add; de esta manera, asociamos a cada elemento del combo el puntero al
campo correspondiente.
La búsqueda en sí se realiza en el método Ejecutar:
function TDlgBusqueda.Ejecutar(ATable: TTable): Boolean;
var
Campo: TField;
424 La Cara Oculta de Delphi
begin
Tabla := ATable;
if ShowModal = mrOk then
begin
Campo := cbColumnas.Items.Objects[
cbColumnas.ItemIndex]);
Result := FTabla.Locate(Campo.FieldName, edValor.Text, []);
if not Result then Application.MessageBox(
'Valor no encontrado',
'Error', MB_OK + MB_ICONSTOP);
end
else
Result := False;
end;
Se asigna la tabla, para llenar si es preciso el combo con los nombres de columnas, y
ejecutamos el diálogo, con ShowModal. Si el usuario pulsa el botón Aceptar, recuperamos primeramente el puntero al campo seleccionado mediante la propiedad Objects
de la lista de elementos del cuadro de combinación. A partir del nombre de este
campo y del valor tecleado en el cuadro de edición, se efectúa la búsqueda mediante
el método Locate. No he permitido el uso de opciones de búsqueda para no complicar innecesariamente el código de este algoritmo, pero usted puede añadirlas sin
mayor dificultad.
Hasta aquí lo relacionado con el diseño y programación del diálogo genérico de búsqueda. En cuanto al uso del mismo, es muy fácil. Suponga que estamos explorando
una tabla, Table1, sobre una ventana con una rejilla. Colocamos un botón de búsqueda en algún sitio libre de la ventana y programamos la siguiente respuesta a su
método OnClick:
procedure TForm1.bnBusquedaClick(Sender: TObject);
begin
DlgBusqueda.Ejecutar(Table1);
end;
He supuesto que el formulario DlgBusqueda es creado automáticamente al crearse el
proyecto.
Filtros latentes
Hay que darle al público lo que el público espera. Si un usuario está acostumbrado a
actuar de cierta manera frente a cierto programa, esperará la misma implementación
de la técnica en nuestros programas. En este caso, me estoy refiriendo a las técnicas
de búsqueda en procesadores de textos. Generalmente, el usuario dispone al menos
de un par de comandos: Buscar y Buscar siguiente; a veces, también hay un Buscar anterior. Cuando se ejecuta el comando Buscar, el usuario teclea lo que quiere buscar, y
este valor es utilizado por las restantes llamadas a Buscar siguiente y Buscar anterior. Y
nuestro problema es que este tipo de interacción es difícil de implementar utilizando
Métodos de búsqueda 425
el método Locate, que solamente nos localiza la primera fila que contiene los valores
deseados.
La solución a nuestro problema la tienen, curiosamente, los filtros otra vez. Por lo
que sabemos hasta el momento, hace falta activar la propiedad Filtered para reducir el
conjunto de datos activo según la condición deseada. La novedad consiste en la posibilidad de, teniendo Filtered el valor False, recorrer a saltos los registros que satisfacen
la condición del filtro, para lo cual contamos con las funciones FindFirst, FindLast,
FindNext y FindPrior:
function
function
function
function
TDataSet.FindFirst: Boolean;
TDataSet.FindPrior: Boolean;
TDataSet.FindNext: Boolean;
TDataSet.FindLast: Boolean;
Las cuatro funciones devuelven un valor lógico para indicarnos si la operación fue
posible o no. Además, para mayor comodidad, los conjuntos de datos tienen una
propiedad Found, que almacena el resultado de la última operación sobre filtros.
Se puede adaptar el cuadro de diálogo del ejercicio anterior para poder también establecer filtros adecuados a este tipo de búsqueda. Esto lo haremos definiendo un
nuevo método, Buscar, para establecer el filtro y buscar el primer registro:
function TDlgBusqueda.Buscar(ATable: TTable): Boolean;
var
NumCampo: Integer;
begin
AsignarTabla(ATable);
if ShowModal = mrOk then
begin
NumCampo := Integer(cbColumnas.Items.Objects[
cbColumnas.ItemIndex]);
FTabla.Filter := Format('[%s] = %s',
[FTabla.Fields[NumCampo].FieldName,
QuotedStr(edValor.Text]);
Result := FTabla.FindFirst;
if not Result then
Application.MessageBox('Valor no encontrado', 'Error',
MB_ICONERROR + MB_OK);
end
else
Result := False;
end;
Sí, aquí tenemos otra vez a nuestra vieja conocida: la función QuotedStr, que utilizamos en el ejemplo de filtros rápidos. La implementación del comando Buscar siguiente sería algo así:
function TDlgBusqueda.BuscarSiguiente: Boolean;
begin
Result := FTabla.FindNext;
426 La Cara Oculta de Delphi
if not Result then
Application.MessageBox('Valor no encontrado', 'Error',
MB_ICONERROR + MB_OK);
end;
Por supuesto, para este tipo de búsqueda es preferible habilitar botones en el propio
cuadro de diálogo, para lograr el mayor parecido posible con el cuadro estándar de
búsqueda de Windows.
Filter By Example
Este es otro ejemplo de cómo diseñar un mecanismo de búsqueda genérico, que
aproveche la técnica de los filtros latentes. Vamos a crear un prototipo de ventana que
pueda ser aprovechada mediante la herencia visual. En esta ventana podremos situar
componentes de edición, uno por cada columna por la que queramos buscar. El
filtro estará determinado por los valores que introduzcamos en estos campos de
edición, de forma similar a lo que ocurre en el lenguaje de consultas Query By Example.
Por ejemplo, supongamos que tenemos una tabla de clientes con campos para el
código, el nombre y el teléfono. Entonces la ventana de búsqueda tendrá tres editores, uno por cada campo. Si el usuario teclea estos valores:
Código >34
Nombre Micro*
Teléfono
queremos que la expresión de filtro sea la siguiente:
Codigo > '34' and Nombre >= 'Micro' and Nombre < 'Micrp'
No se ha generado ninguna comparación para el teléfono, porque el usuario no ha
tecleado nada en el campo correspondiente. Observe que he evitado el uso del asterisco al final de la constante, para que el filtro sea realmente eficiente.
Creamos una aplicación, y en su ventana principal situamos una rejilla conectada a
una tabla arbitraria. Llamaremos wndMain a esta ventana principal. Creamos un
nuevo formulario en la aplicación, con el nombre wndSearch, y lo guardamos en la
unidad Search. Lo quitamos de la lista de creación automática, pues cuando lo necesitemos lo crearemos nosotros mismos. Le cambiamos la propiedad BorderStyle a
bsToolWindow, y FormStyle al valor fsStayOnTop, de modo que siempre se encuentre en
primer plano. Luego añadimos una barra de herramientas, con cuatro botones de
navegación y, un poco separados, un par de botones, para aplicar el filtro de búsqueda (bnApply) y para eliminarlo (bnClean).
Métodos de búsqueda 427
La idea es que, en los descendientes de este formulario, se añadan cuadros de búsquedas del tipo TEdit, es decir, comunes y corrientes. Para asociar un campo de la
tabla en que se quiere buscar a cada editor, se asignará el nombre del campo en la
propiedad Text del control. Por ejemplo, la siguiente figura muestra el aspecto de una
ventana de búsqueda sobre la tabla de clientes en tiempo de diseño:
Pero no se preocupe por la propiedad Text de estos controles, pues durante la creación de la ventana se utilizará para asociar un campo al control, y después se borrará.
Esta tarea es responsabilidad del siguiente método de clase público:
class function TwndSearch.Launch(AOwner: TForm;
ATable: TTable): TwndSearch;
var
I: Integer;
C: TComponent;
begin
LockWindowUpdate(Application.MainForm.ClientHandle);
try
for I := 0 to Screen.FormCount - 1 do
if Screen.Forms[I].ClassType = Self then
begin
Result := TwndSearch(Screen.Forms[I]);
Exit;
end;
Result := Create(AOwner);
Result.FTable := ATable;
for I := 0 to Result.ComponentCount - 1 do
begin
C := Result.Components[I];
if C is TEdit then
begin
TEdit(C).Tag :=
Integer(ATable.FindField(TEdit(C).Text));
TEdit(C).Text := '';
end;
end;
Result.bnApply.Enabled := False;
finally
LockWindowUpdate(0);
end;
end;
Como se puede apreciar, se utiliza el valor guardado en el texto del control para buscar el puntero al campo, el cual se asigna entonces a la propiedad Tag. La respuesta a
los cuatro botones de navegación es elemental:
428 La Cara Oculta de Delphi
procedure TwndSearch.bnFirstClick(Sender: TObject);
begin
FTable.FindFirst;
end;
procedure TwndSearch.bnPriorClick(Sender: TObject);
begin
FTable.FindPrior;
end;
procedure TwndSearch.bnNextClick(Sender: TObject);
begin
FTable.FindNext;
end;
procedure TwndSearch.bnLastClick(Sender: TObject);
begin
FTable.FindLast;
end;
También es predecible la respuesta al botón que elimina el filtro:
procedure TwndSearch.bnCleanClick(Sender: TObject);
begin
FTable.Filter := '';
bnClean.Enabled := False;
bnApply.Enabled := True;
end;
Donde realmente hay que teclear duro es en la respuesta al botón que activa el filtro:
procedure TwndSearch.bnApplyClick(Sender: TObject);
var
F: string;
I: Integer;
C: TComponent;
begin
F := '';
for I := 0 to ComponentCount - 1 do
begin
C := Components[I];
if C is TEdit then
AddFilter(F, TEdit(C), TField(TEdit(C).Tag));
end;
FTable.Filter := F;
FTable.FindFirst;
bnApply.Enabled := False;
bnClean.Enabled := F <> '';
end;
El método AddFilter debe haber sido definido en la parte privada de la declaración
del formulario, y se encarga de dar el formato correcto al valor tecleado en cada
control. Si el campo es de tipo cadena, debe encerrarse el valor entre apóstrofos; si es
un número real, hay que sustituir nuestras comas decimales por los puntos americanos:
Métodos de búsqueda 429
procedure TwndSearch.AddFilter(var F: string; E: TEdit;
AField: TField);
const
Ops: array [1..6] of string = ('<>', '<=', '>=', '<', '>', '=');
var
I: Integer;
S, S1, Op: string;
begin
S := Trim(E.Text);
if (S = '') or (AField = nil) then Exit;
// Buscar el operador
Op := '=';
for I := 1 to 6 do
if Pos(Ops[I], S) = 1 then
begin
Op := Ops[I];
Delete(S, 1, Length(Op));
S := TrimLeft(S);
Break;
end;
// Formatear el valor resultante
if (Op = '=') and (AField.DataType = ftString)
and (Length(S) > 1) and (S[Length(S)] = '*') then
begin
Delete(S, Length(S), 1);
S1 := S;
Inc(S1[Length(S1)]);
S := Format('[%s]>=%s and [%0:s]<%2:s',
[AField.FieldName, QuotedStr(S), QuotedStr(S1)]);
end
else
S := '[' + AField.FieldName + ']' + Op + QuotedStr(S);
// Añadir al filtro existente
if F <> '' then
AppendStr(F, ' AND ');
AppendStr(F, S);
end;
Ahora derivamos por herencia visual a partir de esta ventana un nuevo formulario, de
nombre TschClientes, y añadimos los tres cuadros de edición para los tres campos que
queremos que participen en la búsqueda. Recuerde quitarlo de la lista de creación
automática. El aspecto en ejecución del diálogo de búsqueda de clientes es el siguiente:
Y la instrucción utilizada para lanzarlo, desde la ventana de exploración principal, es
la que mostramos a continuación:
430 La Cara Oculta de Delphi
procedure TwndMain.Buscar1Click(Sender: TObject);
begin
TschClientes.Launch(Self, modDatos.tbCli);
end;
Lo principal es que, teniendo esta plantilla, no hace falta escribir una línea de código
en las ventanas de búsqueda que heredan de la misma. Se pueden diseñar estrategias
de búsqueda aún más sofisticadas. Por ejemplo, se pueden habilitar teclas para que un
campo de edición tome el valor real de la fila activa en la ventana. También se puede
hacer que esta ventana se pueda aparcar (dock) en la barra de tareas de la ventana
principal. Todo eso se lo dejo a su paciencia e imaginación.
Búsqueda en una tabla de detalles
Para terminar, supongamos que la tabla sobre la cual se busca es una tabla de detalles, es decir, una tabla que juega el rol de subordinada en una relación master/detail.
Quizás deseemos buscar todas las ventas de cierto producto, para mostrar la factura
correspondiente; el código del producto debe buscarse en la tabla de detalles, pero
las filas visibles de esta tabla están limitadas por el rango implícito en su relación con
la tabla de pedidos. No queda más remedio que buscar en otro objeto de tabla, que
se refiera a la misma tabla física de pedidos, pero que no participe en una relación
master/detail. Después tendremos que localizar el pedido correspondiente en la tabla
de pedidos, para mostrar la factura completa. Ya sabemos la teoría necesaria para
todo esto, y solamente tenemos que coordinar las acciones.
Necesitamos dos ventanas, una para mostrar los pedidos y las líneas de detalles, y
otra para seleccionar el artículo a buscar. Esta última es la más sencilla, pues situaremos en la misma un par de botones (Aceptar y Cancelar), una rejilla sólo para lectura,
una fuente de datos y una tabla, tbArticulos, que haga referencia a la tabla de artículos
parts.db de la base de datos dbdemos. Llamaremos a este formulario dlgSeleccion.
En el formulario principal, llamémosle wndPrincipal, situaremos las siguientes tablas:
Tabla
tbPedidos
tbDetalles
tbBusqueda
Propósito
Trabaja con la tabla orders.db, del alias dbdemos.
Tabla items.db, en relación master/detail con la anterior.
Tabla items.db, pero sin relación master/detail.
También necesitaremos rejillas para mostrar las tablas, y un par de botones: bnBuscar
y bnSiguiente, este último con la propiedad Enabled a False. La respuesta al evento OnClick del botón bnBuscar es la siguiente:
Métodos de búsqueda 431
procedure TwndPrincipal.bnBuscarClick(Sender: TObject);
begin
if dlgSeleccion.ShowModal = mrOk then
begin
tbBusqueda.Filter := 'PartNo = ' +
VarToStr(dlgSeleccion.tbArticulos['PartNo']);
tbBusqueda.FindFirst;
bnSiguiente.Enabled := True;
Sincronizar;
end;
end;
En el método anterior, ejecutamos el diálogo de selección, inicializamos el filtro,
buscamos la primera fila que satisface el criterio de búsqueda y sincronizamos la
posición de las tablas visibles con el método Sincronizar. Este método lo definimos
del siguiente modo:
procedure TwndPrincipal.Sincronizar;
begin
if not tbBusqueda.Found then
bnSiguiente.Enabled := False
else
begin
tbPedidos.Locate('OrderNo', tbBusqueda['OrderNo'], []);
tbDetalles.GotoCurrent(tbBusqueda);
end;
end;
Se sabe si la última búsqueda tuvo éxito o no consultando la propiedad Found de la
tabla de búsqueda. En caso afirmativo, se localiza el pedido correspondiente en la
tabla de pedidos, y solamente entonces se procede a activar la fila encontrada de la
tabla de detalles; observe el uso del método GotoCurrent para realizar la sincronización.
La respuesta al botón bnSiguiente, teniendo el método anterior programado, es trivial:
procedure TwndPrincipal.bnSiguienteClick(Sender: TObject);
begin
tbBusqueda.FindNext;
Sincronizar;
end;
•
Programación con SQL
• Breve introducción a SQL
• Consultas y modificaciones en SQL
• Procedimientos almacenados y triggers
• Microsoft SQL Server
• Oracle
• Usando SQL con Delphi
• Comunicación cliente/servidor
Parte
Capítulo
21
Breve introducción a SQL
C
UANDO IBM DESARROLLÓ EL PRIMER PROTOTIPO DE
base de datos relacional, el famoso System R, creó en paralelo un lenguaje de definición y manipulación de datos, llamado QUEL. La versión mejorada de este lenguaje que
apareció un poco más tarde se denominó, un poco en broma, SEQUEL. Finalmente,
las siglas se quedaron en SQL: Structured Query Language, o Lenguaje de Consultas
Estructurado. Hay quien sigue pronunciando estas siglas en inglés como sequel, es
decir, secuela.
La estructura de SQL
Las instrucciones de SQL se pueden agrupar en dos grandes categorías: las instrucciones que trabajan con la estructura de los datos y las instrucciones que trabajan con
los datos en sí. Al primer grupo de instrucciones se le denomina también el Lenguaje
de Definición de Datos, en inglés Data Definition Language, con las siglas DDL. Al segundo grupo se le denomina el Lenguaje de Manipulación de Datos, en inglés Data Manipulation Language, o DML. A veces las instrucciones que modifican el acceso de los
usuarios a los objetos de la base de datos, y que en este libro se incluyen en el DDL,
se consideran pertenecientes a un tercer conjunto: el Lenguaje de Control de Datos, Data
Control Language, ó DCL.
En estos momentos existen estándares aceptables para estos tres componentes del
lenguaje. El primer estándar, realizado por la institución norteamericana ANSI y
luego adoptada por la internacional ISO, se terminó de elaborar en 1987. El segundo,
que es el que está actualmente en vigor, es del año 1992. En estos momentos está a
punto de ser aprobado un tercer estándar, que ya es conocido como SQL-3.
Las condiciones en que se elaboró el estándar de 1987 fueron especiales, pues el
mercado de las bases de datos relacionales estaba dominado por unas cuantas compañías, que trataban de imponer sus respectivos dialectos del lenguaje. El acuerdo
final dejó solamente las construcciones que eran comunes a todas las implementaciones; de este modo, nadie estaba obligado a reescribir su sistema para no quedarse
sin la certificación. También se definieron diferentes niveles de conformidad para
436 La Cara Oculta de Delphi
facilitarles las cosas a los fabricantes; si en algún momento alguien le intenta vender
un sistema SQL alabando su conformidad con el estándar, y descubre en letra pequeña la aclaración “compatible con el nivel de entrada (entry-level)”, tenga por seguro
que lo están camelando. Este estándar dejó fuera cosas tan necesarias como las definiciones de integridad referencial. Sin embargo, introdujo el denominado lenguaje de
módulos, una especie de interfaz para desarrollar funciones en SQL que pudieran utilizarse en programas escritos en otros lenguajes.
El estándar del 92 se ocupó de la mayoría de las áreas que quedaron por cubrir en el
87. Sin embargo, no se hizo nada respecto a recursos tales como los procedimientos
almacenados, los triggers o disparadores, y las excepciones, que permiten la especificación de reglas para mantener la integridad y consistencia desde un enfoque imperativo,
en contraste con el enfoque declarativo utilizado por el DDL, el DCL y el DML. Dedicaremos un capítulo al estudio de estas construcciones del lenguaje. En este preciso
momento, cada fabricante tiene su propio dialecto para definir procedimientos almacenados y disparadores. El estándar conocido como SQL-3 se encarga precisamente
de unificar el uso de estas construcciones del lenguaje.
En este capítulo solamente nos ocuparemos de los lenguajes de definición y control
de datos. El lenguaje de manipulación de datos se trata en el capítulo siguiente. Más
adelante nos ocuparemos del lenguaje de triggers y procedimientos almacenados.
Para seguir los ejemplos de este libro…
Para poder mostrar todas las posibilidades del lenguaje SQL necesitamos un sistema
de bases de datos potente, que admita la mayor parte posible de las construcciones
sintácticas definidas por el lenguaje. Aunque Paradox y dBase pueden ser abordados
mediante SQL, el intérprete ofrecido por el BDE tiene limitaciones, sobre todo en el
lenguaje de definición de datos. Por lo tanto, necesitamos algún sistema cliente/servidor para seguir los ejemplos. ¿Cuál de los muchos disponibles? Para este primer
capítulo y para el siguiente, casi da lo mismo el sistema elegido, pues las implementaciones de los sublenguajes DDL y DML son bastante similares en casi todos los
dialectos existentes de SQL. Donde realmente necesitaremos aclarar con qué dialecto
estaremos tratando en cada momento, será en el capítulo sobre triggers y procedimientos almacenados.
Así que si usted tiene un Oracle a mano, utilice Oracle; si tiene Informix, utilícelo.
¿Pero qué pasa si nunca ha trabajado con uno de esos sistemas? Pues que siempre
tendremos a mano a InterBase, el sistema de bases de datos SQL de Borland. Si el
lector tiene instalado, como supongo, cualquiera de las versiones de Delphi 1, o las
versiones cliente/servidor o Developer de Delphi 2 (la versión Desktop no vale),
tendrá también instalado el servidor local de InterBase. Si está utilizando Delphi 3 ó
4, debe realizar la instalación por separado. En cualquier caso, tomaré como punto de
Breve introducción a SQL 437
partida a InterBase para los primeros tres capítulos. En estos capítulos iniciales, presentaré las características fundamentales del lenguaje SQL: el lenguaje de definición
de datos en el primer capítulo, en el siguiente, el lenguaje de consultas y manipulación de datos, y para finalizar, las extensiones procedimentales para triggers y procedimientos almacenados. Luego dedicaré un par de capítulo a las particularidades de
Oracle y MS SQL Server.
InterBase viene acompañado por la aplicación Windows ISQL. Con esta utilidad
podemos crear y borrar bases de datos de InterBase, conectarnos a bases de datos
existentes y ejecutar todo tipo de instrucciones SQL sobre ellas. Las instrucciones del
lenguaje de manipulación de datos, y algunas del lenguaje de definición, pueden ejecutarse directamente tecleando en un cuadro de edición multilíneas y pulsando un
botón. El resultado de la ejecución aparece en un control de visualización situado en
la parte inferior de la ventana.
Para las instrucciones DDL más complejas y la gestión de procedimientos, disparadores, dominios y excepciones es preferible utilizar scripts SQL. Un script es un fichero, por lo general de extensión SQL, que contiene una lista de instrucciones arbitrarias de este lenguaje separadas entre sí por puntos y comas. Este fichero debe
ejecutarse mediante el comando de menú File|Run an ISQL Script. Las instrucciones
SQL se van ejecutando secuencialmente, según el orden en que se han escrito. Por
omisión, los resultados de la ejecución del script también aparecen en el control de
visualización de la ventana de Windows ISQL.
Por supuesto, también puede utilizarse la utilidad SQL Explorer del propio Delphi
para ejecutar instrucciones individuales sobre cualquier base de datos a la que deseemos conectarnos. También podemos utilizar Database Desktop si queremos realizar
pruebas con Paradox y dBase.
438 La Cara Oculta de Delphi
La creación y conexión a la base de datos
Estamos en InterBase, utilizando Windows ISQL. ¿Cómo nos conectamos a una
base de datos de InterBase para comenzar a trabajar? Basta con activar el comando
de menú File|Connect to database. Si ha instalado InterBase en un servidor remoto y
tiene los SQL Links que vienen con Delphi cliente/servidor, puede elegir la posibilidad de conectarse a ese servidor remoto. En cualquier caso, puede elegir el servidor
local. Cuando especificamos un servidor remoto, tenemos que teclear el nombre
completo del fichero de base de datos en el servidor; no necesitamos tener acceso al
fichero desde el sistema operativo, pues es el servidor de InterBase el que nos garantiza el acceso al mismo. Si estamos utilizando el servidor local, las cosas son más
fáciles, pues contamos con un botón Browse para explorar el disco. Las bases de datos
de InterBase se sitúan por lo general en un único fichero de extensión gdb; existe, no
obstante, la posibilidad de distribuir información en ficheros secundarios, lo cual
puede ser útil en servidores con varios discos duros. Los otros datos que tenemos
que suministrar a la conexión son el nombre de usuario y la contraseña. El nombre
de usuario inicial en InterBase es, por omisión, SYSDBA, y su contraseña es masterkey. Respete las mayúsculas y minúsculas, por favor. Una vez que acepte el cuadro
de diálogo, se intentará la conexión. En cualquier momento de la sesión podemos
saber a qué base de datos estamos conectados mirando la barra de estado de la ventana.
El mismo mecanismo puede utilizarse para crear una base de datos interactivamente.
La diferencia está en que debemos utilizar el comando File|Create database. Sin embargo, necesitamos saber también cómo podemos crear una base de datos y establecer una conexión utilizando instrucciones SQL. La razón es que todo script SQL debe
comenzar con una instrucción de creación de bases de datos o de conexión. La más
sencilla de estas instrucciones es la de conexión:
connect "C:\Marteens\IntrBase\Examples\Prueba.GDB"
user "SYSDBA" password "masterkey";
Por supuesto, el fichero mencionado en la instrucción debe existir, y el nombre de
usuario y contraseña deben ser válidos. Observe el punto y coma al final, para separar esta instrucción de la próxima en el script.
La instrucción necesaria para crear una base de datos tiene una sintaxis similar. El
siguiente ejemplo muestra el ejemplo más común de creación:
create database "C:\Marteens\IntrBase\Examples\Prueba.GDB"
user "SYSDBA" password "masterkey"
page_size 2048;
InterBase, y casi todos los sistemas SQL, almacenan los registros de las tablas en
bloques de longitud fija, conocidos como páginas. En la instrucción anterior estamos
Breve introducción a SQL 439
redefiniendo el tamaño de las páginas de la base de datos. Por omisión, InterBase
utiliza páginas de 1024 bytes. En la mayoría de los casos, es conveniente utilizar un
tamaño mayor de página; de este modo, el acceso a disco es más eficiente, entran más
claves en las páginas de un índice con lo cual disminuye la profundidad de estos, y
mejora también el almacenamiento de campos de longitud variable. Sin embargo, si
sus aplicaciones trabajan con pocas filas de la base de datos, como la típica aplicación
del cajero automático, puede ser más conveniente mantener un tamaño pequeño de
página, pues la lectura de éstas tarda entonces menos tiempo, y el buffer puede realizar
las operaciones de reemplazo de páginas en memoria más eficientemente.
También podemos indicar el tamaño inicial de la base de datos en páginas. Normalmente esto no hace falta, pues InterBase hace crecer automáticamente el fichero gdb
cuando es necesario. Pero si tiene en mente insertar grandes cantidades de datos
sobre la base recién creada, puede ahorrar el tiempo de crecimiento utilizando la
opción length. La siguiente instrucción crea una base de datos reservando un tamaño inicial de 1 MB:
create database "C:\Marteens\IntrBase\Examples\Prueba.GDB"
user "SYSDBA" password "masterkey"
page_size 2048 length 512
default character set "ISO8859_1";
Esta instrucción muestra también cómo especificar el conjunto de caracteres utilizado
por omisión en la base de datos. Más adelante, se pueden definir conjuntos especiales
para cada tabla, de ser necesario. El conjunto de caracteres determina, fundamentalmente, de qué forma se ordenan alfabéticamente los valores alfanuméricos. Los primeros 127 caracteres de todos los conjuntos de datos coinciden; es en los restantes
valores donde puede haber diferencias.
Tipos de datos en SQL
Antes de poder crear tablas, tenemos que saber qué tipos de datos podemos emplear.
SQL estándar define un conjunto de tipos de datos que todo sistema debe implementar. Ahora bien, la interpretación exacta de estos tipos no está completamente
especificada. Cada sistema de bases de datos ofrece, además, sus propios tipos nativos. Estos son los tipos de datos aceptados por InterBase:
Tipo de dato
char(n), varchar(n)
integer, int
smallint
float
double precision
Tamaño
n bytes
32 bits
16 bits
4 bytes
8 bytes
Observaciones
Longitud fija; longitud variable
Equivale al tipo Single de Delphi
Equivale al Double de Delphi
440 La Cara Oculta de Delphi
Tipo de dato
numeric(prec, esc)
decimal(prec, esc)
date
blob
Tamaño
prec=1-15, esc <= prec
prec=1-15, esc <= prec
64 bits
No hay límite
Observaciones
Variante “exacta” de decimal
Almacena la fecha y la hora
La diferencia fundamental respecto al estándar SQL tiene que ver con el tipo date.
SQL estándar ofrece los tipos date, time y timestamp, para representar fecha, hora
y la combinación de fecha y hora. El tipo date de InterBase corresponde al tipo
timestamp del SQL estándar.
El tipo de dato blob (Binary Large OBject = Objeto Binario Grande) se utiliza para
almacenar información de longitud variable, generalmente de gran tamaño. En principio, a InterBase no le preocupa qué formato tiene la información almacenada. Pero
para cada tipo blob se define un subtipo, un valor entero que ofrece una pista acerca
del formato del campo. InterBase interpreta el subtipo 0 como el formato por omisión: ningún formato. El subtipo 1 representa texto, como el tipo memo de otros
sistemas. Se pueden especificar subtipos definidos por el programador; en este caso,
los valores empleados deben ser negativos. La especificación de subtipos se realiza
mediante la cláusula sub_type:
Comentarios blob sub_type 1
Una de las peculiaridades de InterBase como gestor de bases de datos es el soporte
de matrices multidimensionales. Se pueden crear columnas que contengan matrices de
tipos simples, con excepción del tipo blob, de hasta 16 dimensiones. El estudio de
este recurso, sin embargo, está más allá de los objetivos de este libro.
Creación de tablas
Como fuente de ejemplos para este capítulo, utilizaremos el típico esquema de un
sistema de pedidos. Las tablas que utilizaremos serán las siguientes:
Tabla
Clientes
Empleados
Articulos
Pedidos
Detalles
Propósito
Los clientes de nuestra empresa
Los empleados que reciben los pedidos
Las cosas que intentamos vender
Pedidos realizados
Una fila por cada artículo vendido
Breve introducción a SQL 441
Un ejemplo similar lo encontramos en la base de datos de demostración que trae
Delphi, pero en formato Paradox. Utilizaremos esas tablas más adelante para demostrar algunas características de este formato de bases de datos.
La instrucción de creación de tablas tiene la siguiente sintaxis en InterBase:
create table NombreDeTabla [external file NombreFichero] (
DefColumna [, DefColumna | Restriccion … ]
);
La opción external file es propia de InterBase e indica que los datos de la tabla deben residir en un fichero externo al principal de la base de datos. Aunque el formato
de este fichero no es ASCII, es relativamente sencillo de comprender y puede utilizarse para importar y exportar datos de un modo fácil entre InterBase y otras aplicaciones. En lo sucesivo no haremos uso de esta cláusula.
Para crear una tabla tenemos que definir columnas y restricciones sobre los valores
que pueden tomar estas columnas. La forma más sencilla de definición de columna
es la que sigue:
NombreColumna
TipoDeDato
Por ejemplo:
create table Empleados (
Codigo
integer,
Nombre
varchar(30),
Contrato
date,
Salario
integer
);
Columnas calculadas
Con InterBase tenemos la posibilidad de crear columnas calculadas, cuyos valores se
derivan a partir de columnas existentes, sin necesidad de ser almacenados físicamente, para lo cual se utiliza la cláusula computed by. Aunque para este tipo de columnas podemos especificar explícitamente un tipo de datos, es innecesario, porque
se puede deducir de la expresión que define la columna:
create table Empleados(
Codigo
integer,
Nombre
varchar,
Apellidos
varchar,
Salario
integer,
NombreCompleto computed by (Nombre || " " || Apellidos),
/* … */
);
442 La Cara Oculta de Delphi
El operador || sirve para concatenar cadenas de caracteres en InterBase.
En general, no es buena idea definir columnas calculadas en el servidor, sino que
es preferible el uso de campos calculados en el cliente. Si utilizamos computed
by hacemos que los valores de estas columnas viajen por la red con cada registro,
aumentando el tráfico en la misma.
Valores por omisión
Otra posibilidad es la de definir valores por omisión para las columnas. Durante la
inserción de filas, es posible no mencionar una determinada columna, en cuyo caso
se le asigna a esta columna el valor por omisión. Si no se especifica algo diferente, el
valor por omisión de SQL es null, el valor desconocido. Con la cláusula default
cambiamos este valor:
Salario
FechaContrato
integer default 0,
date default "Now",
Observe en el ejemplo anterior el uso del literal “Now”, para inicializar la columna
con la fecha y hora actual en InterBase. En Oracle se utilizaría la función sysdate:
FechaContrato
date default sysdate
Si se mezclan las cláusulas default y not null en Oracle o InterBase, la primera debe
ir antes de la segunda. En MS SQL Server, por el contrario, la cláusula default debe
ir después de las especificaciones null ó not null:
FechaContrato datetime not null default (getdate())
Restricciones de integridad
Durante la definición de una tabla podemos especificar condiciones que deben cumplirse para los valores almacenados en la misma. Por ejemplo, no nos basta saber que
el salario de un empleado es un entero; hay que aclarar también que en circunstancias
normales es también un entero positivo, y que no podemos dejar de especificar un
salario a un trabajador. También nos puede interesar imponer condiciones más complejas, como que el salario de un empleado que lleva menos de un año con nosotros
no puede sobrepasar cierta cantidad fija. En este epígrafe veremos cómo expresar
estas restricciones de integridad.
La restricción más frecuente es pedir que el valor almacenado en una columna no
pueda ser nulo. En el capítulo sobre manipulación de datos estudiaremos en profun-
Breve introducción a SQL 443
didad este peculiar valor. El que una columna no pueda tener un valor nulo quiere
decir que hay que suministrar un valor para esta columna durante la inserción de un
nuevo registro, pero también que no se puede modificar posteriormente esta columna de modo que tenga un valor nulo. Esta restricción, como veremos dentro de
poco, es indispensable para poder declarar claves primarias y claves alternativas. Por
ejemplo:
create table Empleados(
Codigo integer not null,
Nombre varchar(30) not null,
/* … */
);
Cuando la condición que se quiere verificar es más compleja, se puede utilizar la
cláusula check. Por ejemplo, la siguiente restricción verifica que los códigos de provincias se escriban en mayúsculas:
Provincia
varchar(2) check (Provincia = upper(Provincia))
Existen dos posibilidades con respecto a la ubicación de la mayoría de las restricciones: colocar la restricción a nivel de columna o a nivel de tabla. A nivel del columna, si la restricción afecta solamente a la columna en cuestión; a nivel de tabla si
hay varias columnas involucradas. En mi humilde opinión, es más claro y legible
expresar todas las restricciones a nivel de tabla, pero esto en definitiva es materia de
gustos.
La cláusula check de InterBase permite incluso expresiones que involucran a otras
tablas. Más adelante, al tratar la integridad referencial, veremos un ejemplo sencillo
de esta técnica. Por el momento, analice la siguiente restricción, expresada a nivel de
tabla:
create table Detalles
RefPedido
NumLinea
RefArticulo
Cantidad
Descuento
(
int
int
int
int
int
not null,
not null,
not null,
default 1 not null,
default 0 not null,
check (Descuento between 0 and 50 or "Marteens Corporation"=
(select Nombre from Clientes
where Codigo =
(select RefCliente from Pedidos
where Numero = Detalles.RefPedido))),
/* … */
);
Esta cláusula dice, en pocas palabras, que solamente el autor de este libro puede
beneficiarse de descuentos superiores al 50%. ¡Algún privilegio tenía que corresponderme!
444 La Cara Oculta de Delphi
Claves primarias y alternativas
Las restricciones check nos permiten con relativa facilidad imponer condiciones
sobre las filas de una tabla que pueden verificarse examinando solamente el registro
activo. Cuando las reglas de consistencia involucran a varias filas a la vez, la expresión
de estas reglas puede complicarse bastante. En último caso, una combinación de
cláusulas check y el uso de triggers o disparadores nos sirve para expresar imperativamente las reglas necesarias. Ahora bien, hay casos típicos de restricciones que afectan a
varias filas a la vez que se pueden expresar declarativamente; estos casos incluyen a las
restricciones de claves primarias y las de integridad referencial.
Mediante una clave primaria indicamos que una columna, o una combinación de
columnas, debe tener valores únicos para cada fila. Por ejemplo, en una tabla de
clientes, el código de cliente no debe repetirse en dos filas diferentes. Esto se expresa
de la siguiente forma:
create table Clientes(
Codigo integer not null primary key,
Nombre varchar(30) not null,
/* … */
);
Si una columna pertenece a la clave primaria, debe estar especificada como no nula.
Observe que en este caso hemos utilizado la restricción a nivel de columna. También
es posible tener claves primarias compuestas, en cuyo caso la restricción hay que
expresarla a nivel de tabla. Por ejemplo, en la tabla de detalles de pedidos, la clave
primaria puede ser la combinación del número de pedido y el número de línea dentro
de ese pedido:
create table Detalles(
NumPedido
integer not null,
NumLinea
integer not null,
/* … */
primary key (NumPedido, NumLinea)
);
Solamente puede haber una clave primaria por cada tabla. De este modo, la clave
primaria representa la identidad de los registros almacenados en una tabla: la información necesaria para localizar unívocamente un objeto. No es imprescindible especificar una clave primaria al crear tablas, pero es recomendable como método de trabajo.
Sin embargo, es posible especificar que otros grupos de columnas también poseen
valores únicos dentro de las filas de una tabla. Estas restricciones son similares en
sintaxis y semántica a las claves primarias, y utilizan la palabra reservada unique. En
la jerga relacional, a estas columnas se le denominan claves alternativas. Una buena
razón para tener claves alternativas puede ser que la columna designada como clave
primaria sea en realidad una clave artificial. Se dice que una clave es artificial cuando no
Breve introducción a SQL 445
tiene un equivalente semántico en el sistema que se modela. Por ejemplo, el código
de cliente no tiene una existencia real; nadie va por la calle con un 666 grabado en la
frente. La verdadera clave de un cliente puede ser, además de su alma inmortal, su
DNI. Pero el DNI debe almacenarse en una cadena de caracteres, y esto ocupa mucho más espacio que un código numérico. En este caso, el código numérico se utiliza
en las referencias a clientes, pues al tener menor tamaño la clave, pueden existir más
entradas en un bloque de índice, y el acceso por índices es más eficiente. Entonces, la
tabla de clientes puede definirse del siguiente modo:
create table Clientes (
Codigo integer not null,
NIF
varchar(9) not null,
/* … */
primary key (Codigo),
unique (NIF)
);
Por cada clave primaria o alternativa definida, InterBase crea un índice único para
mantener la restricción. Este índice se bautiza según el patrón rdb$primaryN, donde
N es un número serial.
Integridad referencial
Un caso especial y frecuente de restricción de integridad es la conocida como restricción de integridad referencial. También se le denomina restricción por clave externa o
foránea (foreign keys). Esta restricción especifica que el valor almacenado en un grupo
de columnas de una tabla debe encontrarse en los valores de las columnas en alguna
fila de otra tabla, o de sí misma. Por ejemplo, en una tabla de pedidos se almacena el
código del cliente que realiza el pedido. Este código debe corresponder al código de
algún cliente almacenado en la tabla de clientes. La restricción puede expresarse de la
siguiente manera:
create table Pedidos(
Codigo
integer not null primary key,
Cliente
integer not null references Clientes(Codigo),
/* … */
);
O, utilizando restricciones a nivel de tabla:
create table Pedidos(
Codigo
integer not null,
Cliente
integer not null,
/* … */
primary key (Codigo),
foreign key (Cliente) references Clientes(Codigo)
);
446 La Cara Oculta de Delphi
La columna o grupo de columnas a la que se hace referencia en la tabla maestra, la
columna Codigo de Clientes en este caso, debe ser la clave primaria de esta tabla o ser
una clave alternativa, esto es, debe haber sido definida una restricción unique sobre
la misma.
Si todo lo que pretendemos es que no se pueda introducir una referencia a cliente
inválida, se puede sustituir la restricción declarativa de integridad referencial por esta
cláusula:
create table Pedidos(
/* … */
check (Cliente in (select Codigo from Clientes))
);
La sintaxis de las expresiones será explicada en profundidad en el próximo capítulo,
pero esta restricción check sencillamente comprueba que la referencia al cliente
exista en la columna Codigo de la tabla Clientes.
Acciones referenciales
Sin embargo, las restricciones de integridad referencial ofrecen más que esta simple
comprobación. Cuando tenemos una de estas restricciones, el sistema toma las riendas cuando tratamos de eliminar una fila maestra que tiene filas dependientes asociadas, y cuando tratamos de modificar la clave primaria de una fila maestra con las
mismas condiciones. El estándar SQL-3 dicta una serie de posibilidades y reglas, denominadas acciones referenciales, que pueden aplicarse.
Lo más sencillo es prohibir estas operaciones, y es la solución que adoptan MS SQL
Server (incluyendo la versión 7) y las versiones de InterBase anteriores a la 5. En la
sintaxis más completa de SQL-3, esta política puede expresarse mediante la siguiente
cláusula:
create table Pedidos(
Codigo
integer not null primary key,
Cliente
integer not null,
/* … */
foreign key (Cliente) references Clientes(Codigo)
on delete no action
on update no action
);
Otra posibilidad es permitir que la acción sobre la tabla maestra se propague a las
filas dependientes asociadas: eliminar un cliente puede provocar la desaparición de
todos sus pedidos, y el cambio del código de un cliente modifica todas las referencias
a este cliente. Por ejemplo:
Breve introducción a SQL 447
create table Pedidos(
Codigo
integer not null primary key,
Cliente
integer not null
references Clientes(Codigo)
on delete no action on update cascade
/* … */
);
Observe que puede indicarse un comportamiento diferente para los borrados y para
las actualizaciones.
En el caso de los borrados, puede indicarse que la eliminación de una fila maestra
provoque que en la columna de referencia en las filas de detalles se asigne el valor
nulo, o el valor por omisión de la columna de referencia:
insert into Empleados(Codigo, Nombre, Apellidos)
values(-1, "D'Arche", "Jeanne");
create table Pedidos(
Codigo
integer not null primary key,
Cliente
integer not null
references Clientes(Codigo)
on delete no action on update cascade,
Empleado
integer default -1 not null
references Empleados(Codigo)
on delete set default on update cascade
/* … */
);
InterBase 5 implementa todas estas estrategias, para lo cual necesita crear índices que
le ayuden a verificar las restricciones de integridad referencial. La comprobación de la
existencia de la referencia en la tabla maestra se realiza con facilidad, pues se trata en
definitiva de una búsqueda en el índice único que ya ha sido creado para la gestión de
la clave. Para prohibir o propagar los borrados y actualizaciones que afectarían a filas
dependientes, la tabla que contiene la cláusula foreign key crea automáticamente un
índice sobre las columnas que realizan la referencia. De este modo, cuando sucede
una actualización en la tabla maestra, se pueden localizar con rapidez las posibles
filas afectadas por la operación. Este índice nos ayuda en Delphi en la especificación
de relaciones master/detail entre tablas. Los índices creados automáticamente para las
relaciones de integridad referencial reciben nombres con el formato rdb$foreignN,
donde N es un número serial.
Nombres para las restricciones
Cuando se define una restricción sobre una tabla, sea una verificación por condición
o una clave primaria, alternativa o externa, es posible asignarle un nombre a la restricción. Este nombre es utilizado por InterBase en el mensaje de error que se produce al violarse la restricción, pero su uso fundamental es la manipulación posterior
448 La Cara Oculta de Delphi
por parte de instrucciones como alter table, que estudiaremos en breve. Por ejemplo:
create table Empleados(
/* … */
Salario
integer default 0,
constraint
SalarioPositivo check(Salario >= 0)
/* … */
constraint
NombreUnico
unique(Apellidos, Nombre)
);
También es posible utilizar nombres para las restricciones cuando éstas se expresan a
nivel de columna. Las restricciones a las cuales no asignamos nombre reciben uno
automáticamente por parte del sistema.
Definición y uso de dominios
SQL permite definir algo similar a los tipos de datos de Pascal. Si estamos utilizando
cierto tipo de datos con frecuencia, podemos definir un dominio para ese tipo de
columna y utilizarlo consistentemente durante la definición del esquema de la base de
datos. Un dominio, sin embargo, va más allá de la simple definición del tipo, pues
permite expresar restricciones sobre la columna y valores por omisión. La sintaxis de
una definición de dominio en InterBase es la siguiente:
create domain NombreDominio [as]
TipoDeDato
[ValorPorOmisión]
[not null]
[check(Condición)]
[collate Criterio];
Cuando sobre un dominio se define una restricción de chequeo, no contamos con el
nombre de la columna. Si antes expresábamos la restricción de que los códigos de
provincia estuvieran en mayúsculas de esta forma:
Provincia
varchar(2) check(Provincia = upper(Provincia))
ahora necesitamos la palabra reservada value para referirnos al nombre de la columna:
create domain CodProv as
varchar(2)
check(value = upper(value));
El dominio definido, CodProv, puede utilizarse ahora para definir columnas:
Provincia
CodProv
Breve introducción a SQL 449
Las cláusulas check de las definiciones de dominio no pueden hacer referencia a
otras tablas.
Es aconsejable definir dominios en InterBase por una razón adicional: el Diccionario de Datos de Delphi los reconoce y asocia automáticamente a conjuntos de
atributos (attribute sets). De esta forma, se ahorra mucho tiempo en la configuración de los objetos de acceso a campos.
Creación de índices
Como ya he explicado, InterBase crea índices de forma automática para mantener las
restricciones de clave primaria, unicidad y de integridad referencial. En la mayoría de
los casos, estos índices bastan para que el sistema funcione eficientemente. No obstante, es necesario en ocasiones definir índices sobre otras columnas. Esta decisión
depende de la frecuencia con que se realicen consultas según valores almacenados en
estas columnas, o de la posibilidad de pedir que una tabla se ordene de acuerdo al
valor de las mismas. Por ejemplo, en la tabla de empleados es sensato pensar que el
usuario de la base de datos deseará ver a los empleados listados por orden alfabético,
o que querrá realizar búsquedas según un nombre y unos apellidos.
La sintaxis para crear un índice es la siguiente:
create [unique] [asc[ending] | desc[ending]] index Indice
on Tabla (Columna [, Columna …])
Por ejemplo, para crear un índice sobre los apellidos y el nombre de los empleados
necesitamos la siguiente instrucción:
create index NombreEmpleado on Empleados(Apellidos, Nombre)
Los índices creados por InterBase son todos sensibles a mayúsculas y minúsculas, y
todos son mantenidos por omisión. El concepto de índice definido por expresiones y
con condición de filtro es ajeno a la filosofía de SQL; este tipo de índices no se
adapta fácilmente a la optimización automática de consultas. InterBase no permite
tampoco crear índices sobre columnas definidas con la cláusula computed by.
450 La Cara Oculta de Delphi
Aunque definamos índices descendentes sobre una tabla en una base de datos
SQL, el Motor de Datos de Borland no lo utilizará para ordenar tablas. Exactamente lo que sucede es que el BDE no permite que una tabla (no una consulta)
pueda estar ordenada descendentemente por alguna de sus columnas, aunque la
tabla mencione un índice descendente en su propiedad IndexName. En tal caso, el
orden que se establece utiliza las mismas columnas del índice, pero ascendentemente.
Modificación de tablas e índices
SQL nos permite ser sabios y humanos a la vez: podemos equivocarnos en el diseño
de una tabla o de un índice, y corregir posteriormente nuestro disparate. Sin caer en
el sentimentalismo filosófico, es bastante común que una vez terminado el diseño de
una base de datos surja la necesidad de añadir nuevas columnas a las tablas para almacenar información imprevista, o que tengamos que modificar el tipo o las restricciones activas sobre una columna determinada.
La forma más simple de la instrucción de modificación de tablas es la que elimina
una columna de la misma:
alter table Tabla drop Columna [, Columna …]
También se puede eliminar una restricción si conocemos su nombre. Por ejemplo,
esta instrucción puede originar graves disturbios sociales:
alter table Empleados drop constraint SalarioPositivo;
Se pueden añadir nuevas columnas o nuevas restricciones sobre una tabla existente:
alter table Empleados add EstadoCivil varchar(8);
alter table Empleados
add check (EstadoCivil in ("Soltero","Casado","Polígamo"));
Para los índices existen también instrucciones de modificación. En este caso, el único
parámetro que se puede configurar es si el índice está activo o no:
alter index Indice (active | inactive);
Si un índice está inactivo, las modificaciones realizadas sobre la tabla no se propagan
al índice, por lo cual necesitan menos tiempo para su ejecución. Si va a efectuar una
entrada masiva de datos, quizás sea conveniente desactivar algunos de los índices secundarios, para mejorar el rendimiento de la operación. Luego, al activar el índice,
éste se reconstruye dando como resultado una estructura de datos perfectamente
Breve introducción a SQL 451
balanceada. Estas instrucciones pueden ejecutarse periódicamente, para garantizar
índices con tiempo de acceso óptimo:
alter index NombreEmpleado inactive;
alter index NombreEmpleado active;
Otra instrucción que puede mejorar el rendimiento del sistema y que está relacionada
con los índices es set statistics. Este comando calcula las estadísticas de uso de las
claves dentro de un índice. El valor obtenido, conocido como selectividad del índice, es
utilizado por InterBase para elaborar el plan de implementación de consultas. Normalmente no hay que invocar a esta función explícitamente, pero si las estadísticas de
uso del índice han variado mucho es quizás apropiado utilizar la instrucción:
set statistics index NombreEmpleado;
Por último, las instrucciones drop nos permiten borrar objetos definidos en la base
de datos, tanto tablas como índices:
drop table Tabla;
drop index Indice;
Creación de vistas
Uno de los recursos más potentes de SQL, y de las bases de datos relacionales en
general, es la posibilidad de definir tablas “virtuales” a partir de los datos almacenados en tablas “físicas”. Para definir una de estas tablas virtuales hay que definir qué
operaciones relacionales se aplican a qué tablas bases. Este tipo de tabla recibe el
nombre de vista.
Como todavía no conocemos el lenguaje de consultas, que nos permite especificar
las operaciones sobre tablas, postergaremos el estudio de las vistas para más adelante.
Creación de usuarios
InterBase soporta el concepto de usuarios a nivel del servidor, no de las bases de
datos. Inicialmente, todos los servidores definen un único usuario especial: SYSDBA.
Este usuario tiene los derechos necesarios para crear otros usuarios y asignarles contraseñas. Toda esa información se almacena en la base de datos isc4.gdb, que se instala
automáticamente con InterBase. La gestión de los nombres de usuarios y sus contraseñas se realiza mediante la utilidad Server Manager.
452 La Cara Oculta de Delphi
Dentro de esta aplicación, hay que ejecutar el comando de menú Tasks|User security,
para llegar al diálogo con el que podemos añadir, modificar o eliminar usuarios. La
siguiente imagen muestra el diálogo de creación de nuevos usuarios:
El nombre del usuario SYSDBA no puede cambiarse, pero es casi una obligación
cambiar su contraseña en cuanto termina la instalación de InterBase. Sin embargo,
podemos eliminar al administrador de la lista de usuarios del sistema. Si esto sucede,
ya no será posible añadir o modificar nuevos usuarios en ese servidor. Así que tenga
cuidado con lo que hace.
El sistema de seguridad explicado tiene un par de aparentes "fallos". En primer
lugar, cualquier usuario con acceso al disco duro puede sustituir el fichero isc4.gdb
con uno suyo. Más grave aún: si copiamos el fichero gdb de la base de datos en un
servidor en el cual conozcamos la contraseña del administrador, tendremos acceso total a los datos, aunque este acceso nos hubiera estado vedado en el servidor original.
En realidad, el fallo consiste en permitir que cualquier mequetrefe pueda acceder
a nuestras apreciadas bases de datos. Así que, antes de planear la protección del
sistema de gestión de base de datos (ya sea InterBase o cualquier otro), ocúpese
de controlar el acceso al servidor de la gente indeseable.
Breve introducción a SQL 453
Asignación de privilegios
Una vez creados los objetos de la base de datos, es necesario asignar derechos sobre
los mismos a los demás usuarios. Inicialmente, el dueño de una tabla es el usuario
que la crea, y tiene todos los derechos de acceso sobre la tabla. Los derechos de acceso indican qué operaciones pueden realizarse con la tabla. Naturalmente, los nombres de estos derechos o privilegios coinciden con los nombres de las operaciones
correspondientes:
Privilegio
select
update
insert
delete
all
execute
Operación
Lectura de datos
Modificación de datos existentes
Creación de nuevos registros
Eliminación de registros
Los cuatro privilegios anteriores
Ejecución (para procedimientos almacenados)
La instrucción que otorga derechos sobre una tabla es la siguiente:
grant Privilegios on Tabla to Usuarios [with grant option]
Por ejemplo:
/* Derecho de sólo-lectura al público en general */
grant select on Articulos to public;
/* Todos los derechos a un par de usuarios */
grant all privileges on Clientes to Spade, Marlowe;
/* Monsieur Poirot sólo puede modificar salarios (¡qué peligro!) */
grant update(Salario) on Empleados to Poirot;
/* Privilegio de inserción y borrado, con opción de concesión */
grant insert, delete on Empleados to Vance with grant option;
He mostrado unas cuantas posibilidades de la instrucción. En primer lugar, podemos
utilizar la palabra clave public cuando queremos conceder ciertos derechos a todos
los usuarios. En caso contrario, podemos especificar uno o más usuarios como destinatarios del privilegio. Luego, podemos ver que el privilegio update puede llevar
entre paréntesis la lista de columnas que pueden ser modificadas. Por último, vemos
que a Mr. Philo Vance no solamente le permiten contratar y despedir empleados,
sino que también, gracias a la cláusula with grant option, puede conceder estos
derechos a otros usuarios, aún no siendo el creador de la tabla. Esta opción debe
utilizarse con cuidado, pues puede provocar una propagación descontrolada de privilegios entre usuarios indeseables.
¿Y qué pasa si otorgamos privilegios y luego nos arrepentimos? No hay problema,
pues para esto tenemos la instrucción revoke:
454 La Cara Oculta de Delphi
revoke [grant option for] Privilegios on Tabla from Usuarios
Hay que tener cuidado con los privilegios asignados al público. La siguiente instrucción no afecta a los privilegios de Sam Spade sobre la tabla de artículos, porque antes
se le ha concedido al público en general el derecho de lectura sobre la misma:
/* Spade se ríe de este ridículo intento */
revoke all on Articulos from Spade;
Existen variantes de las instrucciones grant y revoke pensadas para asignar y retirar
privilegios sobre tablas a procedimientos almacenados, y para asignar y retirar derechos de ejecución de procedimientos a usuarios. Estas instrucciones se estudiarán en
el momento adecuado.
Roles
Los roles son una especificación del SQL-3 que InterBase 5 ha implementado. Si los
usuarios se almacenan y administran a nivel de servidor, los roles, en cambio, se definen a nivel de cada base de datos. De este modo, podemos trasladar con más facilidad una base de datos desarrollada en determinado servidor, con sus usuarios particulares, a otro servidor, en el cual existe históricamente otro conjunto de usuarios.
Primero necesitamos crear los roles adecuados en la base de datos:
create role Domador;
create role Payaso;
create role Mago;
Ahora debemos asignar los permisos sobre tablas y otros objetos a los roles, en vez
de a los usuarios directamente, como hacíamos antes. Observe que InterBase sigue
permitiendo ambos tipos de permisos:
grant all privileges on Animales to Domador, Mago;
grant select on Animales to Payaso;
Hasta aquí no hemos mencionado a los usuarios, por lo que los resultados de estas
instrucciones son válidos de servidor a servidor. Finalmente, debemos asignar los
usuarios en sus respectivos roles, y esta operación sí depende del conjunto de usuarios de un servidor:
grant Payaso to Bill, Steve, RonaldMcDonald;
grant Domador to Ian with admin option;
Breve introducción a SQL 455
La opción with admin option me permite asignar el rol de domador a otros usuarios. De este modo, siempre habrá quien se ocupe de los animales cuando me ausente del circo por vacaciones.
Un ejemplo completo de script SQL
Incluyo a continuación un ejemplo completo de script SQL con la definición de tablas
e índices para una sencilla aplicación de entrada de pedidos. En un capítulo posterior,
ampliaremos este script para incluir triggers, generadores y procedimientos almacenados que ayuden a expresar las reglas de empresa de la base de datos.
create database "C:\Pedidos\Pedidos.GDB"
user "SYSDBA" password "masterkey"
page_size 2048;
/* Creación de las tablas */
create table Clientes
Codigo
Nombre
Direccion1
Direccion2
Telefono
UltimoPedido
primary key
(
int not null,
varchar(30) not null,
varchar(30),
varchar(30),
varchar(15),
date default "Now",
(Codigo)
);
create table Empleados (
Codigo
int not null,
Apellidos
varchar(20) not null,
Nombre
varchar(15) not null,
FechaContrato date default "Now",
Salario
int,
NombreCompleto computed by (Nombre || " " || Apellidos),
primary key
(Codigo)
);
create table Articulos (
Codigo
int not null,
Descripcion
varchar(30) not null,
Existencias
int default 0,
Pedidos
int default 0,
Costo
int,
PVP
int,
primary key
(Codigo)
);
create table Pedidos (
Numero
int not null,
RefCliente
int not null,
456 La Cara Oculta de Delphi
RefEmpleado
FechaVenta
Total
int,
date default "Now",
int default 0,
primary key
foreign key
(Numero),
(RefCliente) references Clientes (Codigo)
on delete no action on update cascade
);
create table Detalles
RefPedido
NumLinea
RefArticulo
Cantidad
Descuento
primary key
foreign key
foreign key
(
int not null,
int not null,
int not null,
int default 1 not null,
int default 0 not null
check (Descuento between 0 and 100),
(RefPedido, NumLinea),
(RefPedido) references Pedidos (Numero),
on delete cascade on update cascade
(RefArticulo) references Articulos (Codigo)
on delete no action on update cascade
);
/* Indices secundarios */
create index NombreCliente on Clientes(Nombre);
create index NombreEmpleado on Empleados(Apellidos, Nombre);
create index Descripcion on Articulos(Descripcion);
/***** FIN DEL SCRIPT *****/
Capítulo
22
Consultas y modificaciones en
SQL
D
ESDE SU MISMO ORIGEN,
la definición del modelo relacional de Codd incluía la necesidad de un lenguaje para realizar consultas ad-hoc. Debido a la
forma particular de representación de datos utilizada por este modelo, el
tener relaciones o tablas y no contar con un lenguaje de alto nivel para reintegrar los
datos almacenados es más bien una maldición que una bendición. Es asombroso, por
lo tanto, cuánto tiempo vivió el mundo de la programación sobre PCs sin poder
contar con SQL o algún mecanismo similar. Aún hoy, cuando un programador de
Clipper o de COBOL comienza a trabajar en Delphi, se sorprende de las posibilidades que le abre el uso de un lenguaje de consultas integrado dentro de sus aplicaciones.
La instrucción select, del Lenguaje de Manipulación de Datos de SQL nos permite
consultar la información almacenada en una base de datos relacional. La sintaxis y
posibilidades de esta sola instrucción son tan amplias y complicadas como para merecer un capítulo para ella solamente. En este mismo capítulo estudiaremos las posibilidades de las instrucciones update, insert y delete, que permiten la modificación
del contenido de las tablas de una base de datos.
Para los ejemplos de este capítulo utilizaré la base de datos mastsql.gdb que viene con
los ejemplos de Delphi, en el subdirectorio demos\data, a partir del directorio de instalación de Delphi. Estas tablas también se encuentran en formato Paradox, en el
mismo subdirectorio. Puede utilizar el programa Database Desktop para probar el uso
de SQL sobre tablas Paradox y dBase. Sin embargo, trataré de no tocar las peculiaridades del Motor de SQL Local ahora, dejando esto para el capítulo 26, que explica
cómo utilizar SQL desde Delphi.
La instrucción select: el lenguaje de consultas
A grandes rasgos, la estructura de la instrucción select es la siguiente:
458 La Cara Oculta de Delphi
select [distinct] lista-de-expresiones
from lista-de-tablas
[where condición-de-selección]
[group by lista-de-columnas]
[having condición-de-selección-de-grupos]
[order by lista-de-columnas]
[union instrucción-de-selección]
¿Qué se supone que “hace” una instrucción select? Esta es la pregunta del millón:
una instrucción select, en principio, no “hace” sino que “define”. La instrucción
define un conjunto virtual de filas y columnas, o más claramente, define una tabla
virtual. Qué se hace con esta “tabla virtual” es ya otra cosa, y depende de la aplicación que le estemos dando. Si estamos en un intérprete que funciona en modo texto,
puede ser que la ejecución de un select se materialice mostrando en pantalla los resultados, página a página, o quizás en salvar el resultado en un fichero de texto. En
Delphi, las instrucciones select se utilizan para “alimentar” un componente denominado TQuery, al cual se le puede dar casi el mismo uso que a una tabla “real”, almacenada físicamente.
A pesar de la multitud de secciones de una selección completa, el formato básico de
la misma es muy sencillo, y se reduce a las tres primeras secciones:
select lista-de-expresiones
from lista-de-tablas
[where condición-de-selección]
La cláusula from indica de dónde se extrae la información de la consulta, en la cláusula where opcional se dice qué filas deseamos en el resultado, y con select especificamos los campos o expresiones de estas filas que queremos dejar. Muchas veces se
dice que la cláusula where limita la tabla “a lo largo”, pues elimina filas de la misma,
mientras que la cláusula select es una selección “horizontal”.
Consultas y modificaciones en SQL 459
La condición de selección
La forma más simple de instrucción select es la que extrae el conjunto de filas de
una sola tabla que satisfacen cierta condición. Por ejemplo:
select *
from
Customer
where State = "HI"
Esta consulta simple debe devolver todos los datos de los clientes ubicados en Hawai. El asterisco que sigue a la cláusula select es una alternativa a listar todos los
nombres de columna de la tabla que se encuentra en la cláusula from.
En este caso hemos utilizado una simple igualdad. La condición de búsqueda de la
cláusula where admite los seis operadores de comparación (=, <>, <, >, <=, >=) y
la creación de condiciones compuestas mediante el uso de los operadores lógicos
and, or y not. La prioridad entre estos tres es la misma que en Pascal. Sin embargo,
no hace falta encerrar las comparaciones entre paréntesis, porque incluso not se
evalúa después de cualquier comparación:
select
from
where
and
*
Customer
State = "HI"
LastInvoiceDate > "1/1/1993"
Observe cómo la constante de fecha puede escribirse como si fuera una cadena de
caracteres.
Operadores de cadenas
Además de las comparaciones usuales, necesitamos operaciones más sofisticadas para
trabajar con las cadenas de caracteres. Uno de los operadores admitidos por SQL
estándar es el operador like, que nos permite averiguar si una cadena satisface o no
cierto patrón de caracteres. El segundo operando de este operador es el patrón, una
cadena de caracteres, dentro de la cual podemos incluir los siguientes comodines:
Carácter
%
_ (subrayado)
Significado
Cero o más caracteres arbitrarios.
Un carácter cualquiera.
No vaya a pensar que el comodín % funciona como el asterisco en los nombres de
ficheros de MS-DOS; SQL es malo, pero no tanto. Después de colocar un asterisco
en un nombre de fichero, MS-DOS ignora cualquier otro carácter que escribamos a
continuación, mientras que like sí los tiene en cuenta. También es diferente el com-
460 La Cara Oculta de Delphi
portamiento del subrayado con respecto al signo de interrogación de DOS: en el
intérprete de comandos de este sistema operativo significa cero o un caracteres,
mientras que en SQL significa exactamente un carácter.
Expresión
Customer like '% Ocean'
Fruta like 'Manzana_'
Cadena aceptada
'Pacific Ocean'
'Manzanas'
Cadena no aceptada
'Ocean Paradise'
'Manzana'
También es posible aplicar funciones para extraer o modificar información de una
cadena de caracteres; el repertorio de funciones disponibles depende del sistema de
bases de datos con el que se trabaje. Por ejemplo, el intérprete SQL para tablas locales de Delphi acepta las funciones upper, lower, trim y substring de SQL estándar.
Esta última función tiene una sintaxis curiosa. Por ejemplo, para extraer las tres primeras letras de una cadena se utiliza la siguiente expresión:
select substring(Nombre from 1 for 3)
from
Empleados
Si estamos trabajando con InterBase, podemos aumentar el repertorio de funciones
utilizando funciones definidas por el usuario. En el capítulo 36 mostraremos cómo.
El valor nulo: enfrentándonos a lo desconocido
La edad de una persona es un valor no negativo, casi siempre menor de 969 años,
que es la edad a la que dicen que llegó Matusalén. Puede ser un entero igual a 1, 20,
40 ... o no conocerse. Se puede “resolver” este problema utilizando algún valor especial para indicar el valor desconocido, digamos -1. Claro, el valor especial escogido no
debe formar parte del dominio posible de valores. Por ejemplo, en el archivo de Urgencias de un hospital americano, John Doe es un posible valor para los pacientes no
identificados.
¿Y qué pasa si no podemos prescindir de valor alguno dentro del rango? Porque John
Doe es un nombre raro, pero posible. ¿Y qué pasaría si se intentan operaciones con
valores desconocidos? Por ejemplo, para representar un envío cuyo peso se desconoce se utiliza el valor -1, un peso claramente imposible excepto para entes como
Kate Moss. Luego alguien pregunta a la base de datos cuál es el peso total de los
envíos de un período dado. Si en ese período se realizaron dos envíos, uno de 25
kilogramos y otro de peso desconocido, la respuesta errónea será un peso total de 24
kilogramos. Es evidente que la respuesta debería ser, simplemente, “peso total desconocido”.
La solución de SQL es introducir un nuevo valor, null, que pertenece a cualquier
dominio de datos, para representar la información desconocida. La regla principal
Consultas y modificaciones en SQL 461
que hay que conocer cuando se trata con valores nulos es que cualquier expresión,
aparte de las expresiones lógicas, en la que uno de sus operandos tenga el valor nulo
se evalúa automáticamente a nulo. Esto es: nulo más veinticinco vale nulo, ¿de
acuerdo?
Cuando se trata de evaluar expresiones lógicas en las cuales uno de los operandos
puede ser nulo las cosas se complican un poco, pues hay que utilizar una lógica de
tres valores. De todos modos, las reglas son intuitivas. Una proposición falsa en conjunción con cualquier otra da lugar a una proposición falsa; una proposición verdadera en disyunción con cualquier otra da lugar a una proposición verdadera. La siguiente tabla resume las reglas del uso del valor nulo en expresiones lógicas:
AND
false
null
true
false
false
false
false
null
false
null
null
true
false
null
true
OR
false
null
true
false
false
null
true
null
null
null
true
true
true
true
true
Por último, si lo que desea es saber si el valor de un campo es nulo o no, debe utilizar
el operador is null:
select *
from
Events
where Event_Description is null
La negación de este operador es el operador is not null, con la negación en medio.
Esta sintaxis no es la usual en lenguajes de programación, pero se suponía que SQL
debía parecerse lo más posible al idioma inglés.
Eliminación de duplicados
Normalmente, no solemos guardar filas duplicadas en una tabla, por razones obvias.
Pero es bastante frecuente que el resultado de una consulta contenga filas duplicadas.
El operador distinct se puede utilizar, en la cláusula select, para corregir esta situación. Por ejemplo, si queremos conocer en qué ciudades residen nuestros clientes
podemos preguntar lo siguiente:
select City
from
Customer
Pero en este caso obtenemos 55 ciudades, algunas de ellas duplicadas. Para obtener
las 47 diferentes ciudades de la base de datos tecleamos:
select distinct City
from
Customer
462 La Cara Oculta de Delphi
Productos cartesianos y encuentros
Como para casi todas las cosas, la gran virtud del modelo relacional es, a la vez, su
mayor debilidad. Me refiero a que cualquier modelo del “mundo real” puede representarse atomizándolo en relaciones: objetos matemáticos simples y predecibles, de
fácil implementación en un ordenador (¡aquellos ficheros dbfs…!). Para reconstruir el
modelo original, en cambio, necesitamos una operación conocida como “encuentro
natural” (natural join).
Comencemos con algo más sencillo: con los productos cartesianos. Un producto
cartesiano es una operación matemática entre conjuntos, la cual produce todas las
parejas posibles de elementos, perteneciendo el primer elemento de la pareja al primer conjunto, y el segundo elemento de la pareja al segundo conjunto. Esta es la
operación habitual que efectuamos mentalmente cuando nos ofrecen el menú en un
restaurante. Los dos conjuntos son el de los primeros platos y el de los segundos
platos. Desde la ventana de la habitación donde escribo puedo ver el menú del mesón de la esquina:
Primer plato
Segundo plato
Macarrones a la boloñesa
Judías verdes con jamón
Crema de champiñones
Escalope a la milanesa
Pollo a la parrilla
Chuletas de cordero
Si PrimerPlato y SegundoPlato fuesen tablas de una base de datos, la instrucción
select *
from
PrimerPlato, SegundoPlato
devolvería el siguiente conjunto de filas:
Primer plato
Segundo plato
Macarrones a la boloñesa
Macarrones a la boloñesa
Macarrones a la boloñesa
Judías verdes con jamón
Judías verdes con jamón
Judías verdes con jamón
Crema de champiñones
Crema de champiñones
Crema de champiñones
Escalope a la milanesa
Pollo a la parrilla
Chuletas de cordero
Escalope a la milanesa
Pollo a la parrilla
Chuletas de cordero
Escalope a la milanesa
Pollo a la parrilla
Chuletas de cordero
Es fácil ver que, incluso con tablas pequeñas, el tamaño del resultado de un producto
cartesiano es enorme. Si a este ejemplo “real” le añadimos el hecho también “real”
Consultas y modificaciones en SQL 463
de que el mismo mesón ofrece al menos tres tipos diferentes de postres, elegir nuestro menú significa seleccionar entre 27 posibilidades distintas. Por eso siempre pido
un café solo al terminar con el segundo plato.
Claro está, no todas las combinaciones de platos hacen una buena comida. Pero para
eso tenemos la cláusula where: para eliminar aquellas combinaciones que no satisfacen ciertos criterios. ¿Volvemos al mundo de las facturas y órdenes de compra? En la
base de datos dbdemos, la información sobre pedidos está en la tabla orders, mientras
que la información sobre clientes se encuentra en customer. Queremos obtener la lista
de clientes y sus totales por pedidos. Estupendo, pero los totales de pedidos están en
la tabla orders, en el campo ItemsTotal, y en esta tabla sólo tenemos el código del
cliente, en el campo CustNo. Los nombres de clientes se encuentran en el campo
Company de la tabla customer, donde además volvemos a encontrar el código de cliente,
CustNo. Así que partimos de un producto cartesiano entre las dos tablas, en el cual
mostramos los nombres de clientes y los totales de pedidos:
select Company, ItemsTotal
from
Customer, Orders
Como tenemos unos 55 clientes y 205 pedidos, esta inocente consulta genera unas
11275 filas. La última vez que hice algo así fue siendo estudiante, en el centro de
cálculos de mi universidad, para demostrarle a una profesora de Filosofía lo ocupado
que estaba en ese momento.
En realidad, de esas 11275 filas nos sobran unas 11070, pues solamente son válidas
las combinaciones en las que coinciden los códigos de cliente. La instrucción que
necesitamos es:
select Company, ItemsTotal
from
Customer, Orders
where Customer.CustNo = Orders.CustNo
Esto es un encuentro natural, un producto cartesiano restringido mediante la igualdad
de los valores de dos columnas de las tablas básicas.
El ejemplo anterior ilustra también un punto importante: cuando queremos utilizar
en la instrucción el nombre de los campos ItemsTotal y Company los escribimos tal y
como son. Sin embargo, cuando utilizamos CustNo hay que aclarar a qué tabla original nos estamos refiriendo. Esta técnica se conoce como calificación de campos.
¿Un ejemplo más complejo? Suponga que desea añadir el nombre del empleado que
recibió el pedido. La tabla orders tiene un campo EmpNo para el código del empleado,
mientras que la información sobre empleados se encuentra en la tabla employee. La
instrucción necesaria es una simple ampliación de la anterior:
464 La Cara Oculta de Delphi
select
from
where
and
Company, ItemsTotal, FirstName || " " || LastName
Customer, Orders, Employee
Customer.CustNo = Orders.CustNo
Orders.EmpNo = Employee.EmpNo
Con 42 empleados en la base de datos de ejemplo y sin las restricciones de la cláusula
where, hubiéramos obtenido un resultado de 473550 filas.
Ordenando los resultados
Una de las garantías de SQL es que podemos contar con que el compilador SQL
genere automáticamente, o casi, el mejor código posible para evaluar las instrucciones. Esto también significa que, en el caso general, no podemos predecir con completa seguridad cuál será la estrategia utilizada para esta evaluación. Por ejemplo, en la
instrucción anterior no sabemos si el compilador va a recorrer cada fila de la tabla de
clientes para encontrar las filas correspondientes de pedidos o empleados, o si resultará más ventajoso recorrer las filas de pedidos para recuperar los nombres de clientes y empleados. Esto quiere decir, en particular, que no sabemos en qué orden se
nos van a presentar las filas. En mi ordenador, utilizando Database Desktop sobre las
tablas originales en formato Paradox, parece ser que se recorren primeramente las
filas de la tabla de empleados.
¿Qué hacemos si el resultado debe ordenarse por el nombre de compañía? Para esto
contamos con la cláusula order by, que se sitúa siempre al final de la consulta. En
este caso, ordenamos por nombre de compañía el resultado con la instrucción:
select
from
where
and
order
Company, ItemsTotal, FirstName || " " || LastName
Customer, Orders, Employee
Customer.CustNo = Orders.CustNo
Orders.EmpNo = Employee.EmpNo
by Company
No se puede ordenar por una fila que no existe en el resultado de la instrucción. Si
quisiéramos que los pedidos de cada compañía se ordenaran, a su vez, por la fecha de
venta, habría que añadir el campo SalesDate al resultado y modificar la cláusula de
ordenación del siguiente modo:
select
from
where
and
order
Company, ItemsTotal, SalesDate, FirstName || " " || LastName
Customer, Orders, Employee
Customer.CustNo = Orders.CustNo
Orders.EmpNo = Employee.EmpNo
by Company, SalesDate desc
Con la opción desc obtenemos los registros por orden descendente de fechas: primero los más recientes. Existe una opción asc, para cuando queremos enfatizar el
Consultas y modificaciones en SQL 465
sentido ascendente de una ordenación. Generalmente no se usa, pues es lo que
asume el compilador.
Otra posibilidad de la cláusula order by es utilizar números en vez de nombres de
columnas. Esto es necesario si se utilizan expresiones en la cláusula select y se quiere
ordenar por dicha expresión. Por ejemplo:
select OrderNo, SalesDate, ItemsTotal - AmountPaid
from
Orders
order by 3 desc
No se debe abusar de los números de columnas, pues esta técnica puede desaparecer
en SQL-3 y hace menos legible la consulta. Una forma alternativa de ordenar por
columnas calculadas es utilizar sinónimos para las columnas:
select OrderNo, SalesDate, ItemsTotal – AmountPaid as Diferencia
from
Orders
order by Diferencia desc
El uso de grupos
Ahora queremos sumar todos los totales de los pedidos para cada compañía, y ordenar el resultado por este total de forma descendente, para obtener una especie de
ranking de las compañías según su volumen de compras. Esto es, hay que agrupar
todas las filas de cada compañía y mostrar la suma de cierta columna dentro de cada
uno de esos grupos.
Para producir grupos de filas en SQL se utiliza la cláusula group by. Cuando esta
cláusula está presente en una consulta, va situada inmediatamente después de la cláusula where, o de la cláusula from si no se han efectuado restricciones. En nuestro
caso, la instrucción con la cláusula de agrupamiento debe ser la siguiente:
select
from
where
group
order
Company, sum(ItemsTotal)
Customer, Orders
Customer.CustNo = Orders.OrderNo
by Company
by 2 desc
Observe la forma en la cual se le ha aplicado la función sum a la columna ItemsTotal.
Aunque pueda parecer engorroso el diseño de una consulta con grupos, hay una
regla muy fácil que simplifica los razonamientos: en la cláusula select solamente
pueden aparecer columnas especificadas en la cláusula group by, o funciones estadísticas aplicadas a cualquier otra expresión. Company, en este ejemplo, puede aparecer directamente porque es la columna por la cual se está agrupando. Si quisiéramos
obtener además el nombre de la persona de contacto en la empresa, el campo Contact
de la tabla customer, habría que agregar esta columna a la cláusula de agrupación:
466 La Cara Oculta de Delphi
select
from
where
group
order
Company, Contact, sum(ItemsTotal)
Customer, Orders
Customer.CustNo = Orders.OrderNo
by Company, Contact
by 2 desc
En realidad, la adición de Contact es redundante, pues Company es única dentro de la
tabla customer, pero eso lo sabemos nosotros, no el compilador de SQL.
Funciones de conjuntos
Existen cinco funciones de conjuntos en SQL, conocidas en inglés como aggregate
functions. Estas funciones son:
Función
count
min
max
sum
avg
Significado
Cantidad de valores no nulos en el grupo
El valor mínimo de la columna dentro del grupo
El valor máximo de la columna dentro del grupo
La suma de los valores de la columna dentro del grupo
El promedio de la columna dentro del grupo
Por supuesto, no toda función es aplicable a cualquier tipo de columna. Las sumas,
por ejemplo, solamente valen para columnas de tipo numérico. Hay otros detalles
curiosos relacionados con estas funciones, como que los valores nulos son ignorados
por todas, o que se puede utilizar un asterisco como parámetro de la función count.
En este último caso, se calcula el número de filas del grupo. Así que no apueste a que
la siguiente consulta dé siempre dos valores idénticos, si es posible que la columna
involucrada contenga valores nulos:
select avg(Columna), sum(Columna)/count(*)
from
Tabla
En el ejemplo se muestra la posibilidad de utilizar funciones de conjuntos sin utilizar
grupos. En esta situación se considera que toda la tabla constituye un único grupo.
Es también posible utilizar el operador distinct como prefijo del argumento de una
de estas funciones:
select Company, count(distinct EmpNo)
from
Customer, Orders
where Customer.CustNo = Orders.CustNo
La consulta anterior muestra el número de empleados que han atendido los pedidos
de cada compañía.
Consultas y modificaciones en SQL 467
La cláusula having
Según lo que hemos explicado hasta el momento, en una instrucción select se evalúa
primeramente la cláusula from, que indica qué tablas participan en la consulta, luego
se eliminan las filas que no satisfacen la cláusula where y, si hay un group by por
medio, se agrupan las filas resultantes. Hay una posibilidad adicional: después de
agrupar se pueden descartar filas consolidadas de acuerdo a otra condición, esta vez
expresada en una cláusula having. En la parte having de la consulta solamente pueden aparecer columnas agrupadas o funciones estadísticas aplicadas al resto de las
columnas. Por ejemplo:
select
from
where
group
having
Company
Customer, Orders
Customer.CustNo = Orders.CustNo
by Company
count(*) > 1
La consulta anterior muestra las compañías que han realizado más de un pedido. Es
importante darse cuenta de que no podemos modificar esta consulta para que nos
muestre las compañías que no han realizado todavía pedidos.
Una regla importante de optimización: si en la cláusula having existen condiciones que implican solamente a las columnas mencionadas en la cláusula group by,
estas condiciones deben moverse a la cláusula where. Por ejemplo, si queremos
eliminar de la consulta utilizada como ejemplo a las compañías cuyo nombre
termina con las siglas 'S.L.' debemos hacerlo en where, no en group by. ¿Para
qué esperar a agrupar para eliminar filas que podían haberse descartado antes?
Aunque muchos compiladores realizan esta optimización automáticamente, es
mejor no fiarse.
El uso de sinónimos para tablas
Es posible utilizar dos o más veces una misma tabla en una misma consulta. Si hacemos esto tendremos que utilizar sinónimos para distinguir entre los distintos usos de
la tabla en cuestión. Esto será necesario al calificar los campos que utilicemos. Un
sinónimo es simplemente un nombre que colocamos a continuación del nombre de
una tabla en la cláusula from, y que en adelante se usa como sustituto del nombre de
la tabla.
Por ejemplo, si quisiéramos averiguar si hemos introducido por error dos veces a la
misma compañía en la tabla de clientes, pudiéramos utilizar la instrucción:
468 La Cara Oculta de Delphi
select
from
where
and
distinct C1.Company
Customer C1, Customer C2
C1.CustNo < C2.CustNo
C1.Company = C2.Company
En esta consulta C1 y C2 se utilizan como sinónimos de la primera y segunda aparición, respectivamente, de la tabla customer. La lógica de la consulta es sencilla. Buscamos todos los pares que comparten el mismo nombre de compañía y eliminamos
aquellos que tienen el mismo código de compañía. Pero en vez de utilizar una desigualdad en la comparación de códigos, utilizamos el operador “menor que”, para
eliminar la aparición de pares dobles en el resultado previo a la aplicación del operador distinct. Estamos aprovechando, por supuesto, la unicidad del campo CustNo.
La siguiente consulta muestra otro caso en que una tabla aparece dos veces en una
cláusula from. En esta ocasión, la base de datos es iblocal, el ejemplo InterBase que
viene con Delphi. Queremos mostrar los empleados junto con los jefes de sus departamentos:
select
from
where
and
and
order
e2.full_name, e1.full_name
employee e1, department d, employee e2
d.dept_no = e1.dept_no
d.mngr_no = e2.emp_no
e1.emp_no <> e2.emp_no
by 1, 2
Aquellos lectores que hayan trabajado en algún momento con lenguajes xBase reconocerán en los sinónimos SQL un mecanismo similar al de los “alias” de xBase. Delphi utiliza, además, los sinónimos de tablas en el intérprete de SQL local cuando el
nombre de la tabla contiene espacios en blanco o el nombre de un directorio.
Subconsultas: selección única
Si nos piden el total vendido a una compañía determinada, digamos a Ocean Paradise, podemos resolverlo ejecutando dos instrucciones diferentes. En la primera
obtenemos el código de Ocean Paradise:
select Customer.CustNo
from
Customer
where Customer.Company = "Ocean Paradise"
El código buscado es, supongamos, 1510. Con este valor en la mano, ejecutamos la
siguiente instrucción:
select sum(Orders.ItemsTotal)
from
Orders
where Orders.CustNo = 1510
Consultas y modificaciones en SQL 469
Incómodo, ¿no es cierto? La alternativa es utilizar la primera instrucción como una
expresión dentro de la segunda, del siguiente modo:
select sum(Orders.ItemsTotal)
from
Orders
where Orders.CustNo = (
select Customer.CustNo
from
Customer
where Customer.Company = "Ocean Paradise")
Para que la subconsulta anterior pueda funcionar correctamente, estamos asumiendo
que el conjunto de datos retornado por la subconsulta produce una sola fila. Esto es,
realmente, una apuesta arriesgada. Puede fallar por dos motivos diferentes: puede
que la subconsulta no devuelva ningún valor o puede que devuelva más de uno. Si no
se devuelve ningún valor, se considera que la subconsulta devuelve el valor null. Si
devuelve dos o más valores, el intérprete produce un error.
A este tipo de subconsulta que debe retornar un solo valor se le denomina selección
única, en inglés, singleton select. Las selecciones únicas también pueden utilizarse con
otros operadores de comparación, además de la igualdad. Así por ejemplo, la siguiente consulta retorna información sobre los empleados contratados después de
Pedro Pérez:
select *
from
Employee E1
where E1.HireDate > (
select E2.HireDate
from
Employee E2
where E2.FirstName = "Pedro"
and E2.LastName = "Pérez")
Si está preguntándose acerca de la posibilidad de cambiar el orden de los operandos,
ni lo sueñe. La sintaxis de SQL es muy rígida, y no permite este tipo de virtuosismos.
Subconsultas: los operadores in y exists
En el ejemplo anterior garantizábamos la singularidad de la subconsulta gracias a la
cláusula where, que especificaba una búsqueda sobre una clave única. Sin embargo,
también se pueden aprovechar las situaciones en que una subconsulta devuelve un
conjunto de valores. En este caso, el operador a utilizar cambia. Por ejemplo, si queremos los pedidos correspondientes a las compañías en cuyo nombre figura la palabra Ocean, podemos utilizar la instrucción:
select *
from
Orders
where Orders.CustNo in (
470 La Cara Oculta de Delphi
select Customer.CustNo
from
Customer
where upper(Customer.Company) like "%OCEAN%")
El nuevo operador es el operador in, y la expresión es verdadera si el operando izquierdo se encuentra en la lista de valores retornada por la subconsulta. Esta consulta
puede descomponerse en dos fases. Durante la primera fase se evalúa el segundo
select:
select Customer.CustNo
from
Customer
where upper(Customer.Company) like "%OCEAN%"
El resultado de esta consulta consiste en una serie de códigos: aquellos que corresponden a las compañías con Ocean en su nombre. Supongamos que estos códigos
sean 1510 (Ocean Paradise) y 5515 (Ocean Adventures). Entonces puede ejecutarse
la segunda fase de la consulta, con la siguiente instrucción, equivalente a la original:
select *
from
Orders
where Orders.OrderNo in (1510, 5515)
Este otro ejemplo utiliza la negación del operador in. Si queremos las compañías que
no nos han comprado nada, hay que utilizar la siguiente consulta:
select *
from
Customer
where Customer.CustNo not in (
select Orders.CustNo
from
Orders)
Otra forma de plantearse las consultas anteriores es utilizando el operador exists.
Este operador se aplica a una subconsulta y devuelve verdadero en cuanto localiza
una fila que satisface las condiciones de la instrucción select. El primer ejemplo de
este epígrafe puede escribirse de este modo:
select *
from
Orders
where exists
select
from
where
and
(
*
Customer
upper(Customer.Company) like "%OCEAN%"
Orders.CustNo = Customer.CustNo)
Observe el asterisco en la cláusula select de la subconsulta. Como lo que nos interesa es saber si existen filas que satisfacen la expresión, nos da lo mismo qué valor se
está retornando. El segundo ejemplo del operador in se convierte en lo siguiente al
utilizar exists:
Consultas y modificaciones en SQL 471
select *
from
Customer
where not exists (
select *
from
Orders
where Orders.CustNo = Customer.CustNo)
Subconsultas correlacionadas
Preste atención al siguiente detalle: la última subconsulta del epígrafe anterior tiene
una referencia a una columna perteneciente a la tabla definida en la cláusula from
más externa. Esto quiere decir que no podemos explicar el funcionamiento de la
instrucción dividiéndola en dos fases, como con las selecciones únicas: la ejecución
de la subconsulta y la simplificación de la instrucción externa. En este caso, para cada
fila retornada por la cláusula from externa, la tabla customer, hay que volver a evaluar
la subconsulta teniendo en cuenta los valores actuales: los de la columna CustNo de la
tabla de clientes. A este tipo de subconsultas se les denomina, en el mundo de la
programación SQL, subconsultas correlacionadas.
Si hay que mostrar los clientes que han pagado algún pedido contra reembolso (en
inglés, COD, o cash on delivery), podemos realizar la siguiente consulta con una subselección correlacionada:
select *
from
Customer
where 'COD' in (
select distinct PaymentMethod
from
Orders
where Orders.CustNo = Customer.CustNo)
En esta instrucción, para cada cliente se evalúan los pedidos realizados por el mismo,
y se muestra el cliente solamente si dentro del conjunto de métodos de pago está la
cadena 'COD'. El operador distinct de la subconsulta es redundante, pero nos ayuda
a entenderla mejor.
Otra subconsulta correlacionada: queremos los clientes que no han comprado nada
aún. Ya vimos como hacerlo utilizando el operador not in ó el operador not exists.
Una alternativa es la siguiente:
select *
from
Customer
where 0 = (
select count(*)
from
Orders
where Orders.CustNo = Customer.CustNo)
Sin embargo, utilizando SQL Local esta consulta es más lenta que las otras dos soluciones. La mayor importancia del concepto de subconsulta correlacionada tiene que
472 La Cara Oculta de Delphi
ver con el hecho de que algunos sistemas de bases de datos limitan las actualizaciones a vistas definidas con instrucciones que contienen subconsultas de este tipo.
Equivalencias de subconsultas
En realidad, las subconsultas son un método para aumentar la expresividad del lenguaje SQL, pero no son imprescindibles. Con esto quiero decir que muchas consultas
se formulan de modo más natural si se utilizan subconsultas, pero que existen otras
consultas equivalentes que no hacen uso de este recurso. La importancia de esta equivalencia reside en que el intérprete de SQL Local de Delphi 1 no permitía subconsultas. Los desarrolladores que estén programando aplicaciones con Delphi 1 para
Windows 3.1 y Paradox o dBase deben tener en cuenta esta restricción.
Un problema relacionado es que, aunque un buen compilador de SQL debe poder
identificar las equivalencias y evaluar la consulta de la forma más eficiente, en la
práctica el utilizar ciertas construcciones sintácticas puede dar mejor resultado que
utilizar otras equivalentes, de acuerdo al compilador que empleemos.
Veamos algunas equivalencias. Teníamos una consulta, en el epígrafe sobre selecciones únicas, que mostraba el total de compras de Ocean Paradise:
select sum(Orders.ItemsTotal)
from
Orders
where Orders.CustNo = (
select Customer.CustNo
from
Customer
where Customer.Company = "Ocean Paradise")
Esta consulta es equivalente a la siguiente:
select
from
where
and
sum(ItemsTotal)
Customer, Orders
Customer.Company = "Ocean Paradise"
Customer.CustNo = Orders.OrderNo
Aquella otra consulta que mostraba los pedidos de las compañías en cuyo nombre
figuraba la palabra “Ocean”:
select *
from
Orders
where Orders.CustNo in (
select Customer.CustNo
from
Customer
where upper(Customer.Company) like "%OCEAN%")
es equivalente a esta otra:
Consultas y modificaciones en SQL 473
select
from
where
and
*
Customer, Orders
upper(Customer.Company) like "%OCEAN%"
Customer.CustNo = Orders.CustNo
Para esta consulta en particular, ya habíamos visto una consulta equivalente que hacía
uso del operador exists; en este caso, es realmente más difícil de entender la consulta
con exists que su equivalente sin subconsultas.
La consulta correlacionada que buscaba los clientes que en algún pedido habían pagado contra reembolso:
select *
from
Customer
where 'COD' in (
select distinct PaymentMethod
from
Orders
where Orders.CustNo = Customer.CustNo)
puede escribirse, en primer lugar, mediante una subconsulta no correlacionada:
select *
from
Customer
where Customer.CustNo in (
select Orders.CustNo
from
Orders
where PaymentMethod = 'COD')
pero también se puede expresar en forma “plana”:
select
from
where
and
distinct Customer.CustNo, Customer.Company
Customer, Orders
Customer.CustNo = Orders.CustNo
Orders.PaymentMethod = 'COD'
Por el contrario, las consultas que utilizan el operador not in y, por lo tanto sus equivalentes con not exists, no tienen equivalente plano, con lo que sabemos hasta el
momento. Para poder aplanarlas hay que utilizar encuentros externos.
Encuentros externos
El problema de los encuentros naturales es que cuando relacionamos dos tablas,
digamos customer y orders, solamente mostramos las filas que tienen una columna en
común. No hay forma de mostrar los clientes que no tienen un pedido con su código
... y solamente esos. En realidad, se puede utilizar la operación de diferencia entre
conjuntos para lograr este objetivo, como veremos en breve. Se pueden evaluar todos
los clientes, y a ese conjunto restarle el de los clientes que sí tienen pedidos. Pero esta
474 La Cara Oculta de Delphi
operación, por lo general, se implementa de forma menos eficiente que la alternativa
que mostraremos a continuación.
¿Cómo funciona un encuentro natural? Una posible implementación consistiría en
recorrer mediante un bucle la primera tabla, supongamos que sea customer. Para cada
fila de esa tabla tomaríamos su columna CustNo y buscaríamos, posiblemente con un
índice, las filas correspondientes de orders que contengan ese mismo valor en la columna del mismo nombre. ¿Qué pasa si no hay ninguna fila en orders que satisfaga
esta condición? Si se trata de un encuentro natural, común y corriente, no se muestran los datos de ese cliente. Pero si se trata de la extensión de esta operación, conocida como encuentro externo (outer join), se muestra aunque sea una vez la fila correspondiente al cliente. Un encuentro muestra, sin embargo, pares de filas, ¿qué valores
podemos esperar en la fila de pedidos? En ese caso, se considera que todas las columnas de la tabla de pedidos tienen valores nulos. Si tuviéramos estas dos tablas:
Customers
CustNo
1510
1666
Orders
Company
Ocean Paradise
Marteens’ Diving Academy
OrderNo
1025
1139
CustNo
1510
1510
el resultado de un encuentro externo como el que hemos descrito, de acuerdo a la
columna CustNo, sería el siguiente:
Customer.CustNo Company
OrderNo Orders.CustNo
1510
1510
1666
1025
1139
null
Ocean Paradise
Ocean Paradise
Marteens’ Diving Academy
1510
1510
null
Con este resultado en la mano, es fácil descubrir quién es el tacaño que no nos ha
pedido nada todavía, dejando solamente las filas que tengan valores nulos para alguna de las columnas de la segunda tabla.
Este encuentro externo que hemos explicado es, en realidad, un encuentro externo
por la izquierda, pues la primera tabla tendrá todas sus filas en el resultado final, aunque no exista fila correspondiente en la segunda. Naturalmente, también existe un
encuentro externo por la derecha y un encuentro externo simétrico.
El problema de este tipo de operaciones es que su inclusión en SQL fue bastante
tardía. Esto trajo como consecuencia que distintos fabricantes utilizaran sintaxis
propias para la operación. En el estándar ANSI para SQL del año 87 no hay referencias a esta instrucción, pero sí la hay en el estándar del 92. Utilizando esta sintaxis,
que es la permitida por el SQL local de Delphi, la consulta que queremos se escribe
del siguiente modo:
Consultas y modificaciones en SQL 475
select
from
on
where
*
Customer left outer join Orders
Customer.CustNo = Orders.CustNo
Orders.OrderNo is null
Observe que se ha extendido la sintaxis de la cláusula from.
El encuentro externo por la izquierda puede escribirse en Oracle de esta forma
alternativa:
select
from
where
and
*
Customer, Orders
Customer.CustNo (+) = Orders.CustNo
Orders.OrderNo is null
Las instrucciones de actualización
Son tres las instrucciones de actualización de datos reconocidas en SQL: delete,
update e insert. Estas instrucciones tienen una sintaxis relativamente simple y están
limitadas, en el sentido de que solamente cambian datos en una tabla a la vez. La más
sencilla de las tres es delete, la instrucción de borrado:
delete from Tabla
where Condición
La instrucción elimina de la tabla indicada todas las filas que se ajustan a cierta condición. En dependencia del sistema de bases de datos de que se trate, la condición de
la cláusula where debe cumplir ciertas restricciones. Por ejemplo, aunque InterBase
admite la presencia de subconsultas en la condición de selección, otros sistemas no lo
permiten.
La segunda instrucción, update, nos sirve para modificar las filas de una tabla que
satisfacen cierta condición:
update Tabla
set Columna = Valor [, Columna = Valor ...]
where Condición
Al igual que sucede con la instrucción delete, las posibilidades de esta instrucción
dependen del sistema que la implementa. InterBase, en particular, permite actualizar
columnas con valores extraídos de otras tablas; para esto utilizamos subconsultas en
la cláusula set:
update Customer
set LastInvoiceDate =
476 La Cara Oculta de Delphi
(select max(SaleDate) from Orders
where Orders.CustNo = Customer.CustNo)
Por último, tenemos la instrucción insert, de la cual tenemos dos variantes. La primera permite insertar un solo registro, con valores constantes:
insert into Tabla [ (Columnas) ]
values (Valores)
La lista de columnas es opcional; si se omite, se asume que la instrucción utiliza todas
las columnas en orden de definición. En cualquier caso, el número de columnas empleado debe coincidir con el número de valores. El objetivo de todo esto es que si no
se indica un valor para alguna columna, el valor de la columna en el nuevo registro se
inicializa con el valor definido por omisión; recuerde que si en la definición de la
tabla no se ha indicado nada, el valor por omisión es null:
insert into Employee(EmpNo, LastName, FirstName)
values (666, "Bonaparte", "Napoleón")
/* El resto de las columnas, incluida la del salario, son nulas */
La segunda variante de insert permite utilizar como fuente de valores una expresión
select:
insert into Tabla [ (Columnas) ]
InstrucciónSelect
Esta segunda variante no estuvo disponible en el intérprete de SQL local hasta la
versión 4 del BDE. Se utiliza con frecuencia para copiar datos de una tabla a otra:
insert into Resumen(Empresa, TotalVentas)
select Company, sum(ItemsTotal)
from
Customer, Orders
where Customer.CustNo = Orders.CustNo
group by Company
Vistas
Se puede aprovechar una instrucción select de forma tal que el conjunto de datos
que define se pueda utilizar “casi” como una tabla real. Para esto, debemos definir
una vista. La instrucción necesaria tiene la siguiente sintaxis:
create view NombreVista[Columnas]
as InstrucciónSelect
[with check option]
Por ejemplo, podemos crear una vista para trabajar con los clientes que viven en
Hawai:
Consultas y modificaciones en SQL 477
create view Hawaianos as
select *
from
Customer
where State = "HI"
A partir del momento en que se ejecuta esta instrucción, el usuario de la base de
datos se encuentra con una nueva tabla, Hawaianos, con la cual puede realizar las
mismas operaciones que realizaba con las tablas “físicas”. Puede utilizar la nueva
tabla en una instrucción select:
select *
from
Hawaianos
where LastInvoiceDate >=
(select avg(LastInvoiceDate) from Customer)
En esta vista en particular, puede también eliminar insertar o actualizar registros:
delete from Hawaianos
where LastInvoiceDate is null;
insert into Hawaianos(CustNo, Company, State)
values (8888, "Ian Marteens' Diving Academy", "HI")
No todas las vistas permiten operaciones de actualización. Las condiciones que deben cumplir para ser actualizables, además, dependen del sistema de bases de datos
en que se definan. Los sistemas más restrictivos exigen que la instrucción select
tenga una sola tabla en la cláusula from, que no contenga consultas anidadas y que
no haga uso de operadores tales como group by, distinct, etc.
Cuando una vista permite actualizaciones se nos plantea el problema de qué hacer si
se inserta un registro que no pertenece lógicamente a la vista. Por ejemplo, ¿pudiéramos insertar dentro de la vista Hawaianos una empresa con sede social en la ciudad
costera de Cantalapiedra20? Si permitiésemos esto, después de la inserción el registro
recién insertado “desaparecería” inmediatamente de la vista (aunque no de la tabla
base, Customer). El mismo conflicto se produciría al actualizar la columna State de un
hawaiano.
Para controlar este comportamiento, SQL define la cláusula with check option. Si
se especifica esta opción, no se permiten inserciones ni modificaciones que violen la
condición de selección impuesta a la vista; si intentamos una operación tal, se produce un error de ejecución. Por el contrario, si no se incluye la opción en la definición de la vista, estas operaciones se permiten, pero nos encontraremos con situaCuando escribí la primera versión de este libro, no sabía que había un Cantalapiedra en
España; pensé que nombre tan improbable era invento mío. Mis disculpas a los cantalapedrenses, pues me parece que viven en ciudad sin costas.
20
478 La Cara Oculta de Delphi
ciones como las descritas, en que un registro recién insertado o modificado desaparece misteriosamente por no pertenecer a la vista.
Capítulo
23
Procedimientos almacenados y
triggers
C
ON ESTE CAPÍTULO COMPLETAMOS la presentación de los sublenguajes de
SQL, mostrando el lenguaje de definición de procedimientos de InterBase.
Desgraciadamente, los lenguajes de procedimientos de los distintos sistemas
de bases de datos son bastante diferentes entre sí, al no existir todavía un estándar al
respecto. De los dialectos existentes, he elegido nuevamente InterBase por dos razones. La primera, y fundamental, es que es el sistema SQL que usted tiene a mano
(asumiendo que tiene Delphi). La segunda es que el dialecto de InterBase para procedimientos es el que más se asemeja al propuesto en el borrador del estándar SQL3. De cualquier manera, las diferencias entre dialectos no son demasiadas, y no le
costará mucho trabajo entender el lenguaje de procedimientos de cualquier otro sistema de bases de datos.
¿Para qué usar procedimientos almacenados?
Un procedimiento almacenado (stored procedure) es, sencillamente, un algoritmo cuya definición reside en la base de datos, y que es ejecutado por el servidor del sistema. Aunque SQL-3 define formalmente un lenguaje de programación para procedimientos
almacenados, cada uno de los sistemas de bases de datos importantes a nivel comercial implementa su propio lenguaje para estos recursos. InterBase implementa un
dialecto parecido a la propuesta de SQL-3; Oracle tiene un lenguaje llamado PLSQL; Microsoft SQL Server ofrece el denominado Transact-SQL. No obstante, las
diferencias entre estos lenguajes son mínimas, principalmente en sintaxis, siendo casi
idénticas las capacidades expresivas.
El uso de procedimientos almacenados ofrece las siguientes ventajas:
• Los procedimientos almacenados ayudan a mantener la consistencia de la base de
datos.
480 La Cara Oculta de Delphi
Las instrucciones básicas de actualización, update, insert y delete, pueden
combinarse arbitrariamente si dejamos que el usuario tenga acceso ilimitado
a las mismas. No toda combinación de actualizaciones cumplirá con las reglas de consistencia de la base de datos. Hemos visto que algunas de estas
reglas se pueden expresar declarativamente durante la definición del esquema
relacional. El mejor ejemplo son las restricciones de integridad referencial.
Pero, ¿cómo expresar declarativamente que para cada artículo presente en un
pedido, debe existir un registro correspondiente en la tabla de movimientos
de un almacén? Una posible solución es prohibir el uso directo de las instrucciones de actualización, revocando permisos de acceso al público, y
permitir la modificación de datos solamente a partir de procedimientos almacenados.
• Los procedimientos almacenados permiten superar las limitaciones del lenguaje
de consultas.
SQL no es un lenguaje completo. Un problema típico en que falla es en la
definición de clausuras relacionales. Tomemos como ejemplo una tabla con dos
columnas: Objeto y Parte. Esta tabla contiene pares como los siguientes:
Objeto
Cuerpo humano
Cuerpo humano
Cabeza
Cabeza
Boca
Parte
Cabeza
Tronco
Ojos
Boca
Dientes
¿Puede el lector indicar una consulta que liste todas las partes incluidas en la
cabeza? Lo que falla es la posibilidad de expresar algoritmos recursivos. Para
resolver esta situación, los procedimientos almacenados pueden implementarse de forma tal que devuelvan conjuntos de datos, en vez de valores escalares. En el cuerpo de estos procedimientos se pueden realizar, entonces, llamadas recursivas.
• Los procedimientos almacenados pueden reducir el tráfico en la red.
Un procedimiento almacenado se ejecuta en el servidor, que es precisamente
donde se encuentran los datos. Por lo tanto, no tenemos que explorar una
tabla de arriba a abajo desde un ordenador cliente para extraer el promedio
de ventas por empleado durante el mes pasado. Además, por regla general el
servidor es una máquina más potente que las estaciones de trabajo, por lo
que puede que ahorremos tiempo de ejecución para una petición de infor-
Triggers y procedimientos almacenados 481
mación. No conviene, sin embargo, abusar de esta última posibilidad, porque
una de las ventajas de una red consiste en distribuir el tiempo de procesador.
• Con los procedimientos almacenados se puede ahorrar tiempo de desarrollo.
Siempre que existe una información, a alguien se le puede ocurrir un nuevo
modo de aprovecharla. En un entorno cliente/servidor es típico que varias
aplicaciones diferentes trabajen con las mismas bases de datos. Si centralizamos en la propia base de datos la imposición de las reglas de consistencia, no
tendremos que volverlas a programar de una aplicación a otra. Además, evitamos los riesgos de una mala codificación de estas reglas, con la consiguiente pérdida de consistencia.
Como todas las cosas de esta vida, los procedimientos almacenados también tienen
sus inconvenientes. Ya he mencionado uno de ellos: si se centraliza todo el tratamiento de las reglas de consistencia en el servidor, corremos el riesgo de saturar los
procesadores del mismo. El otro inconveniente es la poca portabilidad de las definiciones de procedimientos almacenados entre distintos sistemas de bases de datos. Si
hemos desarrollado procedimientos almacenados en InterBase y queremos migrar
nuestra base de datos a Oracle (o viceversa), estaremos obligados a partir “casi” de
cero; algo se puede aprovechar, de todos modos.
Cómo se utiliza un procedimiento almacenado
Un procedimiento almacenado puede utilizarse desde una aplicación cliente, desarrollada en cualquier lenguaje de programación que pueda acceder a la interfaz de programación de la base de datos, o desde las propias utilidades interactivas del sistema.
En Delphi tenemos el componente TStoredProc, diseñado para la ejecución de estos
procedimientos. En un capítulo posterior veremos cómo suministrar parámetros,
ejecutar procedimientos y recibir información utilizando este componente.
En el caso de InterBase, también es posible ejecutar un procedimiento almacenado
directamente desde la aplicación Windows ISQL, mediante la siguiente instrucción:
execute procedure NombreProcedimiento [ListaParámetros];
La misma instrucción puede utilizarse en el lenguaje de definición de procedimientos
y triggers para llamar a un procedimiento dentro de la definición de otro. Es posible
también definir procedimientos recursivos. InterBase permite hasta un máximo de
1000 llamadas recursivas por procedimiento.
482 La Cara Oculta de Delphi
El carácter de terminación
Los procedimientos almacenados de InterBase deben necesariamente escribirse en
un fichero script de SQL. Más tarde, este fichero debe ser ejecutado desde la utilidad
Windows ISQL para que los procedimientos sean incorporados a la base de datos.
Hemos visto las reglas generales del uso de scripts en InterBase en el capítulo de introducción a SQL. Ahora tenemos que estudiar una característica de estos scripts que
anteriormente hemos tratado superficialmente: el carácter de terminación.
Por regla general, cada instrucción presente en un script es leída y ejecutada de forma
individual y secuencial. Esto quiere decir que el intérprete de scripts lee del fichero
hasta que detecta el fin de instrucción, ejecuta la instrucción recuperada, y sigue así
hasta llegar al final del mismo. El problema es que este proceso de extracción de
instrucciones independientes se basa en la detección de un carácter especial de terminación. Por omisión, este carácter es el punto y coma; el lector habrá observado
que todos los ejemplos de instrucciones SQL que deben colocarse en scripts han sido,
hasta el momento, terminados con este carácter.
Ahora bien, al tratar con el lenguaje de procedimientos y triggers encontraremos instrucciones y cláusulas que deben terminar con puntos y comas. Si el intérprete de
scripts tropieza con uno de estos puntos y comas pensará que se encuentra frente al
fin de la instrucción, e intentará ejecutar lo que ha leído hasta el momento; casi
siempre, una instrucción incompleta. Por lo tanto, debemos cambiar el carácter de
terminación de Windows ISQL cuando estamos definiendo triggers o procedimientos
almacenados. La instrucción que nos ayuda para esto es la siguiente:
set term Terminador
Como carácter de terminación podemos escoger cualquier carácter o combinación
de los mismos lo suficientemente rara como para que no aparezca dentro de una
instrucción del lenguaje de procedimientos. Por ejemplo, podemos utilizar el acento
circunflejo:
set term ^;
Observe cómo la instrucción que cambia el carácter de terminación debe terminar
ella misma con el carácter antiguo. Al finalizar la creación de todos los procedimientos que necesitamos, debemos restaurar el antiguo carácter de terminación:
set term ;^
En lo sucesivo asumiremos que el carácter de terminación ha sido cambiado al
acento circunflejo.
Triggers y procedimientos almacenados 483
Procedimientos almacenados en InterBase
La sintaxis para la creación de un procedimiento almacenado en InterBase es la siguiente:
create procedure Nombre
[ ( ParámetrosDeEntrada ) ]
[ returns ( ParámetrosDeSalida ) ]
as CuerpoDeProcedimiento
Las cláusulas ParámetrosDeEntrada y ParámetrosDeSalida representan listas de declaraciones de parámetros. Los parámetros de salida pueden ser más de uno; esto significa que el procedimiento almacenado que retorna valores no se utiliza como si fuese
una función de un lenguaje de programación tradicional. El siguiente es un ejemplo
de cabecera de procedimiento:
create procedure TotalPiezas(PiezaPrincipal char(15))
returns (Total integer)
as
/* ... Aquí va el cuerpo ... */
El cuerpo del procedimiento, a su vez, se divide en dos secciones, siendo opcional la
primera de ellas: la sección de declaración de variables locales, y una instrucción
compuesta, begin...end, que agrupa las instrucciones del procedimiento. Las variables se declaran en este verboso estilo, á la 1970:
declare variable V1 integer;
declare variable V2 char(50);
Estas son las instrucciones permitidas por los procedimientos almacenados de InterBase:
•
Asignaciones:
Variable = Expresión
Las variables pueden ser las declaradas en el propio procedimiento, parámetros de entrada o parámetros de salida.
•
Llamadas a procedimientos:
execute procedure NombreProc [ParsEntrada]
[returning_values ParsSalida]
No se admiten expresiones en los parámetros de entrada; mucho menos en
los de salida.
484 La Cara Oculta de Delphi
•
Condicionales:
if (Condición) then Instrucción [else Instrucción]
•
Bucles controlados por condiciones:
while (Condición) do Instrucción
•
Instrucciones SQL:
Cualquier instrucción de manipulación, insert, update ó delete, puede incluirse en un procedimiento almacenado. Estas instrucciones pueden utilizar
variables locales y parámetros, siempre que estas variables estén precedidas
de dos puntos, para distinguirlas de los nombres de columnas. Por ejemplo,
si Minimo y Aumento son variables o parámetros, puede ejecutarse la siguiente
instrucción:
update Empleados
set
Salario = Salario * :Aumento
where Salario < :Minimo;
Se permite el uso directo de instrucciones select si devuelven una sola fila;
para consultas más generales se utiliza la instrucción for que veremos dentro
de poco. Estas selecciones únicas van acompañadas por una cláusula into
para transferir valores a variables o parámetros:
select
from
where
into
•
Empresa
Clientes
Codigo = 1984
:NombreEmpresa;
Iteración sobre consultas:
for InstrucciónSelect into Variables do Instrucción
Esta instrucción recorre el conjunto de filas definido por la instrucción select. Para cada fila, transfiere los valores a las variables de la cláusula into, de
forma similar a lo que sucede con las selecciones únicas, y ejecuta entonces
la instrucción de la sección do.
•
Lanzamiento de excepciones:
exception NombreDeExcepción
Similar a la instrucción raise de Delphi.
Triggers y procedimientos almacenados 485
•
Captura de excepciones:
when ListaDeErrores do Instrucción
Similar a la cláusula except de la instrucción try...except de Delphi. Los
errores capturados pueden ser excepciones propiamente dichas o errores reportados con la variable SQLCODE. Estos últimos errores se producen al
ejecutarse instrucciones SQL. Las instrucciones when deben colocarse al final de los procedimientos.
•
Instrucciones de control:
exit;
suspend;
La instrucción exit termina la ejecución del procedimiento actual, y es similar al procedimiento Exit de Delphi. Por su parte, suspend se utiliza en procedimientos que devuelven un conjunto de filas para retornar valores a la
rutina que llama a este procedimiento. Con esta última instrucción, se interrumpe temporalmente el procedimiento, hasta que la rutina que lo llama
haya procesado los valores retornados.
•
Instrucciones compuestas:
begin ListaDeInstrucciones end
La sintaxis de los procedimientos de InterBase es similar a la de Pascal. A diferencia de este último lenguaje, la palabra end no puede tener un punto y
coma a continuación.
Mostraré ahora un par de procedimientos sencillos, que ejemplifiquen el uso de estas
instrucciones. El siguiente procedimiento, basado en las tablas definidas en el capítulo sobre DDL, sirve para recalcular la suma total de un pedido, si se suministra el
número de pedido correspondiente:
create procedure RecalcularTotal(NumPed int) as
declare variable Total integer;
begin
select sum(Cantidad * PVP * (100 - Descuento) / 100)
from
Detalles, Articulos
where Detalles.RefArticulo = Articulos.Codigo
and Detalles.RefPedido = :NumPed
into
:Total;
if (Total is null) then
Total = 0;
486 La Cara Oculta de Delphi
end ^
update Pedidos
set
Total = :Total
where Numero = :NumPed;
El procedimiento consiste básicamente en una instrucción select que calcula la suma
de los totales de todas las líneas de detalles asociadas al pedido; esta instrucción necesita mezclar datos provenientes de las líneas de detalles y de la tabla de artículos. Si
el valor total es nulo, se cambia a cero. Esto puede suceder si el pedido no tiene líneas de detalles; en este caso, la instrucción select retorna el valor nulo. Finalmente,
se localiza el pedido indicado y se le actualiza el valor a la columna Total, utilizando el
valor depositado en la variable local del mismo nombre.
El procedimiento que definimos a continuación se basa en el anterior, y permite
recalcular los totales de todas las filas almacenadas en la tabla de pedidos; de este
modo ilustramos el uso de las instrucciones for select … do y execute procedure:
create procedure RecalcularPedidos as
declare variable Pedido integer;
begin
for select Numero from Pedidos into :Pedido do
execute procedure RecalcularTotal :Pedido;
end ^
Procedimientos que devuelven un conjunto de datos
Antes he mencionado la posibilidad de superar las restricciones de las expresiones
select del modelo relacional mediante el uso de procedimientos almacenados. Un
procedimiento puede diseñarse de modo que devuelva un conjunto de filas; para esto
tiene que utilizar la instrucción suspend, que transfiere el control temporalmente a la
rutina que llama al procedimiento, para que ésta pueda hacer algo con los valores
asignados a los parámetros de salida. Esta técnica es poco habitual en los lenguajes
de programación más extendidos; si quiere encontrar algo parecido, puede desenterrar los iteradores del lenguaje CLU, diseñado por Barbara Liskov a mediados de los
setenta.
Supongamos que necesitamos obtener la lista de los primeros veinte, treinta o mil
cuatrocientos números primos. Comencemos por algo fácil, con la función que analiza un número y dice si es primo o no:
create procedure EsPrimo(Numero integer)
returns (Respuesta integer) as
declare variable I integer;
begin
I = 2;
while (I < Numero) do
begin
if (cast((Numero / I) as integer) * I = Numero) then
Triggers y procedimientos almacenados 487
begin
Respuesta = 0;
exit;
end
I = I + 1;
end
Respuesta = 1;
end ^
Ya sé que hay implementaciones más eficientes, pero no quería complicar mucho el
ejemplo. Observe, de paso, la pirueta que he tenido que realizar para ver si el número
es divisible por el candidato a divisor. He utilizado el criterio del lenguaje C para las
expresiones lógicas: devuelvo 1 si el número es primo, y 0 si no lo es. Recuerde que
InterBase no tiene un tipo Boolean.
Ahora, en base al procedimiento anterior, implementamos el nuevo procedimiento
Primos:
create procedure Primos(Total integer)
returns (Primo Integer) as
declare variable I integer;
declare variable Respuesta integer;
begin
I = 0;
Primo = 2;
while (I < Total) do
begin
execute procedure EsPrimo Primo
returning_values Respuesta;
if (Respuesta = 1) then
begin
I = I + 1;
suspend; /* ¡¡¡ Nuevo !!! */
end
Primo = Primo + 1;
end
end ^
Este procedimiento puede ejecutarse en dos contextos diferentes: como un procedimiento normal, o como procedimiento de selección. Como procedimiento normal, utilizamos la instrucción execute procedure, como hasta ahora:
execute procedure Primos(100);
No obstante, no van a resultar tan sencillas las cosas. Esta llamada, si se realiza desde
Windows ISQL, solamente devuelve el primer número primo (era el 2, ¿o no?). El
problema es que, en este contexto, la primera llamada a suspend termina completamente el algoritmo.
488 La Cara Oculta de Delphi
La segunda posibilidad es utilizar el procedimiento como si fuera una tabla o vista. Desde
Windows ISQL podemos lanzar la siguiente instrucción, que nos mostrará los primeros cien números primos:
select * from Primos(100);
Por supuesto, el ejemplo anterior se refiere a una secuencia aritmética. En la práctica,
un procedimiento de selección se implementa casi siempre llamando a suspend
dentro de una instrucción for...do, que recorre las filas de una consulta.
Recorriendo un conjunto de datos
En esta sección mostraré un par de ejemplos más complicados de procedimientos
que utilizan la instrucción for...select de InterBase. El primero tiene que ver con un
sistema de entrada de pedidos. Supongamos que queremos actualizar las existencias
en el inventario después de haber grabado un pedido. Tenemos dos posibilidades, en
realidad: realizar esta actualización mediante un trigger que se dispare cada vez que se
guarda una línea de detalles, o ejecutar un procedimiento almacenado al finalizar la
grabación de todas las líneas del pedido.
La primera técnica será explicada en breve, pero adelanto en estos momentos que
tiene un defecto. Pongamos como ejemplo que dos usuarios diferentes están pasando
por el cajero, simultáneamente. El primero saca un pack de Coca-Colas de la cesta de
la compra, mientras el segundo pone Pepsis sobre el mostrador. Si, como es de esperar, la grabación del pedido tiene lugar mediante una transacción, al dispararse el
trigger se han modificado las filas de estas dos marcas de bebidas, y se han bloqueado
hasta el final de la transacción. Ahora, inesperadamente, el primer usuario saca Pepsis
mientras el segundo nos sorprende con Coca-Colas; son unos fanáticos de las bebidas americanas estos individuos. El problema es que el primero tiene que esperar a
que el segundo termine para poder modificar la fila de las Pepsis, mientras que el
segundo se halla en una situación similar.
Esta situación se denomina abrazo mortal (deadlock) y realmente no es problema alguno para InterBase, en el cual los procesos fallan inmediatamente cuando se les
niega un bloqueo21. Pero puede ser un peligro en otros sistemas con distinta estrategia de espera. La solución más común consiste en que cuando un proceso necesita
bloquear ciertos recursos, lo haga siempre en el mismo orden. Si nuestros dos consumidores de líquidos oscuros con burbujas hubieran facturado sus compras en orden alfabético, no se hubiera producido este conflicto. Por supuesto, esto descarta el
uso de un trigger para actualizar el inventario, pues hay que esperar a que estén todos
21
Realmente, es el BDE quien configura a InterBase de este modo.
Triggers y procedimientos almacenados 489
los productos antes de ordenar y realizar entonces la actualización. El siguiente procedimiento se encarga de implementar el algoritmo explicado:
create procedure ActualizarInventario(Pedido integer) as
declare variable CodArt integer;
declare variable Cant integer;
begin
for select RefArticulo, Cantidad
from
Detalles
where RefPedido = :Pedido
order by RefArticulo
into
:CodArt, :Cant do
update Articulos
set
Pedidos = Pedidos + :Cant
where Codigo = :CodArt;
end ^
Otro ejemplo: necesitamos conocer los diez mejores clientes de nuestra tienda. Pero
sólo los diez primeros, y no vale mirar hacia otro lado cuando aparezca el undécimo.
Algunos sistemas SQL tienen un operador first para este propósito, pero no InterBase. Este procedimiento, que devuelve un conjunto de datos, nos servirá de ayuda:
create procedure MejoresClientes(Rango integer)
returns (Codigo int, Nombre varchar(30), Total int) as
begin
for select Codigo, Nombre, sum(Total)
from
Clientes, Pedidos
where Clientes.Codigo = Pedidos.Cliente
order by 3 desc
into
:Codigo, :Nombre, :Total do
begin
suspend;
Rango = Rango - 1;
if (Rango = 0) then
exit;
end
end ^
Entonces podremos realizar consultas como la siguiente:
select *
from
MejoresClientes(10)
Triggers, o disparadores
Una de las posibilidades más interesantes de los sistemas de bases de datos relacionales son los triggers, o disparadores; en adelante, utilizaré preferentemente la palabra
inglesa original. Se trata de un tipo de procedimiento almacenado que se activa automáticamente al efectuar operaciones de modificación sobre ciertas tablas de la base
de datos.
490 La Cara Oculta de Delphi
La sintaxis de la declaración de un trigger es la siguiente:
create trigger NombreTrigger for Tabla [active | inactive]
{before | after} {delete | insert | update}
[position Posición]
as CuerpoDeProcedimiento
El cuerpo de procedimiento tiene la misma sintaxis que los cuerpos de los procedimientos almacenados. Las restantes cláusulas del encabezamiento de esta instrucción
tienen el siguiente significado:
Cláusula
NombreTrigger
Tabla
active | inactive
before | after
delete | insert | update
position
Significado
El nombre que se le va a asignar al trigger
El nombre de la tabla a la cual está asociado
Puede crearse inactivo, y activarse después
Se activa antes o después de la operación
Qué operación provoca el disparo del trigger
Orden de disparo para la misma operación
A diferencia de otros sistemas de bases de datos, los triggers de InterBase se definen
para una sola operación sobre una sola tabla. Si queremos compartir código para
eventos de actualización de una o varias tablas, podemos situar este código en un
procedimiento almacenado y llamar a este algoritmo desde los diferentes triggers definidos.
Un parámetro interesante es el especificado por position. Para una operación sobre
una tabla pueden definirse varios triggers. El número indicado en position determina
el orden en que se disparan los diferentes sucesos; mientras más bajo sea el número,
mayor será la prioridad. Si dos triggers han sido definidos con la misma prioridad, el
orden de disparo entre ellos será aleatorio.
Hay una instrucción similar que permite modificar algunos parámetros de la definición de un trigger, como su orden de disparo, si está activo o no, o incluso su propio
cuerpo:
alter trigger NombreTrigger [active | inactive]
[{before | after} {delete | insert | update}]
[position Posición]
[as CuerpoProcedimiento]
Podemos eliminar completamente la definición de un trigger de la base de datos mediante la instrucción:
drop trigger NombreTrigger
Triggers y procedimientos almacenados 491
Las variables new y old
Dentro del cuerpo de un trigger pueden utilizarse las variables predefinidas new y old.
Estas variables hacen referencia a los valores nuevos y anteriores de las filas involucradas en la operación que dispara el trigger. Por ejemplo, en una operación de modificación update, old se refiere a los valores de la fila antes de la modificación y new a
los valores después de modificados. Para una inserción, solamente tiene sentido la
variable new, mientras que para un borrado, solamente tiene sentido old.
El siguiente trigger hace uso de la variable new, para acceder a los valores del nuevo
registro después de una inserción:
create trigger UltimaFactura for Pedidos
active after insert position 0 as
declare variable UltimaFecha date;
begin
select UltimoPedido
from
Clientes
where Codigo = new.RefCliente
into
:UltimaFecha;
if (UltimaFecha < new.FechaVenta) then
update Clientes
set
UltimoPedido = new.FechaVenta
where Codigo = new.RefCliente;
end ^
Este trigger sirve de contraejemplo a un error muy frecuente en la programación
SQL. La primera instrucción busca una fila particular de la tabla de clientes y, una vez
encontrada, extrae el valor de la columna UltimoPedido para asignarlo a la variable
local UltimaFecha. El error consiste en pensar que esta instrucción, a la vez, deja a la
fila encontrada como “fila activa”. El lenguaje de triggers y procedimientos almacenados de InterBase, y la mayor parte de los restantes sistemas, no utiliza “filas activas”.
Es por eso que en la instrucción update hay que incluir una cláusula where para
volver a localizar el registro del cliente. De no incluirse esta cláusula, cambiaríamos la
fecha para todos los clientes.
Es posible cambiar el valor de una columna correspondiente a la variable new, pero
solamente si el trigger se define “antes” de la operación de modificación. En cualquier
caso, el nuevo valor de la columna se hace efectivo después de que la operación tenga
lugar.
Más ejemplos de triggers
Para mostrar el uso de triggers, las variables new y old y los procedimientos almacenados, mostraré cómo se puede actualizar automáticamente el inventario de artículos
492 La Cara Oculta de Delphi
y el total almacenado en la tabla de pedidos en la medida en que se realizan actualizaciones en la tabla que contiene las líneas de detalles.
Necesitaremos un par de procedimientos auxiliares para lograr una implementación
más modular. Uno de estos procedimientos, RecalcularTotal, debe actualizar el total de
venta de un pedido determinado, y ya lo hemos implementado antes. Repito aquí su
código, para mayor comodidad:
create procedure RecalcularTotal(NumPed int) as
declare variable Total integer;
begin
select sum(Cantidad * PVP * (100 - Descuento) / 100)
from
Detalles, Articulos
where Detalles.RefArticulo = Articulos.Codigo
and Detalles.RefPedido = :NumPed
into
:Total;
if (Total is null) then
Total = 0;
update Pedidos
set
Total = :Total
where Numero = :NumPed;
end ^
El otro procedimiento debe modificar el inventario de artículos. Su implementación
es muy simple:
create procedure ActInventario(CodArt integer, Cant Integer) as
begin
update Articulos
set
Pedidos = Pedidos + :Cant
where Codigo = :CodArt;
end ^
Ahora le toca el turno a los triggers. Los más sencillos son los relacionados con la
inserción y borrado; en el primero utilizaremos la variable new, y en el segundo, old:
create trigger NuevoDetalle for Detalles
active after insert position 1 as
begin
execute procedure RecalcularTotal new.RefPedido;
execute procedure ActInventario
new.RefArticulo, new.Cantidad;
end ^
create trigger EliminarDetalle for Detalles
active after delete position 1 as
declare variable Decremento integer;
begin
Decremento = - old.Cantidad;
execute procedure RecalcularTotal old.RefPedido;
execute procedure ActInventario
old.RefArticulo, :Decremento;
end ^
Triggers y procedimientos almacenados 493
Es curiosa la forma en que se pasan los parámetros a los procedimientos almacenados. Tome nota, en particular, de que hemos utilizado una variable local, Decremento,
en el trigger de eliminación. Esto es así porque no se puede pasar expresiones como
parámetros a los procedimientos almacenados, ni siquiera para los parámetros de
entrada.
Finalmente, nos queda el trigger de modificación:
create trigger ModificarDetalle for Detalles
active after update position 1 as
declare variable Decremento integer;
begin
execute procedure RecalcularTotal new.RefPedido;
if (new.RefArticulo <> old.RefArticulo) then
begin
Decremento = -old.Cantidad;
execute procedure ActInventario
old.RefArticulo, :Decremento;
execute procedure ActInventario
new.RefArticulo, new.Cantidad;
end
else
begin
Decremento = new.Cantidad - old.Cantidad;
execute procedure ActInventario
new.RefArticulo, :Decremento;
end
end ^
Observe cómo comparamos el valor del código del artículo antes y después de la
operación. Si solamente se ha producido un cambio en la cantidad vendida, tenemos
que actualizar un solo registro de inventario; en caso contrario, tenemos que actualizar dos registros. No hemos tenido en cuenta la posibilidad de modificar el pedido al
cual pertenece la línea de detalles. Suponemos que esta operación no va a permitirse,
por carecer de sentido, en las aplicaciones clientes.
Generadores
Los generadores (generators) son un recurso de InterBase para poder disponer de valores
secuenciales, que pueden utilizarse, entre otras cosas, para garantizar la unicidad de
las claves artificiales. Un generador se crea, del mismo modo que los procedimientos
almacenados y triggers, en un fichero script de SQL. El siguiente ejemplo muestra
cómo crear un generador:
create generator CodigoEmpleado;
494 La Cara Oculta de Delphi
Un generador define una variable interna persistente, cuyo tipo es un entero de 32
bits. Aunque esta variable se inicializa automáticamente a 0, tenemos una instrucción
para cambiar el valor de un generador:
set generator CodigoEmpleado to 1000;
Por el contrario, no existe una instrucción específica que nos permita eliminar un
generador. Esta operación debemos realizarla directamente en la tabla del sistema
que contiene las definiciones y valores de todos los generadores:
delete from rdb$generators
where rdb$generator_name = 'CODIGOEMPLEADO'
Para utilizar un generador necesitamos la función gen_id. Esta función utiliza dos
parámetros. El primero es el nombre del generador, y el segundo debe ser la cantidad
en la que se incrementa o decrementa la memoria del generador. La función retorna
entonces el valor ya actualizado. Utilizaremos el generador anterior para suministrar
automáticamente un código de empleado si la instrucción insert no lo hace:
create trigger NuevoEmpleado for Empleados
active before insert
as
begin
if (new.Codigo is null) then
new.Codigo = gen_id(CodigoEmpleado, 1);
end ^
Al preguntar primeramente si el código del nuevo empleado es nulo, estamos permitiendo la posibilidad de asignar manualmente un código de empleado durante la inserción.
Los programas escritos en Delphi tienen problemas cuando se genera una clave primaria para una fila mediante un generador, pues el registro recién insertado “desaparece” según el punto de vista de la tabla. Para no tener que abandonar los generadores, la solución consiste en crear un procedimiento almacenado que obtenga el próximo valor del generador, y utilizar este valor para asignarlo a la clave primaria en el
evento BeforePost de la tabla. En el lado del servidor se programaría algo parecido a lo
siguiente:
create procedure ProximoCodigo returns (Cod integer) as
begin
Cod = gen_id(CodigoEmpleado);
end ^
En la aplicación crearíamos un componente spProximoCodigo, de la clase TStoredProc, y
lo aprovecharíamos de esta forma en uno de los eventos BeforePost o OnNewRecord de
la tabla de clientes:
Triggers y procedimientos almacenados 495
procedure TmodDatos.tbClientesBeforePost(DataSet: TDataSet);
begin
spProximoCodigo.ExecProc;
tbClientesCodigo.Value :=
spProximoCodigo.ParaByName('COD').AsInteger;
end;
NOTA IMPORTANTE
En cualquier caso, si necesita valores únicos y consecutivos en alguna columna de
una tabla, no utilice generadores (ni secuencias de Oracle, o identidades de MS
SQL Server). El motivo es que los generadores no se bloquean durante las transacciones. Usted pide un valor dentro de una transacción, y le es concedido; todavía no ha terminado su transacción. A continuación, otro usuario pide el siguiente valor, y sus deseos se cumplen. Pero entonces usted aborta la transacción, por el motivo que sea. La consecuencia: se pierde el valor que recibió, y se
produce un "hueco" en la secuencia.
Simulando la integridad referencial
Como hemos explicado, mediante los triggers y los procedimientos almacenados podemos expresar reglas de consistencia en forma imperativa, en contraste con las reglas
declarativas que se enuncian al crear tablas: claves primarias, alternativas y externas,
condiciones de verificación, etc. En general, es preferible utilizar una regla declarativa
antes que su equivalente imperativo. Pero sucede que las posibilidades de las reglas
declarativas son más limitadas que las posibilidades de las reglas imperativas.
En InterBase 4, por ejemplo, las restricciones de integridad referencial no admiten
modificaciones ni borrados en las tablas maestras de una clave externa. Sin embargo,
a veces es deseable permitir estas operaciones y propagar los cambios en cascada a
las tablas dependientes.
Ilustraré la forma de lograr restricciones de integridad referencial con propagación
de cambios mediante el ejemplo de la tabla de pedidos y líneas de detalles. Recordemos la definición de la tabla de pedidos, en el capítulo sobre el Lenguaje de Definición de Datos:
create table Pedidos (
Numero
int not null,
RefCliente
int not null,
RefEmpleado
int,
FechaVenta
date default "Now",
Total
int default 0,
496 La Cara Oculta de Delphi
primary key (Numero),
foreign key (RefCliente) references Clientes (Codigo)
);
La definición de la tabla de detalles cambia ahora, sustituyéndose la cláusula foreign
key que hacía referencia a la tabla de pedidos:
create table Detalles
RefPedido
NumLinea
RefArticulo
Cantidad
Descuento
(
int not null,
int not null,
int not null,
int default 1 not null,
int default 0 not null
check (Descuento between 0 and 100),
primary key (RefPedido, NumLinea),
foreign key (RefArticulo) references Articulos (Codigo),
/*
Antes: foreign key(RefPedido) references Pedidos(Numero)
*/
check (RefPedido in (select Numero from Pedidos))
);
La nueva cláusula check verifica en cada inserción y modificación que no se introduzca un número de pedido inexistente. El borrado en cascada se puede lograr de la
siguiente manera:
create trigger BorrarDetallesEnCascada for Pedidos
active after delete
position 0
as
begin
delete from Detalles
where RefPedido = old.Numero;
end ^
Un poco más larga es la implementación de actualizaciones en cascada.
create trigger ModificarDetallesEnCascada for Pedidos
active after update
position 0
as
begin
if (old.Numero <> new.Numero) then
update Detalles
set
RefPedido = new.Numero
where RefPedido = old.Numero;
end ^
Por supuesto, los triggers hubieran sido mucho más complicados si hubiéramos mantenido la restricción foreign key en la declaración de la tabla de detalles, en particular, la propagación de modificaciones.
Triggers y procedimientos almacenados 497
Excepciones
Sin embargo, todavía no contamos con medios para detener una operación SQL; esta
operación sería necesaria para simular imperativamente las restricciones a la propagación de cambios en cascada, en la integridad referencial. Lo que nos falta es el poder
lanzar excepciones desde un trigger o procedimiento almacenado. Las excepciones de
InterBase se crean asociando una cadena de mensaje a un identificador:
create exception CLIENTE_CON_PEDIDOS
"No se puede modificar este cliente"
Es necesario confirmar la transacción actual para poder utilizar una excepción recién
creada. Existen también instrucciones para modificar el mensaje asociado a una excepción (alter exception), y para eliminar la definición de una excepción de la base
de datos (drop exception).
Una excepción se lanza desde un procedimiento almacenado o trigger mediante la
instrucción exception:
create trigger CheckDetails for Clientes
active before delete
position 0
as
declare variable Numero int;
begin
select count(*)
from
Pedidos
where RefCliente = old.Codigo
into
:Numero;
if (:Numero > 0) then
exception CLIENTE_CON_PEDIDOS;
end ^
Las excepciones de InterBase determinan que cualquier cambio realizado dentro del
cuerpo del trigger o procedimiento almacenado, sea directa o indirectamente, se anule
automáticamente. De esta forma puede programarse algo parecido a las transacciones anidadas de otros sistemas de bases de datos.
Si la instrucción exception es similar a la instrucción raise de Delphi, el equivalente
más cercano a try...except es la instrucción when de InterBase. Esta instrucción
tiene tres formas diferentes. La primera intercepta las excepciones lanzadas con exception:
when exception NombreExcepción do
BloqueInstrucciones;
Con la segunda variante, se detectan los errores producidos por las instrucciones
SQL:
498 La Cara Oculta de Delphi
when sqlcode Numero do
BloqueInstrucciones;
Los números de error de SQL aparecen documentados en la ayuda en línea y en el
manual Language Reference de InterBase. A grandes rasgos, la ejecución correcta de una
instrucción devuelve un código igual a 0, cualquier valor negativo es un error propiamente dicho (-803, por ejemplo, es un intento de violación de una clave primaria),
y los valores positivos son advertencias. En particular, 100 es el valor que se devuelve
cuando una selección única no encuentra el registro buscado. Este convenio es parte
del estándar de SQL, aunque los códigos de error concreto varíen de un sistema a
otro.
La tercera forma de la instrucción when es la siguiente:
when gdscode Numero do
BloqueInstrucciones;
En este caso, se están interceptando los mismos errores que con sqlcode, pero se
utilizan los códigos internos de InterBase, que ofrecen más detalles sobre la causa.
Por ejemplo, los valores 335544349 y 35544665 corresponden a –803, la violación de
unicidad, pero el primero se produce cuando se inserta un valor duplicado en cualquier índice único, mientras que el segundo se reserva para las violaciones específicas
de clave primaria o alternativa.
En cualquier caso, las instrucciones when deben ser las últimas del bloque en que se
incluyen, y pueden colocarse varias simultáneamente, para atender varios casos:
begin
/* Instrucciones */
/* … */
when sqlcode –803 do
Resultado = "Violación de unicidad";
when exception CLIENTE_CON_PEDIDOS do
Resultado = "Elimine primero los pedidos realizados";
end
La Tercera Regla de Marteens sigue siendo aplicable a estas instrucciones: no detenga
la propagación de una excepción, a no ser que tenga una solución a su causa.
Alertadores de eventos
Los alertadores de eventos (event alerters) son un recurso único, por el momento, de
InterBase. Los procedimientos almacenados y triggers de InterBase pueden utilizar la
instrucción siguiente:
post_event NombreDeEvento
Triggers y procedimientos almacenados 499
El nombre de evento puede ser una constante de cadena o una variable del mismo
tipo. Cuando se produce un evento, InterBase avisa a todos los clientes interesados
de la ocurrencia del mismo.
Los alertadores de eventos son un recurso muy potente. Sitúese en un entorno
cliente/servidor donde se producen con frecuencia cambios en una base de datos.
Las estaciones de trabajo normalmente no reciben aviso de estos cambios, y los
usuarios deben actualizar periódica y frecuentemente sus pantallas para reflejar los
cambios realizados por otros usuarios, pues en caso contrario puede suceder que
alguien tome una decisión equivocada en base a lo que está viendo en pantalla. Sin
embargo, refrescar la pantalla toma tiempo, pues hay que traer cierta cantidad de
información desde el servidor de bases de datos, y las estaciones de trabajo realizan
esta operación periódicamente, colapsando la red. El personal de la empresa se aburre en los tiempos de espera, la moral se resquebraja y la empresa se sitúa al borde
del caos...
Entonces aparece Usted, un experto programador de Delphi e InterBase, y añade
triggers a discreción a la base de datos, en este estilo:
create trigger AlertarCambioBolsa for Cotizaciones
active after update position 10
as
begin
post_event "CambioCotizacion";
end ^
Observe que se ha definido una prioridad baja para el orden de disparo del trigger.
Hay que aplicar la misma técnica para cada una de las operaciones de actualización
de la tabla de cotizaciones.
Luego, en el módulo de datos de la aplicación que se ejecuta en las estaciones de
trabajo, hay que añadir el componente TIBEventAlerter, que se encuentra en la página
Samples de la Paleta de Componentes. Este componente tiene las siguientes propiedades, métodos y eventos:
Nombre
Events
Registered
Tipo
Propiedad
Propiedad
Database
Propiedad
Propósito
Los nombres de eventos que nos interesan.
Debe ser True para notificar, en tiempo de diseño,
nuestro interés en los eventos almacenados en la
propiedad anterior.
La base de datos a la cual nos conectaremos.
500 La Cara Oculta de Delphi
Nombre
RegisterEvents
Tipo
Método
UnRegisterEvents Método
OnEventAlert
Evento
Propósito
Notifica a la base de datos nuestro interés por los
eventos de la propiedad Events.
El método inverso del método anterior.
Se dispara cada vez que se produce el evento.
En nuestro caso, podemos editar la propiedad Events y teclear la cadena CambioCotizacion, que es el nombre del evento que necesitamos. Conectamos la propiedad Database
del componente a nuestro componente de bases de datos y activamos la propiedad
Register