-Web Sites
 -Default Web Site 
   -csp
     -user
     -samles
     ...

s %response.ContentType="application/vnd.ms-excel"

Class abonent.pcPayOrderForm Extends %ZEN.Component.page
{

ClassMethod %OnPreHTTP() As %Boolean [ ServerOnly =  1  ]
{
	s %response.ContentType = "application/pdf"
	q $$$OK
}

ClassMethod OnPage() As %Status
{
	s FileSource = "c:\sys\cache\reports\test.pdf"
	s BufferSize= 2048 , count= 0 
	o FileSource:(/read:/fixed:/recordsize=BufferSize)
	u FileSource
	f {
		r buffer(count)
		q:$l(buffer(count))<BufferSize
		i $i(count)
	}
	c FileSource
	s idx="" f {
		s idx=$o(buffer(idx)) q:idx=""
		&html<#(buffer(idx))#>
	}
	Quit $$$OK
}

}

Class User.file Extends %ZEN.Component.page
{
	
Parameter FilePath = "d:\";

ClassMethod %OnPreHTTP() As %Boolean [ ServerOnly =  1  ]
{
	s %response.ContentType = "application/pdf"
	d %response.SetHeader("content-disposition","filename=doc.pdf")
	d %response.SetHeader("Accept-Ranges","bytes")
	
	s filename="doc.pdf"
	
	s ret = ..GetStream(..#FilePath_filename,.OutStream)
		
	s stream=##class(%GlobalBinaryStream).%New()
	
	s idx = "" f {
		s idx = $o(OutStream(idx)) q:idx=""
		d stream.WriteLine(OutData(idx))
	}
	
	d %response.SetHeader("Content-Length",stream.Size)
	
	s %session.Data("stream")=stream	
	q $$$OK
}

ClassMethod GetStream(FileName as %String, ByRef OutData as %CacheString) as %Status
{
	s stream=##class(%FileBinaryStream).%New()
	s stream.Filename=FileName
	while 'stream.AtEnd {
		s buffer=stream.Read()
		s OutData($i(OutData))=buffer
	}
	q $$$OK
}

ClassMethod OnPage() As %Status
{
	s stream=%session.Data("stream")
	D stream.OutputToDevice()
	Quit $$$OK
}

}