Problema al visualizar imagenes

[PallyRS]

Hola Foro:

Estuve de vacaciones, por lo que no me había dado una vuelta por aquí.

Casimiro Notevi tienes toda la razón del mundo en cuanto a no haber puesto el código de la Unit en cuestión, por lo que lo haré ahora mismo.

randef: Si, la EDBimage y la DBImage están conectadas al campo correspondiente donde se almacena la imagen. La imagen es .JPG, no he probado con .BMP

Ahora cuando vean el código quisiera saber donde, y en que momento entraría a jugar el código puesto por movorack pues al parecer la solución esta por ahí, según he podido leer en la Web del PostgreSQL. Pero no acabo de arreglar algún detalle que me impide la inserción de las imagénes.

Código Delphi [-]
unit UnitImpresoras;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzDBEdit, RzLabel, RzCmboBx, RzDBCmbo,
  ExtCtrls, RzPanel, RzDBNav, DBCtrls, Menus, RzShellDialogs, EDBImage, DBActns,
  ActnList;

type
  TFormImpresoras = class(TForm)
    RzLabelMarcamodelo: TRzLabel;
    RzDBComboBoxLasert: TRzDBComboBox;
    RzDBEditImpresora: TRzDBEdit;
    RzLabelLasert: TRzLabel;
    RzLabelTonert: TRzLabel;
    RzDBEditTonert: TRzDBEdit;
    RzDBMemoImpresora: TRzDBMemo;
    RzDBNavigatorDatos: TRzDBNavigator;
    RzOpenDialogo: TRzOpenDialog;
    PopupMenu: TPopupMenu;
    Cargarimagen: TMenuItem;
    RzLabelDatos: TRzLabel;
    EDBImageImpresora: TEDBImage;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CargarimagenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormImpresoras: TFormImpresoras;

implementation

uses UnitDataModulo, UnitFormInventarioPC;

{$R *.dfm}

procedure TFormImpresoras.CargarimagenClick(Sender: TObject);
var
  Stream: TStream;
begin
  DataModuleInventarioPC.ADOTableImpresora.Edit;
  Stream:=DataModuleInventarioPC.ADOTableImpresoraImagen;
  if RzOpenDialogo.Execute then EDBImageImpresora.Picture.LoadFromFile(RzOpenDialogo.FileName);
  DataModuleInventarioPC.ADOTableImpresora.Post;
end;

procedure TFormImpresoras.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DataModuleInventarioPC.ADOTableBitacora.InsertRecord([Date, Time, PC, Usuario,'Cerrado Clasificador de Impresoras']);
end;

procedure TFormImpresoras.FormShow(Sender: TObject);
begin
  DataModuleInventarioPC.ADOTableBitacora.InsertRecord([Date, Time, PC, Usuario,'Activado Clasificador de Impresoras']);
end;

end.

No sé donde poner esa parte del código de movorack donde hace alusión a una JPEG, ¿Me falta por declarar en uso alguna Unit que me está impidiendo realziar la operación correspondiente?

Gracias

[radenf]

Estimado PallyRS :

Poe el código que adjuntaste veo que te conectas a PostgrSql utilizando ADO. Yo utilizo Zeos y funciona perfectamente. Puede ser esa la diferencia que te impide ver las imágenes con el DBImage.

Saludos

[PallyRS]

Hola Foro:

Pues como lo leen, mil gracias, ya solucioné, ¿Pues como?. Seguí el consejo de radenf y descargué los componentes ZeosDBO 6.6.6-stable. Ni que hablar del trabajo que pasé para descargarlo pues SourceForgue con todo lo Open Source que dicen que són para Cuba no nos dejan descargar nada, ni que fueramos marcianos, pero bueno, eso es política y no cabe en este magnifico Foro.

Incluso me ahorre par de lineas de código. Aparte de los cambios normales en los tipos de conexión y los tipos de tablas, el procedure Cargarimagenclic, cambió quedando ahora solamente así:

Código Delphi [-]
procedure TFormImpresoras.CargarimagenClick(Sender: TObject);
begin
  if RzOpenDialogo.Execute then EDBImageImpresora.Picture.LoadFromFile(RzOpenDialogo.FileName);
end;

La imagen se carga y se vizualiza muy bien.

Gracias a todos, pues todos ayudaron.

Al moderador ya puede dar como solucionado el Hilo este.

[Casimiro Notevi]

Algunos paisanos tuyos, cuando necesitan algún programa de esos sitios, los bajamos nosotros y lo ponemos en nuestro FTP para que puedan descargarlos.
Así que ya sabes, para la próxima vez
Incluso recuerdo haber enviado algunos CDs con programas a un amigo cubano, que me los pidió, básicamente distribuciones Linux.

[radenf]

Encantado de haber podido ayudarte.
Saludos y muchas felicidades junto a tu familia y seres queridos en estas fiestas.

[PallyRS]

Empezado por radenf

Encantado de haber podido ayudarte.
Saludos y muchas felicidades junto a tu familia y seres queridos en estas fiestas.

Gracias por todo. Igual te deseo que pases las fiestas de todos estos días de la forma más feliz que quieras. Hoy por lo menos ya me espera una caja de cerveza TINIMA, y unas costillas de puerco azadas en casuelas. Brindare por este Foro en la primera botella, porque despues de varias no se de que me acuerde o por que brinde.

Saludos

FELIZ AÑO NUEVO A TODOS

[[newtron]]

Empezado por Casimiro Notevi

Algunos paisanos tuyos, cuando necesitan algún programa de esos sitios, los bajamos nosotros y lo ponemos en nuestro FTP para que puedan descargarlos.
Así que ya sabes, para la próxima vez
Incluso recuerdo haber enviado algunos CDs con programas a un amigo cubano, que me los pidió, básicamente distribuciones Linux.

Se te olvidó añadir que esto es a cambio de una ronda de ron para todos.

[PallyRS]

Empezado por newtron

Se te olvidó añadir que esto es a cambio de una ronda de ron para todos.

Pues nada, solo tienen que llegarse por aqui y seran bien recibidos en mi casa. Cualquiera que sea. De la fiesta y la diversion me encargo yo. Ron y como vivo cerquita del mar, hasta los llevo a pescar y freimos lo que se pesque, jugando domino si quieren.

Y hasta debatimos cualquier tema, Programacion, la vida, en fin, la pasariamos muy bien.

Seran bienvenidos todos por igual

[PallyRS]

Empezado por Casimiro Notevi

Algunos paisanos tuyos, cuando necesitan algún programa de esos sitios, los bajamos nosotros y lo ponemos en nuestro FTP para que puedan descargarlos.
Así que ya sabes, para la próxima vez
Incluso recuerdo haber enviado algunos CDs con programas a un amigo cubano, que me los pidió, básicamente distribuciones Linux.

Muchísimas gracias, valientre desición la tuya decirlo público tu animo de cooperar. No todos son capaces de hacerlo. Pero apreciamos la ayuda venga de quien venga y de donde sea. Normalmente no me gusta estar molestando pero casi casi me vi pidiendo ayuda al foro para el componente, pues no encontraba la manera hasta que lo logré. Algunas cosas que son Freeware si puede ser que nos ayuden a optenerlas, pero es siempre y cuando no existan luego complicaciones para quienes nos tiendan la mano.

Por otra parte mi conexión es muy lenta, y cuando es necesario tener alguna imagen de CD DVD, no tenemos mas remedio que quedarnos con las ganas o que alguien nos ayude como acabas de explicar. Muy bien de tu parte.