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

Help
 

En verdad, ya resuelto el tema de mi otro Hilo del TIWDBGrid, solamente queda resolver este...

Helppp!
 

Alguien seguro ha trabajado con campos Blob y ha intentado visualizarlos en un TIWImage, por favor, ayuda en esto.


Atte

Americo

Prueba en el menú "Buscar" de los foros.