Problemas Access, DbImage - Objeto OLE

[marcoszorrilla]

No tengo tiempo para ver si esto te puede servir evalualo y nos cuentas.

Código Delphi [-]
  campoblob.loadfromfile(archivo);
  
  
  para visualizarlas desde un campo blob lo hago con un TImage pq el TDBImage permite
  unicamente los bmp:
  Código:
  
  procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField);
  var bs : TStream; jp : TJpegImage; buff: Word;
  begin
  bs := DataSet.CreateBlobStream(CampoBlob,bmRead);
  try
  bs.Seek(0,soFromBeginning);
  if bs.Read(buff,2) > 0 then
  begin
  bs.Seek(0, soFromBeginning);
  case buff of
  $4D42: image1.Picture.Bitmap.LoadFromStream(bs);
  $0000: image1.Picture.Icon.LoadFromStream(bs);
  $0001,$CDD7: image1.Picture.Metafile.LoadFromStream(bs);
  $D8FF: begin
  jp := TJpegImage.Create;
  jp.LoadFromStream(bs);
  image1.Picture.Assign(jp);
  FreeAndNil(jp);
  end
  else image1.Picture := nil;
  end;
  end;
  finally
  FreeAndNil(bs);
  end;
  end;

Un saludo.