Ver Mensaje Individual
  #1  
Antiguo 18-01-2007
Avatar de Doraemon
Doraemon Doraemon is offline
Registrado
 
Registrado: abr 2005
Ubicación: Ñemby Paraguay
Posts: 5
Reputación: 0
Doraemon Va por buen camino
Question Mostrar una imagen JPG

Hola a todos,... estuve buscando en el foro y encontre la manera de mostrar en un TImage una imagen almacenada en un campo de access tipo OLE... creo haber buscado lo suficiente como para pedir a alguien me pueda decir porque me sale el error "Invalid class typecast" en la linea donde hago el "SaveToStream"...¿¿???

Aqui esta el codigo:

Código Delphi [-]
procedure TfraDefinicionNotificadores.MostrarFoto;
var   MS: TMemoryStream;   IB: TJPEGImage;   sSQL: String;
begin   with ADQFotoX do     begin       SQL.Clear;       sSQL:= 'SELECT Foto FROM Notificadores WHERE CodigoNotificadores=' + ADONotificadoresCodigoNotificadores.AsString;
      SQL.Add(sSQL);
      Open;
      (FieldByName('Foto') as TGraphicField).SaveToStream(MS);
    end;
  IB.LoadFromStream(MS);
  imgFoto.Picture.Assign(IB);
  MS.Free;
  IB.Free;
end;

Desde ya muchas gracias... espero haber dicho todo como para recibir alguna ayudita

Última edición por dec fecha: 18-01-2007 a las 00:17:05.
Responder Con Cita