Fórum Intraweb (ISAPI) e Rave #189044

procedure TfrmProdutosUmidades.frameToolBar1IWImgImprimirClick(
  Sender: TObject);
var
  Stream : TMemoryStream;
  Arquivo : String;
begin

  dmProdutos.ADODtStUmidades.Open;
  dmProdutos.ADODtStImpurezas.Open;

  Arquivo := WebApplication.AppID+´.pdf´;
  Stream := TMemoryStream.Create;

  try
  dmProdutos.RvProject1.ProjectFile := ´C:\Inetpub\scripts\Pilecco\rav\Umidades_Impurezas.rav´;
  dmProdutos.RvProject1.Open;

  try
  dmProdutos.RvNDRWriter1.Stream := Stream;
  dmProdutos.RvProject1.ExecuteReport(´Umidades´);
  dmProdutos.RvRenderPDF1.PrintRender(Stream, ´c:\temp\relatorios\´+Arquivo);
  finally
  dmProdutos.RvProject1.Close;
  end;

  finally
  Stream.Clear;
  end;

  dmProdutos.ADODtStImpurezas.Close;
  
  AddToInitProc(´window.open("http://´+UserSession.sPatch+´/temp/relatorios/´+Arquivo+´","");´);
end;