acerca de los campos blob

[anubis]

hola de nuevo.

Bueno, parece que no quiere funcionar.

tengo un blob con una imagen jpg almacenada y, en funcion de este código:

Código Delphi [-]
procedure TForm2.FormCreate(Sender: TObject);
 begin
    jpg := TJPEGImage.Create;

 end;

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);

var
Stream: TStream;
begin

  Stream := form1.ZQuery1.CreateBlobStream(form1.ZQuery1.FieldByName('factur'),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...
 Image1.Picture.Assign(jpg);
end;

Me da el siguiente error:

Jpeg error.

La unidad jpeg no la tengo en lazarus asi que no la puedo asignar, pero viene de la unidad graphics, sino el tjpegimage me habria dado error de compilacion.

[[mightydragonlor]]

No te sirve el TDBImage enlazandolo directamente al control de Zeos?

[anubis]

Gracias ya probe a ponerlo, pero no sale la imagen.

O hay que añadirle algo mas?

edito:

Acabo de crear un programa nuevo para probar la carga de imagen y me sale violacion de acceso.

Código Delphi [-]

jprocedure TForm1.Image1Click(Sender: TObject);

  var bmp: TBitmap; Stream: TStream;
begin
 if not OpenPictureDialog1.Execute then Exit;
 jpg.LoadFromFile(OpenPictureDialog1.FileName);
end;

Si abre el dialog, si me deja elegir y cuando le doy a aceptar me sale ese error de violación de acceso

[[mightydragonlor]]

Pues no que yo sepa, un TZQuery, un TDataSource y ya, eso es lo que hago normalmente.

[anubis]

Hola.
Ya he conseguido guardar y recuperar.

Código Delphi [-]
form1.zquery1.edit;
JPG:=TJPEGImage.Create;
if not OpenPictureDialog1.Execute then Exit;
jpg.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Picture.Assign(JPG);
 Stream := form1.ZQuery1.CreateBlobStream(form1.zquery1.FieldByName('factur'), bmWrite); // Asignamos el BLOB a un stream
 jpg.SaveToStream(Stream);        // y guardamos la imagen como JPEG (convertido), en el stream
 Stream.Destroy;// liberamos.
 form1.ZQuery1.ApplyUpdates;

Me faltaría saber si se puede hacer lo mismo con un pdf en vez de un jpg

Gracias a todos