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
public
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