Cargar un TIWImage desde un campo Blob de una Tabla (JPEG)

[darkamerico]

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

[darkamerico]

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

[darkamerico]

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


Atte

Americo

[Casimiro Noteví]

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