guardar una imagen a firebird con delphi

[koiji]

BUENAS TARDES TENGO ESTES CODIGO QUE ENCONTRE PARA ALMACENAR IMAGENES ESTOY UTILIZANDO IBQUERY PARA ALMACENAR LA IMAGEN PERO NO FUNCIONA PORQUE
SALE UN ERROR EN jpg.Assign(bmp); ESTOY UTILIZANDO DELPHI 2010 gracias por su ayuda


implementation

{$R *.dfm}

uses jpeg;

var jpg: TJPEGImage;

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

end;

// Guardar la foto en la tabla
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;

// cargar la foto de la tabla.
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...
Image2.Picture.Assign(jpg); // y asignamos la imagen al TPicture.

end;

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)?, gracias por tu colaboración :)

[ecfisa]

Hola koiji.
BUENAS TARDES TENGO ESTES CODIGO QUE ENCONTRE PARA ALMACENAR IMAGENES ESTOY UTILIZANDO IBQUERY...



Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmWrite);


Pero... ¿ Estas usando componentes IBX o ADO ?

Saludos :)

[koiji]

Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas



CREATE TABLE IMAGENES2 (
ID INTEGER NOT NULL,
IMAGE BLOB SUB_TYPE 0 SEGMENT SIZE 80
);

[ecfisa]

Hola koiji.

Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas

Entonces un ejemplo para almacenar imágenes de tipo JPG con el componente TIBQuery de IBX:

...
implementation

uses JPeg;

procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.Filter:= 'Archivo de imágen | *.JPG;*.JPEG';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
J: TJPEGImage;
MS: TMemoryStream;
begin
if OpenDialog1.Execute then
begin
J:= TJPEGImage.Create;
MS:= TMemoryStream.Create;
try
J.LoadFromFile(OpenDialog1.FileName);
J.SaveToStream(MS);
MS.Position:= 0;
IBQuery1.Close;
IBQuery1.SQL.Text:= 'INSERT INTO IMAGENES2(ID,IMAGE) VALUES(:ID,:IMG)';
IBQuery1.ParamByName('ID').AsInteger:= 13;
IBQuery1.ParamByName('IMG').LoadFromStream(MS, ftBlob);
IBQuery1.ExecSQL;
finally
J.Free;
MS.Free;
end;
end;
end;


Saludos :)

[koiji]

un ultimo favor acabo de ver que los timage no soportan png como podria hacer que visualize las imagenes png Gracias

yo siempre lo he utilizado asi pero no visualiza los png

if not OpenDialog1.Execute then Exit;
// Image1.Picture.LoadFromFile((OpenDialog1.FileName));

[Casimiro Notevi]

koiji, Preguntas distintas en hilos distintos (http://www.clubdelphi.com/foros/guiaestilo.php).
De todas formas, haz una búsqueda por los foros, se ha tratado en múltiples ocasiones.

[koiji]

Hola buenas tarde me podran ayudar con el tema de los Timagen al cargar una imagen con un openDialog hacia un Timagen me sale error creo que los Timagen no Aceptan PNG como haria para transformar el PNG y a JPG para que el Timagen me lo pueda mostrar GRACIAS

[ecfisa]

Hola koiji.

¿ Con que versión de Delphi estas trabajando ?

Saludos :)

[koiji]

Hola ecfisa tengo una pregunta como podria hacer cuando tengo guardada una imagen PNG dentro de firebird y mostrarla a un Timagen mi codigo es el siguiente pero solo funciona para JPG y estoy utilizando un dataset o tambien ibquery

IBDataSet1.Open;
IBDataSet1.next;
jpg :=TjpegImage.Create;
jpg.Assign(TblobField(IBDataSet1.FieldByName('DESCRIPCION')));
image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

[Casimiro Notevi]

No crees preguntas repetidas en hilos distintos, gracias ;)

[ecfisa]

Hola koiji.

Si hubieras continuado con los mensajes en este hilo no hubiera preguntado la versión de Delphi ;)

Creo que a partir de Delphi 2009 la VCL incluye la clase TPngImage y no necesitas código de terceros.

uses
PngImage;


Saludos :)

[koiji]

yo utilizo la version 2010 de delphi pero esta version que tengo es un version lite de 2010 entonces talves no me deje entender lo que pasa es que ya puedo guardar la imagen JPG y PNG
a la base de datos pero cuando navego de esta manera

IBDataSet1.Open;
IBDataSet1.next;
jpg :=TjpegImage.Create;
jpg.Assign(TblobField(IBDataSet1.FieldByName('DESCRIPCION')));
image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

y llego a la imagen en la BD PNG metira el error JPEG error#53 y el codigo que puse el que estoy utilizando que me tira el error gracias por la colabroracion

[ecfisa]

...
y llego a la imagen en la BD PNG metira el error JPEG error#53 y el codigo que puse el que estoy utilizando que me tira el error gracias por la colabroracion
Un caso similar se trato en este hilo: Recuperando una imagen de SQL Server da error (http://www.clubdelphi.com/foros/showthread.php?t=84479), el enlace es al foro C++ pero el problema es el mismo y también la solución.

Así que en Delphi y usando el evento OnDataChange del TDataSource para mostrar campos con diferentes tipos de imágenes en un TImage sería:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
G: TGraphic;
B: TBitmap;
begin
case IBDataSet1.FieldByName('TIPO_IMAGEN').AsInteger of
0: G:= TBitmap.Create;
1: G:= TJPEGImage.Create;
2: G:= TPNPObject.Create;
//3: G:= TGIFImage.Create;
end;
B:= TBitmap.Create;
try
G.Assign(TblobField(IBDataSet1.FieldByName('IMAGEN')));
B.Assign(G);
Image1.Picture.Bitmap.Assign(B);
finally
G.Free;
B.Free;
end;
end;


Recuerda usar los TAG's cuando incluyas código en tus mensajes de este modo:

http://img403.imageshack.us/img403/3461/75416396.jpg

Saludos: