Poner fotos en tablas planas

[[Caral]]

Hola
Sigue este ejemplo:

Coloca en un form:
2 botones
1 image
1 dbnavigator
1 adotable y su adoconnection

Ahora coloca este código donde corresponde (ya de estas cosas sabes).

Código Delphi [-]
implementation

{$R *.dfm}

uses jpeg;

var jpg: TJPEGImage;

// form create
procedure TForm1.FormCreate(Sender: TObject);
begin
 jpg := TJPEGImage.Create;        // Creamos el objeto que "entiende" al JPEG

end;

// boton 1
procedure TForm1.Button1Click(Sender: TObject); 
var bmp: TBitmap; Stream: TStream;
begin
 if not OpenDialog1.Execute then Exit;

 bmp := TBitmap.Create;           // Creamos el objeto que "entiende" al Bitmap
 bmp.LoadFromFile(OpenDialog1.FileName);  // cargamos la imagen
 jpg.Assign(bmp);                 // signamos la imagen BMP al objeto del JPEG
 bmp.Destroy;                     // y liberamos el objeto. }

 ADOTable1.Open;                  // Abrimos la tabla
 ADOTable1.Insert;                // Insertamos una nueva tupla
 Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmWrite); // Asignamos el BLOB a un stream
 jpg.SaveToStream(Stream);        // y guardamos la imagen como JPEG (convertido), en el stream
 Stream.Destroy;                  // liberamos.
 ADOTable1.Post;                // Guardamos.

end;

// boton 2
procedure TForm1.Button2Click(Sender: TObject); 
var  Stream: TStream;
begin
 ADOTable1.Open;                 // Abrimos la tabla
 ADOTable1.Last;                 // Nos vamos a la última tupla para ver la ultima imagen añadida.
 Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmRead); // Lo mismo que el anterior caso pero ahora en modo de escritura.
 jpg.LoadFromStream(Stream);     // Cargamos el BLOB al objeto JPEG
 Stream.Destroy;                 // liberamos...
 Image1.Picture.Assign(jpg);     // y asignamos la imagen al TPicture.

 end;

// dbnavigator
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); 
var  Stream: TStream;
begin
 Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmRead); // Lo mismo que el anterior caso pero ahora en modo de escritura.
 jpg.LoadFromStream(Stream);     // Cargamos el BLOB al objeto JPEG
 Stream.Destroy;                 // liberamos...
 Image1.Picture.Assign(jpg);     // y asignamos la imagen al TPicture.

end;

Este código es gracias a mi amigo cHackAll
Saludos

[aanil]

Hola.

Cuando corro la aplicacion se para en:

Código Delphi [-]
if not OpenDialog1.Execute then Exit;

Estoy estudiando las dos formas.

Saludos.

[roman]

Te pongo un ejemplo completo. El ejemplo incluye una base de datos de access 2003 extraida de la tabla biolife que viene con Delphi. Este ejemplo lo tenía ya por aquí en el foro para mostar un dbnavigator personalizado pero lo adapté a ADO y Access.

Los dos botones de la derecha no pertenecen al Navigator y son para cargar una imagen o borrar la imagen del registro seleccionado.

En el ejemplo incluyo las imagenes jpg en la subcarpeta fish. De entrada, ningun registro tiene imagen.

Ahora bien, es posible, pero no estoy seguro, que si tus imágenes son bitmaps en lugar de jpg, puedas usar directamente un componente DBImage directamente sin pasar por todo el rollo de los streams.

Agrego

En el ejemplo se me quedó un componente Table del BDE del ejemplo anterior. No hagas caso de él, lo puedes suprimir.

// Saludos

[[Caral]]

Hola
No entiendo.
Lo estoy viendo pero no quiero meter las patas.
Tienes componentes ado, sin embargo veo Zeos.
Quito las referencias sin problema?.
Saludos

[[Caral]]

Hola
Ya le quite algunas referencias y funciono.
Esta muy bien el programa, interesante el codigo.
Saludos

[roman]

Ja, ja, perdón. Recién noto que la versión a partir de la cual hice el ejemplo no es la del que está en los foros sino una en la que había comenzado a adaptarlo a Zeos y nunca lo terminé. Gracias por la observación, espero mañana limpiarla y recolocarla aquí.

// Saludos

[roman]

Ya lo pulí y le añadí algunos comentarios.

// Saludos