Ver la Versión Completa : Cargar Imagen
bosterito
03-03-2007, 01:26:07
Hola amigos. Tengo una inquietud, desearía saber como hacer para cargar en un image una imagen guardada en una base de datos( en un campo Blob). yo quisiera cargarla en un image, no en un DbImage. Desde ya muchas gracias.:D
Asumiendo que tu imagen es JPEG, si fuera de otro formato solo cambia
el TJpegImage.
procedure CargarImagen(DataSet: TDataSet);
var
Stream: TMemoryStream;
Jpg : TJpegImage;
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
TBlobField(DataSet.FieldByName('imagen')).SaveToStream(Stream);
if Stream.Size > 0 then
begin
Jpg := TJpegImage.Create;
Stream.Position := 0;
Jpg.LoadFromStream(Stream);
Image1.Picture.Assign(Jpg);
end
else
Image1.Picture.Assign(nil);
except
Image1.Picture.Assign(nil);
end;
jpg.Free;
Stream.Free;
end;
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.