Ver Mensaje Individual
  #12  
Antiguo 15-03-2012
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: mar 2007
Posts: 863
Reputación: 18
anubis Va por buen camino
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

Última edición por anubis fecha: 15-03-2012 a las 19:50:29.
Responder Con Cita