Ayuda con campos Blob en Firebird

[angelholberg]

Saludos a todos, necesito extraer la extencion de una imagen guardada en un campo blob, con una sentencia sql una solucion es al moneto de guaradr la imagen guardar en un campo la extencion, para mostarla seria d ela siguiente amnera:
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
ClientDataSet2.Active:=false;
SQLQuery1.SQL.Append('select foto,formato from misfotos where codigo='''+dbgrid2.Fields[0].AsString+'''');
SQLQuery1.ExecSQL(true);
SQLQuery1.Open;
ClientDataSet2.Active:=true;
Stream := TMemoryStream.Create;
TBlobField(ClientDataSet1.FieldByName('FOTo')).SaveToStream(Stream);
if Stream.Size > 0 then}
//if (Stream) then
if ClientDataSet1.FieldByName('formato').AsString='.JPG' then
begin
Stream.Position := 0;
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Imagefoto.Picture.Assign(Jpg);
end
else
if ClientDataSet1.FieldByName('formato').AsString='.BMP' then
begin
Stream.Position := 0;
b:=TBitmap.Create;
b.LoadFromStream(stream);
Imagefoto.Picture.Assign(b);
end
De esta forma se asigna la imagen sin problema al Timage sea bmp o jpg la imagen, ahora lo que quiero saber si se puede extraer directamente la extencion de la imagen guardada en el campo blob y preguntar que tipo de extencion al obtener el resulatdoa si d eesta fora lo mostraria en el timage

[juanlaplata]

No se bien si se puede extraer como dices la extension del archivo que esta almacenado. pero creo que si se puede agregar en el momento que se carga.
Como?

Código Delphi [-]
ClientDataSet1.FieldByName('FOTO').AttributeSet:='.bmp';//podria ser el formato

y luego al momento de leer

Código Delphi [-]
if(ClientDataSet1.FieldByName('FOTO').AttributeSet = '.bmp')then ...