4 respuestas en este tema

[Gil47]

Hola amigos,

Tengo basededatos SQLite3, con una tabla en la que una de sus columnas se llama Foto, tipo BLOB, y ya tiene fotos en formato JPEG.

En Lazarus, tengo TDBGrid1 y abajo TDBImage1 (donde se desea aparecezca la imagen BLOB).

Para TDBImage1, DataSource es DataSource1 (al igual que para el TDBGrid1).

Al abrir la basededatos, las columnas de la tabla se muestran correctamente, y en la columna Foto aparece la palabra (blob).

Usando el evento DBGrid1ColEnter, estoy tratando esto:

delphi

procedure TForm1.DBGrid1ColEnter(Sender: TObject); 
 VAR
   L_FieldDataType : TLabel; //una Label, tambien en Form1, que visualmente verifica el tipo de dato del campo actual, y aparte para actuar codigo.
 
Begin
 
  L_FieldDataType.Caption:=Fieldtypenames[dbgrid1.SelectedField.DataType];  {capta el tipo de dato correctamente, y lo muestra}
  
    if L_FieldDataType.Caption = 'Blob' then
 
     begin
 
          DBImage1.Datafield := DBGrid1.SelectedColumn.FieldName; //No es suficiente esto para que se reciba la imagen de la tabla?
	   
	//Ideas tratadas, basadas en:  DBImage1.Picture := ?
 	   
	      DBImage1.Picture := DBGrid1.SelectedColumn.Picture; 
             // error: SelectedColumn no tiene propiedad Picture
	   
	      DBImage1.Picture := DBGrid1.SelectedColumn.Field.CurValue;
	      // error: quiere Picture y no Variant
	   
	      // Que hacer, pues?
 
	 end;  
End;

Si hay manera mas facil y mejor, de lograr esto, por supuesto lo agradezco, aunque tambien me interesa mucho saber como lograrlo de esta manera.

Gracias de antemano!

[enecumene]

¿El TLabel es para mostrar visualmente el tipo de campo ó sólo es para hacer la comparación?, pregunto porque en ningún momento creas el TLabel ni le asignas la posición, si es para hacer la comparación es mejor asignar la variable como del tipo string, así evitas usar componentes como variable:

delphi

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
     VAR
       L_FieldDataType : String; //Variable del tipo String no visual
     
    Begin
     
      L_FieldDataType := Fieldtypenames[dbgrid1.SelectedField.DataType];  {capta el tipo de dato correctamente, y lo muestra}
      ShowMessage(L_FieldDataType); //Con esto verificamos si la variable obtiene algún valor
 
        if L_FieldDataType = 'Blob' then
......

Saludos.

[Gil47]

¿El TLabel es para mostrar visualmente el tipo de campo ó sólo es para hacer la comparación?, pregunto porque en ningún momento creas el TLabel ni le asignas la posición, si es para hacer la comparación es mejor asignar la variable como del tipo string, así evitas usar componentes como variable:

delphi

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
     VAR
       L_FieldDataType : String; //Variable del tipo String no visual
     
    Begin
     
      L_FieldDataType := Fieldtypenames[dbgrid1.SelectedField.DataType];  {capta el tipo de dato correctamente, y lo muestra}
      ShowMessage(L_FieldDataType); //Con esto verificamos si la variable obtiene algún valor
 
        if L_FieldDataType = 'Blob' then
......

Saludos.

El TLabel se pegó en Forma1 de un componente standard, y es tanto para mostrar el tipo de dato, como para comparar en codigo.

Todo funciona bien. La cuestion es como mostrar la imagen en el TDBImage cuando el dato actual del grid es tipo blob.

Ya tengo buen rato tratando de resolver esto.

Gracias.

[enecumene]

A ver, ¿la imagen está en otra tabla?, ¿está en la misma tabla?, si es éste último, ¿el TDBImage está enlazado al mismo TDataSource del DBGrid?. No te podemos dar una solución definitiva si no nos das esos detalles y si exise algo más decírnoslo, soluciones hay bastantes, pero una u otra es más efectiva.

Saludos.

[Gil47]

A ver, ¿la imagen está en otra tabla?, ¿está en la misma tabla?, si es éste último, ¿el TDBImage está enlazado al mismo TDataSource del DBGrid?. No te podemos dar una solución definitiva si no nos das esos detalles y si exise algo más decírnoslo, soluciones hay bastantes, pero una u otra es más efectiva.

Saludos.

Enecumene,

Aquí repito parte de la pregunta original. Creo que ahi aclara tus preguntas?


"Tengo basededatos SQLite3, con una tabla en la que una de sus columnas se llama Foto, tipo BLOB, y ya tiene fotos en formato JPEG.

En Lazarus, tengo TDBGrid1 y abajo TDBImage1 (donde se desea aparecezca la imagen BLOB).

Para TDBImage1, DataSource es DataSource1 (al igual que para el TDBGrid1).

Al abrir la basededatos, las columnas de la tabla se muestran correctamente, y en la columna Foto aparece la palabra (blob)."

Ojala me ayuden a resolver esto.

Gracias!