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:

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 Notevi]

Prueba en el menú "Buscar (http://www.clubdelphi.com/foros/search.php)" de los foros.