Ayuda con campos Blob en Firebird
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
|