Delphi - jpg en Dataset (segunda entrega)

Al ver q muchos foristas se molestan muy poco en buscar respuesta a sus preguntas en el historico del foro, republico este truco q facilita guardar y visualizar imagenes jpg en cualquier motor de BD mediante Delphi.

procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField);
var bs : TStream; jp : TJpegImage; buff: Word;
begin
bs := DataSet.CreateBlobStream(CampoBlob,bmRead);
try
bs.Seek(0,soFromBeginning);
if bs.Read(buff,2) > 0 then
begin
bs.Seek(0, soFromBeginning);
case buff of
$4D42: image1.Picture.Bitmap.LoadFromStream(bs);
$0000: image1.Picture.Icon.LoadFromStream(bs);
$0001,$CDD7: image1.Picture.Metafile.LoadFromStream(bs);
$D8FF: begin
jp := TJpegImage.Create;
jp.LoadFromStream(bs);
image1.Picture.Assign(jp);
FreeAndNil(jp);
end
else image1.Picture := nil;
end;
end;
finally
FreeAndNil(bs);
end;
end;

esto para visualizar las jpg, para guardarlos nada mas facil q
campoblob.loadfromfile(archivo);

espero q sirva..

Lean este artículo, está más facil:

http://www.latiumsoftware.com/es/pascal/0011.php#2

PD: Perdon por la intromisión Delfino.

Estas seguro q es mas facil??? pues yo no lo veo pq h leido tu sugerencia en mi primera entrga de ese truco y lo lei pero lo q vi es q es un codigo bastante cargado y ni comparacion con el q puse tiene bastante menos codigo, ademas ese truco q dices altera el blob para identificar su tipo y eso es un riesgo enorme, dejo la eleccion para los interesados..