|
No se si te valdrá pero yo utilizo esta función para cargar desde una tabla la foto del empleado y me funciona.
procedure TFicha.dsEmpleadosDataChange(Sender: TObject; Field: TField);
var
BS:TADOBlobStream;
Graphic:TGraphic;
begin
if EmpleadosFoto.IsNull then
Foto.Picture.Graphic := nil
else begin
BS := TADOBlobStream.Create( EmpleadosFoto, bmRead );
try
Graphic := TJPegImage.Create;
try
Graphic.LoadFromStream( BS );
Foto.Picture.Graphic := Graphic;
finally
Graphic.Free;
end;
finally
BS.Free;
end;
end;
end;
Un saludo.
|