Delphi - Delphi e imagenes

 
Vista:

Delphi e imagenes

Publicado por Luis (1 intervención) el 13/06/2004 10:46:31
Hola...quisiera saber si alguien me puede ayudar, tengo una base de datos en access, y la manejo por medio de una aplicacion en delphi, el problema que tengo es que necesito guardar imagenes en la base de datos...ya puedo cargar la imagen a un componente image pero no puedo guardarla en la BD, otra opcion que tenia era guardarla utilizando un DBImage, y ahi si puedo guardarla, pero solo utilizando un table1.edit; o sea cuando le pongo que sea un registro nuevo no funciona.....aparte no puedo mostrarlas cuando muestro el registro...

Espero que alguien pueda orientarme....
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Delphi e imagenes

Publicado por BigLuis (1 intervención) el 13/06/2004 11:40:34
Puedes usar esto para guardar el fichero
procedure TMainForm.Button1Click(Sender: TObject);
var jpg: TJpegImage;
bs: TStream;
begin
if (SaveDialog1.Execute) then
begin
jpg := TJpegImage.Create;
try
bs := Table1.CreateBlobStream(Table1.FieldByName('Image'),bmRead);
if (bs.Size > 0) then
begin
jpg.LoadFromStream(bs);
jpg.SaveToFile(SaveDialog1.FileName);
end;
bs.Free;
except
MessageDlg('Error guardando fichero JPEG .',mtError,[mbOk],0);
jpg.Free;
Exit;
end;
jpg.Free;
end;
end;
Y esto para cargarlo
var jpg: TJpegImage;
bs: TStream;
begin
if (OpenDialog1.Execute) then
begin
jpg := TJpegImage.Create;
try
jpg.LoadFromFile(OpenDialog1.FileName);
except
MessageDlg('Invalido fichero JPEG .',mtError,[mbOk],0);
jpg.Free;
Exit;
end;
Table1.Edit;
bs := Table1.CreateBlobStream(Table1.FieldByName('Image'),bmWrite);
jpg.SaveToStream(bs);
Table1.Post;
bs.Free;
jpg.Free;
end;
end;
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar