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