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

Código Delphi [-]
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 Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

[ecfisa]

Hola koiji.

Empezado por koiji

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

Código Delphi [-]
  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

Código SQL [-]
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:

Código Delphi [-]
...
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

Código Delphi [-]
 if not OpenDialog1.Execute then Exit;
      // Image1.Picture.LoadFromFile((OpenDialog1.FileName));

[Casimiro Noteví]

koiji, Preguntas distintas en hilos distintos.
De todas formas, haz una búsqueda por los foros, se ha tratado en múltiples ocasiones.