Ver Mensaje Individual
  #6  
Antiguo 14-12-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Desconozco si puede usarse directamente un TDBImage. Haciendo unas pruebas en FireBird he podido guardar y leer iconos pero mostrándolos en un TImage.

Para guardar un icono:

Código Delphi [-]
var
  Stream: TMemoryStream;

begin
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.Icon.LoadFromFile(OpenPictureDialog1.FileName);

    Stream := TMemoryStream.Create;
    try
      Image1.Picture.Icon.SaveToStream(Stream);

      Taula.Append;
      TaulaIMAGEN.LoadFromStream(Stream);
      Taula.Post;
    finally
      Stream.Free;
    end;
  end;
end;

Para cargar el icono uso el evento AfterScroll de Taula:

Código Delphi [-]
var
  Stream: TMemoryStream;

begin
  Stream := TMemoryStream.Create;

  try
    TaulaIMAGEN.SaveToStream(Stream);
    Stream.Seek(0, soFromBeginning);
    Image1.Picture.Icon.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

// Saludos
Responder Con Cita