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