Imágenes
Lo primero es que no importa con que motor de base de datos trabajes y segundo seria bueno saber como ingresas la imagen a la base de datos
La forma de ingresarlas debería ser parecido a esta
(Se supone que tienes una tabla llamada Table1 y esta tiene un campo llamado Imagen)
Table1.Append;
{...}
Table1Imagen.LoadFromFile('c:\imagen.BMP');
//o tambien
//Table1.FieldByName('Imagen').LoadFromFile('c:\imagen.BMP');
//en tu caso Table1Imagen.LoadFromFile('c:\imagen.jpg');
{...}
Table1.Post;
y para recuperarla
(Se supone que tienes un componente Imagen1 en el Form, en tu caso cambia TImage por TJpegImage y agrega Jpeg a la clausula Uses)
procedure TForm1.Button2Click(Sender: TObject);
var
Imagen : TImage
Memory : TMemoryStream;
begin
{Creamos un TImage y un TMemoryStream}
Imagen := TImage.create;
Memory := TMemoryStream.create;
{Pasamos el campo binario al stream}
Table1Imagen.SaveToStream(Memory);
{Rebobinamos el Stream}
Memory.Seek(0,soFromBeginning);
{Cargamos Memory a al TImage}
Imagen.LoadFromStream(Memory);
{y asignamos el TImage al Image1 del form}
Image1.Picture.Assign(Imagen);
{Acordate de liberar los recursos}
Memory.Free;
Imagen.Free;
end;
Pruébalo cualquier cosa avisa
DarkManX.
La forma de ingresarlas debería ser parecido a esta
(Se supone que tienes una tabla llamada Table1 y esta tiene un campo llamado Imagen)
Table1.Append;
{...}
Table1Imagen.LoadFromFile('c:\imagen.BMP');
//o tambien
//Table1.FieldByName('Imagen').LoadFromFile('c:\imagen.BMP');
//en tu caso Table1Imagen.LoadFromFile('c:\imagen.jpg');
{...}
Table1.Post;
y para recuperarla
(Se supone que tienes un componente Imagen1 en el Form, en tu caso cambia TImage por TJpegImage y agrega Jpeg a la clausula Uses)
procedure TForm1.Button2Click(Sender: TObject);
var
Imagen : TImage
Memory : TMemoryStream;
begin
{Creamos un TImage y un TMemoryStream}
Imagen := TImage.create;
Memory := TMemoryStream.create;
{Pasamos el campo binario al stream}
Table1Imagen.SaveToStream(Memory);
{Rebobinamos el Stream}
Memory.Seek(0,soFromBeginning);
{Cargamos Memory a al TImage}
Imagen.LoadFromStream(Memory);
{y asignamos el TImage al Image1 del form}
Image1.Picture.Assign(Imagen);
{Acordate de liberar los recursos}
Memory.Free;
Imagen.Free;
end;
Pruébalo cualquier cosa avisa
DarkManX.
1 respuesta
Respuesta de darkmanx
1