Imagenes en un TDBLookUp

[morta71]

He probado el componente que me dices pero no me funciona. El código que pongo es el siguiente:

Código Delphi [-]
  TGraphicField(IBDataSet1.FieldByname('IMAGEN')).Assign(Graphic);

No da error, pero tampoco muestra ninguna imágen (por supuesto existe la imagen en la BD).

Gracias

[luisgutierrezb]

el codigo que estas poniendo es para asignarle una imagen a un campo de la base de datos, se requiere lo contrario o al menos asi entendi, en el evento GetImage, seria algo asi como:

Graphic.Assign(TGraphicField(IBDataSet1.FieldByname('IMAGEN')));

[morta71]

Gracias por tu respuesta luisgutierrezb, pero en ése caso obtengo un error por "Access Violation at address .....", y sigo sin ver las imágenes.

[[Chris]]

No he utilizado ese componente del proyecto Jedi, pero intenta utilizando este código:

Código Delphi [-]
procedure ProcDondeCargalaImagen;
var
imgStream : TStream;
Begin

try
imgStream := Tstream.create;

imgStream := miTabla.CreateBlobStream(mitabla.Fieldbyname('imagen'),bmread);
Graphic.LoadfromStream(imgStream);
imgStream.free;
finally end;

end;

[morta71]

Hola D&W he probado tu código y me da el mismo mensaje de Error: "Access Violation at address ..." al ejecutar la línea

Código Delphi [-]
Graphic.LoadfromStream(imgStream);

[[Chris]]

Implementa el siguiente código

Código Delphi [-]

procedure TForm1.JvDBLookupCombo1GetImage(Sender: TObject;
  IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);
var
imgStream : TStream;
imgGraphic : TBitmap;
Begin

TextMargin := 80; //esta propiedad especifica el ancho que se reservará para dibujar la imagen.

try
If Not Table2.Active then Exit;
if Table2.Fieldbyname('Diseno').IsNull then Exit;
imgStream := Tstream.create;
imgStream := Table2.CreateBlobStream(Table2.Fieldbyname('Diseno'),bmread);
imgGraphic := TBitmap.Create;

imgGraphic.LoadFromStream(imgStream);
TextMargin := imgGraphic.Width; //aquí establezco que el ancho sea siempre el ancho de la imagen que vamos a dibujar.

Graphic := imgGraphic;
imgStream.free;
finally end;

end;

para aumentar la altura del lienzo, aumenta la propiedad ItemHeight del control, normalmente trae 13, la puedes aumentar a 48 o más segun tus necesidades. Tampoco no vayas a abusar. También, dependiendo de la altura de las imágenes tienes que disminuir la propiedad DropDownCounts, normalmente trae en ocho, pero tu veras, si la tienes que disminuir hasta que la lista desplegable quepa en la pantalla.

Espero que me entiendas. Ha sido un placer haberte ayudado. Bye.

[morta71]

Gracias por tu respuesta D&W, ya me funciona, creo, correctamente.

En tu código veo que creas el Bitmap con imgGraphic := TBitmap.Create; pero no se libera con la sentencia imgGraphic.Free; correspondiente, por lo que tras varias ejecuciones del Form me reportaba un error por "Access Violation".

Si implemento la sentencia imgGraphic.Free; en el cuerpo del procedimiento, obtengo el mismo error "Access Violation", por lo que realicé las siguientes modificaciones:

He definido la variable imgGrapphic como privada y el código queda de la siguiente manera:

Código Delphi [-]
 ...
   private
     { Private declarations }
     imgGraphic : TBitmap;
 ...
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   imgGraphic := TBitmap.Create;
 end;
 
 ...
 
 procedure TForm1.edtPaisGetImage(Sender: TObject;
   IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);
 var
   imgStream : TStream;
 Begin
 
   if not IsEmpty then
   try
     if not Table2.Active then Exit;
     if Table2.Fieldbyname('Diseno').IsNull then Exit;
     imgStream := Tstream.create;
     imgStream := Table2.CreateBlobStream(Table2.Fieldbyname('Diseno'),bmread);
 
     imgGraphic.LoadFromStream(imgStream);
     TextMargin := imgGraphic.Width + 2; //aquí establezco que el ancho sea siempre el ancho de la imagen que vamos a dibujar (he añadido 2 unidades para dar un poco de separación).
 
     Graphic := imgGraphic;
     imgStream.free;
   finally
   end;
 end;

procedure TForm1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  imgGraphic.Free;
end;

Muchas gracias D&W por tu colaboración.