Resolución de una imagen

[Jab]

Hola!!
Prueba con esto. Una vez asignada la imagen del fichero original al BLOB de la base de datos.

           Bd.TbArtFotoIMAGEN.LoadFromFile(OpenPictureDialog1.FileName);
           BS:= TMemoryStream.Create;
           jpeg:= TJPEGImage.Create;
           try
                              bd.TbArtFotoIMAGEN.SaveToStream(BS);
                              BS.Seek(0,soFromBeginning);
                              jpeg.LoadFromStream(BS);
                              showmessage('Resolucion: h: '+ inttostr(jpeg.height)+'  w:'+inttostr(jpeg.width));
           finally
                              BS.Free;
                              jpeg.Free;
           End;//Del try

Saludos!!