La Cara Oculta de Delphi 6

860 La Cara Oculta de Delphi 6
Supongamos que hemos definido una tabla Banners con el siguiente esquema (utilizo
el dialecto de InterBase), y que el contenido del campo Imagen es precisamente una
imagen en formato JPEG:
create table BANNERS (
IDBanner integer not null primary key,
URL varchar(127) not null unique,
Imagen blob
);
Para simplificar, asumiremos que la columna IDBanner contiene valores enteros sucesivos,
contando desde cero. No es muy complicado mantener esta secuencia si tras
cualquier inserción o borrado en la tabla ejecutamos un procedimiento de enumeración.
Entonces el siguiente método de respuesta a una acción muestra una de las
imágenes de la tabla, suponiendo que se recibe el código asociado a la misma en uno
de los parámetros de la petición:
procedure TWebModule1.acBannerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
begin
qrCount.Open;
try
qrBanner.ParamByName('BannerID').AsInteger :=
Random(qrCount.Fields[0].AsInteger);
finally
qrCount.Close;
end;
qrBanner.Open;
try
Response.ContentType := 'image/jpeg';
Response.ContentStream :=
qrBanner.CreateBlobStream(qrBannerImage, bmRead);
finally
qrBanner.Close;
end;
end;
El ejemplo utiliza dos consultas, qrCount y qrImage, basadas en estas dos instrucciones
de selección:
select count(*) from BANNERS
select Image from BANNERS where BannerID = :BannerID
En primer lugar, la respuesta al evento abre una consulta para recuperar el número
de imágenes que hay en la tabla. Sin pausa alguna, pasa el valor obtenido por la función
Random para obtener un identificador de fila aleatorio. Entonces recupera la fila
en cuestión.
NOTA IMPORTANTE
Hay que tener mucho cuidado con la función Random. Esta función genera una sucesión
de números de apariencia aleatoria a partir de un valor inicial, o semilla. El caso