Ver Mensaje Individual
  #5  
Antiguo 23-07-2008
Jab Jab is offline
Miembro
 
Registrado: feb 2008
Posts: 83
Reputación: 0
Jab cantidad desconocida en este momento
Hola!!
Prueba con esto. Una vez asignada la imagen del fichero original al BLOB de la base de datos.

Código:
           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!!

Última edición por Jab fecha: 23-07-2008 a las 11:23:55.
Responder Con Cita