Ver Mensaje Individual
  #5  
Antiguo 16-12-2009
Avatar de heroe
heroe heroe is offline
Miembro
 
Registrado: may 2006
Ubicación: Cartago, Costa Rica
Posts: 45
Reputación: 0
heroe Va por buen camino
Lightbulb Guardando una imagen o archivo

Te recomiendo que uses un campo tipo longblob.

Ejemplo guardar una imagen

Donde
  • _Imagen es una variable stream
  • imgImagen es un TImage
  • ADOQuery1 es TADOQuery
Código Delphi [-]
_Imagen := TMemoryStream.Create;
imgImagen.Picture.LoadFromFile(OpenPictureDialog1.FileName);
_Imagen.LoadFromFile(OpenPictureDialog1.FileName);

with ADOQuery1 do
begin
SQL.Add('Insert into Tabla');
SQL.Add('(Imagen)');
SQL.Add('Values(:Param0)');
with Parameters do
  Items[0].LoadFromStream(_Imagen, ftBlob);
ExecSQL;
end;

_Imagen.Free;
Responder Con Cita