Ver Mensaje Individual
  #1  
Antiguo 26-06-2016
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 225
Reputación: 14
darkamerico Va por buen camino
Thumbs up Cargar un TIWImage desde un campo Blob de una Tabla (JPEG)

Saludos amigos, siempre he utilizado el siguiente procedimiento en mis proyectos de escritorio para cargar imagenes JPEG que residen en una tabla con exito:

Código Delphi [-]
procedure TfrmPrincipal.VerFoto(id: integer);
var
  fs:TMemoryStream;
  imagen:TJpegImage;
begin
  fs:=TMemoryStream.Create;
  imagen:=TJpegImage.Create;
  dmMain.q_GetFoto.Close;
  dmMain.q_GetFoto.Params[0].AsInteger:=id;
  dmMain.q_GetFoto.Open;
  (dmMain.q_GETFoto.FieldByName('foto') as TBlobField).SaveToStream(fs);
  fs.Position:=0;
  if fs.Size>0 then
  begin
    imagen.LoadFromStream(fs);
    foto.Picture.Assign(imagen);
  end
  else foto.Picture.Assign(nil);
  fs.Free;
  imagen.Free;
end;

Sin embargo, al parecer no funciona con campos TIWImage. Si alguien ha trabajado con estos campos agradeceria mucho que me indicara como se hace en IntraWeb.

Saludos
Responder Con Cita