acerca de los campos blob

[Casimiro Noteví]

Haz una búsqueda por los foros, es un tema que se ha tratado bastantes veces, a ver si te sirve alguno de estos enlaces escogidos al azar: 1, 2, 3, 4 y 5

[anubis]

Gracias de verdad.

Encontre varias cosas que me pudieran servir, pero tengo un problema con esto:

Código Delphi [-]
BlobStream:=form1.zquery1.CreateBlobStream(form1.zquery1.FieldByName('factur'),bmRead);

Me dice que bmRead indentificador no encontrado,

El resto si esta bien declarado, BlobStream es un TStream, así no se que me falta o que unidad tengo que añadir al uses para que me reconozca el bmRead.

Gracias mil

[anubis]

Perdon por duplicar, pero no pude editar el mensaje.

Mi error estaba en que no tenia la unit db, que es la que hace que me de error el bmread, perdon.

[Casimiro Noteví]

Entonces, ¿lo has solucionado?

[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