Ver Mensaje Individual
  #2  
Antiguo 10-09-2005
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Reputación: 19
jmariano Va por buen camino
Tu problema, seguramente, es que el campo Blob no tiene almacenada la imagen en formato jpeg (de ahí el error en el formato), así que tendrás que usar la clase TBitmap en vez de TJPEGImage.

Código Delphi [-]
var
  MS: TMemoryStream;
  B: TBitmap;
begin
  if not q_trabajadoresfoto.IsNull then
  begin
    MS := TMemoryStream.Create;
    B := TBitmap.Create;
    q_trabajadoresfoto.SaveToStream(MS);
    B.LoadFromStream(MS);
    foto.Picture.Assign(B);
    MS.Free;
    B.Free;
  end
  else foto.Picture := nil;

Saludos!
Responder Con Cita