Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Campo OLE (https://www.clubdelphi.com/foros/showthread.php?t=43517)

MaMu 14-05-2007 00:48:01

Campo OLE
 
Me pase leyendo todos y cada uno de los post de consulta acerca de la mejor forma de guardar una imagen en el campo de una tabla, y todavia no puedo hacerlo funcionar.
Yo tengo un formulario donde recopilo datos, y una opcion para seleccionar una foto estandard o una que el usuario quiera.
Las fotos son en BMP, ya que necesito si o si ese formato por la calidad, aunque no es tanto problema por las fotos son 4x4 (tipo carnet) con lo que practicamente la medida es unica.
En la tabla access, tengo definido el campo "foto" como Objeto OLE, ya que no se que otro usar para la imagen. La imagen a cargar, la tengo previsualizada en un TImage. Pero el problema esta en que tipo de dato debo colocar:

Código Delphi [-]
ADOQuery1.Open;
ADOQuery1.Insert;
try
....
   ADOQuery1.FieldByName('foto').?????????
....
except

cHackAll 14-05-2007 19:51:24

Creo
 
Algo así te servirá:

Código Delphi [-]
var Stream: TStream; lpBuffer: Pointer;
begin
 ...
 Image1.Picture.Bitmap.SaveToStream(Stream);
 GetMem(lpBuffer Stream.Size);
 Stream.Write(lpBuffer^, Stream.Size)
 ADOQuery1.FieldByName('foto').SetData(lpBuffer);
 ADOQuery1.FieldByName('foto').DataSize = Stream.Size;
 ...
end;

Suerte.


La franja horaria es GMT +2. Ahora son las 16:44:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi